{VERSION 6 0 "IBM INTEL NT" "6.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 "Text Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 2 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 "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{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 29 "restart;with(LinearA lgebra):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 271 "#Rate of HIV infection among pregnant women in South Africa (in percent) for years 1990 to 2007. Source: http://en.wikipedia.org/wiki/HIV/AIDS_in_South_ Africa\nhiv := [0.7,\0111.7,\0112.2,\0114.0,\0117.6,\01110.4,\01114.2, \01117.0,\01122.8,\01122.4,\01124.5,\01124.8,\01126.5,\01127.9,\01129. 5,\01130.2,\01129.1,\01128.0];\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>% $hivG74$\"\"(!\"\"$\"# " 0 "" {MPLTEXT 1 0 15 "n := no ps(hiv);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"#=" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "for i from 1 to nops(hiv) do\nx[i] \+ := i-1; y[i] := hiv[i]; end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "plot([seq([x[i],y[i]], i=1..n)],style=point);" }}{PARA 13 "" 1 " " {GLPLOT2D 392 392 392 {PLOTDATA 2 "6&-%'CURVESG6$747$$\"\"!F)$\"3a** ************p!#=7$$\"\"\"F)$\"3%**************p\"!#<7$$\"\"#F)$\"3;+++ ++++AF27$$\"\"$F)$\"\"%F)7$F;$\"3k*************f(F27$$\"\"&F)$\"3/++++ ++S5!#;7$$\"\"'F)$\"3$*************>9FE7$$\"\"(F)$\"#IFE7$$\"# ;F)$\"39++++++5HFE7$FN$\"#GF)-%'COLOURG6&%$RGBG$\"*++++\"!\")F(F(-%&ST YLEG6#%&POINTG-%+AXESLABELSG6$Q!6\"Fhq-%%VIEWG6$%(DEFAULTGF]r" 1 5 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 31 "a := 30.0: b := 0.5: c := -3 .0:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "plot([seq([x[i],y[i ]], i=1..n)],style=point):\nplot(a*(0.5+0.5*tanh(x*b+c)),x=0..x[n]):pl ots[display](%%,%);" }}{PARA 13 "" 1 "" {GLPLOT2D 392 392 392 {PLOTDATA 2 "6&-%'CURVESG6%747$$\"\"!F)$\"3a**************p!#=7$$\"\" \"F)$\"3%**************p\"!#<7$$\"\"#F)$\"3;+++++++AF27$$\"\"$F)$\"\"% F)7$F;$\"3k*************f(F27$$\"\"&F)$\"3/++++++S5!#;7$$\"\"'F)$\"3$* ************>9FE7$$\"\"(F)$\"#IFE7$$\"#;F)$\"39++++++5HFE7$FN$ \"#GF)-%'COLOURG6&%$RGBG$\"*++++\"!\")F(F(-%&STYLEG6#%&POINTG-F$6$7S7$ F($\"3_.V!*p%pyT(!#>7$$\"3!pC`ZWF27$$\"3A++]P!)y>YF2$\"3K4*\\Sz[#HgF27$$\"3o++]Z/fu\\F 2$\"3idEhl2D>zF27$$\"3;L$ek-&y'H&F2$\"3Git@zV*H$**F27$$\"3/nm;Wb!*zcF2 $\"31J+C&=e>E\"FE7$$\"3*ommm()eW+'F2$\"3J;%f>:WL]\"FE7$$\"3i+]7e:*>Q'F 2$\"3'=G$yd+1$y\"FE7$$\"3Zmmm^><;nF2$\"3P&p4_\\!H:?FE7$$\"3e+]733#G3(F 2$\"3x(3y9F#3TAFE7$$\"3&4+vVAd>V(F2$\"3?nsZs#=;U#FE7$$\"3#zm;zWWiz(F2$ \"3ah\"*3xM2tDFE7$$\"3Zo;HPQxI\")F2$\"3kP^wY`d\"o#FE7$$\"3uKL3x*3;\\)F 2$\"3)R-E;Wa1x#FE7$$\"3]L$ekF:k'))F2$\"3* F2$\"3Q0KiUUn\")GFE7$$\"3WMLe%yl]a*F2$\"3%)*)eea&He\"HFE7$$\"3=*****\\ M4\"4**F2$\"3*=1=S?35%HFE7$$\"3)***\\i%\\Dl-\"FE$\"3#\\=Y`+R%eHFE7$$\" 37+D\"GT%)41\"FE$\"3)e^:2Dv*HFE7$$\" 3kmmTD_!\\M\"FE$\"3q_%fn.b#)*HFE7$$\"3-+DJqD^\"Q\"FE$\"39B&)=O(*y)*HFE 7$$\"3aLLL%zpnT\"FE$\"3%*zmYI#\\\"**HFE7$$\"3]L$3#)RDGX\"FE$\"3Qj$esr1 %**HFE7$$\"3!p;zMW#e)[\"FE$\"3/wv9\\]e**HFE7$$\"36++]a%R9_\"FE$\"3GdXa V7q**HFE7$$\"3'omTqH(4f:FE$\"3k)QI`)\\z**HFE7$$\"3[LLL?*yFf\"FE$\"3GA` X3O&)**HFE7$$\"3&**\\7eb!pG;FE$\"3'z*)*Gux*)**HFE7$$\"3++v=tD1j;FE$\"3 [_jB3v#***HFE7$FN$\"3mbWt&*)\\***HFEFjp-%+AXESLABELSG6%Q\"x6\"Q!F^al-% %FONTG6#%(DEFAULTG-%%VIEWG6$;F(FNFcal" 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 8 "to 10 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "R := Matrix(n,1):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 200 "DR := M atrix(n, 3):\nfor i from 1 to n do\nR[i,1] := a*(0.5+0.5*tanh(x[i]*b+c ))-y[i];\nDR[i,1] := (0.5+0.5*tanh(x[i]*b+c));\nDR[i,2] := a*0.5*sech( x[i]*b+c)^2*x[i];\nDR[i,3] := a*0.5*sech(x[i]*b+c)^2;\nend:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "F := Transpose(DR).R;" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 22 "M := Transpose(DR).DR;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "s := LinearSolve(M, -F);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "a := a+s[1,1]; b := b+s[2,1]; c := c+s[3,1];" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "lprint(a,b,c);\nend:" }}{PARA 6 "" 1 "" {TEXT -1 38 "27.96206034, .1928599300, -1.147491220" }}{PARA 6 " " 1 "" {TEXT -1 38 "28.75333390, .2486809721, -1.535610504" }}{PARA 6 "" 1 "" {TEXT -1 38 "28.83481114, .2555400776, -1.579509890" }}{PARA 6 "" 1 "" {TEXT -1 38 "28.82743443, .2557289206, -1.579465297" }} {PARA 6 "" 1 "" {TEXT -1 38 "28.82642165, .2557801164, -1.579706774" } }{PARA 6 "" 1 "" {TEXT -1 38 "28.82630116, .2557842721, -1.579720074" }}{PARA 6 "" 1 "" {TEXT -1 38 "28.82628751, .2557848484, -1.579722437 " }}{PARA 6 "" 1 "" {TEXT -1 38 "28.82628593, .2557849087, -1.57972265 9" }}{PARA 6 "" 1 "" {TEXT -1 38 "28.82628575, .2557849158, -1.5797226 87" }}{PARA 6 "" 1 "" {TEXT -1 38 "28.82628573, .2557849167, -1.579722 691" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "plot([seq([x[i],y[i ]], i=1..n)],style=point):\nplot(a*(0.5+0.5*tanh(x*b+c)),x=0..x[n]):pl ots[display](%%,%);" }}{PARA 13 "" 1 "" {GLPLOT2D 392 392 392 {PLOTDATA 2 "6&-%'CURVESG6%747$$\"\"!F)$\"3a**************p!#=7$$\"\" \"F)$\"3%**************p\"!#<7$$\"\"#F)$\"3;+++++++AF27$$\"\"$F)$\"\"% F)7$F;$\"3k*************f(F27$$\"\"&F)$\"3/++++++S5!#;7$$\"\"'F)$\"3$* ************>9FE7$$\"\"(F)$\"#IFE7$$\"#;F)$\"39++++++5HFE7$FN$ \"#GF)-%'COLOURG6&%$RGBG$\"*++++\"!\")F(F(-%&STYLEG6#%&POINTG-F$6$7S7$ F($\"33\"[NI!p#Q<\"F27$$\"3F27$$\"3bLL3A)[0U \"F2$\"3<6=k;udEBF27$$\"3gm;HAp!Qy\"F2$\"3c!Gcx#)ziv#F27$$\"3FL$e9o$f? @F2$\"3-Bp4PMQd/TyF27$$\"3A++]P!)y>YF2$\"3?7bwLH%4'*)F27$$\"3o++]Z/fu \\F2$\"3$=3R'ek$=,\"FE7$$\"3;L$ek-&y'H&F2$\"3@8$[O9SD7\"FE7$$\"3/nm;Wb !*zcF2$\"3%fi,XH.%f7FE7$$\"3*ommm()eW+'F2$\"3!z$yY407y8FE7$$\"3i+]7e:* >Q'F2$\"3ot#egQ$><:FE7$$\"3Zmmm^><;nF2$\"3%HIZ\\$p?R;FE7$$\"3e+]733#G3 (F2$\"3Ij$>!GiwpV(F2$\"3Um* F2$\"3M#RP2b0^P#FE7$$\"3WMLe%yl]a*F2$\"31Rk`dm9YCFE7$$\"3=*****\\M4\"4 **F2$\"3\"z)>[ncu5DFE7$$\"3)***\\i%\\Dl-\"FE$\"3W\"yztD!)ec#FE7$$\"37+ D\"GT%)41\"FE$\"3tm+VW7F7EFE7$$\"3)***\\Pm^C*4\"FE$\"3EHT3nDccEFE7$$\" 3bmm;bTiL6FE$\"3?9K3hDf!p#FE7$$\"39++vj5Lq6FE$\"3m3Q\\IPj@FFE7$$\"3ELe kyHf.7FE$\"3s/8i8riXFFE7$$\"38++DPq&*R7FE$\"3Ed$ya*y&zw#FE7$$\"3qm\"zC ysTF\"FE$\"37xF?gAv&y#FE7$$\"35+D1&4Q*48FE$\"3(**3?#)H%\\,GFE7$$\"3kmm TD_!\\M\"FE$\"3l*39$\\%pW\"GFE7$$\"3-+DJqD^\"Q\"FE$\"3X`NUV1)e#GFE7$$ \"3aLLL%zpnT\"FE$\"3)f\\%f(e\"4NGFE7$$\"3]L$3#)RDGX\"FE$\"35s7O@&))H%G FE7$$\"3!p;zMW#e)[\"FE$\"3_lH8o*Q&\\GFE7$$\"36++]a%R9_\"FE$\"3I)e`f!)3 Y&GFE7$$\"3'omTqH(4f:FE$\"3MqpMv\"z%fGFE7$$\"3[LLL?*yFf\"FE$\"3id$=xS= J'GFE7$$\"3&**\\7eb!pG;FE$\"3ir5VZUPmGFE7$$\"3++v=tD1j;FE$\"3E(RCBx#)* oGFE7$FN$\"3#pRK[5B8(GFEFjp-%+AXESLABELSG6%Q\"x6\"Q!F]al-%%FONTG6#%(DE FAULTG-%%VIEWG6$;F(FNFbal" 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 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {MARK "10 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }