request "y1",ya
request "y2",yb
request "f(x1,y1)",zaa
request "f(x1,y2)",zab
request "f(x2,y1)",zba
request "f(x2,y2)",zbb
enddlog
expr(xa)→xa
expr(xb)→xb
expr(ya)→ya
expr(yb)→yb
expr(zaa)→zaa
expr(zab)→zab
expr(zba)→zba
expr(zbb)→zbb
if ok=0:return
string(x)→x
string(y)→y
dialog
title "bilinui"
request "x",x
request "y",y
enddlog
expr(x)→x
expr(y)→y
if ok=0:return
bilinint(xa,xb,ya,yb,zaa,zab,zba,zbb,x,y)→z
dialog
title "bilinui result"
text "z= "&string(z)
enddlog
if ok=0:return
goto l1
EndPrgm
This program accepts the user input in dialog boxes, and displays the result in a dialog box. The
previous inputs are saved in global variables, so they can be used as defaults the next time you run the
program. These global variables are
xa, xb, ya, yb, zaa, zab, zba, zbb, x, y
You can press [ESC] at any dialog box to exit the program. Otherwise, the program continues to run,
so that you can do more than one interpolation at once.
Note that the input must be done in two dialog boxes, since there are ten input elements, and a single
dialog box can hold only eight. The program calls bilinint() to perform the actual interpolation. bilinui()
and bilinint() must be in the same folder, and that folder must be the current folder.
6 - 47
To Next Page
Loading...
Need help?
General
