©
1
jul00/dburkett@infinet.com
©Save polynomials in list bpoly[].
local k,k
1
,k2,bpdim,ff
1
,usermode,choice
©Save user's mode; set modes
getmode("all")
→
usermode
setmode({"Complex Format","Real","Vector
Format","Rectangular","Exact/Approx","Exact","Pretty Print","Off"})
©If bpoly[] exists unarchive it, else create it & initialize it.
if gettype(spfn\bpoly)="NONE" then
newlist(
1
)
→
spfn\bpoly
x-
1
/2
→
spfn\bpoly[
1
]
else
unarchiv(spfn\bpoly)
endif
dim(spfn\bpoly)
→
bpdim
clrio
©Loop to derive Bernoulli polynomials
if nxx>bpdim then
augment(spfn\bpoly,newlist(nxx-bpdim))
→
spfn\bpoly
for k,bpdim+
1
,nxx
á
(k*spfn\bpoly[k-
1
],x)
→
ff
1
ff
1
-
á
(ff
1
,x,0,
1
)
→
spfn\bpoly[k]
disp k
disp spfn\bpoly[k]
endfor
endif
©Prompt to archive bpoly[]
1→
choice
dialog
title "BNPOLY"
dropdown "Archive polynomial list?",{"yes","no"},choice
enddlog
if ok=
1
and choice=
1
then
archive spfn\bpoly
endif
©Restore user's modes
setmode(usermode)
clrio
disphome
Endprgm
Then, use bpo() to recall a particular polynomial:
bpo(kk)
func
©(k) Bernoulli polynomial Bk
©
1
jul00/dburkett@infinet.com
©Generates "Domain error" if kk>dim(bpoly)
if kk<0:return "bpo arg error"
when(kk=0,
1
,spfn\bpoly[kk])
6 - 42
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...
