{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 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}{PARA 7 " " 1 "" {TEXT -1 50 "Warning, the name changecoords has been redefined \n" }}{PARA 7 "" 1 "" {TEXT -1 43 "Warning, the name arrow has been re defined\n" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm and trace have been redefined and unprotected\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "with(CurveFitting):\n" }}}{EXCHG {PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 306 "lagrangeuniforme:=proc(a,b)\nlocal n,x,y,Q,T;\nn:=nops(a):\nx:= PolynomialInterpolation([seq([k,a[k]],k=1..n)],t);\ny:=PolynomialInter polation([seq([k,b[k]],k=1..n)],t);\nQ:=plot([seq([[a[k],b[k]],[a[k+1] ,b[k+1]]],k=1..n-1)],color=blue):\nT:=plot([x,y,t=1..n]):\ndisplay([T, Q],axes=none,scaling=constrained);\nend:\n" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 416 "lagrangecordique:=proc(a,b)\nlocal n,x,y,Q,T,c;\nn :=nops(a):\nc:=[seq(((a[k+1]-a[k])^2+(b[k+1]-b[k])^2)^(1/4),k=1..n-1)] ;\nc:=[0,seq(add(c[q],q=1..k),k=1..n-1)]:\nx:=PolynomialInterpolation( [seq([c[k],a[k]],k=1..n)],t);\ny:=PolynomialInterpolation([seq([c[k],b [k]],k=1..n)],t);\nQ:=plot([seq([[a[k],b[k]],[a[k+1],b[k+1]]],k=1..n-1 )],color=blue):\nT:=plot([x,y,t=0..c[n]]):\ndisplay([T,Q],axes=none,sc aling=constrained);\nend:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 173 "a:=[0,1,1,-1,-1,0]:b:=[0,0,2,2,0,0]:\nn:=5:p:=2:a:=[seq(evalf(cos (2*p*k*Pi/n+Pi/2)),k=0..n)]:b:=[seq(evalf(sin(2*p*k*Pi/n+Pi/2)),k=0..n )]:lagrangecordique(a,b);lagrange(a,b);" }}{PARA 13 "" 1 "" {GLPLOT2D 187 259 259 {PLOTDATA 2 "6,-%'CURVESG6$7ep7$$\"\"!F)$\"\"\"F)7$$!3#H0u LivMa\"!#=$\"3*=?NfY%eU#*F/7$$!35=+k!*[o9IF/$\"3M61\\Vbt/&)F/7$$!394.1 (R5`T%F/$\"3!>*)Qlj*>'y(F/7$$!3#=Ix2`8qu&F/$\"3#y)*fAaCn3(F/7$$!3pAJ4) *G>5#)F/$\"3`7o(p%\\&Ru&F/7$$!3'4X8&R%47$$!35R=! [7ifu\"FI$!3[)H=NLuvX$Fjn7$$!3QkI3[$4g%=FI$!3lxhaq6tI7F/7$$!3S**o@BpqG >FI$!3)ew$=]3Kd?F/7$$!3W(4'e\\#Q]*>FI$!3.pG(HeNs#GF/7$$!3-T^frly#3#FI$ !3#[aTo'\\>7UF/7$$!3%[=i9E/b6#FI$!3WONg%=\"z(Q&F/7$$!3dIu`AiQ+@FI$!3EU %\\Kf0IO'F/7$$!3U'y6)>(3U/#FI$!37vwEWbecrF/7$$!3;b'\\v'\\vg>FI$!37JT*) ['R3u(F/7$$!339=aVPy^=FI$!37R\\e>#o\"*=)F/7$$!3tJ^;(=#f;/7FI$!3i7mC>BS$z)F/7$$!36H@jJVc75FI$!3gUAhfR>o')F/7$$ !3M4o2Pd!=<)F/$!3q&y5.]h.X)F/7$$!3)3Aa^&e;chF/$!39U!pMC_'R\")F/7$$!3O3 /hg>NlTF/$!3c'p4?+n4v(F/7$$!3u;^7IdgaCF/$!3iO73FEp^tF/7$$!34E+e'3_r,)F jn$!3#oR*['\\_d!pF/7$$\"33AGHPMI5(*Fjn$!37+4Cgz`bjF/7$$\"3#><,1YQCj#F/ $!3C&)RBQYRidF/7$$\"3uakPdnPsTF/$!3,II9m#y<8&F/7$$\"3Kg&p/[,,d&F/$!3i> ;H<+*QZ%F/7$$\"3eZ.(y_cQ#yF/$!3[D(Qe#ROcJF/7$$\"3Z(ov&RpIK$*F/$!3Lq&Ht cw\"Q>F/7$$\"3AQEdXWGV5FI$!3YXA'*Hz67^Fjn7$$\"3!yCo#pozx5FI$\"33%o&G]8 ULkFjn7$$\"37Yt,9#RI0\"FI$\"3]@-.**)R^)=F/7$$\"3CPs=Q:?t(*F/$\"3iZ3l7. '['GF/7$$\"3IK>aJZ))H%)F/$\"3]2OM&GtLy$F/7$$\"31)pWz(p^KnF/$\"3q5Z()fN x%[%F/7$$\"3T(GyWV2`i%F/$\"3?n\"f0-V)=]F/7$$\"3'>r1'R!eC[#F/$\"3fBGEqm R?`F/7$$\"3],qm?\"f+p&!#?$\"3&zw-B^>dV&F/7$$!3sXD_#[yQY#F/$\"3&*yICzK9 A`F/7$$!31PNFF%Rqb%F/$\"3Rsj-vLwJ]F/7$$!3+B3Y'*[m3mF/$\"3U\\'o1#HeCXF/ 7$$!35LVq&f:\\R)F/$\"34#o&=Src,QF/7$$!3aF9*\\!*4ur*F/$\"3f7H;6u_:HF/7$ $!3O_b\\4\"p<0\"FI$\"3!oB8>hA0\">F/7$$!3wl'4w.sy2\"FI$\"37hbT))Q$*RlFj n7$$!3$=())f'*>Cq&Fjn7$$!3'Rq-5OO>L*F/$!3*ok(p[w`Q>F/7 $$!3/ST\"yV(ylxF/$!3G9#y)ze+'>$F/7$$!3H\"[$RA$e,V&F/$!360jl.08WXF/7$$! 37^(4/o^/p#F/$!3_5-S$*\\:SdF/7$$\"3[74#)R5#HY'Fjn$!3!3R=$G)31'oF/7$$\" 3Yr7W79[;CF/$!327\"42=)3UtF/7$$\"37W!*yD]u`UF/$!3')HB]29%*pxF/7$$\"3(R (e;Vt8EiF/$!3exOdXO%=:)F/7$$\"3dtR;P%e=A)F/$!3UDw3\\@*pX)F/7$$\"3C.#=f WzP,\"FI$!3a?HoffFp')F/7$$\"36=\"Rs`S FI$!3if^:0lwLxF/7$$\"3ai)e*p!oM/#FI$!3s\\\"*)Q(pdjrF/7$$\"3rV\"*QfRN,@ FI$!3H3lc%fB$RjF/7$$\"3(QJ$4Q,$\\6#FI$!3!QT8!)f3&>`F/7$$\"3%353r[6O3#F I$!3DOBFQx9IUF/7$$\"3du<0@?_0?FI$!3!)H'fnCkE'HF/7$$\"3Zb*)yqdxU>FI$!3E VwKr%>0@#F/7$$\"3_,i1]'eT'=FI$!3RIXMm?5.9F/7$$\"3900JS1so%QFjn7$$\"3O(3+#Qk]H:FI$\"3:(\\[ 42NSK\"F/7$$\"3OgX8@!*R&Q\"FI$\"3nbTDp*=1K#F/7$$\"3I!4B?JMAA\"FI$\"3e* )H!eZoaP$F/7$$\"3y&*pfb/1R5FI$\"3!Gn&*)Q/7!\\%F/7$$\"3Y7,0Jo%z=)F/$\"3 y@e\"fT0kv&F/7$$\"3w'=)\\JE+++5FI-%'COLOURG6&%$RGBG$\"# 5!\"\"F(F(-F$6$7$F'7$$!3'******>__y(eF/$!3m*****R%*p,4)F/-Fdgl6&FfglF( F($\"*++++\"!\")-F$6$7$F]hl7$$\"3))*****H;l0^*F/$\"3A+++W*p,4$F/Fbhl-F $6$7$Fjhl7$$!3))*****H;l0^*F/F]ilFbhl-F$6$7$Fbil7$$\"3'******>__y(eF/F `hlFbhl-F$6$7$FhilF'Fbhl-%+AXESLABELSG6%Q!6\"Fajl-%%FONTG6#%(DEFAULTG- %(SCALINGG6#%,CONSTRAINEDG-%*AXESSTYLEG6#%%NONEG-%%VIEWG6$FfjlFfjl" 1 2 0 1 10 0 2 9 1 1 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" }}}{PARA 13 "" 1 "" {GLPLOT2D 409 313 313 {PLOTDATA 2 "6/-%'CURVESG6%7ep7$$!35/#pjvMa\"!#=$\"3$yrLo`%eU#*F17$$!3]$f_G! \\o9IF1$\"3ex!=ehNZ])F17$$!31'y(F17$$!3E)))o1a8q u&F1$\"3=M[`5#)F1$\"37LZJD]&Ru&F17$$!3D?!o,W4.+L*f!#>7$$!3%[bX_7ifu\"F-$!3#*o/EkLddMF[o7$$!3Q&4k&[$4g% =F-$!36RR)*p5tI7F17$$!3'y#3wBpqG>F-$!3uu2!fu?t0#F17$$!3i&\\;-DQ]*>F-$! 3)p&y)[ZNs#GF17$$!3K=OYsly#3#F-$!3*4mn3&[>7UF17$$!3T$fTEE/b6#F-$!3'RdY /1\"z(Q&F17$$!3&RZ%3CiQ+@F-$!3Qbwnga+jjF17$$!3HU5x@(3U/#F-$!3%R#4..aec rF17$$!3E=*>*p\\vg>F-$!38OoT*\\R3u(F17$$!3++3MYPy^=F-$!3KE=oh!o\"*=)F1 7$$!33#f;/7F-$!3uU:4C@S$z)F17$$!3#RvU mLkD,\"F-$!3k.'GYv$>o')F17$$!3'fX24z0=<)F1$!3Yg=C_d!pF17$$\"3dF***Qz-.r*F[o$! 3q#f')[pPbN'F17$$\"3a'RIhRQCj#F1$!3IzW0iVRidF17$$\"3MZji$pwB<%F1$!3)pk (**yzxJ^F17$$\"3S)4Y$=95qbF1$!3y)z'3>(*)QZ%F17$$\"3&3;?;ZcQ#yF1$!3+&>j ggjj:$F17$$\"3J9$)*>*oIK$*F1$!3*ol!oFiF17$$\"3H\"H*GUWGV5F-$!3&e`RO H9@6&F[o7$$\"3OK=jnozx5F-$\"3T%yNG>DMV'F[o7$$\"3Ck'yZ@RI0\"F-$\"3/sEk2 .9&)=F17$$\"3#G@@:d,Kx*F1$\"3O7G(R?`F17$$\"3w\"e$*\\x$3!p&!#?$\"3^9 uql+sNaF17$$!3en(oKF 17$$!3S.gcd>(y2\"F-$\"3d]z#\\RT*RlF[o7$$!3fhy91>L*F1$!3c_'yf$o`Q>F17$$!3U2,F'H'ylxF1$!33O[AP]+'>$F17$$!3<@% 3I/d,V&F1$!3p)4owiHTa%F17$$!3U8LCh-X!p#F1$!3Y)>5b3a,u&F17$$\"3g(H5c!o$ HY'F[o$!3w[tOg=A)F1$! 3W74WQ6*pX)F17$$\"3X#*f^['zP,\"F-$!37F0*=$\\Fp')F17$$\"3v0**y\\2u,7F-$ !3O.ywH'4Cz)F17$$\"3S))o[i.y'Q\"F-$!3.VYbT$*[;))F17$$\"3)Gey%GXvg:F-$! 3!R]SqWZus)F17$$\"3.fCni6D=F-$!3U(y(>u`wLxF17$$\"3c^@@]$oM/#F-$!3!GDeq#e djrF17$$\"3Yr:d`UN,@F-$!3x>5lHCKRjF17$$\"3]\"G,oWI\\6#F-$!30P\"f^T2&>` F17$$\"3YrqL4=h$3#F-$!3HMH_Rl9IUF17$$\"3HB!>tNAb+#F-$!3/F-$!3h!GV&[#=0@#F17$$\"3oC#**=+fT'=F-$!3!H>6`$35.9F17$$\"3 gKX;+5so%QF[o7$$\"3% \\`HU\"o]H:F-$\"3k%4()fKOSK\"F17$$\"3?O1J0%*R&Q\"F-$\"3MXb#>B?1K#F17$$ \"3(QN0XqMAA\"F-$\"33'pMgupaP$F17$$\"3P@wac31R5F-$\"3w/ug;<7!\\%F17$$ \"3)[K?M$4&z=)F1$\"3czmd,nScdF17$$\"3]Pvn97_IdF1$\"3qOQ3?t\\&4(F17$$\" 3gXx))3[H-WF1$\"3[3`oF)fHz(F17$$\"3-MsY$onb+$F1$\"3U#Gmzfk$4&)F17$$\"3 ?!)3*)pSpQ:F1$\"3S(oi$[9'\\C*F17$$\"3))>3kH0+gs!#C$\"36?+?d,++5F--%'CO LOURG6&%$RGBG$\"\"!Figl$\"*++++\"!\")Fhgl-%*THICKNESSG6#\"\"#-F$6%7ep7 $Fhgl$\"\"\"Figl7$$!36?JJ@cZV:F1$\"3jJJ-nWeU#*F17$$!3Cz1l')[o9IF1$\"3w f3hXbt/&)F17$$!3y/@F\"R5`T%F1$\"3ajrjR'*>'y(F17$$!39DoJBN,ZdF1$\"3=wKG YXs'3(F17$$!3^.jl()G>5#)F1$\"3:/ip_\\&Ru&F17$$!3:M$>#Q%48ITZ.!zU$F17$$!3Q@y,(**e$o8F-$\"3KffE8y /MCF17$$!3bNNv7:+1:F-$\"3%[wJ0\"*4;\\\"F17$$!3!*=XcOObF;F-$\"3CL)e&3#* H$*fF[o7$$!3)Hv3H7ifu\"F-$!3/n)*)f@uvX$F[o7$$!3/k*fhM4g%=F-$!3Emu@e6tI 7F17$$!3]2jH@pqG>F-$!3#[\"HTP3Kd?F17$$!3+5))pZ#Q]*>F-$!3<1i))pbBFGF17$ $!3]\"eh)ply#3#F-$!3ktNZ`\\>7UF17$$!3J9u)*fU]:@F-$!3#yQ#Qr6z(Q&F17$$!3 09CT@iQ+@F-$!3QE&[0e0IO'F17$$!390s6>(3U/#F-$!3CAJTKbecrF17$$!3OKqJn\\v g>F-$!3!yqx!Q'R3u(F17$$!3aHO#Qu$y^=F-$!3#**o<+@o\"*=)F17$$!34Rr-)=#f;< F-$!3xCYVq$3,_)F17$$!3u/\"Q+./Ic\"F-$!3sc)**)3'Gas)F17$$!3GuHxx(f\"*Q \"F-$!3V>DbMV2;))F17$$!3Ts!yXO\">/7F-$!3O0Kj;BS$z)F17$$!3]g#G_LkD,\"F- $!3eqx0fR>o')F17$$!3qUS[!y0=<)F1$!3Gj*))=]h.X)F17$$!3sd7M1f;chF1$!3wX# )HZAlR\")F17$$!3o(H\\'>?NlTF1$!3?+383q'4v(F17$$!3k]M5'z0YX#F1$!3cDJCNE p^tF17$$!3hsXp:G:bAAPQCj#F1$!3=S23`YRidF17$$\"3)e`f8mwB<%F1$!36q&3LGy<8&F17 $$\"3cnv#pP,,d&F1$!3KqjwO+*QZ%F17$$\"3Tq!*>5k&Q#yF1$!3If]t\\ROcJF17$$ \"3uX\\a4oIK$*F1$!3tq!=_fw\"Q>F17$$\"3;X-;JWGV5F-$!3D,CTc#=@6&F[o7$$\" 3q'y5P&ozx5F-$\"3d`j'H)4ULkF[o7$$\"3!f)p<(>RI0\"F-$\"3;z#)Rd)R^)=F17$$ \"3sAHxe8?t(*F1$\"3wF\"okEg['GF17$$\"3A'G&GSX))H%)F1$\"3a&QKQBtLy$F17$ $\"36^2\\vn^KnF1$\"3a`T&G]tZ[%F17$$\"3k:eC?sIDYF1$\"3Z&\\9s&H%)=]F17$$ \"3Oj_I9yX#[#F1$\"3wb?[+mR?`F17$$\"3_0x$4NN+p&Fiy$\"3*GS%yM%>dV&F17$$! 33%e+QtyQY#F1$\"3?gDo#>V@K&F17$$!3'[k@6pRqb%F1$\"3]oulzKwJ]F17$$!3y=*> [F17$$!3sWSos ?(y2\"F-$\"3))4/8fA$*RlF[o7$$!37&fGP.s,/\"F-$!3#=:6z(3U-dF[o7$$!3MrPlb n$>L*F1$!3Tv4>[y`Q>F17$$!3[-()zayylxF1$!3)R&yT)41g>$F17$$!3Z2@\"\\we,V &F1$!3_IANW28WXF17$$!3e**e!y9_/p#F1$!3.3%>hDb,u&F17$$\"3!)R/!**4;HY'F[ o$!3O([Q^641'oF17$$\"3$\\**R`!4[;CF1$!3*y;f'z%)3UtF17$$\"3+aGd0Xu`UF1$ !3i7$y(=<%*pxF17$$\"3A_AG4o8EiF1$!3I:B$*pR%=:)F17$$\"3\\GUu*)y&=A)F1$! 3a@un'[#*pX)F17$$\"3FjB*)*QzP,\"F-$!3?(=>,Jw#p')F17$$\"3@6o&*z/u,7F-$! 3[!z!4Q5T#z)F17$$\"3'*Gf#33!y'Q\"F-$!3SU))p!y!\\;))F17$$\"37(*3hMUvg:F -$!3%)4!))p\"*[us)F17$$\"3EweJc3D=F-$!3Yn7`KpwLxF17$$\"3[k?F1!oM/#F-$!3 ?2;v7udjrF17$$\"3[xu%[*QN,@F-$!3yi7GYSKRjF17$$\"3@=]#G2I\\6#F-$!3,>;`F17$$\"3%>T78U6O3#F-$!3]yO98#[,B%F17$$\"32\\i&[&>_0?F-$!3/4e)=tkE 'HF17$$\"37h$QWqvF%>F-$!3@\\)4<'*>0@#F17$$\"3A=Bg$eeT'=F-$!3%)[F#=c-JS \"F17$$\"3Q#=yPd?(o% QF[o7$$\"3<9>nrj]H:F-$\"3o, \\%F17$$\"3/A@*=Og0]@M>AFagl$ \"2CSj\"G(*******F--Fegl6&Fggl$\"#5!\"\"FhglFhglF]hl-F$6%7epFdhl7$$!3# H0uLivMa\"F1$\"3*=?NfY%eU#*F17$$!35=+k!*[o9IF1$\"3M61\\Vbt/&)F17$$!394 .1(R5`T%F1$\"3!>*)Qlj*>'y(F17$$!3#=Ix2`8qu&F1$\"3#y)*fAaCn3(F17$$!3pAJ 4)*G>5#)F1$\"3`7o(p%\\&Ru&F17$$!3'4X8&R%4F-$!3)ew$=]3Kd?F17$$!3W(4'e\\#Q]*>F-$!3.pG(HeNs#GF17$$!3-T^frly#3#F -$!3#[aTo'\\>7UF17$$!3%[=i9E/b6#F-$!3WONg%=\"z(Q&F17$$!3dIu`AiQ+@F-$!3 EU%\\Kf0IO'F17$$!3U'y6)>(3U/#F-$!37vwEWbecrF17$$!3;b'\\v'\\vg>F-$!37JT *)['R3u(F17$$!339=aVPy^=F-$!37R\\e>#o\"*=)F17$$!3tJ^;(=#f;/7F-$!3i7mC>BS$z)F17$$!36H@jJVc75F-$!3gUAhfR>o')F17 $$!3M4o2Pd!=<)F1$!3q&y5.]h.X)F17$$!3)3Aa^&e;chF1$!39U!pMC_'R\")F17$$!3 O3/hg>NlTF1$!3c'p4?+n4v(F17$$!3u;^7IdgaCF1$!3iO73FEp^tF17$$!34E+e'3_r, )F[o$!3#oR*['\\_d!pF17$$\"33AGHPMI5(*F[o$!37+4Cgz`bjF17$$\"3#><,1YQCj# F1$!3C&)RBQYRidF17$$\"3uakPdnPsTF1$!3,II9m#y<8&F17$$\"3Kg&p/[,,d&F1$!3 i>;H<+*QZ%F17$$\"3eZ.(y_cQ#yF1$!3[D(Qe#ROcJF17$$\"3Z(ov&RpIK$*F1$!3Lq& Htcw\"Q>F17$$\"3AQEdXWGV5F-$!3YXA'*Hz67^F[o7$$\"3!yCo#pozx5F-$\"33%o&G ]8ULkF[o7$$\"37Yt,9#RI0\"F-$\"3]@-.**)R^)=F17$$\"3CPs=Q:?t(*F1$\"3iZ3l 7.'['GF17$$\"3IK>aJZ))H%)F1$\"3]2OM&GtLy$F17$$\"31)pWz(p^KnF1$\"3q5Z() fNx%[%F17$$\"3T(GyWV2`i%F1$\"3?n\"f0-V)=]F17$$\"3'>r1'R!eC[#F1$\"3fBGE qmR?`F17$$\"3],qm?\"f+p&Fiy$\"3&zw-B^>dV&F17$$!3sXD_#[yQY#F1$\"3&*yICz K9A`F17$$!31PNFF%Rqb%F1$\"3Rsj-vLwJ]F17$$!3+B3Y'*[m3mF1$\"3U\\'o1#HeCX F17$$!35LVq&f:\\R)F1$\"34#o&=Src,QF17$$!3aF9*\\!*4ur*F1$\"3f7H;6u_:HF1 7$$!3O_b\\4\"p<0\"F-$\"3!oB8>hA0\">F17$$!3wl'4w.sy2\"F-$\"37hbT))Q$*Rl F[o7$$!3$=())f'*>Cq&F[o7$$!3'Rq-5OO>L*F1$!3*ok(p[w`Q>F 17$$!3/ST\"yV(ylxF1$!3G9#y)ze+'>$F17$$!3H\"[$RA$e,V&F1$!360jl.08WXF17$ $!37^(4/o^/p#F1$!3_5-S$*\\:SdF17$$\"3[74#)R5#HY'F[o$!3!3R=$G)31'oF17$$ \"3Yr7W79[;CF1$!327\"42=)3UtF17$$\"37W!*yD]u`UF1$!3')HB]29%*pxF17$$\"3 (R(e;Vt8EiF1$!3exOdXO%=:)F17$$\"3dtR;P%e=A)F1$!3UDw3\\@*pX)F17$$\"3C.# =fWzP,\"F-$!3a?HoffFp')F17$$\"36=\"Rs`SF-$!3if^:0lwLxF17$$\"3ai)e*p!oM/#F-$!3s\\\"*)Q(pdjrF17$$\"3rV\"*QfRN ,@F-$!3H3lc%fB$RjF17$$\"3(QJ$4Q,$\\6#F-$!3!QT8!)f3&>`F17$$\"3%353r[6O3 #F-$!3DOBFQx9IUF17$$\"3du<0@?_0?F-$!3!)H'fnCkE'HF17$$\"3Zb*)yqdxU>F-$! 3EVwKr%>0@#F17$$\"3_,i1]'eT'=F-$!3RIXMm?5.9F17$$\"3900JS1so%QF[o7$$\"3O(3+#Qk]H:F-$\"3:(\\ [42NSK\"F17$$\"3OgX8@!*R&Q\"F-$\"3nbTDp*=1K#F17$$\"3I!4B?JMAA\"F-$\"3e *)H!eZoaP$F17$$\"3y&*pfb/1R5F-$\"3!Gn&*)Q/7!\\%F17$$\"3Y7,0Jo%z=)F1$\" 3y@e\"fT0kv&F17$$\"3w'=)\\JE+++5F--Fegl6&FgglFjglFjgl FhglF]hl-F$6$7$Fdhl7$$!3'******>__y(eF1$!3m*****R%*p,4)F1-Fegl6&FgglFh glFhglFjgl-F$6$7$Fd`p7$$\"3))*****H;l0^*F1$\"3A+++W*p,4$F1Fi`p-F$6$7$F ^ap7$$!3))*****H;l0^*F1FaapFi`p-F$6$7$Ffap7$$\"3'******>__y(eF1Fg`pFi` p-F$6$7$F\\bpFdhlFi`p-%'POINTSG6*Fdhl7$$!+AD&y(e!#5$!+W*p,4)Fhbp7$$\"+ j^c5&*Fhbp$\"+W*p,4$Fhbp7$$!+j^c5&*FhbpF^cp7$$\"+AD&y(eFhbpFibpFdhlFi` p-%'SYMBOLG6#%'CIRCLEG-%+AXESLABELSG6%Q!6\"F]dp-%%FONTG6#%(DEFAULTG-%( SCALINGG6#%,CONSTRAINEDG-%*AXESSTYLEG6#%%NONEG-%%VIEWG6$FbdpFbdp" 1 2 0 1 10 0 2 9 1 1 1 1.000000 44.000000 45.000000 0 0 "Curve 1" "Curve 2 " "Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9 " }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 970 "lagrange:=proc(a,b)\n local n,x,y,Q,T,c,xx,yy,TT,QQ,ccc,xxx,yyy,TTT;\nn:=nops(a):\nx:=Polyno mialInterpolation([seq([k,a[k]],k=1..n)],t);\ny:=PolynomialInterpolati on([seq([k,b[k]],k=1..n)],t);\nc:=[seq(((a[k+1]-a[k])^2+(b[k+1]-b[k])^ 2)^(1/2),k=1..n-1)];\nc:=[0,seq(add(c[q],q=1..k),k=1..n-1)]:\nxx:=Poly nomialInterpolation([seq([c[k],a[k]],k=1..n)],t);\nyy:=PolynomialInter polation([seq([c[k],b[k]],k=1..n)],t);\nccc:=[seq(((a[k+1]-a[k])^2+(b[ k+1]-b[k])^2)^(1/4),k=1..n-1)];\nccc:=[0,seq(add(ccc[q],q=1..k),k=1..n -1)]:\nxxx:=PolynomialInterpolation([seq([ccc[k],a[k]],k=1..n)],t);\ny yy:=PolynomialInterpolation([seq([ccc[k],b[k]],k=1..n)],t);\nQ:=plot([ seq([[a[k],b[k]],[a[k+1],b[k+1]]],k=1..n-1)],color=blue):\nQQ:=pointpl ot([seq([a[k],b[k]],k=1..n)],color=blue,symbol=circle):\nT:=plot([x,y, t=1..n],color=green,thickness=2):TT:=plot([xx,yy,t=0..c[n]],thickness= 2):\nTTT:=plot([xxx,yyy,t=0..ccc[n]],thickness=2,color=yellow):\ndispl ay([T,TT,TTT,Q,QQ],axes=none,scaling=constrained);\nend:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "n:=4: a:=seq(rand(),k=1..n):b:=seq (rand(),k=1..n): randomize:\na:=[a,a[1]]:b:=[b,b[1]]:\nlagrange(a,b); " }}{PARA 13 "" 1 "" {GLPLOT2D 707 431 431 {PLOTDATA 2 "6.-%'CURVESG6% 7[p7$$\"3+++)yo&\\MT!\"'$\"3c(**pA!*G1R$F*7$$\"3DcEMRgo?\\F*$\"377CJOO XiLF*7$$\"3E1kP%*oDicF*$\"3=!oR<=\"fILF*7$$\"3K?e/lpQgjF*$\"3M-C5jiA&H $F*7$$\"3]i!4/.Ui,(F*$\"3'Q%*z](4acKF*7$$\"3EJq;=1=g!)F*$\"3?jZ_bn$==$ F*7$$\"3sh2*4(ec&)*)F*$\"3]zRjjka)4$F*7$$\"3%f3tO@<>*)*F*$\"3ih\"yP\\U d*HF*7$$\"3](=4(H-Rm5!\"&$\"31)\\&4AxY%)GF*7$$\"3$QF*7$$\"3C1W]Uq9$H\"FS$\"3ge+$=[NU&=F*7$$\"3S\">6scAWG\"FS$\" 3!oYQ@3\\pr\"F*7$$\"3=noS*))=$p7FS$\"3/C'\\Xf]8e\"F*7$$\"3%)R[]aJ^[7FS $\"3%))Hw4*)z'[9F*7$$\"3AC.2MUaA7FS$\"3Q%[O#o;F>8F*7$$\"3!*yLGD,Cb6FS$ \"3Yk5lRFRm5F*7$$\"3-2sa$*p[$3\"FS$\"3y]X\"ew5Ni)!\"(7$$\"3Q4YE7$)oD** F*$\"3!H'>hK'HHe'Ffr7$$\"3%4'*>y%f^U*)F*$\"3+%eB1L(4^[Ffr7$$\"3E19GruP izF*$\"3W[@v@$\\'>NFfr7$$\"3WBl:qw')pqF*$\"38`piFEzAEFfr7$$\"3j:g'y+(Q MgF*$\"35r`&3)pwo>Ffr7$$\"3D1RN'*4a+_F*$\"3%fLp(fXb\"y\"Ffr7$$\"3Q4@\" )fhn.VF*$\"3W)Re3?54+#Ffr7$$\"3i:&ovf-Ef$F*$\"3QMF+V/#Rf#Ffr7$$\"3vV[1 u/T=HF*$\"3Kq&407\"4xOFfr7$$\"3++]ChDP#R#F*$\"3yDkjZ>=D^Ffr7$$\"3)ozr- ;z\\(>F*$\"3OFb6s-@fqFfr7$$\"3jlZF]!3pr\"F*$\"3%4@;)=%pU#[mZ1'4=F*7$$\"3j!*y/an?0?F*$\"31tB'zi:Y;#F*7$$\"3 voaDQS\"*HCF*$\"3)oz'=#oocb#F*7$$\"3kS;Ix?;qHF*$\"3m(fZ:>$3dHF*7$$\"3) oH97 !z_a'F*$\"3b&oZt#yBL[F*7$$\"3E19H!\\\\!ypF*$\"3`W\")GP0x<]F*7$$\"3](ou M-ROX(F*$\"3A*>fB*Gt8_F*7$$\"3v=nR4e:GzF*$\"3_G#fyG8DS&F*7$$\"3Ecwg649 q$)F*$\"3=^\\h*R&\\sbF*7$$\"3D1R[&HjU!))F*$\"3YRzU\"H**Rt&F*7$$\"3]PM- #Rn/n*F*$\"3u_!f$>eZRgF*7$$\"37.#)>mq`V5FS$\"3ojx&Q\"=!zG'F*7$$\"3+DO+ iv166FS$\"3_ya!)\\qm$['F*7$$\"3+D^ly>(*f6FS$\"3%)[]\"zij()f'F*7$$\"3il sfz]]x6FS$\"38`%RFa2Z<#*=\"FS$\"3K&>5Ex-)HmF*7$$\"3il2 !zE\"o#>\"FS$\"3(Hzn*pVZAmF*7$$\"3i!Rf)p3\\%>\"FS$\"3%f3eP3t(3mF*7$$\" 3O4'=>+qX>\"FS$\"3a%*=YFW\\)e'F*7$$\"3O%)f-o7%G>\"FS$\"3]Y,HM;VhlF*7$$ \"3QM(p3D(o%=\"FS$\"3ms%4bL1L\\'F*7$$\"3Q4\"=z,k'p6FS$\"31R+33DC+kF*7$ $\"3i:]*)>#RL9\"FS$\"3e^.8\\hpS1\"FS$\"35YASW)*o&*eF*7$$\"3D1H9tv(>,\"FS$\"3s6XO)fhLn&F*7 $$\"3wV)4h!>X^%*F*$\"3-Tq^l-v)R&F*7$$\"3+DJ5Gd=f')F*$\"3s&4G\\SuM3&F*7 $$\"3voHV^)HRB)F*$\"3QfLFSC#y5kU_'F* $\"3ApSG'[=P;$F*7$$\"3g*e&=<)[>R(F*$\"3YL!G\\%f_bIF*7$$\"35jr0CPJi\")F *$\"3Hl1n!)3gUHF*7$$\"3gkC,PQG=*)F*$\"3'yn'o'R)z5GF*7$$\"3-z4&4RHPc*F* $\"3%pB_$*o7[n#F*7$$\"3$yRbZsL3,\"FS$\"32A,h**=iMDF*7$$\"3Y8%ydN(Qb5FS $\"3!GP8&)p6?R#F*7$$\"3YO,%3K704\"FS$\"3K7^%f_N&[AF*7$$\"3d#)3!zNWq6\" FS$\"3(G\"QEUMM/@F*7$$\"3V))G])RxW8\"FS$\"3/hD(>J52(>F*7$$\"3qT#\\ZB$[ X6FS$\"3@GW,*Q&z0:\"FS$\"3z^'*\\1?T,KhZ%p6F*7$$\"3_B;\\%* \\I$4\"FS$\"3_<[R6E\\X5F*7$$\"3fH$p$H<3Q5FS$\"3uq=v\"fo'p!)Ffr7$$\"3wZ *of\"fO(y*F*$\"33^)4\"\\E6!='Ffr7$$\"3tr(*)\\%4aI!*F*$\"3()fQW)\\6NK%F fr7$$\"3Jo7F%o#)o?)F*$\"3ELG&phl:Y!Q(F*$\"3O(y]8h`$=; Ffr7$$\"3HlcUf\"oHi'F*$\"3,PzW)*o$*4')Fgdl7$$\"3\\[Mwy=CPdF*$\"3?$y_eS 'oTMFgdl7$$\"3gQk,qHM<]F*$\"3'*4xx$4qTU#Fgdl7$$\"3iNrZ9>=MUF*$\"3M1:[7 )o;>&Fgdl7$$\"3Dx;DMu*Rg$F*$\"3\\aeUD;F*$ \"3(yIM>[W\"H:F*7$$\"33o(4i>)*fx\"F*$\"3q-lR[*Gk%=F*7$$\"3]z9'3as+0#F* $\"3%=jP/QI[>#F*7$$\"3.2A$zX')>U#F*$\"3!)H!e?'Rh^DF*7$$\"3Uui:!e*GrGF* $\"3X3*fl\"*[t!HF*7$$\"3%H+tDpO5Y$F*$\"3&3i#oo.q3LF*7$$\"3G8O.QaYfSF*$ \"35nPpgg[pOF*7$$\"3O$>j@&**p`ZF*$\"3u#zQOyX%[SF*7$$\"3E*)*yW;(>;aF*$ \"3shdi)Q\"R!Q%F*7$$\"3!Q)3OB$=q:'F*$\"3$*p;([')*)Qs%F*7$$\"37?J%3RP$ \\oF*$\"3:\"=eJg'p@]F*7$$\"3qi#*R%)QpeF*7$$\"3IzP]**)p 'f&*F*$\"3[n;zep-`eF*7$$\"3>#*>+IU6L&*F*$\"3\\H__/#p\"3eF*7$$\"3YRzAaC Jb%*F*$\"33w/fK!zFu&F*7$$\"3qH/F\">h>1*F*$\"3*y3NN_n%4bF*7$$\"3=^**=iC -z()F*$\"3;NN!*))[xk`F*7$$\"3%fevUgDMU)F*$\"3O5\")zhHQ$>&F*7$$\"3uFfoA L*)ezF*$\"3-m^\"*=vzz\\F*7$$\"3`>D%zgX/S(F*$\"3r?iY$QNGt%F*7$$\"3+%3mx U\"RsnF*$\"3!z3?&>(>PY%F*7$$\"3O=j#R1Ft/'F*$\"3YRz9Vt7hTF*7$$\"3eUOfy_ t:cF*$\"3a%*=A?\\?%)RF*7$$\"3W)R)yO&eO:&F*$\"3?3M*piopz$F*7$$\"3u-.?c2 @gYF*$\"33IL%of(=*f$F*7$$\"33bR06d\\MTF*$\"3S3'=9\"*G1R$F*-F`dl6&Fbdl$ \"#5!\"\"FcdlFcdlFhdl-F$6%7coF_el7$$\"3?/VkbK>W[F*$\"3uN\">%[\"z*[LF*7 $$\"3Zf%)4JL%R^&F*$\"3;lhjW,Z/LF*7$$\"3'yam-5!zWhF*$\"3'[fJQcgsD$F*7$$ \"3RvA1$Rmxt'F*$\"3xL-=xn]2KF*7$$\"3e.CnidR#o(F*$\"3.\\xk:lJ:JF*7$$\"3 UGT3;>t?&)F*$\"3U`Z87Co;IF*7$$\"3?BD@Rb+V$*F*$\"3#4Jf(oA-**GF*7$$\"3m+ BU;]Y/5FS$\"3!GND)e,EvFF*7$$\"33)yD%>oij5FS$\"313BcbHcXEF*7$$\"3cXk>r_ )>6\"FS$\"3Rb*Ql\\`<^#F*7$$\"3kiH:P#o+:\"FS$\"3]u%p'yaZvBF*7$$\"3mu-(e u!zy6FS$\"3'zx'R\\2/PAF*7$$\"3!oA789>w>\"FS$\"3N;$Qihcv5#F*7$$\"3&ya;s oa%47FS$\"3)3rUYz\"px>F*7$$\"3jl#oVMg[@\"FS$\"37XiwOr`V=F*7$$\"3-=2-$Q =Q@\"FS$\"3.q*=Ri2/r\"F*7$$\"3o%Hok9/l?\"FS$\"3-nL3$=LXd\"F*7$$\"3qdhy 2NR$>\"FS$\"3=cWy*)e@T9F*7$$\"3#esw0C)3v6FS$\"3=Ugh[1c68F*7$$\"3GpKS@! p?:\"FS$\"3/40M+)*y&=\"F*7$$\"3'ekb+/()>4\"FS$\"3jm,=#p7(=%*Ffr7$$\"3U L\">Bx`v-\"FS$\"3GC$oUpxwY(Ffr7$$\"3E=i%=9Y`X*F*$\"3e!f6b>')=`&Ffr7$$ \"3k@f`#o*[k&)F*$\"3H*Ri$e'QC!RFfr7$$\"3Yk5*Hc@Dn(F*$\"3Qz%pp'ehgEFfr7 $$\"3;t\\T/`vcoF*$\"3LH%*\\NX(G$=Ffr7$$\"3ot#pZ(*[a!fF*$\"3cn)ziYG3C\" Ffr7$$\"3!\\wsE!ftM^F*$\"3k[[CfcU&3\"Ffr7$$\"3=AF[^sh*H%F*$\"3TAU35$pV J\"Ffr7$$\"3@1E-7R3JOF*$\"3%z]#*G#=*)))=Ffr7$$\"3G%)Qi%y'**))HF*$\"3h) >><9'o?HFfr7$$\"3wNTKnbHyCF*$\"3)exKcwk%)G%Ffr7$$\"39'GVIPu-1#F*$\"3N7 kEazb0hFfr7$$\"3u[*Rti!H'y\"F*$\"3O&*RYw'Q66)Ffr7$$\"3SHw^T@X8;F*$\"3' Gaz6#Rhh5F*7$$\"3_d*)[,\"*Gr:F*$\"33k1MYBgc8F*7$$\"3mA2(*GDY[;F*$\"3Y9 tU\"[P&R;F*7$$\"39.d.:9\\[=F*$\"3yBc\"G'>

F*7$$\"3M%p6()))\\t<#F*$\" 3u!QjD?6>L#F*7$$\"3)oH9*fro6EF*$\"3*eGfA1=Sq#F*7$$\"3!fz?**eG&GJF*$\"3 suShRR^vIF*7$$\"3I@$HJ>a)*z$F*$\"3Q^w^VA0&\\$F*7$$\"3'3)yop/\"eZ%F*$\" 3utI?l&=b_F*$\"3!)3!Hr?1)oUF*7$$\"31t[\")G3)\\*fF*$ \"34#R9lP)*eh%F*7$$\"3+vo9[x1=oF*$\"3ggeHKVpu\\F*7$$\"3_&*y;%Q*>$e(F*$ \"3qt<^w79&G&F*7$$\"3)fi;ZV_lM)F*$\"3=**GBpo7tbF*7$$\"3](oM9.;%G!*F*$ \"3qkDe9k%*4eF*7$$\"3rXVf)e&fS'*F*$\"3X1;B)y)e+gF*7$$\"3ww,fIns45FS$\" 3'eDU-o\"y=hF*7$$\"3Ia^$=7ko-\"FS$\"3g&)*=n'p2^hF*7$$\"3(oa8Q?N\"R5FS$ \"3G(>dq*[ZihF*7$$\"3i:q>gYDV5FS$\"3mN!zkgF*7$$\"3JX9eQ`)=.\"FS$ \"3Ex;e_Hn))fF*7$$\"3T;o)H\"RyN)*F*$\"3H'>c6-F`s&F*7$$\"3)zT)[c*y))\\* F*$\"3G(>s'>$*)Qc&F*7$$\"3#GQd)ol-!3*F*$\"3kp)e`,YNP&F*7$$\"3/d4T2g@P& )F*$\"3zz#\\h=%>P^F*7$$\"3o8SkC%e'))yF*$\"3M'[y`H$ok[F*7$$\"3U#)pSk(\\ E;(F*$\"3u_SkMLPoXF*7$$\"3\\@X_#fivK'F*$\"3OVp\"*fIxNUF*7$$\"3sh2o*y_; $eF*$\"3ONiPi#=:/%F*7$$\"3<,iY.p\\,`F*$\"3zv,adx2OQF*7$$\"3-T&R4%*4ht% F*$\"3rG%pMV*>>OF*7$$\"3>nQp'p&\\MTF*$\"3a:Mg0*G1R$F*-F`dl6&FbdlFedlFe dlFcdlFhdl-F$6$7$F_el7$$\"3+++U/]()H**F*$\"3+++q7.E\"f'Ffr-F`dl6&FbdlF cdlFcdlFedl-F$6$7$F[bo7$$\"3+++(46vid\"F*$\"3+++u%*e@&>\"F*F`bo-F$6$7$ Febo7$$\"3+++)zw$*\\#))F*$\"3+++DQ^dTdF*F`bo-F$6$7$F]coF_elF`bo-%'POIN TSG6)7$$\"+)o&\\MTF[el$\"+-*G1R$F[el7$$\"+/]()H**F[el$\"+8.E\"f'\"\"\" 7$$\"+6^Fw:F[el$\"+&*e@&>\"F[el7$$\"+oP*\\#))F[el$\"+Q^dTdF[elFhcoF`bo -%'SYMBOLG6#%'CIRCLEG-%+AXESLABELSG6%Q!6\"Fdeo-%%FONTG6#%(DEFAULTG-%(S CALINGG6#%,CONSTRAINEDG-%*AXESSTYLEG6#%%NONEG-%%VIEWG6$FieoFieo" 1 2 0 1 10 0 2 9 1 1 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2 " "Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" }}}} {EXCHG {PARA 0 "" 0 "" {GLPLOT2D 327 378 378 {PLOTDATA 2 "6.-%'CURVESG 6%7gn7$$\"37&**>Q3Ba-&!\"'$\"3+++\\Pz\")o6F*7$$\"3_XTQvAg!R%F*$\"3cN*3 P(y'f*)*!\"(7$$\"3R]mEx6-=QF*$\"3u_!HK0RX[)F27$$\"3A;\"z.0e%oLF*$\"3mZ 8BvHN]vF27$$\"3%))HcHu.C'HF*$\"3U\">Yujtd(oF27$$\"3!=4Ha>N'*>#F*$\"36( ycScv.C'F27$$\"3O$>`Lv&4!*=F*$\"3cwM'4W'HZjF27$$\"3!o@Fk)zLF;F*$\"3&)* 3<\"[DJ;nF27$$\"3&p7S$>f259F*$\"32k1QQ/kEtF27$$\"3D1Red@![B\"F*$\"39`> :\"zNF;)F27$$\"38`%H!f8(z5\"F*$\"3uxr?(Qj`7*F27$$\"3T\"pL.TnP,\"F*$\"3 Zbogg3`D5F*7$$\"3?UKFJ%z()[*F2$\"3!=M5++O)e6F*7$$\"3g3jE:*QY:*F2$\"3kc !GQ7(R28F*7$$\"3)oHz_L@<7*F2$\"3gL%zAN&ov9F*7$$\"3')*ez!z88)Q*F2$\"3yf (y`Hgul\"F*7$$\"3yvEQd3(R2\"F*$\"3MhGYWAia?F*7$$\"3Ud)[MkaYJ\"F*$\"3># *>BQ0F-DF*7$$\"3b5$QR3^/g\"F*$\"3N-\\V:'p3#HF*7$$\"3/2ZNZ'3C*>F*$\"3LO sh:EE5MF*7$$\"3/2s*>wQ\"[CF*$\"3_.')e-&=>\"RF*7$$\"3jlA1='>X$HF*$\"3Wt x+;Lz'R%F*7$$\"3\"RvZ#zHD2MF*$\"3%4@JHLK?$[F*7$$\"3Q4r8Ms0(*RF*$\"36Pb JUc'fL&F*7$$\"3+D1G/L\"=^%F*$\"3/dfxE8sXdF*7$$\"3JX9t=zU=^F*$\"35YA\"* =KQ'>'F*7$$\"3G)[N$=$3Zl&F*$\"3K&pK)3MC)F*$\"3;5 /G![H,&zF*7$$\"3]P%e)H'=lo)F*$\"3;&y%f9].$4)F*7$$\"3pzTm#))yU.*F*$\"3m sW+C^)4<)F*7$$\"3qH/&e%[Kl$*F*$\"3mZ8^D4z0#)F*7$$\"3KqX9_:_b'*F*$\"3)z \"f\"e_gv=)F*7$$\"3K&>DNqKux*F*$\"3s6?Pj>je\")F*7$$\"3qagmOnz&))*F*$\" 3\"yvckz^m6)F*7$$\"3++v9Yg_x**F*$\"3/KGr7xrj!)F*7$$\"34YK;')oh05!\"&$ \"3ge+jcg!))*zF*7$$\"31R!)eZvz75Fiw$\"3c,\"RR&4!H\"zF*7$$\"3s6+*ygI$=5 Fiw$\"3(zm**RH-F\"yF*7$$\"3W)R8$385C5Fiw$\"3a>D/sYu(f(F*7$$\"3`p()38tK C5Fiw$\"3%f$o%GeG4K(F*7$$\"3GQA!Rhm#>5Fiw$\"3>#\\kys!fIqF*7$$\"3sOJtTZ 435Fiw$\"3kl(Hb$estmF*7$$\"38y+8V!4M#**F*$\"3\"*GYo(e1TI'F*7$$\"3)oHR, lCkq*F*$\"3QfLnkYB()eF*7$$\"3?U#Qe)e6X%*F*$\"3k:5D#y$[aaF*7$$\"3#yvYTb 2G7*F*$\"3geDD$e82)\\F*7$$\"3%fevOZd!p()F*$\"3Aug=6zm5XF*7$$\"3qHH=TF$ yO)F*$\"3jl(4)Q@/BSF*7$$\"3+](o!\\XeNzF*$\"3](o/O1Y+a$F*7$$\"3pa&=1!)* 38vF*$\"3Wt-wY-n.JF*7$$\"3JX9.^?Z0qF*$\"3><^-Z#o6i#F*7$$\"3p/[FW,^OlF* $\"3pH/_W[$R@#F*7$$\"3KXRYu=>GgF*$\"31kJl:F`9=F*7$$\"3KXR\"pad4a&F*$\" 3KXk%G+&Hv9F*7$$\"3vV)>Q3Ba-&F*$\"33R+\\Pz\")o6F*-%'COLOURG6&%$RGBG$\" \"!F`^l$\"*++++\"!\")F_^l-%*THICKNESSG6#\"\"#-F$6%7U7$$\"3+++#Q3Ba-&F* F+7$$\"3jqF*$\"3:Kt#)4nF,JF *7$$\"3:&fE1;Yx+#F*$\"3!e1V0#)fCe$F*7$$\"3Yi\\M()R91@F*$\"3-J!yF;1<4%F *7$$\"3qJ4\"\\R7'[AF*$\"3Z!)*f7(=qVXF*7$$\"3C')3U%oU`Y#F*$\"3+&*Huv#eu /&F*7$$\"3Oxk=iqaOFF*$\"3IJLaj\")3RbF*7$$\"3.!yN,rLD/$F*$\"3y_Gz3md\"* fF*7$$\"35&4)oyQT`LF*$\"33q![k%ydyjF*7$$\"3i.7V0F!zv$F*$\"3$>B+.*yg-oF *7$$\"3S0u`csBDTF*$\"32$*G`%[%GErF*7$$\"3)RK$4+$f^d%F*$\"3U\\cE!*eocuF *7$$\"3/O>F(p1)))\\F*$\"3rwt;)GMSq(F*7$$\"3iG=1N%oQX&F*$\"3Gf2%**)H=Bz F*7$$\"3&[sY=ILE!fF*$\"3)*QuEP7Wy!)F*7$$\"3%**=ifw'zrjF*$\"3?/=Oz[z#=) F*7$$\"3eK'Rd:5!*z'F*$\"3jQL$yt'eD#)F*7$$\"3SNDa-Z?^sF*$\"3<=O04<@9#)F *7$$\"3(QY5yjKjq(F*$\"3u+&zCtt#R\")F*7$$\"3Kuh43#Gj3)F*$\"3\\D'y.^sB-) F*7$$\"3GdC_6jlv%)F*$\"3I_tGWHZVyF*7$$\"3qH/KCb_]))F*$\"3%o]\\`jDMg(F* 7$$\"3_*\\%=$Qzg=*F*$\"3MpNKlk=55\"G\"\\x%*F*$\"3WOBE_HB&* pF*7$$\"3SFoc2:Ie(*F*$\"3]a3g;(o1f'F*7$$\"3Y(*[]u%H%o**F*$\"3#=O)Q\"Q2 )*='F*7$$\"3t)p9E9vW,\"Fiw$\"35B*foC%yGdF*7$$\"3`'p*QAG%e-\"Fiw$\"3w`8 ]CvJ(G&F*7$$\"3Hxu7el!H.\"Fiw$\"3c([)pdN$fy%F*7$$\"3zfTeI@7M5Fiw$\"3** *)45lA].VF*7$$\"3)*e4&[rT%H5Fiw$\"3/Yf8:j\\'z$F*7$$\"3.gcf+>o=5Fiw$\"3 Vg]*>\\.pI$F*7$$\"3b:`/:,b+5Fiw$\"3rGWDFt06GF*7$$\"3'Q%\\1&)p`h(*F*$\" 3U#[*[t)H-O#F*7$$\"3-ig^/;\")Q%*F*$\"3&)Qz:r*yy$>F*7$$\"3eUOG\"3*)G/*F *$\"3Og=/L7$)p:F*7$$\"3VhH@rWA5')F*$\"3MRMb>$)G(G\"F*7$$\"3ON(3ef%oI!) F*$\"3@i7jV5'H/\"F*7$$\"3j'G\"e9fZMuF*$\"3yD*)4viy$4*F27$$\"3VS9/v!4cr 'F*$\"3_2-v[d>*p)F27$$\"36(GH(eFfSjF*$\"3ID%[,g%HJ*)F27$$\"3_K3qA@?XfF *$\"3O$=p*HOCg%*F27$$\"3cs$*p\"4Pt\\&F*$\"3'QdK\"zj0Q5F*7$$\"3ggL9)3Ba -&F*$\"3%yFUh$z\")o6F*-F\\^l6&F^^l$\"#5!\"\"F_^lF_^lFd^l-F$6%7XF[_l7$$ \"3e$HlvgWB_%F*$\"35=ShZ'>N1\"F*7$$\"3W4%)H^#\\j1%F*$\"3B>vneHY?**F27$ $\"3,e>#yl)\\1PF*$\"3Qi&H%ze;e&*F27$$\"3e+P'>co(zLF*$\"3+H]d%HRQU*F27$ $\"3O4-4)3!)*fFF*$\"3+]!4Q+k%*))*F27$$\"3c)3@J-r^]#F*$\"3]=T2X@;\\5F*7 $$\"3%=+q9P%\\'G#F*$\"3&yjeWn.<8\"F*7$$\"3+6A'>bvJ5#F*$\"3R2&o'f?NM7F* 7$$\"3GK$4$Qwc_>F*$\"3'pA^HRHeN\"F*7$$\"3>t!**)=-&3%=F*$\"3;ixt$3)*Q[ \"F*7$$\"3'>j4\">fyaF*7$$\"3gf/ExD!zk\"F*$\"3%[^K\\M#F*7$$\"3`U)*HK+=LF*$\"3:uG]o_QEKF*7$$\"3B%30qdlo6#F*$\"3K!3h-Pg]k$ F*7$$\"3C'3=(**R+;CF*$\"3@l*\\Kw[K7%F*7$$\"3%4?_>xm3x#F*$\"3-BnM1SD-YF *7$$\"3-?0_I`ubJF*$\"3ScSDX$Q^0&F*7$$\"33C%[wv')[`$F*$\"3_SYBwvB`aF*7$ $\"3QU%GU)p@9SF*$\"3h*4Z]K7P!fF*7$$\"3?w\\J]W,QWF*$\"3gaMll^!4E'F*7$$ \"3q)yKoJrR%\\F*$\"35%>!Hlw\"Gk'F*7$$\"3Sete_GQ(R&F*$\"35@T7GGjYpF*7$$ \"3/:/7XRO%*eF*$\"3H>&y7'o%*QsF*7$$\"3Y&4REw]8O'F*$\"3wsqn>7;uuF*7$$\" 3&HF#)=Pzi$oF*$\"3QjC+!Q_=n(F*7$$\"3y!zc=WxlD(F*$\"3f_,z=9[3yF*7$$\"3? H\\&[?G\")o(F*$\"3PCPXZz11zF*7$$\"3KG:s%y/v5)F*$\"31*G\"z_-h^zF*7$$\"3 YXy(pZs[W)F*$\"31H&edoTX%zF*7$$\"3S1.PTdtw()F*$\"33!e*er:>))yF*7$$\"3S LUGIWn!3*F*$\"3!zLY2Hivx(F*7$$\"3R]\"z!ojhO$*F*$\"3As-[LK4>wF*7$$\"3x0 %)4gkoU&*F*$\"3b9\\3!fU-U(F*7$$\"3)*H2le8(4s*F*$\"3E9'\\[(pt\\rF*7$$\" 33#Qv/T`Q$)*F*$\"3k_9@Q91loF*7$$\"3jB#4U[EK!**F*$\"3'38WP'*e9_'F*7$$\" 3)\\&)yLJK$>**F*$\"315y8pX_yhF*7$$\"3!*Hc+&Ru^))*F*$\"3U$*>A&>@Sx&F*7$ $\"3=#)z%49aJ!)*F*$\"3-.i\"f'HzH\\F* 7$$\"3g&)RE&*G))z%*F*$\"3o4*>BGnu[%F*7$$\"3N1!RmbL>B*F*$\"3+?6a%)\\I>S F*7$$\"36Nsj2R?U*)F*$\"3s?(e\"oh CJF*7$$\"3cC*GOz_I?)F*$\"3tEb13M=,FF*7$$\"3Q%\\Xj?59!yF*$\"3D67$3Y9&QB F*7$$\"3!oX*\\OlB&H(F*$\"3gFX@P='R'>F*7$$\"3?H\\b.W_.oF*$\"3;OUD;I&fn \"F*7$$\"3D\"y:iLRF*$\"3+++N$Gx!3MF*-F\\^l6&F^^lF_^lF_^lFa^l -F$6$7$F^`n7$$\"3+++8')yS_#)F*$\"3+++h7I%R&zF*Fc`n-F$6$7$Fh`n7$$\"3+++ xsc)*=**F*$\"3+++[0()z%H'F*Fc`n-F$6$7$F`anF[_lFc`n-%'POINTSG6)7$$\"+%3 Ba-&Fg^l$\"+Pz\")o6Fg^l7$$\"+cn`!*>Fg^l$\"+$Gx!3MFg^l7$$\"+')yS_#)Fg^l $\"+8I%R&zFg^l7$$\"+tc)*=**Fg^l$\"+0()z%H'Fg^lF[bnFc`n-%'SYMBOLG6#%'CI RCLEG-%+AXESLABELSG6%Q!6\"Ffcn-%%FONTG6#%(DEFAULTG-%(SCALINGG6#%,CONST RAINEDG-%*AXESSTYLEG6#%%NONEG-%%VIEWG6$F[dnF[dn" 1 2 0 1 10 0 2 9 1 1 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curv e 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" }}{MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "n:=6: a:=[seq(rand(),k=1..n) ]:b:=[seq(rand(),k=1..n)]: randomize:\nlagrange(a,b);" }}{PARA 7 "" 1 "" {TEXT -1 33 "Warning, computation interrupted\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6--%'CURVESG6%7]o7$$\"3!\\+IZ4NZX)!\"'$\"3++++$R&47vF*7$$ \"3iCxk'o@g9*F*$\"3O+mrN$))\\P(F*7$$\"3Ecw*3Ooka*F*$\"3!3Kc(yOIusF*7$$ \"3#*G'>%\\9V(p*F*$\"3ux@*zO-OA(F*7$$\"3=,Ps6\\J*z*F*$\"3E-t_7YDwrF*7$ $\"3pz;X3h3L)*F*$\"3!**)e)HbvM:(F*7$$\"3)Hah0!>pb)*F*$\"3'*G%)HkyGJrF* 7$$\"3e^.a2dan)*F*$\"38h,i])3'4rF*7$$\"3Wt-?Vc0p)*F*$\"3Kuh,=wN)3(F*7$ $\"339pxruog)*F*$\"3wX1?=PbnqF*7$$\"3I/p/(QkG%)*F*$\"39,u&=+>q/(F*7$$ \"3T;V\\dI(f\")*F*$\"3MSjNR!zm-(F*7$$\"3)oHzg%\\R!y*F*$\"3E*)R'*o6Y1qF *7$$\"3%4Y_c%>r#p*F*$\"3e)GB#3a0ppF*7$$\"3)o/G#eH!)y&*F*$\"3&z*G\"G-\" RJpF*7$$\"3E1RFh&G$p#*F*$\"37$oZMj.3&oF*7$$\"3#R+4v()[>'))F*$\"33oAE*y K3w'F*7$$\"3/d%3lAcuQ)F*$\"3IvrvLVy%3)HkF*7$$\"3)HHIGDF@w'F*$\"31%*Q+Nc%HG' F*7$$\"3msW.vU*e<'F*$\"3B#GM(Rk&e6'F*7$$\"3#GQx$p%QMi&F*$\"3O=84^D3NfF *7$$\"3s6&\\*z;gU^F*$\"3)fiO41RNv&F*7$$\"3Z!)\\:-1@3YF*$\"3MpgVrk$e^&F *7$$\"3%4'*H_kjd>%F*$\"3)=<@)H\"GgH&F*7$$\"3/dMaf_ZrPF*$\"3UKKL;&G'>]F *7$$\"3'['RFq\">BX$F*$\"3#>YL-Fbsv%F*7$$\"3K?LS,nIpJF*$\"3i*fR1j`;X%F* 7$$\"3w=#>9p/)pHF*$\"3K`Y))=+8XTF*7$$\"3QM-zh&y\"QGF*$\"3nI9?4#[9\"QF* 7$$\"3woz%fv4$)y#F*$\"3]HFHyp#\\\\$F*7$$\"31*yy^M#)=\"GF*$\"3sX=m3KlXJ F*7$$\"319>hD)48#HF*$\"3'e]$\\<](zx#F*7$$\"3QfL([;&*e3$F*$\"3=$*Ha)*HK dCF*7$$\"3)oa&)4-:QL$F*$\"3&\\% o'QFjw7$$\"3\"yDC2;wQq'F*$\"3c^.c %eMCI#Fjw7$$\"3p/)>[3*>FtF*$\"3g38%*4g'R7\"Fjw7$$\"3vVt.%*y)4\"zF*$\"3 v=#*>0B\"e\"f!\")7$$\"38y+D!f@R])F*$\"31kcb>gNarFdy7$$\"3Ec^xnrB^!*F*$ \"3K?3R#>VOf\"Fjw7$$\"3++]F;Y2s&*F*$\"3cEs5veJ6MFjw7$$\"3MFSAzn[+5!\"& $\"3`W\"[:8pt7'Fjw7$$\"3%[@#3>xuN5Fgz$\"3#*GY*zQA\"))**Fjw7$$\"3;g6)yr 4'f5Fgz$\"3RvZpZ&[0]\"F*7$$\"3YIPtM9Dm5Fgz$\"3#G8\"R:Zzt17(F*7$$ \"3)=#*HZ4NZX)F*F+-%'COLOURG6&%$RGBG$\"\"!F]`l$\"*++++\"FdyF\\`l-%*THI CKNESSG6#\"\"#-F$6%7en7$$\"3+++t%4NZX)F*F+7$$\"3K0#p(H(46@)F*$\"3X$Gpc XWRC(F*7$$\"34j@ciW;LzF*$\"3a1ni.*3Q,(F*7$$\"3muxrZ#[Bc(F*$\"3iq[&*[D1 dnF*7$$\"32TLZ1N%>9(F*$\"3kr'\\/dT%*\\'F*7$$\"3s#y*3a\\I\"p'F*$\"3tn1d t&HEC'F*7$$\"3#=g]T#HvciF*$\"3[!**3.q\\K+'F*7$$\"3E(o5o\\W4!eF*$\"3=*R g#*fRLv&F*7$$\"3X0Pm!)oGM`F*$\"33@A\\x82#\\&F*7$$\"3!ebm8h(R%)[F*$\"3I 3NX[_LG_F*7$$\"3eLvM_JoZWF*$\"3')z*z)*)HJ`\\F*7$$\"3a^foV&pB4%F*$\"3\\ Z0RpB&yq%F*7$$\"3sOE8'p&yKPF*$\"3b#[E'e\")*zU%F*7$$\"3]J&yX*>&=U$F*$\" 3\\qy\"4$=_VTF*7$$\"3)Qf]bp!pvJF*$\"35CG'*y>amQF*7$$\"3(y1x\"Q'Q<+$F*$ \"3!4Uc^JJJh$F*7$$\"3Oq$QKhL0'GF*$\"3o]W(*)f7.J$F*7$$\"3[o?h$QB%*z#F*$ \"3=^\\e(GsL0$F*7$$\"3)3-U5yA#)z#F*$\"3)QN)[![P_v#F*7$$\"3'*y@or)z5'GF *$\"3g\"p1&e0A$\\#F*7$$\"3Kb/+r-c**HF*$\"3sDH_XPK4AF*7$$\"3U1sh5&)f)>$ F*$\"3N`lIL65W>F*7$$\"3E&)[(yVSZZ$F*$\"3%zI!zv9iu;F*7$$\"3#zs'[mI*yy$F *$\"3(4Op/@FbV\"F*7$$\"3qLqQ@Ya'=%F*$\"3)GK0\")*zz)=\"F*7$$\"3_d*GhjWJ m%F*$\"31-'zJaCSZ*Fjw7$$\"3$**zmy\"H\\D^F*$\"3rg1S&f$G>vFjw7$$\"33$*yA b83pcF*$\"3k7[!o\")>qe&Fjw7$$\"3)3!fT\"e*>siF*$\"3)z'oliiP:QFjw7$$\"3# )ydjQ*)yQCG\"Fgz$\"3!pi')*4nJ)e#F*7$$\"3Y?(pnF<6F\"Fgz$ \"3Gt%Ru2%Q&)GF*7$$\"31?Qs4OD`7Fgz$\"3m^z9.G7]KF*7$$\"3'z!pXkH')H7Fgz$ \"3'*\\\\NV!=;k$F*7$$\"33h8wWG*R?\"Fgz$\"3/4bKv/<:SF*7$$\"3Yss#Gi,K<\" Fgz$\"3)GXv_E%[6WF*7$$\"3G))\\rTvnM6Fgz$\"3MW/(*)RY)f[F*7$$\"3c>R>;G)* *3\"Fgz$\"3h$p*e)zKcL&F*7$$\"3]WvT+7.h'F*7$$\"3WO tf__/(>*F*$\"3/Op#eEXF!pF*7$$\"3=`d:&)>\"f$))F*$\"3DL.ns2I.sF*7$$\"3!z 3:z3NZX)F*$\"30t)\\%)R&47vF*-Fi_l6&F[`l$\"#5!\"\"F\\`lF\\`lF``l-F$6$7$ Fg`l7$$\"3+++U$)yqknF*$\"3+++6IWj$G'F*-Fi_l6&F[`lF\\`lF\\`lF^`l-F$6$7$ Fjbm7$$\"3+++\">z(Q8GF*$\"3+++Ql3YPJF*F_cm-F$6$7$Fdcm7$$\"3+++$R+f\\#z F*$\"3++++8\\mieFdyF_cm-F$6$7$F\\dmFg`lF_cm-%'POINTSG6)7$$\"+&4NZX)Fc` l$\"+$R&47vFc`l7$$\"+$)yqknFc`l$\"+IWj$G'Fc`l7$$\"+#z(Q8GFc`l$\"+l3YPJ Fc`l7$$\"+/!f\\#zFc`l$\"+8\\mieF]`lFgdmF_cm-%'SYMBOLG6#%'CIRCLEG-%+AXE SLABELSG6%Q!6\"Fbfm-%%FONTG6#%(DEFAULTG-%(SCALINGG6#%,CONSTRAINEDG-%*A XESSTYLEG6#%%NONEG-%%VIEWG6$FgfmFgfm" 1 2 0 1 10 0 2 9 1 1 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7)\"-\">z(Q8G\"-$R+f\\#z\"-+$R&47v \"-6IWj$G'\"-Ql3YPJ\"+8\\mieF$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "5 2 0" 2 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }