{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 7 1 52 0 0 1 0 0 0 0 0 0 0 1 }1 0 0 0 6 6 0 0 0 0 0 0 -1 0 } {PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 111 1 0 0 0 0 0 0 0 0 0 0 0 1 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "restart;with(plots): " }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has be en redefined\n" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 25 "polynomiale In terpolation" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 250 "x:=[seq(i, i =-4..4)]:\ny:=[seq(0, i=-4..4)]: y[5]:=1:\nbf:=plot([seq([x[i], y[i]], i=1..nops(x))], -5..5,0..1, thickness=3): \ninterp(x,y,t);\np:=t->int erp(x,y,t):\nbi:=plot(p(t), t=-5..5, -2..1, numpoints=100, color=green , thickness=2):\ndisplay(bf, bi);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #,,*&#\"\"\"\"$w&F&*$)%\"tG\"\")F&F&F&*&#\"\"&\"#'*F&*$)F*\"\"'F&F&!\" \"*&#\"#\"*\"$#>F&*$)F*\"\"%F&F&F&*&#\"$0#\"$W\"F&*$)F*\"\"#F&F&F3F&F& " }}{PARA 13 "" 1 "" {GLPLOT2D 614 298 298 {PLOTDATA 2 "6&-%'CURVESG6% 7+7$$!\"%\"\"!$F*F*7$$!\"$F*F+7$$!\"#F*F+7$$!\"\"F*F+7$F+$\"\"\"F*7$F6 F+7$$\"\"#F*F+7$$\"\"$F*F+7$$\"\"%F*F+-%'COLOURG6&%$RGBG$\"#5F4F+F+-%* THICKNESSG6#F>-F$6%7br7$$!\"&F*$\"3'))***********f7!#:7$$!3A2222#zN(\\ !#<$\"3)\\SCSdF[<\"FS7$$!3W9999%er%\\FW$\"3y3(QrE;U4\"FS7$$!3x?@@@wt? \\FW$\"30g@D^K(z,\"FS7$$!3)z#GGGoJ%*[FW$\"3eP7`7.7f%*!#;7$$!3m'pppkR$[ [FW$\"3]Vouy_\\*H)Fco7$$!3LllllCO-[FW$\"3Y&Hw!>Y+_sFco7$$!3Wmmm;jl]ZFW $\"3S-rs1]M(>'Fco7$$!3_nnnn,&*)p%FW$\"3s%3>w5DBE&Fco7$$!3'pnnnF,pk%FW$ \"3Mxj$\\u)=JWFco7$$!3Y&eeeQ_[f%FW$\"3b^;h?=V+PFco7$$!3ECCCu30VXFW$\"3 m.niiU^jIFco7$$!31jiii$\\7\\%FW$\"3%*47$=.[\"3DFco7$$!3#zzzz4'>&R%FW$ \"3/)*)flYFvm\"Fco7$$!3#fggg]QdH%FW$\"3'e#p!zPBd,\"Fco7$$!3!=AAAKzG>%F W$\"3(yF_$p#f-I&FW7$$!3G4444+N!4%FW$\"3I'z6g*>#['>FW7$$!3'z!333g)[)RFW $!3;,`P(e\"oZD!#=7$$!3weeeeK*>*QFW$!3Crb'[w$yM9FW7$$!3sTTTTcqRQFW$!3UP [y*[%3]=FW7$$!3CCCCC!=uy$FW$!3yt4%=r>/7#FW7$$!344444d\"\\t$FW$!3=q!z0' y6qAFW7$$!3#RRRRR8Co$FW$!3Km.RJ#>%>BFW7$$!3Svvvv>A\"e$FW$!3dw%RFF!G+AF W7$$!3gtttt/L*[$FW$!3-\"e@R&)ej#>FW7$$!3y*)*)*)*ei+Q$FW$!35#4Y(eI!3\\ \"FW7$$!3[ffff$)\\(G$FW$!3yff'oppz3\"FW7$$!3kaaaaT#)zJFW$!3\\TajTK2EjF es7$$!3UQQQQU^%3$FW$!3Y2vAxFZ=FFes7$$!3OaaaaT%*zHFW$\"3[*\\[1.]4q&!#>7 $$!3!egggqo.)GFW$\"359w6$\\*[\\HFes7$$!3krrrr@ZwFFW$\"38S(>FW$!3r!)=A%>=r?$Fbw7$$!3G @@@@z*['=FW$!3#[[vVuUKb\"Fes7$$!3kHHHHt%ow\"FW$!3C\\*ph,N!\\CFes7$$!35 %RRRRd@m\"FW$!3yR\"4eRth7$Fes7$$!3!HDDDv#Hn:FW$!3;qw`D?%*eMFes7$$!39UU UU1ej9FW$!3F#GCJK!*4]$Fes7$$!3iHHHHc*fO\"FW$!30GInsi,NKFes7$$!3!GFFF< \"*RE\"FW$!33Y5kVw]dEFes7$$!33srrrJEk6FW$!3n!4K*o#Gs#=Fes7$$!3/(ppp>d) f5FW$!3w&Fbw7$$!3GDDDDXpk &)Fes$\"3EVa&Rtup!>Fes7$$!3sZZZZd)[a(Fes$\"3$G-h]:0-E(Fes 7$$\"3q<>>>zUabFes$\"3_.A['[5R/'Fes7$$\"3;tqqqg6mlFes$\"3727u$4<@q%Fes 7$$\"3M0///C3uvFes$\"3_#Hr\"*>IlH$Fes7$$\"37$\\\\\\\\ACa)Fes$\"3=6,)zs uy$>Fes7$$\"3MtxxxPA*e*Fes$\"30q[;#ykSC&Fbw7$$\"31IIII,pe5FW$!31&fQP)o X!3(Fbw7$$\"3+#>>>*4pj6FW$!3(4,#>??y@=Fes7$$\"3'olll0U(e7FW$!3XHg31H.? EFes7$$\"3Iwwww7zj8FW$!3/!f=Ht%oDKFes7$$\"3MCCCC,Tk9FW$!3UGiN\"\\%*>]$ Fes7$$\"3!GEEE1%yk:FW$!3/i]l2N&RY$Fes7$$\"35JIII]ip;FW$!3)4Y#H>dL)3$Fe s7$$\"3g)))))))Q(=m\"y-`bUX#Fes7$$\"3o____/3l=FW$!3sW)*yV!o8b \"Fes7$$\"3/XXXX,Fu>FW$!3w:%*4VsewJFbw7$$\"3=ooooC8t?FW$\"3cB0.A@Y%Q*F bw7$$\"3U7777xBu@FW$\"3Oyzu*QUoE#Fes7$$\"3ySSSS\"fqF#FW$\"3a/S7[#=Bb$F es7$$\"3!>999/s:P#FW$\"3uk5K'*)Gvc%Fes7$$\"3MLLLL(>BZ#FW$\"3yb)))4[rIN &Fes7$$\"31FFFF0IsDFW$\"3QWw?\")e?1dFes7$$\"3q**)*)*)*)[#zEFW$\"3mzJoM f`yaFes7$$\"3Q.///iitFFW$\"3q'42pyX!fYFes7$$\"3_@AAA!=D)GFW$\"3tT5))fI ;1HFes7$$\"3#GHHH\\%y!)HFW$\"3mcYj#)=3oaFbw7$$\"3MIHHHS,yIFW$!3s\"\\:s u'3#\\#Fes7$$\"3'[hhh,nD=$FW$!3U+fQ?J(pV'Fes7$$\"3]TTTTHa(G$FW$!3g&GY \\1k\")3\"FW7$$\"3_*)*)*)*[bIQ$FW$!3YB?gk2f.:FW7$$\"3Wttttb[%[$FW$!3-0 tqtO'*3>FW7$$\"3#GAAAUrMe$FW$!37MUBp0N0AFW7$$\"3KDEEEJx!p$FW$!3en49oDZ FW7$$\"3yWXXX28*=%FW$\"37$H$Rep3a^FW7$$\"3UjjjjkY!H%FW$\"3'*yt@ybNl )*FW7$$\"3)osssi!)yR%FW$\"33S0m;-+)o\"Fco7$$\"35(ppp*)oj\\%FW$\"3)GF53 aK'fDFco7$$\"3GJJJ\"=z\\a%FW$\"3UQ)H*\\3r&3$Fco7$$\"3Wllll%*e$f%FW$\"3 AzZTgz'Qo$Fco7$$\"3))efffIbXYFW$\"3P%\\'R\"eN5T%Fco7$$\"3I_```m^(p%FW$ \"3\"pT/')z-!Q_Fco7$$\"3#psss7n$\\ZFW$\"3!Q_i!4NishFco7$$\"3`,,,,w@,[F W$\"3BA#42dxsA(Fco7$$\"3kIII![cx%[FW$\"3_0+mib_&G)Fco7$$\"3sffff`H%*[F W$\"3qec(oF^&e%*Fco7$$\"3Dqpp>:s?\\FW$\"3.ySV!3Gz,\"FS7$$\"3')zzzzw9Z \\FW$\"3['*[k;W=%4\"FS7$$\"3]*)*)*)RQdt\\FW$\"3[0&R>u5[<\"FS7$$\"\"&F* FQ-FC6&FEF+$\"*++++\"!\")F+-FI6#F;-%+AXESLABELSG6%Q!6\"Fccm-%%FONTG6#% (DEFAULTG-%%VIEWG6$;FOFgbm;F0F6" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 19 "Splinein terpolation" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "readlib(splin e):\ns:=spline(x,y,t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"sG-%*PIE CEWISEG6*7$,*#\"$!=\"#(*\"\"\"*&#\"$T\"F,F-%\"tGF-F-*&#\"#OF,F-*$)F1\" \"#F-F-F-*&#\"\"$F,F-*$)F1F:F-F-F-2F1!\"$7$,*#\"$1$F,!\"\"*&#\"$X$F,F- F1F-FC*&#\"$E\"F,F-F5F-FC*&#\"#:F,F-F;F-FC2F1!\"#7$,*#\"$q#F,F-*&#\"$> &F,F-F1F-F-*&#FBF,F-F5F-F-*&#\"#dF,F-F;F-F-2F1FC7$,(F-F-*&#\"$8#F,F-F5 F-FC*&#\"$;\"F,F-F;F-FC2F1\"\"!7$,(F-F-*&#FjnF,F-F5F-FC*&#F]oF,F-F;F-F -2F1F-7$,*FQF-*&#FUF,F-F1F-FC*&FWF-F5F-F-*&#FZF,F-F;F-FC2F1F77$,*#FBF, FC*&#FFF,F-F1F-F-*&#FIF,F-F5F-FC*&#FLF,F-F;F-F-2F1F:7$,*F*F-*&#F0F,F-F 1F-FC*&F3F-F5F-F-*&#F:F,F-F;F-FC%*otherwiseG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "bs:=plot(s, t=-5..5, -1..1, color=blue, thicknes s=2):\ndisplay(bf, bs);" }}{PARA 13 "" 1 "" {GLPLOT2D 695 300 300 {PLOTDATA 2 "6&-%'CURVESG6%7+7$$!\"%\"\"!$F*F*7$$!\"$F*F+7$$!\"#F*F+7$ $!\"\"F*F+7$F+$\"\"\"F*7$F6F+7$$\"\"#F*F+7$$\"\"$F*F+7$$\"\"%F*F+-%'CO LOURG6&%$RGBG$\"#5F4F+F+-%*THICKNESSG6#F>-F$6%7gq7$$!\"&F*$\"3;E1])4#* 3W%!#L7$$!3YLLLe%G?y%!#<$\"3qGtr=xx%R*!#?7$$!3OmmT&esBf%FW$\"3)p.h#fN> *=\"!#>7$$!3ALL$3s%3zVFW$\"3jc^A*3VR+\"Fjn7$$!3_LL$e/$QkTFW$\"3%>/M6lK m%\\FZ7$$!3ommT5=q]RFW$!3[Wx=83)4_\"FZ7$$!3ILL3_>f_PFW$!3[0gLFKU$=(FZ7 $$!3K++vo1YZNFW$!3)*H&obCyH6\"Fjn7$$!3;LL3-OJNLFW$!3AW:*Rl#\\Z6Fjn7$$! 3p***\\P*o%Q7$FW$!3)Hk-)pQE'H'FZ7$$!3Kmmm\"RFj!HFW$\"3#=Xcpq77['FZ7$$! 33LL$e4OZr#FW$\"3mMzJWydg@Fjn7$$!3UmmT&)G*og#FW$\"3BK(pG****f#HFjn7$$! 3u*****\\n\\!*\\#FW$\"3CE+s(zUI[$Fjn7$$!3x****\\im!\\W#FW$\"3%*fvR!pTv k$Fjn7$$!3y******\\Ow!R#FW$\"3Q\\*[B:ear$Fjn7$$!3#)****\\P1iOBFW$\"3S' \\b]tl?n$Fjn7$$!3%)*****\\ixCG#FW$\"3YZ\")***)zj-NFjn7$$!35+++vR7y@FW$ \"3Cj\"f=lZhw#Fjn7$$!3#******\\KqP2#FW$\"3TT[T-VK,9Fjn7$$!3am;a8s+z>FW $!3LUjd88&Hq%FZ7$$!39LL3-TC%)=FW$!3)*4P8\\*3A\"HFjn7$$!3[mmm\"4z)e;FW$ !3a]4H(Q,7P*Fjn7$$!3Smm;HAUj:FW$!3!Got+)Qdj6!#=7$$!3Mmmmm`'zY\"FW$!39` 3h>VS<8Fdu7$$!33$3x1h0-W\"FW$!3As'z\\v8TM\"Fdu7$$!3%)*\\(oaeW79FW$!3W9 >rjOLh8Fdu7$$!3O;zp)4'o%Q\"FW$!3q2e9?)4$o8Fdu7$$!37L$3FMEpN\"FW$!3E8'> ')*zGk8Fdu7$$!3))\\(=nem\"H8FW$!3'yerM(R^[8Fdu7$$!3Tm\"H2$oS,8FW$!3l\" )*R!>NB?8Fdu7$$!3;$eRZ2ZOF\"FW$!3'e0j'4Cpy7Fdu7$$!3#****\\(=t)eC\"FW$! 3jS!z'>k8B7Fdu7$$!3OL$3x'*)fZ6FW$!3]9(z'4$Rd-*Fjn7$$!3!ommmh5$\\5FW$!3 VO\"Qd`>Qj$Fjn7$$!3S**\\(=n;R&**Fdu$\"3lmQFC*3^t$FZ7$$!3tIL3xrs9%*Fdu$ \"3q55+w#z!f^Fjn7$$!31i;H#oPb())Fdu$\"3-^%y^MzJ1\"Fdu7$$!3S$***\\(=[jL )Fdu$\"3#*4![Dp(eGm+p\"HdFdu7$$!3C#*\\(o/ban%Fdu$\"32Z&*Q, [3AkFdu7$$!3ndmmT&Q(RTFdu$\"3GfoJ1(R_3(Fdu7$$!3Ihm\"HdGe:$Fdu$\"3#REGA MJ*)=)Fdu7$$!3%\\mmTg=><#Fdu$\"3'Gcs.Nxm3*Fdu7$$!3g***\\7yQ16\"Fdu$\"3 %)y$\\T-=bu*Fdu7$$!3vDMLLe*e$\\FZ$\"3iRvDbkY****Fdu7$$\"3+l;a)3RBE#Fjn $\"3yPI7&e**)))**Fdu7$$\"3bsmTgxE=]Fjn$\"3WmsN7D@Y**Fdu7$$\"37!o\"HKk> uxFjn$\"3SO7?iU!H()*Fdu7$$\"3womT5D,`5Fdu$\"3%znjgtw/x*Fdu7$$\"3Gq;zW# )>/;Fdu$\"3U6*y9YrU[*Fdu7$$\"3!=nm\"zRQb@Fdu$\"3E>G()**=h*4*Fdu7$$\"3m OLL$e,]6$Fdu$\"3RrzE^.vI#)Fdu7$$\"3_,+](=>Y2%Fdu$\"33;\"46X*GjrFdu7$$ \"3!)p;aQe#Gf%Fdu$\"3(e028=)eElFdu7$$\"36QLe*[K56&Fdu$\"3iP?HovWgeFdu7 $$\"3T1]iS\"R#HcFdu$\"3Q3#=\\d_[<&Fdu7$$\"3summ\"zXu9'Fdu$\"3-=(RS;)yz WFdu7$$\"3E1+voR!Go'Fdu$\"3;>U5GdPiPFdu7$$\"3#yLLe9i\"=sFdu$\"3!4zu56B l0$Fdu7$$\"3Opm\"HK?Nv(Fdu$\"3e$Rf[*)RKP#Fdu7$$\"3#4+++]y))G)Fdu$\"3d$ )fOhc`B++DcljL*Fdu$\" 3%z$)H6ZKW\"fFjn7$$\"3W-+v$44,')*Fdu$\"3%f2\"\\>W!=:\"Fjn7$$\"3H++]i_Q Q5FW$!3AGQg2(3\\)GFjn7$$\"3U+](=-N(R6FW$!3ow\\]#4P#z')Fjn7$$\"3b++D\"y %3T7FW$!3T_kbav/77Fdu7$$\"3[]7G)o<#p7FW$!3I.$*)>2(yq7Fdu7$$\"3S+DJ&f]t H\"FW$!3Z1PZ$z3]J\"Fdu7$$\"3M]PM-N[D8FW$!3k:Hhqx\\X8Fdu7$$\"3G+]P4kh`8 FW$!3;6-,b!RIO\"Fdu7$$\"3?]iS;$\\v=CO\"Fdu7$$\"32](o/8:!Q9FW$!3[qLyns#eM\"Fdu7$$\"3+++]P![h Y\"FW$!3s_dC(HG%>8Fdu7$$\"3KmmT5FEn:FW$!3ScB1\"))fc:\"Fdu7$$\"3iKLL$Qx $o;FW$!3X*=KHl&)y6*Fjn7$$\"3Y+++v.I%)=FW$!35>]$39S1\"HFjn7$$\"3ML$ek`H @)>FW$!3-3`b#eKS)RFZ7$$\"3?mm\"zpe*z?FW$\"3GSW^%G*o,:Fjn7$$\"3&**\\(oa _VL@FW$\"3!z_2=\"4ukAFjn7$$\"3oL$e9\"=\"p=#FW$\"3'Hp!><$G4&GFjn7$$\"3V n\"H#o$)QSAFW$\"3)z&)eV!3WuKFjn7$$\"3;,++D\\'QH#FW$\"3Wnt+xwY\\NFjn7$$ \"3*Q$eR(>#=WBFW$\"3'p[^5jh`o$Fjn7$$\"3/n;zp%*\\%R#FW$\"3l%>7SdyTr$Fjn 7$$\"3A+v=Un\"[W#FW$\"3'\\,(HI'Qxk$Fjn7$$\"3%HL$e9S8&\\#FW$\"3!zU8V#>' y\\$Fjn7$$\"3%om;/6E.g#FW$\"39#f:4+aq'HFjn7$$\"3s++D1#=bq#FW$\"3i]Wv'* RCJAFjn7$$\"3\"HLL$3s?6HFW$\"3X,IcX9g:hFZ7$$\"3a***\\7`Wl7$FW$!3>V[8%H zVS'FZ7$$\"3enmmm*RRL$FW$!3QEb%=\\)4Y6Fjn7$$\"3%zmmTvJga$FW$!3UiajiQn9 6Fjn7$$\"3]MLe9tOcPFW$!3GOh,1bx(3(FZ7$$\"31,++]Qk\\RFW$!3oNHp>vX`:FZ7$ $\"3![LL3dg6<%FW$\"3V7s\"*\\TaQ^FZ7$$\"3%ymmmw(GpVFW$\"3Os&RM$Hrj)*FZ7 $$\"3C++D\"oK0e%FW$\"3+(4!et&e.>\"Fjn7$$\"35,+v=5s#y%FW$\"3oFA@>S'oP*F Z7$$\"\"&F*FQ-FC6&FEF+F+$\"*++++\"!\")-FI6#F;-%+AXESLABELSG6%Q!6\"F\\` m-%%FONTG6#%(DEFAULTG-%%VIEWG6$;FOF`_m;F3F6" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 23 "dyadische Interpolation" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 " display(bf);" }}{PARA 13 "" 1 "" {GLPLOT2D 793 180 180 {PLOTDATA 2 "6% -%'CURVESG6%7+7$$!\"%\"\"!$F*F*7$$!\"$F*F+7$$!\"#F*F+7$$!\"\"F*F+7$F+$ \"\"\"F*7$F6F+7$$\"\"#F*F+7$$\"\"$F*F+7$$\"\"%F*F+-%'COLOURG6&%$RGBG$ \"#5F4F+F+-%*THICKNESSG6#F>-%+AXESLABELSG6$Q!6\"FN-%%VIEWG6$;$!\"&F*$ \"\"&F*;F+F6" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "print(x);print (y);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7+!\"%!\"$!\"#!\"\"\"\"!\"\"\" \"\"#\"\"$\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7+\"\"!F$F$F$\"\"\" F$F$F$F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 440 "anz:=nops(x); \nfor i from 1 to nops(y) do y1[2*i-1]:=y[i]; od:\nanzalt:=anz;\nanz:= 2*anz-1;\ny1[2]:=(8*y[1]+9*y[2]-y[3])/16;\nfor i from 4 to anz-2 by 2 \+ do \n y1[i]:=(-y[i/2-1]+9*y[i/2]+9*y[i/2+1]-y[i/2+2])/16;\n od:\ny 1[anz-1]:=(-y[anzalt-2]+9*y[anzalt-1]+8*y[anzalt])/16;\n#print(seq(y1[ i],i=1..anz));\nbd1:=plot([seq([-4+(i-1)*8/(anz-1) , y1[i]], i=1..anz )], -5..5, \n style=point, symbol=box, color=magenta, tickmarks=[9, 3]):\ndisplay(bd1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$anzG\"\"*" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'anzaltG\"\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$anzG\"#<" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#y1G6 #\"\"#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#y1G6#\"#;\"\"!" }} {PARA 13 "" 1 "" {GLPLOT2D 852 303 303 {PLOTDATA 2 "6&-%'CURVESG6&737$ $!\"%\"\"!$F*F*7$$!3++++++++N!#7$$!\"\"F*F+7$$!3++++++++]!#=$\"3++ +++++DcFE7$F+$\"\"\"F*7$$\"3++++++++]FEFF7$FIF+7$$\"3++++++++:F/F<7$$ \"\"#F*F+7$$\"3++++++++DF/F+7$$\"\"$F*F+7$$\"3++++++++NF/F+7$$\"\"%F*F +-%'COLOURG6&%$RGBG$\"*++++\"!\")F+F_o-%&STYLEG6#%&POINTG-%'SYMBOLG6#% $BOXG-%+AXESLABELSG6$Q!6\"F]p-%*AXESTICKSG6$\"\"*FZ-%%VIEWG6$;$!\"&F*$ \"\"&F*%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 " display(bf, bd1);" }}{PARA 13 "" 1 "" {GLPLOT2D 786 236 236 {PLOTDATA 2 "6'-%'CURVESG6%7+7$$!\"%\"\"!$F*F*7$$!\"$F*F+7$$!\"#F*F+7$$!\"\"F*F+ 7$F+$\"\"\"F*7$F6F+7$$\"\"#F*F+7$$\"\"$F*F+7$$\"\"%F*F+-%'COLOURG6&%$R GBG$\"#5F4F+F+-%*THICKNESSG6#F>-F$6&73F'7$$!3++++++++N!#F27$$!3++++++++]!#=$\"3+++++ ++DcFhnF57$$\"3++++++++]FhnFinF87$$\"3++++++++:FQFXF97$$\"3++++++++DFQ F+F<7$$\"3++++++++NFQF+F?-FC6&FE$\"*++++\"!\")F+Fio-%&STYLEG6#%&POINTG -%'SYMBOLG6#%$BOXG-%+AXESLABELSG6%Q!6\"Fgp-%%FONTG6#%(DEFAULTG-%*AXEST ICKSG6$\"\"*F>-%%VIEWG6$;$!\"&F*$\"\"&F*;F+F6" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 510 "y2:=evaln(y2):\nfor i from 1 to anz do y 2[2*i-1]:=y1[i]; od:\nanzalt:=anz:\nanz:=2*anz-1;\ny2[2]:=(8*y1[1]+9*y 1[2]-y1[3])/16:\nfor i from 4 to anz-2 by 2 do \n y2[i]:=(-y1[i/2-1] +9*y1[i/2]+9*y1[i/2+1]-y1[i/2+2])/16;\n od:\ny2[anz-1]:=(-y1[anzalt- 2]+9*y1[anzalt-1]+8*y1[anzalt])/16:\n#print(seq(y2[i],i=1..anz));\nbdi :=plot([seq([-4+(i-1)*8/(anz-1) , y2[i]], i=1..anz)], -5..5, \n st yle=point, symbol=box, color=magenta, tickmarks=[9,3]):\ndisplay(bdi); \ny1:=evaln(y1):\nfor i from 1 to anz do y1[i]:=evalf(y2[i]);od:" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$anzG\"#L" }}{PARA 13 "" 1 "" {GLPLOT2D 788 241 241 {PLOTDATA 2 "6&-%'CURVESG6&7C7$$!\"%\"\"!$F*F*7$ $!3+++++++]P!#7$$!3++++++++:F/$!3+++++++]iFM7$$!3+ ++++++]7F/$!3++++++DJqFM7$$!\"\"F*F+7$$!3++++++++v!#=$\"3+++++]7yDFhn7 $$!3++++++++]Fhn$\"3+++++++DcFhn7$$F>Fhn$\"3++++++]P%)Fhn7$F+$\"\"\"F* 7$$\"3++++++++DFhnFbo7$$\"3++++++++]FhnF^o7$$\"3++++++++vFhnFin7$FeoF+ 7$$\"3+++++++]7F/FV7$$\"3++++++++:F/FQ7$$\"3+++++++] " 0 "" {MPLTEXT 1 0 25 "display(bf, bi, bs, b di);" }}{PARA 13 "" 1 "" {GLPLOT2D 699 329 329 {PLOTDATA 2 "6)-%'CURVE SG6%7+7$$!\"%\"\"!$F*F*7$$!\"$F*F+7$$!\"#F*F+7$$!\"\"F*F+7$F+$\"\"\"F* 7$F6F+7$$\"\"#F*F+7$$\"\"$F*F+7$$\"\"%F*F+-%'COLOURG6&%$RGBG$\"#5F4F+F +-%*THICKNESSG6#F>-F$6%7br7$$!\"&F*$\"3'))***********f7!#:7$$!3A2222#z N(\\!#<$\"3)\\SCSdF[<\"FS7$$!3W9999%er%\\FW$\"3y3(QrE;U4\"FS7$$!3x?@@@ wt?\\FW$\"30g@D^K(z,\"FS7$$!3)z#GGGoJ%*[FW$\"3eP7`7.7f%*!#;7$$!3m'pppk R$[[FW$\"3]Vouy_\\*H)Fco7$$!3LllllCO-[FW$\"3Y&Hw!>Y+_sFco7$$!3Wmmm;jl] ZFW$\"3S-rs1]M(>'Fco7$$!3_nnnn,&*)p%FW$\"3s%3>w5DBE&Fco7$$!3'pnnnF,pk% FW$\"3Mxj$\\u)=JWFco7$$!3Y&eeeQ_[f%FW$\"3b^;h?=V+PFco7$$!3ECCCu30VXFW$ \"3m.niiU^jIFco7$$!31jiii$\\7\\%FW$\"3%*47$=.[\"3DFco7$$!3#zzzz4'>&R%F W$\"3/)*)flYFvm\"Fco7$$!3#fggg]QdH%FW$\"3'e#p!zPBd,\"Fco7$$!3!=AAAKzG> %FW$\"3(yF_$p#f-I&FW7$$!3G4444+N!4%FW$\"3I'z6g*>#['>FW7$$!3'z!333g)[)R FW$!3;,`P(e\"oZD!#=7$$!3weeeeK*>*QFW$!3Crb'[w$yM9FW7$$!3sTTTTcqRQFW$!3 UP[y*[%3]=FW7$$!3CCCCC!=uy$FW$!3yt4%=r>/7#FW7$$!344444d\"\\t$FW$!3=q!z 0'y6qAFW7$$!3#RRRRR8Co$FW$!3Km.RJ#>%>BFW7$$!3Svvvv>A\"e$FW$!3dw%RFF!G+ AFW7$$!3gtttt/L*[$FW$!3-\"e@R&)ej#>FW7$$!3y*)*)*)*ei+Q$FW$!35#4Y(eI!3 \\\"FW7$$!3[ffff$)\\(G$FW$!3yff'oppz3\"FW7$$!3kaaaaT#)zJFW$!3\\TajTK2E jFes7$$!3UQQQQU^%3$FW$!3Y2vAxFZ=FFes7$$!3OaaaaT%*zHFW$\"3[*\\[1.]4q&!# >7$$!3!egggqo.)GFW$\"359w6$\\*[\\HFes7$$!3krrrr@ZwFFW$\"38S(>FW$!3r!)=A%>=r?$Fbw7$$! 3G@@@@z*['=FW$!3#[[vVuUKb\"Fes7$$!3kHHHHt%ow\"FW$!3C\\*ph,N!\\CFes7$$! 35%RRRRd@m\"FW$!3yR\"4eRth7$Fes7$$!3!HDDDv#Hn:FW$!3;qw`D?%*eMFes7$$!39 UUUU1ej9FW$!3F#GCJK!*4]$Fes7$$!3iHHHHc*fO\"FW$!30GInsi,NKFes7$$!3!GFFF <\"*RE\"FW$!33Y5kVw]dEFes7$$!33srrrJEk6FW$!3n!4K*o#Gs#=Fes7$$!3/(ppp>d )f5FW$!3w&Fbw7$$!3GDDDDXp k&)Fes$\"3EVa&Rtup!>Fes7$$!3sZZZZd)[a(Fes$\"3$G-h]:0-E(Fe s7$$\"3q<>>>zUabFes$\"3_.A['[5R/'Fes7$$\"3;tqqqg6mlFes$\"3727u$4<@q%Fe s7$$\"3M0///C3uvFes$\"3_#Hr\"*>IlH$Fes7$$\"37$\\\\\\\\ACa)Fes$\"3=6,)z suy$>Fes7$$\"3MtxxxPA*e*Fes$\"30q[;#ykSC&Fbw7$$\"31IIII,pe5FW$!31&fQP) oX!3(Fbw7$$\"3+#>>>*4pj6FW$!3(4,#>??y@=Fes7$$\"3'olll0U(e7FW$!3XHg31H. ?EFes7$$\"3Iwwww7zj8FW$!3/!f=Ht%oDKFes7$$\"3MCCCC,Tk9FW$!3UGiN\"\\%*>] $Fes7$$\"3!GEEE1%yk:FW$!3/i]l2N&RY$Fes7$$\"35JIII]ip;FW$!3)4Y#H>dL)3$F es7$$\"3g)))))))Q(=m\"y-`bUX#Fes7$$\"3o____/3l=FW$!3sW)*yV!o8 b\"Fes7$$\"3/XXXX,Fu>FW$!3w:%*4VsewJFbw7$$\"3=ooooC8t?FW$\"3cB0.A@Y%Q* Fbw7$$\"3U7777xBu@FW$\"3Oyzu*QUoE#Fes7$$\"3ySSSS\"fqF#FW$\"3a/S7[#=Bb$ Fes7$$\"3!>999/s:P#FW$\"3uk5K'*)Gvc%Fes7$$\"3MLLLL(>BZ#FW$\"3yb)))4[rI N&Fes7$$\"31FFFF0IsDFW$\"3QWw?\")e?1dFes7$$\"3q**)*)*)*)[#zEFW$\"3mzJo Mf`yaFes7$$\"3Q.///iitFFW$\"3q'42pyX!fYFes7$$\"3_@AAA!=D)GFW$\"3tT5))f I;1HFes7$$\"3#GHHH\\%y!)HFW$\"3mcYj#)=3oaFbw7$$\"3MIHHHS,yIFW$!3s\"\\: su'3#\\#Fes7$$\"3'[hhh,nD=$FW$!3U+fQ?J(pV'Fes7$$\"3]TTTTHa(G$FW$!3g&GY \\1k\")3\"FW7$$\"3_*)*)*)*[bIQ$FW$!3YB?gk2f.:FW7$$\"3Wttttb[%[$FW$!3-0 tqtO'*3>FW7$$\"3#GAAAUrMe$FW$!37MUBp0N0AFW7$$\"3KDEEEJx!p$FW$!3en49oDZ FW7$$\"3yWXXX28*=%FW$\"37$H$Rep3a^FW7$$\"3UjjjjkY!H%FW$\"3'*yt@ybNl )*FW7$$\"3)osssi!)yR%FW$\"33S0m;-+)o\"Fco7$$\"35(ppp*)oj\\%FW$\"3)GF53 aK'fDFco7$$\"3GJJJ\"=z\\a%FW$\"3UQ)H*\\3r&3$Fco7$$\"3Wllll%*e$f%FW$\"3 AzZTgz'Qo$Fco7$$\"3))efffIbXYFW$\"3P%\\'R\"eN5T%Fco7$$\"3I_```m^(p%FW$ \"3\"pT/')z-!Q_Fco7$$\"3#psss7n$\\ZFW$\"3!Q_i!4NishFco7$$\"3`,,,,w@,[F W$\"3BA#42dxsA(Fco7$$\"3kIII![cx%[FW$\"3_0+mib_&G)Fco7$$\"3sffff`H%*[F W$\"3qec(oF^&e%*Fco7$$\"3Dqpp>:s?\\FW$\"3.ySV!3Gz,\"FS7$$\"3')zzzzw9Z \\FW$\"3['*[k;W=%4\"FS7$$\"3]*)*)*)RQdt\\FW$\"3[0&R>u5[<\"FS7$$\"\"&F* FQ-FC6&FEF+$\"*++++\"!\")F+-FI6#F;-F$6%7gq7$FO$\"3;E1])4#*3W%!#L7$$!3Y LLLe%G?y%FW$\"3qGtr=xx%R*!#?7$$!3OmmT&esBf%FW$\"3)p.h#fN>*=\"Fbw7$$!3A LL$3s%3zVFW$\"3jc^A*3VR+\"Fbw7$$!3_LL$e/$QkTFW$\"3%>/M6lKm%\\F\\dm7$$! 3ommT5=q]RFW$!3[Wx=83)4_\"F\\dm7$$!3ILL3_>f_PFW$!3[0gLFKU$=(F\\dm7$$!3 K++vo1YZNFW$!3)*H&obCyH6\"Fbw7$$!3;LL3-OJNLFW$!3AW:*Rl#\\Z6Fbw7$$!3p** *\\P*o%Q7$FW$!3)Hk-)pQE'H'F\\dm7$$!3Kmmm\"RFj!HFW$\"3#=Xcpq77['F\\dm7$ $!33LL$e4OZr#FW$\"3mMzJWydg@Fbw7$$!3UmmT&)G*og#FW$\"3BK(pG****f#HFbw7$ $!3u*****\\n\\!*\\#FW$\"3CE+s(zUI[$Fbw7$$!3x****\\im!\\W#FW$\"3%*fvR!p Tvk$Fbw7$$!3y******\\Ow!R#FW$\"3Q\\*[B:ear$Fbw7$$!3#)****\\P1iOBFW$\"3 S'\\b]tl?n$Fbw7$$!3%)*****\\ixCG#FW$\"3YZ\")***)zj-NFbw7$$!35+++vR7y@F W$\"3Cj\"f=lZhw#Fbw7$$!3#******\\KqP2#FW$\"3TT[T-VK,9Fbw7$$!3am;a8s+z> FW$!3LUjd88&Hq%F\\dm7$$!39LL3-TC%)=FW$!3)*4P8\\*3A\"HFbw7$$!3[mmm\"4z) e;FW$!3a]4H(Q,7P*Fbw7$$!3Smm;HAUj:FW$!3!Got+)Qdj6Fes7$$!3Mmmmm`'zY\"FW $!39`3h>VS<8Fes7$$!33$3x1h0-W\"FW$!3As'z\\v8TM\"Fes7$$!3%)*\\(oaeW79FW $!3W9>rjOLh8Fes7$$!3O;zp)4'o%Q\"FW$!3q2e9?)4$o8Fes7$$!37L$3FMEpN\"FW$! 3E8'>')*zGk8Fes7$$!3))\\(=nem\"H8FW$!3'yerM(R^[8Fes7$$!3Tm\"H2$oS,8FW$ !3l\")*R!>NB?8Fes7$$!3;$eRZ2ZOF\"FW$!3'e0j'4Cpy7Fes7$$!3#****\\(=t)eC \"FW$!3jS!z'>k8B7Fes7$$!3OL$3x'*)fZ6FW$!3]9(z'4$Rd-*Fbw7$$!3!ommmh5$\\ 5FW$!3VO\"Qd`>Qj$Fbw7$$!3S**\\(=n;R&**Fes$\"3lmQFC*3^t$F\\dm7$$!3tIL3x rs9%*Fes$\"3q55+w#z!f^Fbw7$$!31i;H#oPb())Fes$\"3-^%y^MzJ1\"Fes7$$!3S$* **\\(=[jL)Fes$\"3#*4![Dp(eGm+p\"HdFes7$$!3C#*\\(o/ban%Fes$ \"32Z&*Q,[3AkFes7$$!3ndmmT&Q(RTFes$\"3GfoJ1(R_3(Fes7$$!3Ihm\"HdGe:$Fes $\"3#REGAMJ*)=)Fes7$$!3%\\mmTg=><#Fes$\"3'Gcs.Nxm3*Fes7$$!3g***\\7yQ16 \"Fes$\"3%)y$\\T-=bu*Fes7$$!3vDMLLe*e$\\F\\dm$\"3iRvDbkY****Fes7$$\"3+ l;a)3RBE#Fbw$\"3yPI7&e**)))**Fes7$$\"3bsmTgxE=]Fbw$\"3WmsN7D@Y**Fes7$$ \"37!o\"HKk>uxFbw$\"3SO7?iU!H()*Fes7$$\"3womT5D,`5Fes$\"3%znjgtw/x*Fes 7$$\"3Gq;zW#)>/;Fes$\"3U6*y9YrU[*Fes7$$\"3!=nm\"zRQb@Fes$\"3E>G()**=h* 4*Fes7$$\"3mOLL$e,]6$Fes$\"3RrzE^.vI#)Fes7$$\"3_,+](=>Y2%Fes$\"33;\"46 X*GjrFes7$$\"3!)p;aQe#Gf%Fes$\"3(e028=)eElFes7$$\"36QLe*[K56&Fes$\"3iP ?HovWgeFes7$$\"3T1]iS\"R#HcFes$\"3Q3#=\\d_[<&Fes7$$\"3summ\"zXu9'Fes$ \"3-=(RS;)yzWFes7$$\"3E1+voR!Go'Fes$\"3;>U5GdPiPFes7$$\"3#yLLe9i\"=sFe s$\"3!4zu56Bl0$Fes7$$\"3Opm\"HK?Nv(Fes$\"3e$Rf[*)RKP#Fes7$$\"3#4+++]y) )G)Fes$\"3d$)fOhc`B++ DcljL*Fes$\"3%z$)H6ZKW\"fFbw7$$\"3W-+v$44,')*Fes$\"3%f2\"\\>W!=:\"Fbw7 $$\"3H++]i_QQ5FW$!3AGQg2(3\\)GFbw7$$\"3U+](=-N(R6FW$!3ow\\]#4P#z')Fbw7 $$\"3b++D\"y%3T7FW$!3T_kbav/77Fes7$$\"3[]7G)o<#p7FW$!3I.$*)>2(yq7Fes7$ $\"3S+DJ&f]tH\"FW$!3Z1PZ$z3]J\"Fes7$$\"3M]PM-N[D8FW$!3k:Hhqx\\X8Fes7$$ \"3G+]P4kh`8FW$!3;6-,b!RIO\"Fes7$$\"3?]iS;$\\v=CO\"Fes7$$\"32](o/8:!Q9FW$!3[qLyns#eM\"Fes7$ $\"3+++]P![hY\"FW$!3s_dC(HG%>8Fes7$$\"3KmmT5FEn:FW$!3ScB1\"))fc:\"Fes7 $$\"3iKLL$Qx$o;FW$!3X*=KHl&)y6*Fbw7$$\"3Y+++v.I%)=FW$!35>]$39S1\"HFbw7 $$\"3ML$ek`H@)>FW$!3-3`b#eKS)RF\\dm7$$\"3?mm\"zpe*z?FW$\"3GSW^%G*o,:Fb w7$$\"3&**\\(oa_VL@FW$\"3!z_2=\"4ukAFbw7$$\"3oL$e9\"=\"p=#FW$\"3'Hp!>< $G4&GFbw7$$\"3Vn\"H#o$)QSAFW$\"3)z&)eV!3WuKFbw7$$\"3;,++D\\'QH#FW$\"3W nt+xwY\\NFbw7$$\"3*Q$eR(>#=WBFW$\"3'p[^5jh`o$Fbw7$$\"3/n;zp%*\\%R#FW$ \"3l%>7SdyTr$Fbw7$$\"3A+v=Un\"[W#FW$\"3'\\,(HI'Qxk$Fbw7$$\"3%HL$e9S8& \\#FW$\"3!zU8V#>'y\\$Fbw7$$\"3%om;/6E.g#FW$\"39#f:4+aq'HFbw7$$\"3s++D1 #=bq#FW$\"3i]Wv'*RCJAFbw7$$\"3\"HLL$3s?6HFW$\"3X,IcX9g:hF\\dm7$$\"3a** *\\7`Wl7$FW$!3>V[8%HzVS'F\\dm7$$\"3enmmm*RRL$FW$!3QEb%=\\)4Y6Fbw7$$\"3 %zmmTvJga$FW$!3UiajiQn96Fbw7$$\"3]MLe9tOcPFW$!3GOh,1bx(3(F\\dm7$$\"31, ++]Qk\\RFW$!3oNHp>vX`:F\\dm7$$\"3![LL3dg6<%FW$\"3V7s\"*\\TaQ^F\\dm7$$ \"3%ymmmw(GpVFW$\"3Os&RM$Hrj)*F\\dm7$$\"3C++D\"oK0e%FW$\"3+(4!et&e.>\" Fbw7$$\"35,+v=5s#y%FW$\"3oFA@>S'oP*F\\dm7$FgbmFdcm-FC6&FEF+F+F[cmF^cm- F$6&7CF'7$$!3+++++++]PFWF+7$$!3++++++++NFWF+7$$!3+++++++]KFWF+F,7$$!3+ ++++++]FFWF+7$$!3++++++++DFWF+7$$!3+++++++]AFW$\"3++++++D1RF\\dmF/7$$! 3+++++++]-%%VI EWG6$;FOFgbm;F0F6" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 32 "Ableitungen der Interpolierenden" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "plot([p(t),diff(p(t),t),diff(p(t),t,t),diff(p(t),t,t, t)],t=-4..4,-5..5);" }}{PARA 13 "" 1 "" {GLPLOT2D 860 342 342 {PLOTDATA 2 "6(-%'CURVESG6$7as7$$!\"%\"\"!$!3c+.G2#G;8#!#J7$$!3#om;HU, \"*)R!#<$!3))HlM`XZc=!#=7$$!3iLL$e%G?yRF1$!3W@JRB)fMh$F47$$!3U++voUInR F1$!3KUPAZN+u_F47$$!3ymmm\"p0k&RF1$!3i\"Rl`l!4ToF47$$!3&*****\\P&3Y$RF 1$!3-*Rc'zg_1(*F47$$!3cLLL$Q6G\"RF1$!3R)yEKKUKA\"F17$$!3smm;HU,\"*QF1$ !3W--0y!\\SW\"F17$$!3!******\\2<#pQF1$!3=-(3hj^^j\"F17$$!3]LL$3#*>u%QF 1$!3'4b!Q[$R&)z\"F17$$!3ommmmFiDQF1$!37_:q!z9h$>F17$$!37++]BF17$$!3m****\\AHe)e$F1$!3 t_&z$HS_;AF17$$!3nmmmwxE.NF1$!3O.^lHu-v>F17$$!3GmmmTuKgMF1$!3F*QYB!*G* ==F17$$!3Mmmm1rQhbu4dF47$$!3]LLL)>kOe#F1$\" 3m0;?bk+9dF47$$!3G++]Fv^iDF1$\"3'>&)p`4QQp&F47$$!32nmmc3PTDF1$\"33%)=z Ucw\\cF47$$!3TLL$e=C-_#F1$\"3I\"ym![c*Ge&F47$$!3?+++:v2*\\#F1$\"3w\\f_ m&eV\\&F47$$!3$pmmTrp?T#F1$\"37_&zhe5q#\\F47$$!3BLLL8>1DBF1$\"3q7:n/yr %4%F47$$!3kmmmw))yr@F1$\"3\"fn0x\")\\\\B#F47$$!3;+++S(R#**>F1$!3#[eQF \\#***\\*!#@7$$!30++++@)f#=F1$!3]Q#RE7'=O>F47$$!3/+++!=*\\U$f\"fTJF47$$!3emmT:56@;F1$!3lp&HZ$o8/LF 47$$!3OLL$3x0Ke\"F1$!3^5GW(>hDU$F47$$!39++DE0IX:F1$!3ile+yR9'\\$F47$$! 3qmmm\"G&R2:F1$!3Cn'3mK@X_$F47$$!3GLLezAKi9F1$!3iGOFWfU*\\$F47$$!32++] x#\\sT\"F1$!3,!QSfp%)4T$F47$$!3'om;aFw@P\"F1$!3G1Z_CMTgKF47$$!3XLLLtK5 F8F1$!3;2C2dn_\\IF47$$!3_LLL$yP2D\"F1$!3?$)35!4'\\hDF47$$!3eLLL$HsV<\" F1$!3M[+MMuBA>F47$$!3+-++]&)4n**F4$\"3K)He$o&*3?TFbs7$$!37PLLL\\[%R)F4 $\"3.qq)4QIP9#F47$$!3G)*****\\&y!pmF4$\"3I\\1!>S&ogXF47$$!3Y******\\O3 E]F4$\"3yW\"H&z2(yp'F47$$!3NKLLL3z6LF4$\"3]?172*>\\\\)F47$$!3/LLLeGmCD F4$\"3p@Trr@s6\"*F47$$!3sLLL$)[`P$\"3k$oE&*)y!z))*F47$$!3')RLLe4**RYF `_l$\"31?]R0BPp**F47$$!3gSnmmmr[RFbs$\"3;wc`E!y(****F47$$\"3S6LL3Uh9SF `_l$\"3#)pb-)ynq(**F47$$\"3'oHLL3+TU)F`_l$\"3)[#oR$G6#**)*F47$$\"3AGL$ efeLG\"F4$\"3[.;d!G8ow*F47$$\"3yELL$=2Vs\"F4$\"3[kL$35.4e*F47$$\"3Khmm m7+#\\#F4$\"3\\jr#Q?\"3M\"*F47$$\"3)e*****\\`pfKF4$\"3PM=nN[@S&)F47$$ \"36HLLLm&z\"\\F4$\"3+v;-vpvEoF47$$\"3>(******z-6j'F4$\"3v!4GtUHHh%F47 $$\"3q\"******4#32$)F4$\"37U%o30&zlAF47$$\"3r$*****\\#y'G**F4$\"3QJ#3c ![%)\\*)Fbs7$$\"3G******H%=H<\"F1$!32:v+Ner3>F47$$\"3qKLLo,\"QD\"F1$!3 a3C'G'H;%e#F47$$\"35mmm1>qM8F1$!3o'>&HG7@*3$F47$$\"3a*****\\]')yP\"F1$ !3g[;$z)*oGG$F47$$\"3(HLLL5r5U\"F1$!3A(zsup:4U$F47$$\"3Ummm,dDk9F1$!3Y ^7Iv\"4=]$F47$$\"3%)*******HSu]\"F1$!3]%)e0xW^CNF47$$\"37LLek>dY:F1$!3 s\"4?uZ2W\\$F47$$\"3Smm;HOq&e\"F1$!36y()*[ZJhT$F47$$\"3p***\\PHN[i\"F1 $!3Y%H)pRh5!H$F47$$\"3'HLL$ep'Rm\"F1$!3(=D#H6s:(=#e#F47$$\"3')******R>4N=F1$!3Y0%)40+h\\=F47$$\"3#emm;@2h*> F1$!3#H;an_#F1$\"37d5!4+r#*e&F47$$\"3)GL$37ZrUD F1$\"3q(*prnlD`cF47$$\"3_**\\ibUXjDF1$\"3;VvkDbC&p&F47$$\"3emm;*z$>%e# F1$\"31]'R/K&>9dF47$$\"3lL$3FML\\g#F1$\"3r\\FOH&*34dF47$$\"3G++D')GnDE F1$\"3%)**45\"zT*ycF47$$\"3#pm\"zHCTYEF1$\"3d*>5=*)*zAcF47$$\"3aLLLt>: nEF1$\"3R[jL5+vRbF47$$\"3KLLL)o))>v#F1$\"3ugENm\\E-\\F47$$\"35LLL.a#o$ GF1$\"3mZ!e[g]4v$F47$$\"3#)****\\F'f4#HF1$\"3')Gc$e[272#F47$$\"3ammm^Q 40IF1$!3#4iKp&GA&\\\"F`_l7$$\"3;LL$eY/C3$F1$!3c;c%**Q%pWEF47$$\"3y**** **z]rfJF1$!3E]_VK*pQ_&F47$$\"3rmm;C%=S?$F1$!3/AyK\\Tf:tF47$$\"3?LLLo;z%>F17$$\"3imm;z\"G*zNF1$!39z:W\"GAt>#F17$$\"3=+++XhUkOF1$ !3*Q4c%y*QnJ#F17$$\"3=++vy\\k%o$F1$!3y!4zp^.\">BF17$$\"3>++]7Q'[q$F1$! 3]m()*zGQ$4BF17$$\"3=++DYE3DPF1$!3g<$))o\\\"Q'G#F17$$\"3=+++![,`u$F1$! 3_Bkx>17\\AF17$$\"3=++]Z\"Rdy$F1$!3$38UB`tp7#F17$$\"3=+++:oF17$$\"3;+]78Z!z%QF1$!3#o!H,%)H>&z\"F17$$\"37++D6EjpQF1$!36IY=< QxJ;F17$$\"35+]P40O\"*QF1$!3Y>2_<)y2W\"F17$$\"34++]2%)38RF1$!3(=POJ,O- A\"F17$$\"31+]i0j\"[$RF1$!3Ke 5KQF17$Ffp$\"3^mj&)\\\\%)>TF17$$!3Omm;Rp\"fR$F1$\"3***\\g+NZ.A%F17$F[q $\"3m\"HGbfBWH%F17$$!3Umm;/m(HN$F1$\"3$pn#>d1&QM%F17$F`q$\"3!z)pKMrLqV F17$$!3&***\\78$Q,J$F1$\"3c$[2@5[bP%F17$Feq$\"3e6=9!*o@hVF17$$!3%pmTg1 -uE$F1$\"3u_?Fqc$)GVF17$Fjq$\"39mu2.e$)zUF17$F_r$\"3T!*ppT0TPTF17$Fdr$ \"3w&H\\OaKU%RF17$Fir$\"3C)oM5L@J[$F17$F^s$\"3PJC8]h)=$HF17$Fis$\"3S88 4xX,$o\"F17$Fct$\"3/kSnfVNQZF47$F[w$!3i6zUP/0\"o%F47$F`w$!3]&*pU\"yyB? )F47$Few$!3g4,hw#)*p2\"F17$$!3%******\\RD%[AF1$!3GmE*\\o[]A\"F17$Fjw$! 3NcYyA%yII\"F17$$!3SLLL3V^&3#F1$!3U,wZ;t488F17$F_x$!3Q?#z\"GA9\\7F17$$ !35+++?4h7>F1$!3z9ts;!R37\"F17$Fex$!3edqG8BK(R*F47$F_y$!3IZ'*e&zX9'[F4 7$Fcz$!3Kfj=mQT9:F`_l7$Fg[l$\"3PW9H`HHJ`F47$Fa\\l$\"3kvZ!3r/RG*F47$Ff \\l$\"39By_EI\\a7F17$F[]l$\"3/N3+!HB[R\"F17$F`]l$\"3)*)y.=R3pP\"F17$Fe ]l$\"3tM?zw3C+7F17$Fj]l$\"3'y8Ig+fJv)F47$Fd^l$\"3%>Wz>4$>[[F47$Fi_l$\" 3nXmn6dFC6F`_l7$F]al$!3(yusbTmF\"[F47$Fgal$!3g36Pwy(ej)F47$F\\bl$!3qwb &=>TO=\"F17$Fabl$!3cr9wk!>XP\"F17$Ffbl$!3#)p%3!=/D)R\"F17$F[cl$!3QRxI) Gh'f7F17$F`cl$!3r2Lb;9+<$*F47$Fjcl$!3:CpvfQf8^F47$F^el$\"3IH9-\"3#fG:F `_l7$Fbfl$\"33W8c))=a4]F47$F\\gl$\"3%zAZn()y!4'*F47$Fagl$\"3Y*>n\\ubbC \"F17$$\"3mKLL))3E!3#F1$\"3O()Qfy1A68F17$Ffgl$\"3)4DxmHcqI\"F17$$\"3#H LLe;!pYAF1$\"3;*e]%)>vvA\"F17$F[hl$\"3Cwsy&*z^n5F17$F`hl$\"3)[&RuN0q&4 )F47$Fehl$\"3a@nyUWu\"e%F47$F][m$!3WVkC)4;tm%F47$Fg[m$!3w&Q])ykKu;F17$ Fa\\m$!3S[nGY\")*R&HF17$Ff\\m$!3=z%[9`l,\\$F17$F[]m$!3Y^F\\`'f*RRF17$F `]m$!3DH&[l*3ESTF17$Fe]m$!37![*p9Y$eG%F17$$\"3mmmTSMZqKF1$!3hP^HMcaMVF 17$Fj]m$!35YHIR$z^O%F17$$\"39LLe%ywZJ$F1$!3iffn$=IhP%F17$F_^m$!3'*3l_q ?slVF17$$\"3!****\\i78FF)G%F17$$\" 3]mmT:mO'R$F1$!3j)f\"Ho'>&=UF17$Fi^m$!3)Q.%\\s9BETF17$F^_m$!3#zotI/'>o QF17$Fc_m$!3\"4k.a1L>]$F17$Fh_m$!3!p\\_i'f*zH#F17$F]`m$!3#yh<%Ra;+SF47 $Fg`m$\"3B&*[>DXP-!)F47$Faam$\"3oX\\P)G&f:AF17$Ffam$\"3G*[gobYn'QF17$F [bm$\"3EiqN$RWcx&F17$Febm$\"35$>iVDY49)F17$F_cm$\"3y4U0.F9'3\"F]fm7$Fd cm$\"3+mw#3z%\\O7F]fm7$Ficm$\"3ifd?#HhpR\"F]fm7$Fcdm$\"3cziaB'zzc\"F]f m7$F]em$\"3A)***********\\!\\\"F]fm7$F\\p$\"3XC\"*Q%*[!H8\"F]fm7$Ffp$\"3t<5,d3%[ K&F17$F`q$\"3-IjP[_V^sF47$Fjq$!3Q,M&>Fj.m#F17$Fdr$!3eQ4\"en]*Q]F17$Fir $!3ApBPxLR)['F17$F^s$!3o'*)pkAyAL(F17$$!37+++0t/hHF1$!3GUOZT%*)oc(F17$ Fds$!3m9)oU,/;o(F17$$!3]mmm\"z%**yGF1$!3U[S*RB%H*o(F17$Fis$!3?81eAJ4-w F17$F^t$!3u3ak?=%*orF17$Fct$!3oij!**4b'pkF17$F[w$!31'*)R\")3.$)e%F17$F ew$!3V:)y:7$3/CF17$Fjw$!3)4j!oB&fO!eF47$F_x$\"3aE0ui1_J6F17$Fex$\"3a7r j+o^\\BF17$F_y$\"37%HBU5vs*HF17$Fcz$\"3A#RMY-D%\\JF17$Fg[l$\"3W[*GqdAT &GF17$Fa\\l$\"3!e'ym/'o(zAF17$Ff\\l$\"3Y:%4\"yZ>c8F17$F[]l$\"3qMa%p.lu =%F47$F`]l$!3+!phNO,:='F47$Fe]l$!3y)4]v@;'3:F17$Fj]l$!3i!*Hvtv3UAF17$F d^l$!3CV#zV]Opn#F17$Fi_l$!3W`d.TN8ZGF17$F]al$!3ew()G\"=)\\zEF17$Fgal$! 3EA3E-]TgAF17$F\\bl$!3Gd/9nOlh:F17$Fabl$!3$=y$\\El%=S'F47$Ffbl$\"3[pFX 6IkaOF47$F[cl$\"3f=nSO`>aC4d(GF 17$F^el$\"3#Re9AeP%\\JF17$Fbfl$\"3%HQ/7?([&)HF17$F\\gl$\"3;5\"[U)y=*H# F17$Fagl$\"3Ymv)*GWGe6F17$Ffgl$!3Y\\#4J<=f)\\F47$F[hl$!3[f=q_B\"GX#F17 $Fehl$!3hqHksFu9YF17$F][m$!3;C*44?=#fkF17$Fb[m$!3;MPl$**\\7;(F17$Fg[m$ !31>TgLnT)f(F17$$\"3CmmT:D*)yGF1$!3G`;iS**=*o(F17$F\\\\m$!3O__T#\\B-o( F17$$\"3SLLeRn-jHF1$!3oN%*R@\"H%evF17$Fa\\m$!3Dwc)Gw+*4tF17$Ff\\m$!3#G xO#))\\'GZ'F17$F[]m$!3m%fL\"4Z.e]F17$Fe]m$!3Ey?yM?j$e#F17$F_^m$\"3))3j j*)=)*z(*F47$Fi^m$\"3U;6c2t\"4D&F17$Fc_m$\"3_**zmS&4<2\"F]fm7$Fh_m$\"3 18*>d7:d!=F]fm7$F]`m$\"3y7le.j[=FF]fm7$Fg`m$\"3CGtWi\\&eA$F]fm7$Faam$ \"3[AN-Jc'Gy$F]fm7$Ffam$\"3a?')o%e#e#R%F]fm7$F[bm$\"3%=)*4IN\">e]F]fm7 $Febm$\"3gOUL\"fn&ReF]fm7$F_cm$\"3#[sYy8&e$p'F]fm7$Fdcm$\"3s()ob@k@\\r F]fm7$Ficm$\"3LFUz:&)oCwF]fm7$Fcdm$\"3C\"pEEz%e?\")F]fm7$F]emFein-F`em 6&FbemFcemFcemFfem-F$6$7Y7$F($!3rLLLLLLGC!#:7$FJ$!3Yy(fe`\"3^?Fcjo7$Fh n$!3m3:;ty\"er\"Fcjo7$F]o$!3sxK!y[`dX\"Fcjo7$Fbo$!3&yv&f.V+B7Fcjo7$Fgo $!3vgMbkDt9**F]fm7$F\\p$!3_/zb'yYF]fm7$Fdr$!3 ]>c>\"f#ofAF]fm7$F^s$!3%4#zLHz)*)G(F17$Fis$\"3!pTn_=wx=$F17$Fct$\"3uA) R/-1M[*F17$F[w$\"35LgG!p0gA\"F]fm7$Few$\"3UW%*HNAKZ7F]fm7$Fjw$\"3k$*>W U*GM6\"F]fm7$F_x$\"3Y-$[+IN/d)F17$Fex$\"3p9E*Rqf%RaF17$F_y$\"3[J=`*>Gh L#F17$Fcz$!3;UB2Zo2$z#F47$Fg[l$!3Q\"[iFW^*))GF17$Fa\\l$!3\"R>\"GiYwQXF 17$Ff\\l$!3'y:C!)3iGs&F17$F[]l$!3'yl;iTvZ4'F17$F`]l$!3E\\2)Q)4<4eF17$F e]l$!3JxiK$=RB%\\F17$Fj]l$!3XqP%RkjCa$F17$Fd^l$!3`#GA:!HvV>F17$Fi_l$!3 Yi)[ssE;\\%F`_l7$F]al$\"3Iyn%3-Y%H>F17$Fgal$\"3%eatDmtN\\$F17$F\\bl$\" 3Udc&[xPv'[F17$Fabl$\"3+-JuwmH&z&F17$Ffbl$\"3OXu8@3C(4'F17$F[cl$\"3r6y ghSZRdF17$F`cl$\"3)p_`oRI\"Fcjo7$Faam$\"3$3eC;1P8 W\"Fcjo7$F[bm$\"3<:85DE#yr\"Fcjo7$F_cm$\"3'*\\&)GN>@_?Fcjo7$F]em$\"3rL LLLLLGCFcjo-F`em6&FbemFfemFfemFcem-%+AXESLABELSG6$Q\"t6\"Q!F\\ep-%%VIE WG6$;F(F]em;$!\"&F*$\"\"&F*" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" }}}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "plot([s,diff(s,t),diff(s,t,t ),diff(s,t,t,t)], t=-4..4);" }}{PARA 13 "" 1 "" {GLPLOT2D 811 379 379 {PLOTDATA 2 "6(-%'CURVESG6$7\\q7$$!\"%\"\"!$\"3;E1])4#*3W%!#L7$$!3ommm mFiDQ!#<$!3PapmT(>\"H_!#?7$$!35LLLo!)*Qn$F1$!3%RgcQH'48!*F47$$!3nmmmwx E.NF1$!3WUs5_x@d6!#>7$$!3YmmmOk]JLF1$!3i$G[,JrN9\"F?7$$!3_LLL[9cgJF1$! 3qWZevypnwF47$$!3smmmhN2-IF1$!39QQ$z%)G'y7!#@7$$!3!******\\`oz$GF1$\"3 30to>&o+=\"F?7$$!3!omm;)3DoEF1$\"3sv*pp(yf3DF?7$$!3]LLL)>kOe#F1$\"3s%y KB%\\dnIF?7$$!3?+++:v2*\\#F1$\"3U@Ij&*e$H[$F?7$$!3$pmmTrp?T#F1$\"3MVRf !H)>,PF?7$$!3BLLL8>1DBF1$\"3+aWZ'ywpk$F?7$$!3%******\\RD%[AF1$\"3#R*) \\$Q%3\\K$F?7$$!3kmmmw))yr@F1$\"3]f(G0WpAq#F?7$$!3SLLL3V^&3#F1$\"3y\"= aT%=h*e\"F?7$$!3;+++S(R#**>F1$!3Y&R/iEm![;FO7$$!30++++@)f#=F1$!33z#*)) \\Xh\"e%F?7$$!3-+++gi,f;F1$!3;\\[8'*>dn$*F?7$$!3OLL$3x0Ke\"F1$!31FN&y@ $f@6!#=7$$!3qmmm\"G&R2:F1$!3#pRq4GKYE\"F[r7$$!3GLLezAKi9F1$!3a;IPsdcB8 F[r7$$!32++]x#\\sT\"F1$!3qq)G#>e1f8F[r7$$!3ML$ekx7ZR\"F1$!3Ahuk(Q>qO\" F[r7$$!3'om;aFw@P\"F1$!3%*3U'*)*Q!zO\"F[r7$$!3;+]Pu(R'\\8F1$!3_kt&yy:8 O\"F[r7$$!3XLLLtK5F8F1$!3k\\_+*[^oM\"F[r7$$!3_LLL$yP2D\"F1$!3@k`mxs)QB \"F[r7$$!3eLLL$HsV<\"F1$!3p`^J\\C:55F[r7$$!3!pmmT2Tb3\"F1$!3WKM#*H#ep* eF?7$$!3+-++]&)4n**F[r$\"3q@B*G\"oqgEF47$$!3cpmmT]7XF')**F[r7$$!3gSnmmmr[RF4$\"3G\"4!HZ$e'****F[r7$$\"3n=L$3F r)4=F?$\"3G\\$p,,yG***F[r7$$\"3S6LL3Uh9SF?$\"3#[i;Gc#Ql**F[r7$$\"38/L$ e9d$>iF?$\"3s<`:1&Rz\"**F[r7$$\"3'oHLL3+TU)F?$\"3-(p1P\"yJ^)*F[r7$$\"3 AGL$efeLG\"F[r$\"3g(fKbT9Om*F[r7$$\"3yELL$=2Vs\"F[r$\"3E$\\kk:C%3%*F[r 7$$\"3Khmmm7+#\\#F[r$\"3*Hn@oD89#))F[r7$$\"3)e*****\\`pfKF[r$\"3Kdl:KN &43)F[r7$$\"3]imm\"*f#))3%F[r$\"3c?\\f)39j9(F[r7$$\"36HLLLm&z\"\\F[r$ \"3K(G'[)>\\96'F[r7$$\"39'****\\( ******z-6j'F[r$\"3x&oZ\\qH8$QF[r7$$\"3W%*****\\C4puF[r$\"34!\\[7\"pxKF F[r7$$\"3q\"******4#32$)F[r$\"3U)>&R7b;-C3BzUdF?7$$\"3G******H%=H<\"F1$!3k(Q4`\"fr/5F[r7$$\"3*fmm \"*HkL@\"F1$!3dfaO=\\?R6F[r7$$\"3qKLLo,\"QD\"F1$!3#o\"oFccYS7F[r7$$\"3 S****\\PgD%H\"F1$!3%>EId#4$3J\"F[r7$$\"35mmm1>qM8F1$!35METBNj_8F[r7$$ \"3qKL$e?%Hc8F1$!3k:d-?C1k8F[r7$$\"3a*****\\]')yP\"F1$!3WVIMg1Po8F[r7$ $\"3Omm;/)y%*R\"F1$!3%Rzr6=8fO\"F[r7$$\"3(HLLL5r5U\"F1$!3!p@>$>\\/d8F[ r7$$\"3Ummm,dDk9F1$!3w$y)z%z&\\@8F[r7$$\"3%)*******HSu]\"F1$!3#yPR7yiX E\"F[r7$$\"3Smm;HOq&e\"F1$!3bM7XJZ3;6F[r7$$\"3'HLL$ep'Rm\"F1$!3uTe[Zt+ O#*F?7$$\"3')******R>4N=F1$!3xK`5O>$fJ%F?7$$\"3#emm;@2h*>F1$!3eul)zM!e $[)FO7$$\"3mKLL))3E!3#F1$\"3i!)GH2Y_1:F?7$$\"3]*****\\c9W;#F1$\"3pdym= Y'\\i#F?7$$\"3#HLLe;!pYAF1$\"3aZDK?PH9LF?7$$\"3Lmmmmd'*GBF1$\"3qyF4L;5 cOF?7$$\"3)HLLep+^T#F1$\"3k2R4:8#yp$F?7$$\"3j*****\\iN7]#F1$\"3#o')\\G K$euMF?7$$\"3aLLLt>:nEF1$\"3prN)3:Ul^#F?7$$\"35LLL.a#o$GF1$\"3]yO%)Rl= *=\"F?7$$\"3ammm^Q40IF1$!3/EZ!H7-o7$FO7$$\"3y******z]rfJF1$!3([fsOP#[Q wF47$$\"3gmmmc%GpL$F1$!3%Rb(z!)=5\\6F?7$$\"3/LLL8-V&\\$F1$!3?'4F)z*HK; \"F?7$$\"3=+++XhUkOF1$!3&\\d6wpV)4#*F47$$\"3=+++:owL]p(fB(F?7$Fen$\"3ahy1$R[+(eF?7$Fjn$\"3?)3Ib[i-%QF?7$Fdo$ !3Ex\"[]etJU#F?7$F^p$!3dumfkJsE5F[r7$Fhp$!3=`u@J9eq@F[r7$$!37+++I`#f&> F1$!3'4.)*=AbyX#F[r7$$!35+++?4h7>F1$!3_#**\\yj!)*yEF[r7$$!33+++5lHp=F1 $!3'*GL2zw&R$GF[r7$F]q$!3`A!obM'yAHF[r7$$!35+++q860=F1$!3T8].?B(>%HF[r 7$$!3;+++S1C%y\"F1$!3U&3Sxv+#F[r7$F]r$!3KyC\"fl&eV:F[r7$Fgr$ !3HR`_d1'y.&F?7$F[t$\"35nH4X]GD#)F?7$F`t$\"3wJQ(4&[Dq@F[r7$Fet$\"3)=iG ?H$fBPF[r7$Fjt$\"3!R%QYr@>*y&F[r7$F_u$\"38fdI1,VK\")F[r7$Fdu$\"30V(Hr4 u!35F17$Fiu$\"33P_::@ae6F17$F^v$\"3'4F-&[:fs7F17$Fcv$\"3jeK[Q'QKL\"F17 $$!3)*)***\\(=/PY'F[r$\"3-lYDhl!)R8F17$$!3e)****\\#)H$eiF[r$\"3)R&Qqe! [LM\"F17$$!3;)***\\ia&H0'F[r$\"3?E3$38jQM\"F17$Fhv$\"3b!eNwx^8M\"F17$$ !3;*****\\PKoV&F[r$\"37Q%y_z\\sK\"F17$F]w$\"3+ECj6@/,8F17$Fbw$\"3'zrQs $GO27F17$Fgw$\"3GznxYp'41\"F17$F\\x$\"3,vteix'4!))F[r7$Fax$\"337\">>H3 xa'F[r7$Ffx$\"3cEhiAU&z9&F[r7$F[y$\"3WAt^iX*)=OF[r7$Fey$\"3;*p#f6$H0'> F[r7$F_z$\"36sD_)p%eG\"F17$Fa]l$!3Y&4EJGI@H\"F17$F f]l$!3b[J!=I5DK\"F17$F[^l$!3W;p,\"zG(R8F17$$\"3m'***\\()Hn))fF[r$!3jo] 2iCSV8F17$F`^l$!3f*Rn2v&yV8F17$$\"3ojm;H&fpT'F[r$!3&)3R4d'y3M\"F17$Fe^ l$!3w(fa5=\"oM8F17$Fj^l$!3GV>k:yzy7F17$F__l$!3!\\kxz(y_s6F17$Fd_l$!3m$zB)F[r7$F^`l$!3]/&z[MN]&eF[r7$Fc`l$!39F:'[gg ^v$F[r7$F]al$!3H6[+MZ@SHF[r7$$\"39LLe%p5Bz\"F1$\"37 _gnX89YHF[r7$$\"3]m;H<8q8=F1$\"377Tvta$f$HF[r7$Fddl$\"3JOrU=rf4HF[r7$$ \"3Omm\"zvX`(=F1$\"33d(*>YxG;GF[r7$$\"3&GLLed*f:>F1$\"3Ir[)y!y%em#F[r7 $$\"3M***\\PR`e&>F1$\"3?hC[.tFeCF[r7$Fidl$\"3oND*HBwN>#F[r7$Fcel$\"3q1 E8g&e*p5F[r7$F]fl$\"3]!RHkv^=D#F?7$Fgfl$!3@(49vB-.!RF?7$$\"3emm;*z$>%e #F1$!3Sz$>ytl1)eF?7$F\\gl$!3#3&4(Gr([AsF?7$$\"3KLLL)o))>v#F1$!3o7gzJ,I MzF?7$Fagl$!3;xVZyZKyzF?7$$\"3#)****\\F'f4#HF1$!3QO8XU'oCO(F?7$Ffgl$!3 G'[4in#G\"4'F?7$F[hl$!3wdT)*)fi%eMF?7$F`hl$!3Eq6OV+sl)*F47$Fehl$\"3IX( G[M?gI(F47$Fjhl$\"3%Hpdk>]z/#F?7$F_il$\"3#o\\7oyUC\"GF?7$Fdil$\"3S]Y:0 Ny#4$F?-Fgil6&FiilF]jlFjilF]jl-F$6$7co7$F(F]jl7$F/$\"3m:qc&=meB$F?7$F6 $\"3q(RY:0w80'F?7$F;$\"3'HuC3O6x@*F?7$FA$\"31Hwe>N]S7F[r7$FF$\"3OS8rB5 sd:F[r7$$!3M+++0vJ\"3$F1$\"3@&=1-krZq\"F[r7$FK$\"3=J5qcA#=&=F[r7$Fg[m$ \"3w,,nbtf86F[r7$FQ$\"3!3f')Gw`G_$F?7$FV$!3_(******\\9CA\"F[r7$Fjn$!3K JW\"QHk?z#F[r7$Fdo$!3c;rBT?k1WF[r7$F^p$!3D,+++IwGeF[r7$Fcp$!3v5qc&o[#H mF[r7$Fhp$!3!o;s!p`(eR(F[r7$F[^m$!3*GD3OlR:M%F[r7$F]q$!33IV9QR?(G\"F[r 7$Fbq$\"3=g`%[*Gj*f%F[r7$F]r$\"3y@uC3ZWX**F[r7$F[t$\"3n7rB,K@I;F17$Fet $\"3kH5q'*zqo@F17$Fjt$\"3ave>Gn!>[#F17$F_u$\"3?h')G;v*)fFF17$Fdu$\"3I0 ,n:@q&>#F17$Fiu$\"3a[:0:n]J;F17$F^v$\"3JrBTS\\\\75F17$Fcv$\"3)3%>td;$[ $RF[r7$Fhv$!31d\\;sUif>F[r7$F]w$!3'Q'=1--3ayF[r7$Fbw$!3vHwefEV+9F17$Fg w$!36t!p*)Hda,#F17$F\\x$!3-_]$y!>C!e#F17$Fax$!3&4.,n^E]9$F17$F[y$!3!>S 8r,BUv$F17$F_z$!3%GxDv^>MO%F17$Fc[l$!39rAu%o,ty$F17$F]\\l$!33R6PKx^aJF 17$Fb\\l$!3y)[\\;WxOg#F17$Fg\\l$!3[Qy#4:PG0#F17$F\\]l$!3Eqb=YX\"zX\"F1 7$Fa]l$!3Y?IV9%>*H')F[r7$F[^l$!3%pvd_x'y$[#F[r7$Fe^l$\"3g1v\"R'eMiOF[r 7$Fj^l$\"3'4S\"Qzv8v'*F[r7$F__l$\"3aHX[HHzo:F17$Fd_l$\"3wLY:X9c]@F17$F i_l$\"3,QZ#3'*HBt#F17$F^`l$\"3w@td(yU7\\#F17$Fc`l$\"3Sn@2*)R$Q<#F17$Fg al$\"3Lc^]V@U.;F17$Fecl$\"3XJv\"RYdQ%**F[r7$F_dl$\"3p7+++D3DWF[r7$Fddl $!3]V:0NiR3;F[r7$F]]n$!37()o*)zG\"pW%F[r7$Fidl$!3gRAuC&HaG(F[r7$F^el$! 3uk>td<*zn'F[r7$Fcel$!3+9OX[W=(*eF[r7$F]fl$!39'[\\;s?/P%F[r7$Fgfl$!3+4 Ny#fS?x#F[r7$F\\gl$!3PI5qc0hK7F[r7$Fagl$\"3y\"*********y;MF?7$Fc_n$\"3 X[\\;AeIA6F[r7$Ffgl$\"3ug`%[fj/?F1Fh_o7$Fhp$\"3d)Gwe>t d_$F17$F[^mFaco7$F]qFaco7$FbqFaco7$F]rFaco7$F[tFaco7$F`tFaco7$FetFaco7 $$!39++v$oc*H6F1Faco7$FjtFaco7$$!3;+]PpKLj5F1Faco7$$!3mLLeka7T5F1Faco7 $$!3=+v=i:-I5F1Faco7$$!3$pm\"zfw\"*=5F1Faco7$$!3>]Pf3dO85F1Faco7$$!3oL eRdP\"y+\"F1Faco7$$!3%p\"z>1=E-5F1Faco7$F_u$!39j(e>td_<(F17$FduFdeo7$F iuFdeo7$FcvFdeo7$F]wFdeo7$FgwFdeo7$FaxFdeo7$F[yFdeo7$F_zFdeo7$$\"3ATK3 x19j:F4$\"39j(e>td_<(F17$$\"31BK$3-)*\\2(F4Fafo7$$\"3[?$ek`&oe7F?Fafo7 $FdzFafo7$$\"3.:LeRFC7HF?Fafo7$FizFafo7$F^[lFafo7$Fc[lFafo7$Fh[lFafo7$ F]\\lFafo7$Fb\\lFafo7$Fg\\lFafo7$Fa]lFafo7$Fe^lFafo7$F__lFafo7$Fd_lFaf o7$Fi_lFafo7$$\"39$\\iS1W\\)**F[rFafo7$$\"3D*\\7y)47/5F1$!3d)Gwe>td_$F 17$$\"3U\\(=#pvu45F1F_ho7$$\"3O**\\i]TP:5F1F_ho7$$\"3Z*\\PMJFm-\"F1F_h o7$$\"3N***\\iZ!)y.\"F1F_ho7$$\"3M**\\(=!oQg5F1F_ho7$F^`lF_ho7$$\"3J** *\\(yd!z7\"F1F_ho7$Fc`lF_ho7$F]alF_ho7$FgalF_ho7$FeclF_ho7$F_dlF_ho7$F ddlF_ho7$F]]nF_ho7$FidlF_ho7$$\"3[K$ek\"oO,?F1$\"3'y\"RY:0Ny#*F[r7$$\" 38***\\7UEm+#F1F_jo7$$\"3yl;/Eg)=,#F1F_jo7$$\"3VKL$3jXr,#F1F_jo7$$\"3t lmTS[mF?F1F_jo7$$\"3.******\\S=Q?F1F_jo7$$\"3ilm;pCAf?F1F_jo7$F^elF_jo 7$$\"3JmmmExLA@F1F_jo7$FcelF_jo7$FhelF_jo7$F]flF_jo7$FgflF_jo7$F\\glF_ jo7$F[_nF_jo7$FaglF_jo7$$\"3CmmT:D*)yGF1F_jo7$Fc_nF_jo7$$\"3Rm;a$=$*>% HF1F_jo7$$\"3SLLeRn-jHF1F_jo7$$\"3#p;/w^VN(HF1F_jo7$$\"3)***\\i&HgS)HF 1F_jo7$$\"3s;aj%o=$*)HF1F_jo7$$\"3/Lektqd%*HF1F_jo7$$\"3y\\ilia$)**HF1 F_jo7$Ffgl$!3e$y#4.,nb=F[r7$Fb]oFh]p7$F[hlFh]p7$F`hlFh]p7$FehlFh]p7$Fj hlFh]p7$F_ilFh]p7$FdilFh]p-Fgil6&FiilF]jlF]jlFjil-%+AXESLABELSG6$Q\"t6 \"Q!Fg^p-%%VIEWG6$;F(Fdil%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" }}}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "plot([seq([-4+(i-1)*8/(anz-1 ) , y2[i]], i=1..anz)], \n style=point, symbol=box, color=magenta );" }}{PARA 13 "" 1 "" {GLPLOT2D 723 265 265 {PLOTDATA 2 "6(-%'CURVESG 6#7C7$$!\"%\"\"!$F*F*7$$!3+++++++]P!#7$$!3++++++++ :F/$!3+++++++]iFM7$$!3+++++++]7F/$!3++++++DJqFM7$$!\"\"F*F+7$$!3++++++ ++v!#=$\"3+++++]7yDFhn7$$!3++++++++]Fhn$\"3+++++++DcFhn7$$F>Fhn$\"3+++ +++]P%)Fhn7$F+$\"\"\"F*7$$\"3++++++++DFhnFbo7$$\"3++++++++]FhnF^o7$$\" 3++++++++vFhnFin7$FeoF+7$$\"3+++++++]7F/FV7$$\"3++++++++:F/FQ7$$\"3+++ ++++] " 0 "" {MPLTEXT 1 0 170 "for i from 1 to anz-1 do\n \+ y2_1[i]:=(y2[i+1]-y2[i])/(8/anz);\n od:\nplot([seq([-4+(i-1)*8/(an z-1) , y2_1[i]], i=1..anz-1)], \n style=point, symbol=box, color= cyan);\n" }}{PARA 13 "" 1 "" {GLPLOT2D 757 263 263 {PLOTDATA 2 "6(-%'C URVESG6#7B7$$!\"%\"\"!$F*F*7$$!3+++++++]P!#7$$!3+++++++]AF/$!3++++D\"G8h\"FA7$$!\"#F*$!3+++]7`>]9!#=7$$!3++ +++++]FL$\"3+++++DJXkFL7$F+$!3+++++D JXkFL7$$\"3++++++++DFL$!3++++]i:g6F/7$$\"3++++++++]FL$!3+++]Pf$oD\"F/7 $$\"3++++++++vFL$!3+++]ilZj5F/7$$\"\"\"F*$!3++++D1R+HFL7$$\"3+++++++]7 F/$\"3++++]ilAKFA7$$\"3++++++++:F/$\"3+++](oHz7\"FL7$$\"3+++++++]]9FL7$$\"\"#F*F?7$$\"3+++++++]AF/FE7$$F^pF/F+7$$\"3+++++++]F F/F+7$$\"\"$F*F+7$$\"3+++++++]KF/F+7$$\"3++++++++NF/F+7$$\"3+++++++]PF /F+-%'COLOURG6&%$RGBGF+$\"*++++\"!\")Fjs-%+AXESLABELSG6$Q!6\"F`t-%&STY LEG6#%&POINTG-%'SYMBOLG6#%$BOXG-%%VIEWG6$%(DEFAULTGF]u" 1 5 3 1 10 0 2 6 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 175 "for i from 1 to anz-2 do\n y2_2[i]:=(y 2_1[i+1]-y2_1[i])/(8/anz);\n od:\nplot([seq([-4+(i-1)*8/(anz-1) , y 2_2[i]], i=1..anz-2)], \n style=point, symbol=box, color=brown);\n " }}{PARA 13 "" 1 "" {GLPLOT2D 798 305 305 {PLOTDATA 2 "6(-%'CURVESG6# 7A7$$!\"%\"\"!$F*F*7$$!3+++++++]P!#7$$!3++++++++DF/$!3++] 7.dMH8!#=7$$!3+++++++]AF/$!3+++]7GQ<`FD7$$!\"#F*$\"3++]7.dMH8FD7$$!3++ +++++]$F/7$$!\"\"F*$\"3+++v=U2wzFD7$$!3++++++++vFD$!3++]P4r.))RFD7 $$!3++++++++]FD$!3++++DJ&p7#F/7$$FAFD$FIF/7$F+Fdo7$$\"3++++++++DFDF_o7 $$\"3++++++++]FDFjn7$$\"3++++++++vFDFen7$$\"\"\"F*FW7$$\"3+++++++]7F/F R7$$\"3++++++++:F/FM7$$\"3+++++++] " 0 "" {MPLTEXT 1 0 188 "for i from 1 to anz-3 do\n y2_3[i]:=(y2_2[i+1]-y2_2[i])/(8/anz);\n od:\nplot([seq([-4+( i-1)*8/(anz-1) , y2_3[i]], i=1..anz-3)],-4..4,-40..40, \n style=p oint, symbol=box, color=gold);\n" }}{PARA 13 "" 1 "" {GLPLOT2D 901 360 360 {PLOTDATA 2 "6(-%'CURVESG6#7@7$$!\"%\"\"!$F*F*7$$!3+++++++]P!# N\\F/7$$!3++++++++vF;$!3]7y+LjhGrF/7$$!3++++++++]F;$!3+]P4YA0; 8!#;7$$FCF;$\"3+]P4YA0;8Fgo7$F+$\"3]7y+LjhGrF/7$$\"3++++++++DF;$\"3]i: &G#f>N\\F/7$$\"3++++++++]F;$\"3+DJqX=Rq)*F/7$$\"3++++++++vF;$!3+voaN9( pn(F/7$$\"\"\"F*$!3voH/pKm7TF/7$$\"3+++++++]7F/F?7$$\"3++++++++:F/$!3] 7`p7bxTFF/7$$\"3+++++++]Fhs-%+AXESLABELSG6$ Q!6\"F`t-%&STYLEG6#%&POINTG-%'SYMBOLG6#%$BOXG-%%VIEWG6$;F($\"\"%F*;$!# SF*$\"#SF*" 1 5 3 1 10 0 2 6 1 4 2 1.000000 45.000000 45.000000 0 0 "C urve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{MARK "4" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }