**TI92P*main Y×[àá&\¨÷LÈ?<È6à^'\ YRTaylorP˜¥Z>() Prgm ©by Lila Roberts ©Georgia South. Univ ©for Demos with ©Positive Impact ©NSF DUE-9952306 ClrGraph ClrIO Disp "Make sure the function" Disp "has been defined as" Disp "y1(x). Press Enter" Disp "to continue." Pause ClrIO Disp "Enter plotting interval" Disp "[a,b]" Prompt a Prompt b axmin bxmax ClrIO Disp "Enter range interval" Disp "[c,d]" Prompt c Prompt d cymin dymax h=(d-c)/10 ClrIO Disp "Enter max degree" Prompt n Disp "Enter" Prompt center Disp "Display error?" Disp "1 = yes, 0 = no" Input err If err 1 then setMode("Split Screen","Full") For i,0,n Define g(x)=taylor(y1(x),x,i,center) ClrGraph Graph y1(x),x "N = " & string(i)plotstr If abs(y1(a)-c)< abs(y1(a)-d) Then PtText plotstr,a,d-.5 Else PtText plotstr,a,c+.5 EndIf Graph g(x),x Pause EndFor Text "Press 2nd + Esc to Exit" Else setMode({"Split Screen","Left-Right","Number of Graphs","2"}) For i,0,n switch(1) ClrGraph cymin dymax Define g(x)=taylor(y1(x),x,i,center) Graph y1(x),x "N = " & string(i)plotstr If abs(y1(a)-c)< abs(y1(a)-d) Then PtText plotstr,a,d-.5 Else PtText plotstr,a,c+.5 EndIf Graph g(x),x switch(2) ClrGraph axmin bxmax ­.1ymin .1ymax y1(x)-g(x)diff(x) "E" & string(i)plotstr Graph 2 diff(x),x PtText plotstr,a,­.05 PtText ".1",a,.1 PtText "-.1",a,­.08 Pause EndFor Text "Press 2nd + Esc TWICE to Exit" EndIf EndPrgm äåÜš¨