<span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; ">I have only <b>ans = T</b><div>When I put name of scliab variable in Scilab Console after I ran this proces I have only information </div>
<div><b>xa</b></div><div><b>  !--error 4 </b></div><div><b>Undefined variable: xa</b></div><div><b><br></b></div><div>I sent you my scilab function:</div><div><div><i>function []=liczSL()</i></div><div><i>  global('wlxa','wlya','wlxb','wlyb','wla','wlb')</i></div>
<div><i>  xa=evstr(TCL_GetVar("wlxa"));</i></div><div><i>  ya=evstr(TCL_GetVar("wlya"));</i></div><div><i>  xb=evstr(TCL_GetVar("wlxb"));</i></div><div><i>  yb=evstr(TCL_GetVar("wlyb"));</i></div>
<div><i>  a=evstr(TCL_GetVar("wla"));</i></div><div><i>  b=evstr(TCL_GetVar("wlb"));</i></div><div><i>    c = sqrt( (xa-xb)*(xa-xb) + (ya-yb)*(ya-yb) );</i></div><div><i>    Ca = b*b+c*c-a*a;</i></div>
<div><i>    Cb = c*c+a*a-b*b; </i></div><div><i>    Cc = a*a+b*b-c*c; </i></div><div><i>    P = sqrt( Ca*Cb+Ca*Cc+Cb*Cc );</i></div><div><i>    at = Ca+Cb;</i></div><div><i>    xc = ( Cb*xa + Ca*xb + P*(ya-yb) )/at;</i></div>
<div><i>    yc = ( Cb*ya + Ca*yb + P*(xb-xa) )/at;</i></div><div><i>endfunction</i></div><div><i><br></i></div><div><i><br></i></div><div>And this is my scilab program:</div><div><div><i>wcl=['toplevel .wcl'</i></div>
<div><i>'wm title .wcl ""Wciêcie Liniowe""'</i></div><div><i>'wm geometry .wcl 370x270'</i></div><div><i>'wm minsize .wcl 370 270'</i></div><div><i>'wm maxsize .wcl 370 270'</i></div>
<div><span style="white-space: pre; "><i>   </i></span></div><div><i>'frame .wcl.menubar -relief raised -bd 1'</i></div><div><i>'pack .wcl.menubar -fill x'</i></div><div><i>'menubutton .wcl.menubar.plik -text File -underline 0 -menu .wcl.menubar.plik.menu'</i></div>
<div><i>'menubutton .wcl.menubar.edycja -text Edit -underline 0 -men .wcl.menubar.edycja.menu'</i></div><div><i>'menubutton .wcl.menubar.licz -text Calc -underline 0 -menu .wcl.menubar.licz.menu'</i></div>
<div><i>'menubutton .wcl.menubar.wyczysc -text Clean -underline 0 -menu .wcl.menubar.wyczysc.menu'</i></div><div><i>'pack .wcl.menubar.plik .wcl.menubar.edycja .wcl.menubar.licz .wcl.menubar.wyczysc -side left'</i></div>
<div><i>'menubutton .wcl.menubar.pomoc -text Help -underline 0 -menu .wcl.menubar.plik.pomoc'</i></div><div><i>'pack .wcl.menubar.pomoc -side right'</i></div><div><i><br></i></div><div><i>'menu .wcl.menubar.plik.menu'</i></div>
<div><i>'.wcl.menubar.plik.menu add command -label Save -command ""SaveFile""'</i></div><div><i>'.wcl.menubar.plik.menu add command -label ""Save As..."" -command ""SaveAsFile""'</i></div>
<div><i>'.wcl.menubar.plik.menu add command -label Print -command ""Print""'</i></div><div><i>'.wcl.menubar.plik.menu add command -label Close -command {destroy .wcl}'</i></div><div><i>'menu .wcl.menubar.licz.menu'</i></div>
<div><i>'.wcl.menubar.licz.menu add command -label Calc -command {calcwl}'</i></div><div><i>'.wcl.menubar.licz.menu add command -label Calc1 -command {calcSL}'</i></div><div><i><br></i></div><div><i>'pack [label .wcl.dane] -pady 7'</i></div>
<div><i>'grid [label .wcl.dane.tpl1 -text ""Right Point""] -row 1 -column 0 -sticky e'</i></div><div><i>'grid [label .wcl.dane.tpl2 -text ""Left Point""] -row 2 -column 0 -sticky e'</i></div>
<div><i>'grid [label .wcl.dane.nrl -text ""Point"" -width 8] -column 1 -row 0 -sticky we -padx 2 -pady 1'</i></div><div><i>'grid [label .wcl.dane.tlx -text ""X"" -width 12] -column 2 -row 0 -sticky we -padx 1 -pady 1'</i></div>
<div><i>'grid [label .wcl.dane.tly -text ""Y"" -width 12] -column 3 -row 0 -sticky we -padx 1 -pady 1'</i></div><div><i>'grid [entry .wcl.dane.nrla -width 8 -justify right -textvariable nrla -validate key -vcmd {expr {[string is double %P] && ![string match ""0*"" %P] && [string len %P] <=7}}] -row 1 -column 1 -pady 1 -padx 1'</i></div>
<div><i>'set ::nrla """"'</i></div><div><i>'grid [entry .wcl.dane.wlxa -width 12 -justify right -textvariable wlxa -validate key -vcmd {expr {[string is double %P] && [string len %P] <= 11}}] -row 1 -column 2 -pady 1 -padx 1'</i></div>
<div><i>'set ::wlxa """"'</i></div><div><i>'grid [entry .wcl.dane.wlya -width 12 -justify right -textvariable wlya -validate key -vcmd {expr {[string is double %P] && [string len %P] <= 11}}] -row 1 -column 3 -pady 1 -padx 1'</i></div>
<div><i>'set ::wlya """"'</i></div><div><i>'grid [entry .wcl.dane.nrlb -width 8 -justify right -textvariable nrlb -validate key -vcmd {expr {[string is double %P] && ![string match ""0*"" %P] && [string len %P] <=7}}] -row 2 -column 1 -pady 1 -padx 1'</i></div>
<div><i>'set ::nrlb """"'</i></div><div><i>'grid [entry .wcl.dane.wlxb -width 12 -justify right -textvariable wlxb -validate key -vcmd {expr {[string is double %P] && [string len %P] <= 11}}] -row 2 -column 2 -pady 1 -padx 1'</i></div>
<div><i>'set ::wlxb """"'</i></div><div><i>'grid [entry .wcl.dane.wlyb -width 12 -justify right -textvariable wlyb -validate key -vcmd {expr {[string is double %P] && [string len %P] <= 11}}] -row 2 -column 3 -pady 1 -padx 1'</i></div>
<div><i>'set ::wlyb """"'</i></div><div><i><br></i></div><div><i>'grid [label .wcl.dane.bok] -row 3 -column 1 -columnspan 3 -pady 8'</i></div><div><i>'grid [label .wcl.dane.bok.ta -text ""Left arm ""] -column 0 -row 0 -sticky e'</i></div>
<div><i>'grid [label .wcl.dane.bok.tb -text ""Right arm ""] -column 0 -row 1 -sticky e'</i></div><div><i>'grid [label .wcl.dane.bok.tm1 -text ""m""] -column 2 -row 0 -sticky w'</i></div>
<div><i>'grid [label .wcl.dane.bok.tm2 -text ""m""] -column 2 -row 1 -sticky w'</i></div><div><i>'grid [entry .wcl.dane.bok.wla -width 7 -justify right -textvariable wla -validate key -vcmd {expr {[string is double %P] && ![string match ""0*"" %P] && [string len %P] <=7}}] -row 0 -column 1 -sticky we -pady 2'</i></div>
<div><i>'set ::wla """"'</i></div><div><i>'grid [entry .wcl.dane.bok.wlb -width 7 -justify right -textvariable wlb -validate key -vcmd {expr {[string is double %P] && ![string match ""0*"" %P] && [string len %P] <=7}}] -row 1 -column 1 -sticky we -pady 2'</i></div>
<div><i>'set ::wlb """"'</i></div><div><i>'grid [label .wcl.dane.tplw -text ""Punkt wcinany""] -row 5 -column 0 -sticky e'</i></div><div><i>'grid [label .wcl.dane.nrp -text ""Nr"" -width 8] -column 1 -row 4 -padx 2 -pady 1'</i></div>
<div><i>'grid [label .wcl.dane.labxp -text ""X"" -width 12] -column 2 -row 4 -padx 1 -pady 1'</i></div><div><i>'grid [label .wcl.dane.labyp -text ""Y"" -width 12] -column 3 -row 4 -padx 1 -pady 1'</i></div>
<div><i>'grid [entry .wcl.dane.nrlp -width 8 -justify right -textvariable nrp -validate key -vcmd {expr {[string is double %P] && ![string match ""0*"" %P] && [string len %P] <=7}}] -row 5 -column 1 -pady 1 -padx 1'</i></div>
<div><i>'set ::nrp """"'</i></div><div><i>'grid [entry .wcl.dane.wlxp -width 12 -justify right -state readonly -textvariable wlxp] -row 5 -column 2 -pady 1'</i></div><div><i>'set ::wlxp """"'</i></div>
<div><i>'grid [entry .wcl.dane.wlyp -width 12 -justify right -state readonly -textvariable wlyp] -row 5 -column 3 -pady 1'</i></div><div><i>'set ::wlyp """"'</i></div><div><i><br></i></div>
<div><i>'proc calcwl {} {'</i></div><div><i>  'if {[catch {'</i></div><div><i>    'set c [expr {double (sqrt((($::wlxa-$::wlxb)*($::wlxa-$::wlxb)) + (($::wlya-$::wlyb)*($::wlya-$::wlyb))))}]'</i></div>
<div><i>    'set Ca [expr {double (($::wlb*$::wlb) + ($c*$c) - ($::wla*$::wla))}]'</i></div><div><i>    'set Cb [expr {double (($::wla*$::wla) + ($c*$c) - ($::wlb*$::wlb))}]'</i></div><div><i>    'set Cc [expr {double (($::wlb*$::wlb) + ($::wla*$::wla) - ($c*$c))}]'</i></div>
<div><i>    'set P [expr {double (sqrt($Ca*$Cb+$Ca*$Cc+$Cb*$Cc))}]'</i></div><div><i>    'set at [expr {double ($Ca+$Cb)}]'</i></div><div><i>    'set ::wlxp [format ""%0.2f"" [expr {double ((($Cb*$::wlxa + $Ca*$::wlxb + $P*($::wlya-$::wlyb))/$at))}]]'</i></div>
<div><i>    'set ::wlyp [format ""%0.2f"" [expr {double ((($Cb*$::wlya + $Ca*$::wlyb + $P*($::wlxb-$::wlxa))/$at))}]]'</i></div><div><i>  '}]!=0} {'</i></div><div><i>    'set ::wlxp ""B³±d""'</i></div>
<div><i>    'set ::wlyp ""B³±d""'</i></div><div><i>  '}'</i></div><div><i>'}'</i></div><div><i>  </i><span style="white-space: pre; "><i>   </i></span></div><div><i>'proc calcSL {} {'</i></div>
<div><i>'ScilabEval liczSL()' </i></div><div><i>'}'];</i></div><div><i><br></i></div><div><i>mputl(wcl,TMPDIR+'/wcl.tcl')</i></div><div><i>TCL_EvalFile(TMPDIR+'/wcl.tcl');</i></div></div><div>
<br></div><div><br></div><div>proc Calc - counting everything in TCL</div><div>proc Calc1 -counting it using Scilab function</div><div><br></div><div>Marcin</div></div></span>