Prgm
©2nd-order interpolation
©
1
5oct00 [email protected]
©calls str2var()
local a
1
,b
1
,a2,b2,a3,b3,x
1
y
1
,x2y2,x3y3,x
© Initialize all the point variables
© (note that a
1
==x
1
, b
1
==y
1
, etc)
1→
a
1
2
→
b
1
3
→
a2
4
→
b2
5
→
a3
6
→
b3
0
→
x
© Transfer control here to repeat interpolations
lbl t
1
© Convert x- and y-data to pairs as strings; also convert 'x' to string
string(a
1
)&","&string(b
1
)
→
x
1
y
1
string(a2)&","&string(b2)
→
x2y2
string(a3)&","&string(b3)
→
x3y3
string(x)
→
x
© Dialog box for user to enter xy data points
dialog
title "ENTER DATA POINTS"
request "x
1
,y
1
",x
1
y
1
request "x2,y2",x2y2
request "x3,y3",x3y3
request "x",x
text "(Push ESC to quit)"
enddlog
if ok=0:goto exit
1
© Give user a chance to quit here
© Convert the interpolation 'x' to a number
expr(x)
→
x
© Convert the x
1
, y
1
data point string to numbers
str2var(x
1
y
1
)
→
res
if gettype(res)="STRING":goto err
1
res[
1
]
→
a
1
res[2]
→
b
1
© Convert the x2, y2 data point string to numbers
str2var(x2y2)
→
res
if gettype(res)="STRING":goto err
1
res[
1
]
→
a2
res[2]
→
b2
© Convert the x3, y3 data point string to numbers
str2var(x3y3)
→
res
if gettype(res)="STRING":goto err
1
res[
1
]
→
a3
res[2]
→
b3
© Build lists for QuadReg call
{a
1
,a2,a3}
→
l
1
{b
1
,b2,b3}
→
l2
6 - 58
Summary of Contents for TI-92+
Page 52: ...Component side of PCB GraphLink I O connector detail 1 41...
Page 53: ...LCD connector detail PCB switch side 1 42...
Page 54: ...Key pad sheet contact side Key pad sheet key side 1 43...
Page 55: ...Key cap detail 1 44...
Page 57: ...Component side of PCB with shield removed A detail view of the intergrated circuits 1 46...
Page 410: ...void extensionroutine2 void Credit to Bhuvanesh Bhatt 10 4...