© Calls math\splice4()
© Local variables
local
l,m,errx
1
,errx2,errx3,errd
1
,errd3,x
1
,äx2,x3,äh,yy
1
,äyy2,yy3,k,äf
1
,äf2,yp
1
,yp2,splc,äout
© l
drop-down selection variable
© m
drop-down selection variable
© äf
1
f
1
(x)
© äf2
f2(x)
© x
1
lower interval bound
© äx2
interval midpoint
© x3
upper interval bound
© yy
1
f
1
(x
1
)
© äyy2
s(x2)
© yy3
f2(x3)
© äh
interval half-width
© yp
1
f
1
'(x
1
)
© yp2
f2'(x3)
© k
scaling factor
© splc
splice coefficients list
© äout
name of coefficient list output variable
© errx
1
splice error at x
1
© errx2
splice error at x2
© errx3
splice error at x3
© errd
1
derivative error at x
1
© errd3
derivative error at x3
© Test for existing user input defaults variable spl4v; create if necessary
if gettype(spl4v)="NONE" then
{"","","0.",".00
1
","0.",""}
→
spl4v
endif
© Extract user input defaults
spl4v[
1
]
→
äf
1
spl4v[2]
→
äf2
spl4v[3]
→
äx2
spl4v[4]
→
äh
spl4v[5]
→
äyy2
spl4v[6]
→
äout
© Prompt for user input
dialog
title "SPLI4UI"
request "f
1
(x)",äf
1
request "f2(x)",äf2
request "Coef var name",äout
request "Splice center x2",äx2
request "Splice half-width h",äh
dropdown "s(x2) method:",{"mean","center","manual"},m
request "manual s(x2)",äyy2
enddlog
if ok=0:return
© Return if [ESC] pressed
{äf
1
,äf2,äx2,äh,äyy2,äout}
→
spl4v
© Save user input defaults
expr(äx2)
→
äx2
© Convert user input strings
expr(äh)
→
äh
expr(äyy2)
→
äyy2
expr("define äf
1
(x)="&äf
1
)
© Create functions f
1
() and f2()
expr("define äf2(x)="&äf2)
1
/äh
→
k
© Find scaling factor
äx2-äh
→
x
1
© ... and splice interval bounds
äx2+äh
→
x3
6 - 106
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...