{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 1 12 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 1 12 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 256 "Geneva" 1 18 0 0 0 1 0 1 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 257 "Geneva" 1 10 0 0 0 1 0 1 0 0 0 0 0 0 0 1 }{CSTYLE " " -1 258 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 259 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 260 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 261 "Geneva" 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 262 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 263 "Geneva" 1 10 0 0 0 1 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 264 "Geneva" 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 265 "Geneva" 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE " " -1 266 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 267 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 268 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 269 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 270 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 271 "Geneva" 0 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 272 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 273 "Geneva" 0 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 274 "G eneva" 0 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 275 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 276 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 277 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 278 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 279 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 280 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 281 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 282 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 283 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 284 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 285 "Geneva" 1 12 0 0 0 1 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 286 "Gene va" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 287 "Geneva" 1 12 0 0 0 1 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 288 "Geneva" 1 12 0 0 0 1 0 0 0 0 0 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Geneva " 1 9 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 "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Geneva" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 6 6 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 2" -1 4 1 {CSTYLE "" -1 -1 "Geneva" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 4 4 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 "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 Out put" -1 11 1 {CSTYLE "" -1 -1 "Geneva" 1 9 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 "Geneva" 1 9 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 }{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 "Geneva" 1 18 0 0 0 1 2 1 1 2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 2 2 19 1 }{PSTYLE "Author " -1 19 1 {CSTYLE "" -1 -1 "Geneva" 1 9 0 0 0 1 2 2 2 2 2 2 1 1 1 1 } 3 1 0 0 8 8 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Monaco" 1 9 0 0 255 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 "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Monaco" 1 9 255 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 "R 3 Font 3" -1 258 1 {CSTYLE "" -1 -1 "Geneva" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Font 4" -1 259 1 {CSTYLE "" -1 -1 "Geneva" 1 10 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Font 5" -1 260 1 {CSTYLE "" -1 -1 "Gene va" 1 10 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 "Heading 1" -1 261 1 {CSTYLE "" -1 -1 "Geneva" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }3 1 0 0 6 6 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 262 1 {CSTYLE "" -1 -1 "Geneva" 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 }} {SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT 256 24 "\011\011\011\011Linear A pproximation" }{TEXT 257 1 "\n" }}}{EXCHG {PARA 19 "" 0 "" {TEXT 269 24 "Version .92 for MapleVR7" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 7 "S ummary" }}{EXCHG {PARA 256 "" 0 "" {TEXT 263 281 " This worksheet cove rs some examples of:\n \011tangent planes.\n tangent line s.\n efficient generation of the linear approximation at a poin t to a \n function using Maple.\n comparison of a functi on from R^2 to R^2 with its linear \n \011approximation." }}}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "with(plots): with(plottools) :" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has b een redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "setoptio ns3d(axes=framed);" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT 264 12 "A Parablo id." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "graph1 := plot3d(x^2+ y^2,x=-2..2,y=-2..2,view= -3..3,style=patchcontour):" }}}{EXCHG {PARA 256 "" 0 "" {TEXT 258 34 "The tangent plane through (1,1,2)." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "graph2 := plot3d(2*x+2*y-2,x=-2..2,y=-2.. 2,grid=[5,5],style=wireframe):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "point1 := polyhedraplot([1,1,2],polyscale=.1,polytype=hexahedr on,color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "display3d (\{point1,graph1,graph2\},axes=framed,orientation=[52,18]);" }}{PARA 13 "" 1 "" {GLPLOT3D 400 300 300 {PLOTDATA 3 "6)-%)POLYGONSG6)7&7%$\"# 6!\"\"F($\"#@F*7%$\"\"*F*F(F+7%F.F.F+7%F(F.F+7&F'F17%F(F.$\"#>F*7%F(F( F47&F'F67%F.F(F4F-7&F-F87%F.F.F4F07&F:F8F6F37&F0F:F3F1-%'COLOURG6&%$RG BG$\"*++++\"!\")$\"\"!FEFD-%%GRIDG6&;$!\"#FE$\"\"#FEFIX,%)anythingG6\" 6\"[gl'!%\"!!#\\bm\":\":4020000000000000401D71C71C71C71C401B1C71C71C71 C6401900000000000040171C71C71C71C6401571C71C71C71C4013FFFFFFFFFFFF4012 C71C71C71C714011C71C71C71C714011000000000000401071C71C71C71C40101C71C7 1C71C7401000000000000040101C71C71C71C7401071C71C71C71D4011000000000000 4011C71C71C71C724012C71C71C71C724014000000000000401571C71C71C71D40171C 71C71C71C84019000000000001401B1C71C71C71C8401D71C71C71C71E402000000000 0001401D71C71C71C71C401AE38E38E38E3840188E38E38E38E2401671C71C71C71C40 148E38E38E38E24012E38E38E38E38401171C71C71C71B401038E38E38E38D400E71C7 1C71C71B400CE38E38E38E38400BC71C71C71C71400B1C71C71C71C6400AE38E38E38E 38400B1C71C71C71C6400BC71C71C71C71400CE38E38E38E38400E71C71C71C71C4010 38E38E38E38E401171C71C71C71C4012E38E38E38E3940148E38E38E38E4401671C71C 71C71D40188E38E38E38E4401AE38E38E38E3A401D71C71C71C71E401B1C71C71C71C6 40188E38E38E38E2401638E38E38E38D40141C71C71C71C6401238E38E38E38D40108E 38E38E38E2400E38E38E38E38C400BC71C71C71C704009C71C71C71C70400838E38E38 E38C40071C71C71C71C6400671C71C71C71B400638E38E38E38D400671C71C71C71B40 071C71C71C71C6400838E38E38E38D4009C71C71C71C71400BC71C71C71C71400E38E3 8E38E38D40108E38E38E38E3401238E38E38E38E40141C71C71C71C8401638E38E38E3 8E40188E38E38E38E4401B1C71C71C71C84019000000000000401671C71C71C71C4014 1C71C71C71C64011FFFFFFFFFFFF40101C71C71C71C6400CE38E38E38E364009FFFFFF FFFFFE40078E38E38E38E240058E38E38E38E24003FFFFFFFFFFFE4002E38E38E38E38 400238E38E38E38D4001FFFFFFFFFFFF400238E38E38E38D4002E38E38E38E384003FF FFFFFFFFFF40058E38E38E38E340078E38E38E38E34009FFFFFFFFFFFF400CE38E38E3 8E3840101C71C71C71C7401200000000000040141C71C71C71C8401671C71C71C71E40 1900000000000240171C71C71C71C640148E38E38E38E2401238E38E38E38D40101C71 C71C71C6400C71C71C71C71940091C71C71C71C4400638E38E38E38B4003C71C71C71C 6F4001C71C71C71C6F400038E38E38E38C3FFE38E38E38E38A3FFCE38E38E38E353FFC 71C71C71C7193FFCE38E38E38E363FFE38E38E38E38B400038E38E38E38D4001C71C71 C71C704003C71C71C71C70400638E38E38E38C40091C71C71C71C6400C71C71C71C71C 40101C71C71C71C7401238E38E38E38E40148E38E38E38E440171C71C71C71C8401571 C71C71C71C4012E38E38E38E3840108E38E38E38E2400CE38E38E38E3640091C71C71C 71C44005C71C71C71C6E4002E38E38E38E36400071C71C71C71A3FFCE38E38E38E343F F9C71C71C71C6D3FF78E38E38E38DF3FF638E38E38E38A3FF5C71C71C71C6E3FF638E3 8E38E38B3FF78E38E38E38E03FF9C71C71C71C6E3FFCE38E38E38E36400071C71C71C7 1B4002E38E38E38E374005C71C71C71C7040091C71C71C71C6400CE38E38E38E394010 8E38E38E38E44012E38E38E38E3A401571C71C71C71E4013FFFFFFFFFFFF401171C71C 71C71B400E38E38E38E38C4009FFFFFFFFFFFE400638E38E38E38B4002E38E38E38E36 3FFFFFFFFFFFFFFA3FFB1C71C71C71C23FF71C71C71C71C23FF3FFFFFFFFFFFC3FF1C7 1C71C71C6E3FF071C71C71C7193FEFFFFFFFFFFFFA3FF071C71C71C71A3FF1C71C71C7 1C6F3FF3FFFFFFFFFFFE3FF71C71C71C71C43FFB1C71C71C71C43FFFFFFFFFFFFFFD40 02E38E38E38E38400638E38E38E38E400A000000000000400E38E38E38E38E401171C7 1C71C71D40140000000000014012C71C71C71C71401038E38E38E38D400BC71C71C71C 7040078E38E38E38E24003C71C71C71C6F400071C71C71C71A3FFB1C71C71C71C23FF6 38E38E38E38A3FF238E38E38E38A3FEE38E38E38E3883FE9C71C71C71C6C3FE71C71C7 1C71C23FE638E38E38E38A3FE71C71C71C71C33FE9C71C71C71C6E3FEE38E38E38E38B 3FF238E38E38E38C3FF638E38E38E38C3FFB1C71C71C71C5400071C71C71C71C4003C7 1C71C71C7240078E38E38E38E4400BC71C71C71C72401038E38E38E38F4012C71C71C7 1C734011C71C71C71C71400E71C71C71C71B4009C71C71C71C7040058E38E38E38E240 01C71C71C71C6F3FFCE38E38E38E343FF71C71C71C71C23FF238E38E38E38A3FEC71C7 1C71C7163FE638E38E38E3893FE1C71C71C71C6E3FDE38E38E38E3873FDC71C71C71C7 163FDE38E38E38E3893FE1C71C71C71C703FE638E38E38E38C3FEC71C71C71C71A3FF2 38E38E38E38D3FF71C71C71C71C63FFCE38E38E38E384001C71C71C71C7240058E38E3 8E38E54009C71C71C71C73400E71C71C71C71F4011C71C71C71C734011000000000000 400CE38E38E38E38400838E38E38E38C4003FFFFFFFFFFFE400038E38E38E38C3FF9C7 1C71C71C6D3FF3FFFFFFFFFFFC3FEE38E38E38E3883FE638E38E38E3893FDFFFFFFFFF FFF83FD71C71C71C71C13FD1C71C71C71C6D3FCFFFFFFFFFFFF83FD1C71C71C71C6F3F D71C71C71C71C53FDFFFFFFFFFFFFE3FE638E38E38E38D3FEE38E38E38E38D3FF3FFFF FFFFFFFF3FF9C71C71C71C72400038E38E38E38E4004000000000002400838E38E38E3 90400CE38E38E38E3C4011000000000002401071C71C71C71C400BC71C71C71C714007 1C71C71C71C64002E38E38E38E383FFE38E38E38E38A3FF78E38E38E38DF3FF1C71C71 C71C6E3FE9C71C71C71C6C3FE1C71C71C71C6E3FD71C71C71C71C13FCC71C71C71C714 3FC1C71C71C71C6C3FBC71C71C71C7143FC1C71C71C71C703FCC71C71C71C71C3FD71C 71C71C71C73FE1C71C71C71C723FE9C71C71C71C723FF1C71C71C71C713FF78E38E38E 38E43FFE38E38E38E38F4002E38E38E38E3B40071C71C71C71C9400BC71C71C71C7540 1071C71C71C71E40101C71C71C71C7400B1C71C71C71C6400671C71C71C71B400238E3 8E38E38D3FFCE38E38E38E353FF638E38E38E38A3FF071C71C71C7193FE71C71C71C71 C23FDE38E38E38E3873FD1C71C71C71C6D3FC1C71C71C71C6C3FAC71C71C71C70C3F9C 71C71C71C70C3FAC71C71C71C71C3FC1C71C71C71C743FD1C71C71C71C733FDE38E38E 38E38F3FE71C71C71C71C73FF071C71C71C71C3FF638E38E38E38F3FFCE38E38E38E3A 400238E38E38E390400671C71C71C71E400B1C71C71C71CA40101C71C71C71C9401000 0000000000400AE38E38E38E38400638E38E38E38D4001FFFFFFFFFFFF3FFC71C71C71 C7193FF5C71C71C71C6E3FEFFFFFFFFFFFFA3FE638E38E38E38A3FDC71C71C71C7163F CFFFFFFFFFFFF83FBC71C71C71C7143F9C71C71C71C70C39720000000000003F9C71C7 1C71C72C3FBC71C71C71C7243FD00000000000023FDC71C71C71C71E3FE638E38E38E3 8F3FF00000000000003FF5C71C71C71C733FFC71C71C71C71E40020000000000024006 38E38E38E390400AE38E38E38E3C401000000000000240101C71C71C71C7400B1C71C7 1C71C6400671C71C71C71B400238E38E38E38D3FFCE38E38E38E363FF638E38E38E38B 3FF071C71C71C71A3FE71C71C71C71C33FDE38E38E38E3893FD1C71C71C71C6F3FC1C7 1C71C71C703FAC71C71C71C71C3F9C71C71C71C72C3FAC71C71C71C72C3FC1C71C71C7 1C783FD1C71C71C71C753FDE38E38E38E3913FE71C71C71C71C83FF071C71C71C71D3F F638E38E38E3903FFCE38E38E38E3B400238E38E38E390400671C71C71C71E400B1C71 C71C71CA40101C71C71C71C9401071C71C71C71D400BC71C71C71C7140071C71C71C71 C64002E38E38E38E383FFE38E38E38E38B3FF78E38E38E38E03FF1C71C71C71C6F3FE9 C71C71C71C6E3FE1C71C71C71C703FD71C71C71C71C53FCC71C71C71C71C3FC1C71C71 C71C743FBC71C71C71C7243FC1C71C71C71C783FCC71C71C71C7243FD71C71C71C71CB 3FE1C71C71C71C743FE9C71C71C71C743FF1C71C71C71C723FF78E38E38E38E53FFE38 E38E38E3904002E38E38E38E3B40071C71C71C71C9400BC71C71C71C75401071C71C71 C71F4011000000000000400CE38E38E38E38400838E38E38E38D4003FFFFFFFFFFFF40 0038E38E38E38D3FF9C71C71C71C6E3FF3FFFFFFFFFFFE3FEE38E38E38E38B3FE638E3 8E38E38C3FDFFFFFFFFFFFFE3FD71C71C71C71C73FD1C71C71C71C733FD00000000000 023FD1C71C71C71C753FD71C71C71C71CB3FE00000000000023FE638E38E38E3903FEE 38E38E38E3903FF40000000000003FF9C71C71C71C74400038E38E38E38F4004000000 000002400838E38E38E390400CE38E38E38E3C40110000000000024011C71C71C71C72 400E71C71C71C71C4009C71C71C71C7140058E38E38E38E34001C71C71C71C703FFCE3 8E38E38E363FF71C71C71C71C43FF238E38E38E38C3FEC71C71C71C71A3FE638E38E38 E38D3FE1C71C71C71C723FDE38E38E38E38F3FDC71C71C71C71E3FDE38E38E38E3913F E1C71C71C71C743FE638E38E38E3903FEC71C71C71C71E3FF238E38E38E38F3FF71C71 C71C71C83FFCE38E38E38E3A4001C71C71C71C7340058E38E38E38E64009C71C71C71C 74400E71C71C71C7204011C71C71C71C744012C71C71C71C72401038E38E38E38E400B C71C71C71C7140078E38E38E38E34003C71C71C71C70400071C71C71C71B3FFB1C71C7 1C71C43FF638E38E38E38C3FF238E38E38E38D3FEE38E38E38E38D3FE9C71C71C71C72 3FE71C71C71C71C73FE638E38E38E38F3FE71C71C71C71C83FE9C71C71C71C743FEE38 E38E38E3903FF238E38E38E38F3FF638E38E38E38F3FFB1C71C71C71C8400071C71C71 C71D4003C71C71C71C7340078E38E38E38E6400BC71C71C71C74401038E38E38E39040 12C71C71C71C744014000000000000401171C71C71C71C400E38E38E38E38D4009FFFF FFFFFFFF400638E38E38E38C4002E38E38E38E373FFFFFFFFFFFFFFD3FFB1C71C71C71 C53FF71C71C71C71C63FF3FFFFFFFFFFFF3FF1C71C71C71C713FF071C71C71C71C3FF0 0000000000003FF071C71C71C71D3FF1C71C71C71C723FF40000000000003FF71C71C7 1C71C83FFB1C71C71C71C840000000000000004002E38E38E38E3A400638E38E38E38F 400A000000000002400E38E38E38E390401171C71C71C71E4014000000000002401571 C71C71C71D4012E38E38E38E3940108E38E38E38E3400CE38E38E38E3840091C71C71C 71C64005C71C71C71C704002E38E38E38E38400071C71C71C71C3FFCE38E38E38E383F F9C71C71C71C723FF78E38E38E38E43FF638E38E38E38F3FF5C71C71C71C733FF638E3 8E38E3903FF78E38E38E38E53FF9C71C71C71C743FFCE38E38E38E3A400071C71C71C7 1D4002E38E38E38E3A4005C71C71C71C7340091C71C71C71C8400CE38E38E38E3C4010 8E38E38E38E54012E38E38E38E3B401571C71C71C71F40171C71C71C71C840148E38E3 8E38E4401238E38E38E38E40101C71C71C71C7400C71C71C71C71C40091C71C71C71C6 400638E38E38E38E4003C71C71C71C724001C71C71C71C72400038E38E38E38E3FFE38 E38E38E38F3FFCE38E38E38E3A3FFC71C71C71C71E3FFCE38E38E38E3B3FFE38E38E38 E390400038E38E38E38F4001C71C71C71C734003C71C71C71C73400638E38E38E38F40 091C71C71C71C8400C71C71C71C71E40101C71C71C71C8401238E38E38E39040148E38 E38E38E640171C71C71C71CA4019000000000001401671C71C71C71D40141C71C71C71 C8401200000000000040101C71C71C71C7400CE38E38E38E39400A0000000000004007 8E38E38E38E440058E38E38E38E540040000000000024002E38E38E38E3B400238E38E 38E3904002000000000002400238E38E38E3904002E38E38E38E3B4004000000000002 40058E38E38E38E640078E38E38E38E6400A000000000002400CE38E38E38E3C40101C 71C71C71C8401200000000000240141C71C71C71C9401671C71C71C71F401900000000 0003401B1C71C71C71C840188E38E38E38E4401638E38E38E38E40141C71C71C71C840 1238E38E38E38E40108E38E38E38E4400E38E38E38E38E400BC71C71C71C724009C71C 71C71C73400838E38E38E39040071C71C71C71C9400671C71C71C71E400638E38E38E3 90400671C71C71C71E40071C71C71C71C9400838E38E38E3904009C71C71C71C74400B C71C71C71C74400E38E38E38E39040108E38E38E38E5401238E38E38E39040141C71C7 1C71C9401638E38E38E39040188E38E38E38E6401B1C71C71C71CA401D71C71C71C71E 401AE38E38E38E3A40188E38E38E38E4401671C71C71C71E40148E38E38E38E44012E3 8E38E38E3A401171C71C71C71D401038E38E38E38F400E71C71C71C71F400CE38E38E3 8E3C400BC71C71C71C75400B1C71C71C71CA400AE38E38E38E3C400B1C71C71C71CA40 0BC71C71C71C75400CE38E38E38E3C400E71C71C71C720401038E38E38E390401171C7 1C71C71E4012E38E38E38E3B40148E38E38E38E6401671C71C71C71F40188E38E38E38 E6401AE38E38E38E3C401D71C71C71C7204020000000000001401D71C71C71C71E401B 1C71C71C71C8401900000000000240171C71C71C71C8401571C71C71C71E4014000000 0000014012C71C71C71C734011C71C71C71C734011000000000002401071C71C71C71E 40101C71C71C71C9401000000000000240101C71C71C71C9401071C71C71C71F401100 00000000024011C71C71C71C744012C71C71C71C744014000000000002401571C71C71 C71F40171C71C71C71CA4019000000000003401B1C71C71C71CA401D71C71C71C72040 20000000000002-%&STYLEG6#%-PATCHCONTOURG-FG6&FIFIX,FOFPFQ[gl'!%\"!!#: \"&\"&C024000000000000C020000000000000C018000000000000C010000000000000 C000000000000000C020000000000000C018000000000000C010000000000000C00000 00000000000000000000000000C018000000000000C010000000000000C00000000000 000000000000000000004000000000000000C010000000000000C00000000000000000 0000000000000040000000000000004010000000000000C00000000000000000000000 00000000400000000000000040100000000000004018000000000000-FS6#%%LINEG-% +AXESLABELSG6&%\"xG%\"yGQ!6\"%(DEFAULTG-%*AXESSTYLEG6#%&FRAMEG-%%VIEWG 6%F]oF]o;$!\"$FE$\"\"$FE-%+PROJECTIONG6%$\"#_FE$\"#=FE\"\"\"" 1 2 0 1 10 0 2 1 1 3 2 1.000000 18.000000 52.000000 1 0 "Curve 1" "Curve 2" "C urve 3" }}}}}{SECT 0 {PARA 3 "" 0 "" {TEXT 265 9 "A Saddle." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "graph3 := plot3d(x^2-y^2,x=-2..2,y= -2..2,view = -2..2,style=patchcontour):" }}}{EXCHG {PARA 256 "" 0 "" {TEXT 259 35 "The tangent plane through (-1,0,1)." }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 70 "graph4 := plot3d(-2*x-1,x=-2..2,y=-2..2,grid=[10,10 ],style=wireframe):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "poin t2 := polyhedraplot([-1,0,1],polyscale=.1,polytype=hexahedron,color=re d):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "display3d(\{point2,g raph3,graph4\},axes=framed,orientation=[73,60]);" }}{PARA 13 "" 1 "" {GLPLOT3D 372 175 175 {PLOTDATA 3 "6)-%%GRIDG6&;$!\"#\"\"!$\"\"#F)F&X, %)anythingG6\"6\"[gl'!%\"!!#_q\"+\"+4008000000000000400800000000000040 0800000000000040080000000000004008000000000000400800000000000040080000 000000004008000000000000400800000000000040080000000000004000E38E38E38E 394000E38E38E38E394000E38E38E38E394000E38E38E38E394000E38E38E38E394000 E38E38E38E394000E38E38E38E394000E38E38E38E394000E38E38E38E394000E38E38 E38E393FF38E38E38E38E43FF38E38E38E38E43FF38E38E38E38E43FF38E38E38E38E4 3FF38E38E38E38E43FF38E38E38E38E43FF38E38E38E38E43FF38E38E38E38E43FF38E 38E38E38E43FF38E38E38E38E43FD55555555555583FD55555555555583FD555555555 55583FD55555555555583FD55555555555583FD55555555555583FD55555555555583F D55555555555583FD55555555555583FD5555555555558BFE1C71C71C71C70BFE1C71C 71C71C70BFE1C71C71C71C70BFE1C71C71C71C70BFE1C71C71C71C70BFE1C71C71C71C 70BFE1C71C71C71C70BFE1C71C71C71C70BFE1C71C71C71C70BFE1C71C71C71C70BFF7 1C71C71C71C6BFF71C71C71C71C6BFF71C71C71C71C6BFF71C71C71C71C6BFF71C71C7 1C71C6BFF71C71C71C71C6BFF71C71C71C71C6BFF71C71C71C71C6BFF71C71C71C71C6 BFF71C71C71C71C6C002AAAAAAAAAAAAC002AAAAAAAAAAAAC002AAAAAAAAAAAAC002AA AAAAAAAAAAC002AAAAAAAAAAAAC002AAAAAAAAAAAAC002AAAAAAAAAAAAC002AAAAAAAA AAAAC002AAAAAAAAAAAAC002AAAAAAAAAAAAC009C71C71C71C71C009C71C71C71C71C0 09C71C71C71C71C009C71C71C71C71C009C71C71C71C71C009C71C71C71C71C009C71C 71C71C71C009C71C71C71C71C009C71C71C71C71C009C71C71C71C71C01071C71C71C7 1CC01071C71C71C71CC01071C71C71C71CC01071C71C71C71CC01071C71C71C71CC010 71C71C71C71CC01071C71C71C71CC01071C71C71C71CC01071C71C71C71CC01071C71C 71C71CC014000000000000C014000000000000C014000000000000C014000000000000 C014000000000000C014000000000000C014000000000000C014000000000000C01400 0000000000C014000000000000-%&STYLEG6#%%LINEG-F$6&F&F&X,F-F.F/[gl'!%\"! !#\\bm\":\":00000000000000003FE471C71C71C7203FF38E38E38E38E63FFC000000 0000024001C71C71C71C7440051C71C71C71C94008000000000002400A71C71C71C71E 400C71C71C71C71D400E000000000000400F1C71C71C71C7400FC71C71C71C72401000 0000000000400FC71C71C71C72400F1C71C71C71C7400E000000000000400C71C71C71 C71C400A71C71C71C71C400800000000000040051C71C71C71C64001C71C71C71C713F FBFFFFFFFFFFFC3FF38E38E38E38E03FE471C71C71C710BCE0000000000000BFE471C7 1C71C72000000000000000003FE2AAAAAAAAAAAC3FF1C71C71C71C723FF95555555555 5740000000000000014002E38E38E38E3A400555555555555640075555555555554008 E38E38E38E384009FFFFFFFFFFFF400AAAAAAAAAAAAA400AE38E38E38E38400AAAAAAA AAAAAA4009FFFFFFFFFFFF4008E38E38E38E3840075555555555544005555555555554 4002E38E38E38E383FFFFFFFFFFFFFFD3FF95555555555523FF1C71C71C71C6C3FE2AA AAAAAAAAA0BCE0000000000000BFE471C71C71C730BFF38E38E38E38E6BFE2AAAAAAAA AAAC00000000000000003FE0E38E38E38E383FF00000000000013FF6AAAAAAAAAAAC3F FC71C71C71C71D4000AAAAAAAAAAAA4002AAAAAAAAAAAA400438E38E38E38E40055555 555555544005FFFFFFFFFFFF400638E38E38E38D4005FFFFFFFFFFFF40055555555555 54400438E38E38E38D4002AAAAAAAAAAA94000AAAAAAAAAAA93FFC71C71C71C71A3FF6 AAAAAAAAAAA73FEFFFFFFFFFFFF83FE0E38E38E38E2CBCD8000000000000BFE2AAAAAA AAAABCBFF38E38E38E38EEBFFC000000000002BFF1C71C71C71C72BFE0E38E38E38E38 00000000000000003FDE38E38E38E3943FEC71C71C71C7203FF40000000000013FF8E3 8E38E38E393FFCE38E38E38E383FFFFFFFFFFFFFFF40011C71C71C71C64001C71C71C7 1C714001FFFFFFFFFFFF4001C71C71C71C7140011C71C71C71C63FFFFFFFFFFFFFFE3F FCE38E38E38E363FF8E38E38E38E363FF3FFFFFFFFFFFE3FEC71C71C71C7163FDE38E3 8E38E380BCD8000000000000BFE0E38E38E38E44BFF1C71C71C71C7ABFFC0000000000 0AC001C71C71C71C74BFF9555555555557BFF0000000000001BFDE38E38E38E3940000 0000000000003FDAAAAAAAAAAAAC3FE8E38E38E38E383FF15555555555543FF5555555 5555543FF871C71C71C71A3FFAAAAAAAAAAAA83FFBFFFFFFFFFFFD3FFC71C71C71C719 3FFBFFFFFFFFFFFC3FFAAAAAAAAAAAA73FF871C71C71C7183FF55555555555523FF155 55555555523FE8E38E38E38E323FDAAAAAAAAAAA98BCD4000000000000BFDE38E38E38 E3ACBFF0000000000007BFF955555555555FC001C71C71C71C78C0051C71C71C71C9C0 00000000000001BFF6AAAAAAAAAAACBFEC71C71C71C720BFDAAAAAAAAAAAAC00000000 000000003FD71C71C71C71C43FE55555555555523FED5555555555513FF1C71C71C71C 6F3FF3FFFFFFFFFFFD3FF55555555555523FF5C71C71C71C6E3FF55555555555513FF3 FFFFFFFFFFFC3FF1C71C71C71C6E3FED55555555554D3FE555555555554D3FD71C71C7 1C71B8BCD4000000000000BFDAAAAAAAAAAAC0BFEC71C71C71C72CBFF6AAAAAAAAAAB2 C000000000000005C0051C71C71C71CDC008000000000002C002E38E38E38E3ABFFC71 C71C71C71DBFF4000000000001BFE8E38E38E38E38BFD71C71C71C71C4000000000000 00003FD38E38E38E38E03FE1C71C71C71C6F3FE7FFFFFFFFFFFC3FEC71C71C71C7183F EF1C71C71C71C23FEFFFFFFFFFFFFA3FEF1C71C71C71C13FEC71C71C71C7163FE7FFFF FFFFFFF93FE1C71C71C71C6B3FD38E38E38E38D6BCC8000000000000BFD71C71C71C71 D8BFE8E38E38E38E42BFF4000000000007BFFC71C71C71C723C002E38E38E38E3EC008 000000000006C00A71C71C71C71EC005555555555556C000AAAAAAAAAAAABFF8E38E38 E38E39BFF1555555555554BFE5555555555552BFD38E38E38E38E00000000000000000 3FCFFFFFFFFFFFFC3FDC71C71C71C7183FE2AAAAAAAAAAA83FE55555555555523FE638 E38E38E38A3FE55555555555513FE2AAAAAAAAAAA63FDC71C71C71C7123FCFFFFFFFFF FFECBCC4000000000000BFD38E38E38E38ECBFE555555555555CBFF1555555555559BF F8E38E38E38E3FC000AAAAAAAAAAAEC00555555555555AC00A71C71C71C722C00C71C7 1C71C71DC007555555555555C002AAAAAAAAAAAABFFCE38E38E38E38BFF55555555555 54BFED555555555551BFE1C71C71C71C6FBFCFFFFFFFFFFFFC00000000000000003FC8 E38E38E38E343FD55555555555513FDAAAAAAAAAAAA53FDC71C71C71C7163FDAAAAAAA AAAAA33FD555555555554D3FC8E38E38E38E28BCC0000000000000BFD0000000000008 BFE1C71C71C71C75BFED55555555555BBFF5555555555558BFFCE38E38E38E3EC002AA AAAAAAAAADC007555555555559C00C71C71C71C721C00E000000000000C008E38E38E3 8E38C00438E38E38E38EBFFFFFFFFFFFFFFFBFF871C71C71C71ABFF1C71C71C71C6FBF E7FFFFFFFFFFFCBFDC71C71C71C718BFC8E38E38E38E3400000000000000003FC1C71C 71C71C6E3FCC71C71C71C7163FCFFFFFFFFFFFF83FCC71C71C71C7123FC1C71C71C71C 66BCB8000000000000BFC8E38E38E38E44BFDC71C71C71C722BFE8000000000002BFF1 C71C71C71C74BFF871C71C71C71FC000000000000002C00438E38E38E390C008E38E38 E38E3CC00E000000000004C00F1C71C71C71C7C009FFFFFFFFFFFFC005555555555554 C0011C71C71C71C6BFFAAAAAAAAAAAA8BFF3FFFFFFFFFFFDBFEC71C71C71C718BFE2AA AAAAAAAAA8BFD5555555555551BFC1C71C71C71C6E00000000000000003FB555555555 55513FBC71C71C71C7143FB5555555555549BCB0000000000000BFC1C71C71C71C7ABF D5555555555559BFE2AAAAAAAAAAACBFEC71C71C71C71EBFF4000000000002BFFAAAAA AAAAAAADC0011C71C71C71C9C005555555555557C00A000000000003C00F1C71C71C71 CBC00FC71C71C71C72C00AAAAAAAAAAAAAC005FFFFFFFFFFFFC001C71C71C71C71BFFB FFFFFFFFFFFDBFF5555555555552BFEF1C71C71C71C2BFE5555555555552BFDAAAAAAA AAAAA5BFCC71C71C71C716BFB555555555555100000000000000003F9C71C71C71C70C BCA0000000000000BFB5555555555561BFCC71C71C71C722BFDAAAAAAAAAAAADBFE555 5555555557BFEF1C71C71C71C8BFF5555555555557BFFC000000000002C001C71C71C7 1C74C006000000000002C00AAAAAAAAAAAAEC00FC71C71C71C76C010000000000000C0 0AE38E38E38E38C00638E38E38E38DC001FFFFFFFFFFFFBFFC71C71C71C719BFF5C71C 71C71C6EBFEFFFFFFFFFFFFABFE638E38E38E38ABFDC71C71C71C716BFCFFFFFFFFFFF F8BFBC71C71C71C714BF9C71C71C71C70C0000000000000000BF9C71C71C71C72CBFBC 71C71C71C724BFD0000000000002BFDC71C71C71C71EBFE638E38E38E38FBFF0000000 000000BFF5C71C71C71C73BFFC71C71C71C71EC002000000000002C00638E38E38E390 C00AE38E38E38E3CC010000000000002C00FC71C71C71C72C00AAAAAAAAAAAAAC005FF FFFFFFFFFFC001C71C71C71C71BFFBFFFFFFFFFFFCBFF5555555555551BFEF1C71C71C 71C1BFE5555555555551BFDAAAAAAAAAAAA3BFCC71C71C71C712BFB55555555555493C A00000000000003F9C71C71C71C72C0000000000000000BFB5555555555559BFCC71C7 1C71C71EBFDAAAAAAAAAAAABBFE5555555555556BFEF1C71C71C71C7BFF55555555555 56BFFC000000000001C001C71C71C71C74C006000000000002C00AAAAAAAAAAAAEC00F C71C71C71C76C00F1C71C71C71C7C009FFFFFFFFFFFFC005555555555554C0011C71C7 1C71C6BFFAAAAAAAAAAAA7BFF3FFFFFFFFFFFCBFEC71C71C71C716BFE2AAAAAAAAAAA6 BFD555555555554DBFC1C71C71C71C663CB00000000000003FB55555555555613FBC71 C71C71C7243FB55555555555590000000000000000BFC1C71C71C71C72BFD555555555 5555BFE2AAAAAAAAAAAABFEC71C71C71C71CBFF4000000000001BFFAAAAAAAAAAAACC0 011C71C71C71C9C005555555555557C00A000000000003C00F1C71C71C71CBC00E0000 00000000C008E38E38E38E38C00438E38E38E38DBFFFFFFFFFFFFFFEBFF871C71C71C7 18BFF1C71C71C71C6EBFE7FFFFFFFFFFF9BFDC71C71C71C712BFC8E38E38E38E283CB8 0000000000003FC1C71C71C71C7A3FCC71C71C71C7223FD00000000000023FCC71C71C 71C71E3FC1C71C71C71C720000000000000000BFC8E38E38E38E38BFDC71C71C71C71C BFE7FFFFFFFFFFFFBFF1C71C71C71C72BFF871C71C71C71EC000000000000002C00438 E38E38E390C008E38E38E38E3CC00E000000000004C00C71C71C71C71CC00755555555 5554C002AAAAAAAAAAA9BFFCE38E38E38E36BFF5555555555552BFED55555555554DBF E1C71C71C71C6BBFCFFFFFFFFFFFEC3CC00000000000003FC8E38E38E38E443FD55555 555555593FDAAAAAAAAAAAAD3FDC71C71C71C71E3FDAAAAAAAAAAAAB3FD55555555555 553FC8E38E38E38E380000000000000000BFD0000000000000BFE1C71C71C71C71BFED 555555555557BFF5555555555556BFFCE38E38E38E3CC002AAAAAAAAAAACC007555555 555558C00C71C71C71C720C00A71C71C71C71CC005555555555554C000AAAAAAAAAAA9 BFF8E38E38E38E36BFF1555555555552BFE555555555554DBFD38E38E38E38D63CC400 00000000003FD00000000000083FDC71C71C71C7223FE2AAAAAAAAAAAC3FE555555555 55573FE638E38E38E38F3FE55555555555563FE2AAAAAAAAAAAA3FDC71C71C71C71C3F D00000000000000000000000000000BFD38E38E38E38E2BFE5555555555557BFF15555 55555556BFF8E38E38E38E3CC000AAAAAAAAAAACC005555555555558C00A71C71C71C7 20C008000000000000C002E38E38E38E38BFFC71C71C71C71ABFF3FFFFFFFFFFFEBFE8 E38E38E38E32BFD71C71C71C71B83CC80000000000003FD38E38E38E38EC3FE1C71C71 C71C753FE80000000000023FEC71C71C71C71E3FEF1C71C71C71C83FF0000000000000 3FEF1C71C71C71C73FEC71C71C71C71C3FE7FFFFFFFFFFFF3FE1C71C71C71C713FD38E 38E38E38E20000000000000000BFD71C71C71C71CCBFE8E38E38E38E3CBFF400000000 0004BFFC71C71C71C720C002E38E38E38E3CC008000000000004C0051C71C71C71C6BF FFFFFFFFFFFFFDBFF6AAAAAAAAAAA7BFEC71C71C71C716BFDAAAAAAAAAAA983CD40000 000000003FD71C71C71C71D83FE555555555555C3FED55555555555B3FF1C71C71C71C 743FF40000000000023FF55555555555573FF5C71C71C71C733FF55555555555563FF4 0000000000013FF1C71C71C71C723FED5555555555573FE55555555555573FD71C71C7 1C71CC0000000000000000BFDAAAAAAAAAAAACBFEC71C71C71C722BFF6AAAAAAAAAAAD C000000000000002C0051C71C71C71CAC001C71C71C71C71BFF9555555555552BFEFFF FFFFFFFFF8BFDE38E38E38E3803CD40000000000003FDAAAAAAAAAAAC03FE8E38E38E3 8E423FF15555555555593FF55555555555583FF871C71C71C71F3FFAAAAAAAAAAAAD3F FC0000000000023FFC71C71C71C71E3FFC0000000000013FFAAAAAAAAAAAAC3FF871C7 1C71C71E3FF55555555555563FF15555555555563FE8E38E38E38E3C3FDAAAAAAAAAAA AC0000000000000000BFDE38E38E38E398BFF0000000000002BFF955555555555AC001 C71C71C71C75BFFBFFFFFFFFFFFCBFF1C71C71C71C6CBFE0E38E38E38E2C3CD8000000 0000003FDE38E38E38E3AC3FEC71C71C71C72C3FF40000000000073FF8E38E38E38E3F 3FFCE38E38E38E3E400000000000000240011C71C71C71C94001C71C71C71C74400200 00000000024001C71C71C71C7440011C71C71C71C940000000000000023FFCE38E38E3 8E3C3FF8E38E38E38E3C3FF40000000000043FEC71C71C71C7223FDE38E38E38E39800 00000000000000BFE0E38E38E38E38BFF1C71C71C71C74BFFC000000000004BFF38E38 E38E38E0BFE2AAAAAAAAAAA03CD80000000000003FE0E38E38E38E443FF00000000000 073FF6AAAAAAAAAAB23FFC71C71C71C7234000AAAAAAAAAAAE4002AAAAAAAAAAAD4004 38E38E38E39040055555555555574006000000000002400638E38E38E3904006000000 0000024005555555555557400438E38E38E3904002AAAAAAAAAAAC4000AAAAAAAAAAAC 3FFC71C71C71C7203FF6AAAAAAAAAAAD3FF00000000000023FE0E38E38E38E38000000 0000000000BFE2AAAAAAAAAAB0BFF38E38E38E38E8BFE471C71C71C7103CE000000000 00003FE2AAAAAAAAAABC3FF1C71C71C71C7A3FF955555555555F400000000000000540 02E38E38E38E3E400555555555555A40075555555555594008E38E38E38E3C400A0000 00000003400AAAAAAAAAAAAE400AE38E38E38E3C400AAAAAAAAAAAAE400A0000000000 034008E38E38E38E3C400755555555555840055555555555584002E38E38E38E3C4000 0000000000023FF955555555555A3FF1C71C71C71C743FE2AAAAAAAAAAB00000000000 000000BFE471C71C71C7203CE00000000000003FE471C71C71C7303FF38E38E38E38EE 3FFC00000000000A4001C71C71C71C7840051C71C71C71CD4008000000000006400A71 C71C71C722400C71C71C71C721400E000000000004400F1C71C71C71CB400FC71C71C7 1C764010000000000002400FC71C71C71C76400F1C71C71C71CB400E00000000000440 0C71C71C71C720400A71C71C71C720400800000000000440051C71C71C71CA4001C71C 71C71C753FFC0000000000043FF38E38E38E38E83FE471C71C71C72000000000000000 00-F16#%-PATCHCONTOURG-%)POLYGONSG6)7&7%$!\"*!\"\"$\"\"\"FA$\"#6FA7%$! #6FAFBFD7%FG$FAFAFD7%F?FJFD7&F>FK7%F?FJ$\"\"*FA7%F?FBFN7&F>FP7%FGFBFNF F7&FFFR7%FGFJFNFI7&FTFRFPFM7&FIFTFMFK-%'COLOURG6&%$RGBG$\"*++++\"!\")$ F)F)Fhn-%+AXESLABELSG6&%\"xG%\"yGQ!6\"%(DEFAULTG-%*AXESSTYLEG6#%&FRAME G-%%VIEWG6%F`oF`oF&-%+PROJECTIONG6%$\"#tF)$\"#gF)FC" 1 2 0 1 10 0 2 1 1 3 2 1.000000 60.000000 73.000000 1 0 "Curve 1" "Curve 2" "Curve 3" } }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 16 "Transformations." }}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 18 "Load the packages." }}{PARA 4 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 256 "" 0 "" {TEXT 266 38 "Load transforma tion functions.\nChange " }{TEXT 285 7 "Pacific" }{TEXT 286 13 " below to the" }{TEXT 287 21 " name of your machine" }{TEXT 288 1 ":" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "read `/othermaple/transform_plots.t xt` ;" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 "" {TEXT -1 43 " \011\011\011\011Plot Transformation Package Version 1.0" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 "" {TEXT -1 58 "This set of function s aids in transforming two dimensional" }}{PARA 6 "" 1 "" {TEXT -1 35 "plots by functions from R^2 to R^2." }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 "" {TEXT -1 23 "Basic examples include:" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 "" {TEXT -1 26 "\011\011P1 := plot(x ^2,x=-1..1);" }}{PARA 6 "" 1 "" {TEXT -1 57 "\011\011transform_plot(P1 ,[exp(x)*cos(y),exp(x)*sin(y)],[x,y]);" }}{PARA 6 "" 1 "" {TEXT -1 0 " " }}{PARA 6 "" 1 "" {TEXT -1 57 "to transform the graph of the parabol a y = x^2 by the map" }}{PARA 6 "" 1 "" {TEXT -1 39 "(x,y) -> [exp(x)* cos(y),exp(x)*sin(y)]." }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 "" {TEXT -1 3 "and" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 " " {TEXT -1 56 "\011\011transform_rect([2.,2.],[1.,1.],[x^2-y^2,2*x*y], [x,y]);" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 "" {TEXT -1 53 "to display the rectangle with corners [1,1] and [2,2]" }}{PARA 6 " " 1 "" {TEXT -1 53 "together with the image of its boundary under the \+ map" }}{PARA 6 "" 1 "" {TEXT -1 25 "(x,y) -> [x^2-y^2,2*x*y]." }} {PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 "" {TEXT -1 19 "Other rou tines are:" }}{PARA 6 "" 1 "" {TEXT -1 25 "\011\011rect_plot([2,4],[3, 1]);" }}{PARA 6 "" 1 "" {TEXT -1 57 "to display the rectangle with cor ners [2,4] and [3,1] and" }}{PARA 6 "" 1 "" {TEXT -1 25 "\011\011help_ transform_plots();" }}{PARA 6 "" 1 "" {TEXT -1 24 "to display this mes sage." }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 256 "" 0 "" {TEXT 267 28 "Load linear algebra package." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning , the protected names norm and trace have been redefined and unprotect ed\n" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 274 32 "Plot Transformation by Function." }}{EXCHG {PARA 256 "" 0 "" {TEXT 260 41 "Enter an R^2 valu ed expression as a list." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "F := [x *cos(y),x*sin(y)]; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"FG7$*&%\"xG \"\"\"-%$cosG6#%\"yGF(*&F'F(-%$sinGF+F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "transform_rect([.9,.9],[1,1],F,[x,y]); " }}{PARA 13 " " 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6,-%'CURVESG6$7S7$$\"+$o*4;i !#5$\"+'4pK$yF*7$$\"+K1,*>'F*$\"+0)*zYyF*7$$\"+wv6%='F*$\"+tCaeyF*7$$ \"+/AMnhF*$\"+hXrryF*7$$\"++tU]hF*$\"+&zP\\)yF*7$$\"+RYcLhF*$\"+$4i!)* yF*7$$\"+td!z6'F*$\"+#y(>5zF*7$$\"+Bmm,hF*$\"+p3tAzF*7$$\"+j]%[3'F*$\" +QvlNzF*7$$\"+'>]!ogF*$\"+2s][zF*7$$\"+-ju]gF*$\"+&e(ohzF*7$$\"+18[NgF *$\"+ocEtzF*7$$\"+H+F=gF*$\"+D[E')zF*7$$\"+5*f4+'F*$\"+x*z#**zF*7$$\"+ sx\"fF*$\"+mW0h!)F*7$$\"+_;'=!fF*$ \"+Ty'eF*$\"+3*\\u4)F*7$$\"+ JUX]eF*$\"+f_+5\")F*7$$\"+%)Q[MeF*$\"+*=-:7)F*7$$\"+\"QKs\"eF*$\"+Dz'Q 8)F*7$$\"+p^G*z&F*$\"+[OnY\")F*7$$\"+:\"ROy&F*$\"+I))yd\")F*7$$\"+?qrm dF*$\"+x(f(p\")F*7$$\"+@)3#\\dF*$\"+r+4#=)F*7$$\"+]\\0KdF*$\"+^l6%>)F* 7$$\"+^PV:dF*$\"+d&=d?)F*7$$\"+M7&pp&F*$\"+06c=#)F*7$$\"+a#>.o&F*$\"+* >l+B)F*7$$\"+Ba`icF*$\"+>6JU#)F*7$$\"+EyRYcF*$\"+eXP`#)F*7$$\"+S/tGcF* $\"+jOVl#)F*7$$\"+)G$37cF*$\"+3euw#)F*7$$\"+:zl%f&F*$\"+>W`)G)F*7$$\"+ *[(fxbF*$\"+tW-+$)F*7$$\"+@:rfbF*$\"+pe,7$)F*7$$\"+M3YUbF*$\"+t&GNK)F* 7$$\"+i[zCbF*$\"+Z\\EN$)F*7$$\"+F1D2bF*$\"+4r'oM)F*7$$\"+:y5\"\\&F*$\" +Nd\\d$)F*7$$\"+26esaF*$\"+U*Q'p$)F*7$$\"+Yy)fX&F*$\"+!=l/Q)F*7$$\"+zB FQaF*$\"+p>(>R)F*7$$\"+'o$H@aF*$\"+h.&HS)F*7$$\"+fI-.aF*$\"+[)4ZT)F*-% 'COLOURG6&%$RGBG\"\"\"$\"\"!F][lF\\[l-F$6$7S7$$\"3A+++++++!*!#=$F[[lF] [l7$$\"3Rmm;arz@!*Fd[lFe[l7$$\"3fL$e9ui2/*Fd[lFe[l7$$\"3%pm;z_\"4i!*Fd [lFe[l7$$\"3[mmT&phN3*Fd[lFe[l7$$\"3(QLe*=)H\\5*Fd[lFe[l7$$\"3sm;z/3uC \"*Fd[lFe[l7$$\"3Y+]7LRDX\"*Fd[lFe[l7$$\"3En;zR'ok;*Fd[lFe[l7$$\"3E+]i 5`h(=*Fd[lFe[l7$$\"3CLL$3En$4#*Fd[lFe[l7$$\"3+nmT!RE&G#*Fd[lFe[l7$$\"3 w****\\K]4]#*Fd[lFe[l7$$\"3a++]PAvr#*Fd[lFe[l7$$\"3[++]nHi#H*Fd[lFe[l7 $$\"3Lm;z*ev:J*Fd[lFe[l7$$\"3/LL$347TL*Fd[lFe[l7$$\"3'QLLLY.KN*Fd[lFe[ l7$$\"39+]7o7Tv$*Fd[lFe[l7$$\"3+LLLQ*o]R*Fd[lFe[l7$$\"3-+]7=lj;%*Fd[lF e[l7$$\"3&***\\PaRY2a*Fd[lFe[l7$$\"3imm\"zXu9c*Fd[lFe[l7$$\"3'******\\y))Ge*Fd[lFe[l7$$ \"3M++DE&QQg*Fd[lFe[l7$$\"3q**\\7y%3Ti*Fd[lFe[l7$$\"3#****\\P![hY'*Fd[ lFe[l7$$\"3qLLLQx$om*Fd[lFe[l7$$\"3))****\\P+V)o*Fd[lFe[l7$$\"3%om\"zp e*zq*Fd[lFe[l7$$\"3l++]#\\'QH(*Fd[lFe[l7$$\"3!HLe9S8&\\(*Fd[lFe[l7$$\" 3s**\\i?=bq(*Fd[lFe[l7$$\"3%GLL3s?6z*Fd[lFe[l7$$\"3S+]7`Wl7)*Fd[lFe[l7 $$\"3Dnmm'*RRL)*Fd[lFe[l7$$\"3KmmTvJga)*Fd[lFe[l7$$\"3wL$e9tOc()*Fd[lF e[l7$$\"3?+++&Qk\\*)*Fd[lFe[l7$$\"3xKL3dg6<**Fd[lFe[l7$$\"3'pmmmxGp$** Fd[lFe[l7$$\"3-+]7oK0e**Fd[lFe[l7$$\"3!)**\\(=5s#y**Fd[lFe[l7$Fe[lFe[l -Fhz6&Fjz$\"#5!\"\"F\\[lF\\[l-F$6$7S7$Fb[lFb[l7$Fb[lFg[l7$Fb[lFj[l7$Fb [lF]\\l7$Fb[lF`\\l7$Fb[lFc\\l7$Fb[lFf\\l7$Fb[lFi\\l7$Fb[lF\\]l7$Fb[lF_ ]l7$Fb[lFb]l7$Fb[lFe]l7$Fb[lFh]l7$Fb[lF[^l7$Fb[lF^^l7$Fb[lFa^l7$Fb[lFd ^l7$Fb[lFg^l7$Fb[lFj^l7$Fb[lF]_l7$Fb[lF`_l7$Fb[lFc_l7$Fb[lFf_l7$Fb[lFi _l7$Fb[lF\\`l7$Fb[lF_`l7$Fb[lFb`l7$Fb[lFe`l7$Fb[lFh`l7$Fb[lF[al7$Fb[lF ^al7$Fb[lFaal7$Fb[lFdal7$Fb[lFgal7$Fb[lFjal7$Fb[lF]bl7$Fb[lF`bl7$Fb[lF cbl7$Fb[lFfbl7$Fb[lFibl7$Fb[lF\\cl7$Fb[lF_cl7$Fb[lFbcl7$Fb[lFecl7$Fb[l Fhcl7$Fb[lF[dl7$Fb[lF^dl7$Fb[lFadlFa[lFddl-F$6$7SF\\el7$Fg[lFb[l7$Fj[l Fb[l7$F]\\lFb[l7$F`\\lFb[l7$Fc\\lFb[l7$Ff\\lFb[l7$Fi\\lFb[l7$F\\]lFb[l 7$F_]lFb[l7$Fb]lFb[l7$Fe]lFb[l7$Fh]lFb[l7$F[^lFb[l7$F^^lFb[l7$Fa^lFb[l 7$Fd^lFb[l7$Fg^lFb[l7$Fj^lFb[l7$F]_lFb[l7$F`_lFb[l7$Fc_lFb[l7$Ff_lFb[l 7$Fi_lFb[l7$F\\`lFb[l7$F_`lFb[l7$Fb`lFb[l7$Fe`lFb[l7$Fh`lFb[l7$F[alFb[ l7$F^alFb[l7$FaalFb[l7$FdalFb[l7$FgalFb[l7$FjalFb[l7$F]blFb[l7$F`blFb[ l7$FcblFb[l7$FfblFb[l7$FiblFb[l7$F\\clFb[l7$F_clFb[l7$FbclFb[l7$FeclFb [l7$FhclFb[l7$F[dlFb[l7$F^dlFb[l7$FadlFb[l7$Fe[lFb[lFddl-F$6$7S7$$\"+` 2si[F*$\"+j)QKd(F*7$$\"+1y\\u[F*$\"+O0e\"f(F*7$$\"+c\\u%)[F*$\"+F&Rvg( F*7$$\"+\\*oi*[F*$\"+#3([DwF*7$$\"+I$py!\\F*$\"+0ObVwF*7$$\"+wXT>\\F*$ \"+hU`hwF*7$$\"+)\\=,$\\F*$\"+JY?ywF*7$$\"+)y,7%\\F*$\"+LeY&p(F*7$$\"+ VTm_\\F*$\"+%R')\\F*$\"+!>Pbw(F*7$$\"+ww%y*\\F*$\"+wlo$y(F*7$$\"+9\"\\& 4]F*$\"+([5>!yF*7$$\"+yF*7$$\"+jd1J]F*$\"+#o?a$yF*7$$ \"+'GUK/&F*$\"+$\\%QayF*7$$\"+*RdN0&F*$\"+H$\\/(yF*7$$\"+Fjbl]F*$\"+`l 8*)yF*7$$\"+6u&F*$\"+R!3%)4)F*7$$\"+B#)37_F*$\"+fkM<\")F* 7$$\"+@Z,B_F*$\"+rMOM\")F*7$$\"+!4\"oM_F*$\"+kF`_\")F*7$$\"+aDDX_F*$\" +Xo**o\")F*7$$\"+d*4oD&F*$\"+Mk*p=)F*7$$\"+sXon_F*$\"+VE$R?)F*7$$\"+z; 0z_F*$\"+jej@#)F*7$$\"+.^;!H&F*$\"+&*R%*Q#)F*7$$\"+G)*z,`F*$\"+1S1d#)F *7$$\"+^a+8`F*$\"+Jd^u#)F*7$$\"+>[YC`F*$\"+QEO#H)F*7$$\"+)HHeL&F*$\"+m <15$)F*7$$\"+u?FY`F*$\"+EaKE$)F*7$$\"+t1Ce`F*$\"+:a'\\M)F*7$$\"+Kb%*o` F*$\"+Wsjh$)F*7$$\"+V\"f.Q&F*$\"+!*GTz$)F*7$$\"+EMG\"R&F*$\"+_kU'R)F*F bzFgz-F$6$7SF^[m7$Fe[lFg[l7$Fe[lFj[l7$Fe[lF]\\l7$Fe[lF`\\l7$Fe[lFc\\l7 $Fe[lFf\\l7$Fe[lFi\\l7$Fe[lF\\]l7$Fe[lF_]l7$Fe[lFb]l7$Fe[lFe]l7$Fe[lFh ]l7$Fe[lF[^l7$Fe[lF^^l7$Fe[lFa^l7$Fe[lFd^l7$Fe[lFg^l7$Fe[lFj^l7$Fe[lF] _l7$Fe[lF`_l7$Fe[lFc_l7$Fe[lFf_l7$Fe[lFi_l7$Fe[lF\\`l7$Fe[lF_`l7$Fe[lF b`l7$Fe[lFe`l7$Fe[lFh`l7$Fe[lF[al7$Fe[lF^al7$Fe[lFaal7$Fe[lFdal7$Fe[lF gal7$Fe[lFjal7$Fe[lF]bl7$Fe[lF`bl7$Fe[lFcbl7$Fe[lFfbl7$Fe[lFibl7$Fe[lF \\cl7$Fe[lF_cl7$Fe[lFbcl7$Fe[lFecl7$Fe[lFhcl7$Fe[lF[dl7$Fe[lF^dl7$Fe[l FadlFcdlFddl-F$6$7S7$$\"+:(*[%f&F*$\"+'=U*\\qF*7$$\"+p&4\"zbF*$\"+C)>@ 1(F*7$$\"+=eqlbF*$\"+E#)osqF*7$$\"+%)zg]bF*$\"+0Ja%3(F*7$$\"+qXQNbF*$ \"+;SW'4(F*7$$\"+v\"3-_&F*$\"+%)eD3rF*7$$\"+'>:h]&F*$\"+/!y\">rF*7$$\" +h**\\\"\\&F*$\"+#yd/8(F*7$$\"+d0OwaF*$\"+%y\"4UrF*7$$\"+w^ChaF*$\"+'[ cO:(F*7$$\"+s;nXaF*$\"+E)=b;(F*7$$\"+vJ$>V&F*$\"+,\"Rf<(F*7$$\"+EIW;aF *$\"+U$Qw=(F*7$$\"+>R'3S&F*$\"+z>N*>(F*7$$\"+&fEeQ&F*$\"+*G31@(F*7$$\" +O4:s`F*$\"+')G!3A(F*7$$\"+XT'eN&F*$\"+([\"*GB(F*7$$\"+5e/U`F*$\"+!Q.J C(F*7$$\"+3t%fK&F*$\"+>!\\\\D(F*7$$\"+([v;J&F*$\"+nXSlsF*7$$\"+EM*fH&F *$\"+fO%oF(F*7$$\"+'\\P5G&F*$\"+<\\q(G(F*7$$\"+3)3aE&F*$\"+LZ+*H(F*7$$ \"+'\\N5D&F*$\"+q>N4tF*7$$\"+V\"4bB&F*$\"+K6[?tF*7$$\"+_mN>_F*$\"+$G1? L(F*7$$\"+/_F0_F*$\"+Z*4?M(F*7$$\"+=`/!>&F*$\"+*z$y_tF*7$$\"+RzGu^F*$ \"+k5)QO(F*7$$\"+b%\\)e^F*$\"+'*[qutF*7$$\"+w.*Q9&F*$\"+,n9&Q(F*7$$\"+ 6hDF^F*$\"+%*\\q'R(F*7$$\"+HtG7^F*$\"+z'eqS(F*7$$\"+\")=G'4&F*$\"+2+3= uF*7$$\"+V!e<3&F*$\"+-r.GuF*7$$\"+'Rde1&F*$\"+(H!*)QuF*7$$\"+f\\(30&F* $\"+F72\\uF*7$$\"+C@>N]F*$\"+x4ofuF*7$$\"+Sx$)>]F*$\"+E?-quF*7$$\"+p.u .]F*$\"+#G93[(F*7$$\"+^Z@))\\F*$\"+;d<\"\\(F*7$$\"+w`Js\\F*$\"+_%Q<](F *7$$\"+kb_c\\F*$\"+)R!=7vF*7$$\"+Mq*>%\\F*$\"+ihu@vF*7$$\"+'*HKD\\F*$ \"+[]nKvF*7$$\"+h!*Q5\\F*$\"+i'=Ca(F*7$$\"+T^W%*[F*$\"+sZx_vF*7$$\"+cF*$\"+QF(=3(F*7$$\"+Fk3LcF*$\"+^,e)4(F*7$$\"+(\\Kkk&F*$\"+6$)R:rF*7$ $\"+O^rfcF*$\"+Pl8KrF*7$$\"+V)H?n&F*$\"+;]lZrF*7$$\"+25y%o&F*$\"+,Nsjr F*7$$\"+\"Gozp&F*$\"+_:M!=(F*7$$\"+iK66dF*$\"+3j!p>(F*7$$\"+\"\\MYs&F* $\"+'>XR@(F*7$$\"+(*RaOdF*$\"+dI&*GsF*7$$\"+!G^*\\dF*$\"+b$[eC(F*7$$\" +:OTjdF*$\"+FI\"GE(F*7$$\"+pqQwdF*$\"+K;;zsF*7$$\"+2#o\")y&F*$\"+Ix+%H (F*7$$\"+@r<-eF*$\"+y6m6tF*7$$\"+3X/9eF*$\"+kfhEtF*7$$\"+,\"\\y#eF*$\" +N>,WtF*7$$\"+0&o+%eF*$\"+<.TftF*7$$\"+F^Z`eF*$\"+#y/jP(F*7$$\"+-9CmeF *$\"+4BR#R(F*7$$\"+s;czeF*$\"+cz<4uF*7$$\"+OQz\"*eF*$\"+=CfCuF*7$$\"+y y)\\!fF*$\"+***=7W(F*7$$\"+\"y#p=fF*$\"+W$*[euF*7$$\"+QHiIfF*$\"+IK_tu F*7$$\"+Ny]VfF*$\"+Q-w*[(F*7$$\"+%>>o&fF*$\"+dY`1vF*7$$\"+i<%)pfF*$\"+ `^%H_(F*7$$\"+mV'*fF*$\"+jHXcvF*7$$\"++F+4g F*$\"+JTHsvF*7$$\"+)oCC-'F*$\"+gz?*e(F*7$$\"+0qeMgF*$\"+.W`/wF*7$$\"+H O)y/'F*$\"+a-H@wF*7$$\"+;ZRggF*$\"+.i0PwF*7$$\"+3CZtgF*$\"+jh``wF*7$$ \"+T#ei3'F*$\"+O$['pwF*7$$\"+BQk*4'F*$\"+)G;lo(F*7$$\"+Jd`7hF*$\"+J@w- xF*7$$\"+n&>d7'F*$\"+]eP>xF*7$$\"+NUzQhF*$\"+,?&et(F*7$$\"+)\\33:'F*$ \"+s=*4v(F*7$$\"+)>yX;'F*$\"+tQMoxF*7$$\"+#)R*o<'F*$\"+5P'Qy(F*7$$\"+w ^-!>'F*$\"+#46/!yF*7$$\"+0Mf-iF*$\"+\\!\\i\"yF*F'Fgz-%+AXESLABELSG6%Q! 6\"Fh[p%(DEFAULTG-%%VIEWG6$Fj[pFj[p" 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" "Curve 5" "Curve 6" "Curve 7" "Curve 8" }}}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 273 44 "Plot Transformation by Linear Approximation." }}{EXCHG {PARA 256 "" 0 "" {TEXT 275 21 "Compute the jacobian." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "F_deriv := jacobian(F,[x,y]); " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(F_derivG-%'matrixG6 #7$7$-%$cosG6#%\"yG,$*&%\"xG\"\"\"-%$sinGF,F1!\"\"7$F2*&F0F1F*F1" }}} {EXCHG {PARA 256 "" 0 "" {TEXT 268 41 "A helper function to evaluate a t (.9,.9)." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "eval_fcn := a -> eval f(subs(x=.9,y=.9,a));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)eval_fcnGf *6#%\"aG6\"6$%)operatorG%&arrowGF(-%&evalfG6#-%%subsG6%/%\"xG$\"\"*!\" \"/%\"yGF49$F(F(F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 1 "E" }{TEXT 276 51 "valuate each entry of F_deriv at the point (.9,.9)." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "L := map(eval_fcn,F_deriv);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%\"LG-%'matrixG6#7$7$$\"+$o*4;i!#5$!+'=U*\\qF,7 $$\"+'4pK$yF,$\"+:(*[%f&F," }}}{EXCHG {PARA 256 "" 0 "" {TEXT 261 1 " \+ " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "val := eval_fcn(F);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$valG7$$\"+:(*[%f&!#5$\"+'=U*\\qF(" }}} {EXCHG {PARA 256 "" 0 "" {TEXT 277 22 " Linear approximation." }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "L_expn :=evalm(L &* vector([x-.9,y- .9])+ val); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'L_expnG-%'vectorG6# 7$,(%\"xG$\"+$o*4;i!#5$\"+nz%\\M'F-\"\"\"*&$\"+'=U*\\qF-F0%\"yGF0!\"\" ,(F*$\"+'4pK$yF-$\"+W2/N]F-F5*&$\"+:(*[%f&F-F0F4F0F0" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 278 107 "Note the similarity of the image under the li near transformation to the \nimage under the original function." }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 " transform_rect([.9,.9],[1,1],L_exp n,[x,y]); " }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6,-% 'CURVESG6$7S7$$\"3A+++++++!*!#=$\"\"\"\"\"!7$$\"3Rmm;arz@!*F*F+7$$\"3f L$e9ui2/*F*F+7$$\"3%pm;z_\"4i!*F*F+7$$\"3[mmT&phN3*F*F+7$$\"3(QLe*=)H \\5*F*F+7$$\"3sm;z/3uC\"*F*F+7$$\"3Y+]7LRDX\"*F*F+7$$\"3En;zR'ok;*F*F+ 7$$\"3E+]i5`h(=*F*F+7$$\"3CLL$3En$4#*F*F+7$$\"3+nmT!RE&G#*F*F+7$$\"3w* ***\\K]4]#*F*F+7$$\"3a++]PAvr#*F*F+7$$\"3[++]nHi#H*F*F+7$$\"3Lm;z*ev:J *F*F+7$$\"3/LL$347TL*F*F+7$$\"3'QLLLY.KN*F*F+7$$\"39+]7o7Tv$*F*F+7$$\" 3+LLLQ*o]R*F*F+7$$\"3-+]7=lj;%*F*F+7$$\"3&***\\PaRY2a*F*F+7$$\"3imm\"zXu9c*F*F+7$$\"3'******\\y))Ge*F*F+7$$ \"3M++DE&QQg*F*F+7$$\"3q**\\7y%3Ti*F*F+7$$\"3#****\\P![hY'*F*F+7$$\"3q LLLQx$om*F*F+7$$\"3))****\\P+V)o*F*F+7$$\"3%om\"zpe*zq*F*F+7$$\"3l++]# \\'QH(*F*F+7$$\"3!HLe9S8&\\(*F*F+7$$\"3s**\\i?=bq(*F*F+7$$\"3%GLL3s?6z *F*F+7$$\"3S+]7`Wl7)*F*F+7$$\"3Dnmm'*RRL)*F*F+7$$\"3KmmTvJga)*F*F+7$$ \"3wL$e9tOc()*F*F+7$$\"3?+++&Qk\\*)*F*F+7$$\"3xKL3dg6<**F*F+7$$\"3'pmm mxGp$**F*F+7$$\"3-+]7oK0e**F*F+7$$\"3!)**\\(=5s#y**F*F+7$F+F+-%'COLOUR G6&%$RGBG$\"#5!\"\"$F-F-F]u-F$6$7S7$$\"+8(*[%f&!#5$\"+'=U*\\qFdu7$$\"+ V!R!3cFdu$\"+%[;q1(Fdu7$$\"+V#G)>cFdu$\"+QF(=3(Fdu7$$\"+Bk3LcFdu$\"+^, e)4(Fdu7$$\"+$\\Kkk&Fdu$\"+6$)R:rFdu7$$\"+L^rfcFdu$\"+Pl8KrFdu7$$\"+V) H?n&Fdu$\"+;]lZrFdu7$$\"+.5y%o&Fdu$\"+,NsjrFdu7$$\"+$Gozp&Fdu$\"+_:M!= (Fdu7$$\"+jK66dFdu$\"+3j!p>(Fdu7$$\"+$\\MYs&Fdu$\"+'>XR@(Fdu7$$\"+$*Ra OdFdu$\"+dI&*GsFdu7$$\"+$G^*\\dFdu$\"+b$[eC(Fdu7$$\"+8OTjdFdu$\"+FI\"G E(Fdu7$$\"+tqQwdFdu$\"+K;;zsFdu7$$\"+.#o\")y&Fdu$\"+Ix+%H(Fdu7$$\"+Br< -eFdu$\"+y6m6tFdu7$$\"+8X/9eFdu$\"+kfhEtFdu7$$\"+.\"\\y#eFdu$\"+N>,WtF du7$$\"+.&o+%eFdu$\"+<.TftFdu7$$\"+B^Z`eFdu$\"+#y/jP(Fdu7$$\"+.9CmeFdu $\"+4BR#R(Fdu7$$\"+t;czeFdu$\"+cz<4uFdu7$$\"+LQz\"*eFdu$\"+=CfCuFdu7$$ \"+ty)\\!fFdu$\"+***=7W(Fdu7$$\"+$y#p=fFdu$\"+W$*[euFdu7$$\"+LHiIfFdu$ \"+IK_tuFdu7$$\"+Ly]VfFdu$\"+Q-w*[(Fdu7$$\"+$>>o&fFdu$\"+dY`1vFdu7$$\" +j<%)pfFdu$\"+`^%H_(Fdu7$$\"+jV'*fFdu$\"+ jHXcvFdu7$$\"+.F+4gFdu$\"+JTHsvFdu7$$\"+$pCC-'Fdu$\"+gz?*e(Fdu7$$\"+.q eMgFdu$\"+.W`/wFdu7$$\"+LO)y/'Fdu$\"+a-H@wFdu7$$\"+8ZRggFdu$\"+.i0PwFd u7$$\"+8CZtgFdu$\"+jh``wFdu7$$\"+V#ei3'Fdu$\"+O$['pwFdu7$$\"+BQk*4'Fdu $\"+)G;lo(Fdu7$$\"+Ld`7hFdu$\"+J@w-xFdu7$$\"+j&>d7'Fdu$\"+]eP>xFdu7$$ \"+LUzQhFdu$\"+,?&et(Fdu7$$\"+$\\33:'Fdu$\"+s=*4v(Fdu7$$\"+$>yX;'Fdu$ \"+tQMoxFdu7$$\"+$)R*o<'Fdu$\"+5P'Qy(Fdu7$$\"+t^-!>'Fdu$\"+#46/!yFdu7$ $\"+.Mf-iFdu$\"+\\!\\i\"yFdu7$$\"+$o*4;iFdu$\"+'4pK$yFdu-Fgt6&FitF,F]u F]u-F$6$7S7$$\"+%\\&\\*)[Fdu$\"+d6R4wFdu7$$\"+C[/.\\Fdu$\"+baYEwFdu7$$ \"+CS$[\"\\Fdu$\"+4h+&F du$\"+z_NcxFdu7$$\"+u-k>]Fdu$\"+nTRtxFdu7$$\"+u(\\:.&Fdu$\"+G?S)y(Fdu7 $$\"+kq&\\/&Fdu$\"+EtH0yFdu7$$\"+%R>%e]Fdu$\"+)*>EAyFdu7$$\"+aGRr]Fdu$ \"+.1hQyFdu7$$\"+%)R<$3&Fdu$\"+,nX`yFdu7$$\"+/H=(4&Fdu$\"+\\,6ryFdu7$$ \"+%H]!4^Fdu$\"+N\\1')yFdu7$$\"+%)[&G7&Fdu$\"+14Y.zFdu7$$\"+%Gu]8&Fdu$ \"+)Gf)=zFdu7$$\"+/4[[^Fdu$\"+`PvNzFdu7$$\"+%=Z7;&Fdu$\"+!GT=&zFdu7$$ \"+aucu^Fdu$\"+FpiozFdu7$$\"+9'*z'=&Fdu$\"+*QTS)zFdu7$$\"+aO***>&Fdu$ \"+qzm+!)Fdu7$$\"+k&)p8_Fdu$\"+:$Qz,)Fdu7$$\"+9(GcA&Fdu$\"+,A(H.)Fdu7$ $\"+9O^Q_Fdu$\"+4#4#\\!)Fdu7$$\"+u\\#=D&Fdu$\"+GO)f1)Fdu7$$\"+Wv%[E&Fd u$\"+CTR#3)Fdu7$$\"+WvWx_Fdu$\"+B@F)4)Fdu7$$\"+/xV\"H&Fdu$\"+M>!f6)Fdu 7$$\"+%[3SI&Fdu$\"+-JuJ\")Fdu7$$\"+u/V<`Fdu$\"+Jpl[\")Fdu7$$\"+%y#fH`F du$\"+uL)R;)Fdu7$$\"+9%*)GM&Fdu$\"+D#R2=)Fdu7$$\"+%\\+aN&Fdu$\"+u^]'>) Fdu7$$\"+%>y%o`Fdu$\"+M^)H@)Fdu7$$\"+CSE\"Q&Fdu$\"+2t4H#)Fdu7$$\"+/'\\ YR&Fdu$\"+f_'fC)Fdu7$$\"+9:a2aFdu$\"+-6@i#)Fdu7$$\"+W`s?aFdu$\"+@[#)y# )Fdu7$$\"+9+!QV&Fdu$\"+s4I&H)Fdu7$$\"+uU\"eW&Fdu$\"+V3W5$)Fdu7$$\"+uRe faFdu$\"+WGzF$)Fdu7$$\"+k(**=Z&Fdu$\"+\"o7LM)Fdu7$$\"+a4.&[&Fdu$\"+j+' )f$)Fdu7$$\"+%=*f(\\&Fdu$\"+?!)pv$)Fdu7$$\"+ka56bFdu$\"+n!=FR)FduFgdl- F$6$7S7$F(F(7$F(F/7$F(F27$F(F57$F(F87$F(F;7$F(F>7$F(FA7$F(FD7$F(FG7$F( FJ7$F(FM7$F(FP7$F(FS7$F(FV7$F(FY7$F(Ffn7$F(Fin7$F(F\\o7$F(F_o7$F(Fbo7$ F(Feo7$F(Fho7$F(F[p7$F(F^p7$F(Fap7$F(Fdp7$F(Fgp7$F(Fjp7$F(F]q7$F(F`q7$ F(Fcq7$F(Ffq7$F(Fiq7$F(F\\r7$F(F_r7$F(Fbr7$F(Fer7$F(Fhr7$F(F[s7$F(F^s7 $F(Fas7$F(Fds7$F(Fgs7$F(Fjs7$F(F]t7$F(F`t7$F(FctF'Fft-F$6$7SFddm7$F/F( 7$F2F(7$F5F(7$F8F(7$F;F(7$F>F(7$FAF(7$FDF(7$FGF(7$FJF(7$FMF(7$FPF(7$FS F(7$FVF(7$FYF(7$FfnF(7$FinF(7$F\\oF(7$F_oF(7$FboF(7$FeoF(7$FhoF(7$F[pF (7$F^pF(7$FapF(7$FdpF(7$FgpF(7$FjpF(7$F]qF(7$F`qF(7$FcqF(7$FfqF(7$FiqF (7$F\\rF(7$F_rF(7$FbrF(7$FerF(7$FhrF(7$F[sF(7$F^sF(7$FasF(7$FdsF(7$Fgs F(7$FjsF(7$F]tF(7$F`tF(7$FctF(7$F+F(Fft-F$6$7SFfjm7$F+F/7$F+F27$F+F57$ F+F87$F+F;7$F+F>7$F+FA7$F+FD7$F+FG7$F+FJ7$F+FM7$F+FP7$F+FS7$F+FV7$F+FY 7$F+Ffn7$F+Fin7$F+F\\o7$F+F_o7$F+Fbo7$F+Feo7$F+Fho7$F+F[p7$F+F^p7$F+Fa p7$F+Fdp7$F+Fgp7$F+Fjp7$F+F]q7$F+F`q7$F+Fcq7$F+Ffq7$F+Fiq7$F+F\\r7$F+F _r7$F+Fbr7$F+Fer7$F+Fhr7$F+F[s7$F+F^s7$F+Fas7$F+Fds7$F+Fgs7$F+Fjs7$F+F ]t7$F+F`t7$F+FctFetFft-F$6$7SFau7$$\"+XG7zbFdu$\"+\"eO@1(Fdu7$$\"+;Avl bFdu$\"+fousqFdu7$$\"+Wbr]bFdu$\"+F#zY3(Fdu7$$\"+,#zb`&Fdu$\"+!p!p'4(F du7$$\"+(z90_&Fdu$\"+l]k3rFdu7$$\"+m\"[l]&Fdu$\"+,$G(>rFdu7$$\"+Il3#\\ &Fdu$\"+\\V?JrFdu7$$\"+%GIrZ&Fdu$\"+&*G2VrFdu7$$\"+.?AiaFdu$\"+yL!\\:( Fdu7$$\"+/q)oW&Fdu$\"+%[sq;(Fdu7$$\"+H*zLV&Fdu$\"+R5zxrFdu7$$\"+hT<=aF du$\"+%fd)*=(Fdu7$$\"+cf!HS&Fdu$\"+'pt>?(Fdu7$$\"+7A>)Q&Fdu$\"+/)\\O@( Fdu7$$\"+B2$[P&Fdu$\"+HGDCsFdu7$$\"+?E%*e`Fdu$\"+^3'oB(Fdu7$$\"+8L[X`F du$\"++:aZsFdu7$$\"+Rp#)H`Fdu$\"+Lc'*fsFdu7$$\"+&RofJ&Fdu$\"+(4j4F(Fdu 7$$\"+wLw+`Fdu$\"+d!HIG(Fdu7$$\"+.YG'G&Fdu$\"+/(=XH(Fdu7$$\"+?v&Fdu$\"+ %\\eSO(Fdu7$$\"+*[cN=&Fdu$\"+<(QgP(Fdu7$$\"+Vqyo^Fdu$\"+G!fxQ(Fdu7$$\" +Wo\\a^Fdu$\"+K!*4*R(Fdu7$$\"+9+jQ^Fdu$\"+t,p6uFdu7$$\"+jHPC^Fdu$\"+sQ +BuFdu7$$\"+<0:4^Fdu$\"+iO3NuFdu7$$\"+*\\Fdu$\"+`!\\!GvFdu7$$\"+!)3Gz%\\Fdu$\"+?=-jvFdu7$$ \"+U.'R$\\Fdu$\"+Eg5uvFdu7$$\"+)pn!>\\Fdu$\"+,T#fe(Fdu7$$\"+ON\"[!\\Fd u$\"+2bB(f(FduF\\elFgdl-F$6$7SFbdl7$$\"+:Gt+iFdu$\"+\"\\ja%yFdu7$$\"+' =it='Fdu$\"+pP2cyFdu7$$\"+9bKshFdu$\"+Ph+oyFdu7$$\"+r\"*=dhFdu$\"++w,! )yFdu7$$\"+nZ7UhFdu$\"+v>(>*yFdu7$$\"+O\"e\"GhFdu$\"+6_0.zFdu7$$\"++lp 8hFdu$\"+f7`9zFdu7$$\"+a-u)4'Fdu$\"+0)*REzFdu7$$\"+t>$Q3'Fdu$\"+)GI#Qz Fdu7$$\"+up\\ogFdu$\"+%R*R]zFdu7$$\"+**)*)\\0'Fdu$\"+\\z6hzFdu7$$\"+JT yRgFdu$\"+/X=tzFdu7$$\"+Ef^CgFdu$\"+11I&)zFdu7$$\"+#=-)4gFdu$\"+9n(p*z Fdu7$$\"+$pSk*fFdu$\"+R(zv+)Fdu7$$\"+!f_0)fFdu$\"+hx=?!)Fdu7$$\"+$G$4n fFdu$\"+5%o3.)Fdu7$$\"+4pV^fFdu$\"+VDHV!)Fdu7$$\"+l$yv$fFdu$\"+2+Ha!)F du7$$\"+YLPAfFdu$\"+nfNm!)Fdu7$$\"+tX*y!fFdu$\"+9c%y2)Fdu7$$\"+!\\(y#* eFdu$\"+dQ$)*3)Fdu7$$\"+uW\"*yeFdu$\"+0G%35)Fdu7$$\"+^0&R'eFdu$\"+Vur7 \")Fdu7$$\"+TsS[eFdu$\"+b=0D\")Fdu7$$\"+Wn([$eFdu$\"+'**)yN\")Fdu7$$\" +OME?eFdu$\"+/aQZ\")Fdu7$$\"+fk;0eFdu$\"+FcOf\")Fdu7$$\"+8qR!z&Fdu$\"+ Qf3r\")Fdu7$$\"+9o5wdFdu$\"+UfU#=)Fdu7$$\"+%)*R-w&Fdu$\"+$3<]>)Fdu7$$ \"+LH)fu&Fdu$\"+#yIj?)Fdu7$$\"+([g2t&Fdu$\"+s0T=#)Fdu7$$\"+(ompr&Fdu$ \"+dmNH#)Fdu7$$\"+Ak)=q&Fdu$\"+>OKT#)Fdu7$$\"+oqp(o&Fdu$\"+(f$e_#)Fdu7 $$\"+/^'Gn&Fdu$\"+>NNk#)Fdu7$$\"+[TOecFdu$\"+p2'eF)Fdu7$$\"+#*H=VcFdu$ \"+$z2zG)Fdu7$$\"+L " 0 " " {MPLTEXT 1 0 32 "aa := [seq(x*y+ Pi/i^2,i=1..3)];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "map(evalf,aa);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%#aaG7%,&*&%\"xG\"\"\"%\"yGF)F)%#PiGF),&F'F)*&#F)\"\"%F)F+F)F),&F'F)* &#F)\"\"*F)F+F)F)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%,&*&%\"xG\"\"\" %\"yGF'F'$\"+aEfTJ!\"*F',&F%F'$\"+N;)R&y!#5F',&F%F'$\"+/&e1\\$F/F'" }} }{EXCHG {PARA 262 "" 0 "" {TEXT -1 349 "Map2 is like map except that i t applies its first argument (a function like\nthe substitution functi on subs) to each operand of its third argument\n (e.g. the list) using map2's second argument (e.g. a set of substitutions\}\nas the first a rgument of each function call.\nThus the example below substitutes x=u *v and y = u+v in each entry of\nthe list aa." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "map2(subs,\{x=u*v,y=u+v\},aa);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%,&*(%\"uG\"\"\"%\"vGF',&F&F'F(F'F'F'%#PiGF',&F%F'*&#F '\"\"%F'F*F'F',&F%F'*&#F'\"\"*F'F*F'F'" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 281 63 "You can also use functions defined on the fly with map o r map2." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "map(t ->evalf(t^2),aa); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%*$),&*&%\"xG\"\"\"%\"yGF)F)$\"+a EfTJ!\"*F)\"\"#F)*$),&F'F)$\"+N;)R&y!#5F)F.F)*$),&F'F)$\"+/&e1\\$F4F)F .F)" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 62 "Maple Syntax: Another Wa y to Compute the Linear Approximation:" }}{EXCHG {PARA 0 "" 0 "" {TEXT 283 75 "This way is easier, but perhaps more demanding of\ncomfo rt with programming." }}}{EXCHG {PARA 0 "" 0 "" {TEXT 282 47 "Specify \+ the point where evaluation will happen." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "pt := [.9,.9];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#ptG7$$\" \"*!\"\"F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 284 83 "The @ sign below i s composition, so that each entry will be converted to a decimal." }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "val := map2(evalf@subs,\{x=pt[1],y= pt[2]\},F);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$valG7$$\"+:(*[%f&!#5 $\"+'=U*\\qF(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "L := map2( evalf@subs,\{x=pt[1],y=pt[2]\},F_deriv);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"LG-%'matrixG6#7$7$$\"+$o*4;i!#5$!+'=U*\\qF,7$$\"+'4pK$yF,$\" +:(*[%f&F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "L_expn :=eval m(L &* vector([x-.9,y-.9])+ val); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%'L_expnG-%'vectorG6#7$,(%\"xG$\"+$o*4;i!#5$\"+nz%\\M'F-\"\"\"*&$\"+' =U*\\qF-F0%\"yGF0!\"\",(F*$\"+'4pK$yF-$\"+W2/N]F-F5*&$\"+:(*[%f&F-F0F4 F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{SECT 0 {PARA 3 "" 0 "" {TEXT 271 51 "Images of Tangents to Curves under Trans formations." }}{EXCHG {PARA 256 "" 0 "" {TEXT 262 143 "Under a functio n , the tangent line to a curve gets mapped by the derivative to the \+ tangent line of the image curve. \nHere's an illustration:" }}} {EXCHG {PARA 256 "" 0 "" {TEXT 270 69 "First the helix t-> (cos(t),sin (t),t/20) with a tangent at t= Pi/4:" }{MPLTEXT 1 0 0 "" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 52 "Details o f drawing the helix with its tangent line.\n" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "helix_param := [cos(t),sin(t),t/20];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "helix_gr := spacecurve(helix_param,t = 0 ..20 ,thickness=3):" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%,helix_paramG7%-%$ cosG6#%\"tG-%$sinGF(,$F)#\"\"\"\"#?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "helix_point := map(simplify,(map2(subs,t=Pi/4,helix_p aram)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%,helix_pointG7%,$*$-%%sq rtG6#\"\"#\"\"\"#F,F+F&,$%#PiG#F,\"#!)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "helix_tan_vec := map(simplify,(map2(subs,t=Pi/4,map(d iff,helix_param,t))));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%.helix_tan _vecG7%,$*$-%%sqrtG6#\"\"#\"\"\"#!\"\"F+,$F'#F,F+#F,\"#?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "helix_tan := spacecurve(evalm(helix _point+t*helix_tan_vec),t=-1..1,color=red,thickness=3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "display(\{helix_tan,helix_gr\});" } }{PARA 13 "" 1 "" {GLPLOT3D 400 300 300 {PLOTDATA 3 "6%-%'CURVESG6$7T7 %$\"\"\"\"\"!$F*F*F+7%$\"+]T^y\"*!#5$\"+*[T#pRF/$\"+Fj\"3/#!#67%$\"++W -\\oF/$\"+NyM'G(F/$\"+`Ej\"3%F47%$\"+B$fUR$F/$\"+^yK1%*F/$\"+!)*[C7'F4 7%$!+9&H<='F4$\"+@[(3)**F/$\"+0`Ej\")F47%$!+f6/HXF/$\"+2Bf:*)F/$\"+j\" 3/-\"F/7%$!+B2!ep(F/$\"+4K]&Q'F/$\"+'z*[C7F/7%$!+4?;)f*F/$\"+1SH1GF/$ \"+G9dG9F/7%$!+UCdB**F/$!+f8)RB\"F/$\"+hIlK;F/7%$!+3!o&=')F/$!+!3<:2&F /$\"+$pMn$=F/7%$!+Vsb(*eF/$!+)*o\"e2)F/$\"+Ej\"3/#F/7%$!+:Xf2AF/$!+bGG `(*F/$\"+ez*[C#F/7%$\"+W(p]%=F/$!+W?JG)*F/$\"+\"fz*[CF/7%$\"+nUf%f&F/$ !+!Qx&)G)F/$\"+B71`EF/7%$\"+&yU\\U)F/$!+7H0(Q&F/$\"+cG9dGF/7%$\"+[q4r) *F/$!+'*3X+;F/$\"+)[C71$F/7%$\"+.!eap*F/$\"+s15\\CF/$\"+@hIlKF/7%$\"+ \\E)o#zF/$\"+K>F'4'F/$\"+`xQpMF/7%$\"+6H%f&[F/$\"+mH%=u)F/$\"+'QpMn$F/ 7%$\"+a\\&=()*F4$\"+VR:^**F/$\"+=5bxQF/7%$!+.PwVIF/$\"+\"\\=b_*F/$\"+^ Ej\"3%F/7%$!+R6julF/$\"+5t'[`(F/$\"+$G9dG%F/7%$!+(G0`-*F/$\"+c(eiI%F/$ \"+;fz*[%F/7%$!+?t9$***F/$\"+_2W,PF4$\"+[v(Qp%F/7%$!+JN9>$*F/$!+HUyEOF /$\"+!=fz*[F/7%$!+23.9rF/$!+y@%y-(F/$\"+:3/-^F/7%$!+CH5SPF/$!+GbCu#*F/ $\"+]C71`F/7%$\"+#*H8$[#F4$!+]l\"p***F/$\"+&3/-^&F/7%$\"+\\B$f>%F/$!+O C7x!*F/$\"+?dG9dF/7%$\"+t:ZC'**F/$\"+d#4#e')F4$\"+D1`EjF/7%$\"+**4Q+ ))F/$\"+x3.\\ZF/$\"+gAhIlF/7%$\"+wqV#>'F/$\"+y%))>&yF/$\"+&*QpMnF/7%$ \"+VK4nDF/$\"+jl)[m*F/$\"+IbxQpF/7%$!+an,![\"F/$\"+-6()*))*F/$\"+lr&G9 (F/7%$!+#=kRG&F/$\"+px(**[)F/$\"++)QpM(F/7%$!+G7x>#)F/$\"+%30_p&F/$\"+ N/-^vF/7%$!+$4$40)*F/$\"++jsk>F/$\"+q?5bxF/7%$!+ueYz(*F/$!+i9b)3#F/$\" +0P=fzF/7%$!+_+5Z\")F/$!+Aho)z&F/$\"+S`Ej\")F/7%$!+;()=w^F/$!+TI6c&)F/ $\"+vpMn$)F/7%$!+/U%[N\"F/$!+pZz2**F/$\"+5'G9d)F/7%$\"+#Q(4*o#F/$!+=Ql J'*F/$\"+X-^v()F/7%$\"+oyA\"H'F/$!+n$fIx(F/$\"+!)=fz*)F/7%$\"+'RF(f))F /$!+IKPPYF/$\"+:Nn$=*F/7%$\"+`()fs**F/$!+wxz(R(F4$\"+]^v(Q*F/7%$\"+>.+ Z%*F/$\"+,uNzKF/$\"+&yO=f*F/7%$\"+LkGptF/$\"+FaqfnF/$\"+?%=fz*F/7%$\"+ 9'>33%F/$\"+cHXH\"*F/$\"+1+++5!\"*-%*THICKNESSG6#\"\"$-F$6%7T7%$\"+iN@ 99F_alF+$!+$=4I2\"F47%$\"+h?N&Q\"F_al$\"+D,:')GF4$!+0bF*o)!#77%$\"+g0 \\c8F_al$\"+]-IsdF4$!+!=f%[mFcbl7%$\"+f!HwK\"F_al$\"+v.Xe')F4$!+bGk2YF cbl7%$\"+dvw)H\"F_al$\"+]+Ya6F/$!+Il#oc#Fcbl7%$\"+cg!*p7F_al$\"+j]2V9F /$!+^?5g_!#87%$\"+bX/T7F_al$\"+v+pJv$F/$\"+R?0!e\"F47%$\"+XD:55 F_al$\"+v,hSSF/$\"+sO8%y\"F47%$\"+O/\"H\")*F/$\"+)=D#HVF/$\"+/`@))>F47 %$\"+CaHC&*F/$\"++-%yh%F/$\"+PpH#>#F47%$\"+6/oN#*F/$\"+8_X1\\F/$\"+p&y jR#F47%$\"+*Rlq%*)F/$\"+D-2&>&F/$\"+--Y+EF47%$\"+'Q]%e')F/$\"+Q_o$[&F/ $\"+M=a/GF47%$\"+t`$)p$)F/$FhblF/$\"+nMi3IF47%$\"+h.A\"3)F/$\"+j_\"41' F/$\"+*40F@$F47%$\"+[`g#z(F/$\"+v-`\\jF/$\"+Kny;MF47%$\"+O.*R](F/$\"+) GX\"QmF/$\"+l$o3i$F47%$\"+B`P:sF/$\"+,.wEpF/$\"+(**\\\\#QF47%$\"+5.wEp F/$\"+8`P:sF/$\"+I;.HSF47%$\"+)HX\"QmF/$\"+E.*R](F/$\"+jK6LUF47%$\"+&G I&\\jF/$\"+R`g#z(F/$\"+&*[>PWF47%$\"+t_\"41'F/$\"+^.A\"3)F/$\"+FlFTYF4 7%$\"+g-IsdF/$\"+k`$)p$)F/$\"+g\"e`%[F47%$\"+[_o$[&F/$\"+w.Xe')F/$\"+# zR%\\]F47%$\"+N-2&>&F/$\"+*Qlq%*)F/$\"+D9_`_F47%$\"+B_X1\\F/$\"+,/oN#* F/$\"+dIgdaF47%$\"+5-%yh%F/$\"+9aHC&*F/$\"+!p%ohcF47%$\"+)>D#HVF/$\"+E /\"H\")*F/$\"+AjwleF47%$\"+&=51/%F/$\"+WD:55F_al$\"+bz%)pgF47%$\"+t^*> v$F/$\"+XS,R5F_al$\"+(eHRF'F47%$\"+g,QjMF/$\"+Yb(y1\"F_al$\"+?7,ykF47% $\"+[^wuJF/$\"+[qt'4\"F_al$\"+_G4#o'F47%$\"+N,:')GF/$\"+\\&)fD6F_al$\" +&[uh)oF47%$\"+B^`(f#F/$FfclF_al$\"+%)\\(F47%$\"+&3!pJ$\"+hN@99F_al$\"+53*p#*)F4-%'COLOURG6 &%$RGBG$\"*++++\"!\")F+F+F`al-%*AXESSTYLEG6#%&FRAMEG" 1 2 0 1 10 0 2 1 1 3 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}} {PARA 11 "" 0 "" {TEXT -1 0 "" }}}{PARA 261 "" 0 "" {TEXT -1 0 "" }} {EXCHG {PARA 0 "" 0 "" {TEXT 272 63 "Now the image of the helix under \+ the map (x,y,z) -> (zx, zy,z)." }}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 64 "Details of drawing the image of the helix with its tangent line." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "F2 := (x,y,z) -> [z*x, z*y, z];" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#F2Gf*6%%\"xG%\"yG%\"zG6\"6$%)operatorG%&arrowGF*7% *&9&\"\"\"9$F1*&F0F19%F1F0F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "im_helix_param := F2(op(helix_param));" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%/im_helix_paramG7%,$*&%\"tG\"\"\"-%$cosG6#F(F) #F)\"#?,$*&F(F)-%$sinGF,F)F-,$F(F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "im_helix_gr := spacecurve(im_helix_param,t = 0 ..20,t hickness=3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "im_helix_po int := map(simplify,(map2(subs,t=Pi/4,im_helix_param)));" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%/im_helix_pointG7%,$*&%#PiG\"\"\"-%%sqrtG6#\" \"#F)#F)\"$g\"F&,$F(#F)\"#!)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "im_helix_tan_vec := map(simplify,(map2(subs,t=Pi/4,map(diff,im_h elix_param,t))));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%1im_helix_tan_v ecG7%,&*$-%%sqrtG6#\"\"#\"\"\"#F,\"#S*&#F,\"$g\"F,*&%#PiGF,F(F,F,!\"\" ,&F'F-*(#F,F1F,F3F,F(F,F,#F,\"#?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "im_helix_tan := spacecurve(evalm(im_helix_point+t*im_ helix_tan_vec),t=-1..1,color=red,thickness=3):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 47 "display(\{im_helix_gr,im_helix_tan\},axes=boxe d);" }}{PARA 13 "" 1 "" {GLPLOT3D 400 300 300 {PLOTDATA 3 "6%-%'CURVES G6$7T7%$\"\"!F)F(F(7%$\"+`h;t=!#6$\"+NG\\+\")!#7$\"+Fj\"3/#F-7%$\"+j,_ &z#F-$\"+C&>S(HF-$\"+`Ej\"3%F-7%$\"+`z6y?F-$\"+Oi(*edF-$\"+!)*[C7'F-7% $!+2)4j/&F0$\"+9HlZ\")F-$\"+0`Ej\")F-7%$!+q0Z@YF-$\"+oJa(4*F-$\"+j\"3/ -\"!#57%$!+a%HMU*F-$\"+=N)*=yF-$\"+'z*[C7FO7%$!+,g;r8FO$\"+O9**3SF-$\" +G9dG9FO7%$!+#4v,i\"FO$!+VMm9?F-$\"+hIlK;FO7%$!+'G-Ie\"FO$!+m8.:$*F-$ \"+$pMn$=FO7%$!+5Je.7FO$!+(*e7[;FO$\"+Ej\"3/#FO7%$!+=W#e&\\F-$!+xC^*=# FO$\"+ez*[C#FO7%$\"+Z\"Q&=XF-$!+hN$pS#FO$\"+\"fz*[CFO7%$\"+6,G%[\"FO$! +C.,*>#FO$\"+B71`EFO7%$\"+4l72CFO$!+uz:R:FO$\"+cG9dGFO7%$\"+,Ww@IFO$!+ u%R$**[F-$\"+)[C71$FO7%$\"+OQ'e;$FO$\"+:M1(*zF-$\"+@hIlKFO7%$\"+eH9]FF O$\"+=J.:@FO$\"+`xQpMFO7%$\"+id\"Qy\"FO$\"+^#*G6KFO$\"+'QpMn$FO7%$\"+B @'y#QF-$\"+52heQFO$\"+=5bxQFO7%$!+JDNU7FO$\"+Hn'z)QFO$\"+^Ej\"3%FO7%$! +e!*pFO$\"+;fz*[%FO 7%$!+%)4m!p%FO$\"+k4TPFO$!+S#G5#\\FO$\"+]C71` FO7%$\"+bpDo8F-$!+T]]3bFO$\"+&3/-^&FO7%$\"+Icn(R#FO$!+7r#p=&FO$\"+?dG9 dFO7%$\"+pDl6WFO$!+wMFO$\"+!**[C 7'FO7%$\"+GFx-jFO$\"+-EkxaF-$\"+D1`EjFO7%$\"+/w=ZdFO$\"+FzS,JFO$\"+gAh IlFO7%$\"+kqFO$\"+lr&G9(FO7%$!+Zh4#)QFO$\"+3Z`PiFO$ \"++)QpM(FO7%$!+_gw1iFO$\"+(*4Y+VFO$\"+N/-^vFO7%$!+u(\\Rg(FO$\"++`mB:F O$\"+q?5bxFO7%$!+Vll$y(FO$!+xkJi;FO$\"+0P=fzFO7%$!+ZRp]mFO$!+W8iLZFO$ \"+S`Ej\")FO7%$!++n4JVFO$!+dm>frFO$\"+vpMn$)FO7%$!+P]Hh6FO$!+abR#\\)FO $\"+5'G9d)FO7%$\"+i,#)fBFO$!+wwE_%)FO$\"+X-^v()FO7%$\"+oeE\\cFO$!+x+*) zpFO$\"+!)=fz*)FO7%$\"+%Q%[O\")FO$!+r@\")eUFO$\"+:Nn$=*FO7%$\"+I:.i$*F O$!+<9([%pF-$\"+]^v(Q*FO7%$\"+<&391*FO$\"+&41b9$FO$\"+&yO=f*FO7%$\"+sG *)=sFO$\"+\"H_33%FO$\"+1IXH\"*FO$\"+1+++5!\" *-%*THICKNESSG6#\"\"$-F$6%7T7%$\"+n(p!=?F-$!+1R`NNF-$!+$=4I2\"F-7%$\"+ B%Q!\\?F-$!+\\v)yF$F-$!+0bF*o)F07%$\"+zq+!3#F-$!+$>T--$F-$!+!=f%[mF07% $\"+Md(46#F-$!+O[fiFF-$!+bGk2YF07%$\"+!RW>9#F-$!+z%[\\]#F-$!+Il#oc#F07 %$\"+YI\"H<#F-$!+B@IZAF-$!+^?5g_!#87%$\"+-<)Q?#F-$!+mdl*)>F-$\"+?h![^ \"F07%$\"+e.&[B#F-$!+4%4?t\"F-$\"+XCibNF07%$\"+9!>eE#F-$!+`IOu9F-$\"+q (Qkf&F07%$\"+qwy'H#F-$!+'p;n@\"F-$\"+&4bsj(F07%$\"+EjvFBF-$!+'R.2f*F0$ \"+?92y'*F07%$\"+\")\\seBF-$!+I)RU,(F0$\"+u())=<\"F-7%$\"+POp*Q#F-$!+j ixPWF0$\"+2/(fP\"F-7%$\"+$Hi1U#F-$!+(p78'=F0$\"+R?0!e\"F-7%$\"+\\4j^CF -$\"+&p3::(F`dl$\"+sO8%y\"F-7%$\"+0'*f#[#F-$\"+OWh\"H$F0$\"+/`@))>F-7% $\"+h#oN^#F-$\"+-!y!oeF0$\"+PpH#>#F-7%$\"+!Q*p#F-$\"+SfoK@F-$\"+Kny;MF-7%$\"+_)[.t#F-$\"+(HK.R#F-$ \"+l$o3i$F-7%$\"+3vJhFF-$\"+a'yzk#F-$\"+(**\\\\#QF-7%$\"+khG#z#F-$\"+6 ]i0HF-$\"+I;.HSF-7%$\"+?[DBGF-$\"+n8FjJF-$\"+jK6LUF-7%$\"+wMAaGF-$\"+C x\"4U$F-$\"+&*[>PWF-7%$\"+J@>&)GF-$\"+!3k&yOF-$\"+FlFTYF-7%$\"+(ygh\"H F-$\"+P/@ORF-$\"+g\"e`%[F-7%$\"+V%Hr%HF-$\"+%zcQ>%F-$\"+#zR%\\]F-7%$\" +*4)4yHF-$\"+]J]^WF-$\"+D9_`_F-7%$\"+bn14IF-$\"+2&\\\"4ZF-$\"+dIgdaF-7 %$\"+6a.SIF-$\"+kezm\\F-$\"+!p%ohcF-7%$\"+nS+rIF-$\"+?AWC_F-$\"+AjwleF -7%$\"+BF(>5$F-$\"+x&)3#[&F-$\"+bz%)pgF-7%$\"+y8%H8$F-$\"+M\\tRdF-$\"+ (eHRF'F-7%$\"+M+\"R;$F-$\"+!H\"Q(*fF-$\"+?7,ykF-7%$\"+!py[>$F-$\"+Zw-b iF-$\"+_G4#o'F-7%$\"+Yt%eA$F-$\"+.Sn7lF-$\"+&[uh)oF-7%$\"+-g\"oD$F-$\" +g.KqnF-$\"+%)\\(F-7%$\"+q>s\\LF-$\"+I%fKa(F-$\"+:5]-xF-7%$\"+ D1p!Q$F-$\"+(y04!yF-$\"+ZEe1zF-7%$\"+\"Gf;T$F-$\"+V@be!)F-$\"+!Gk16)F- 7%$\"+PziUMF-$\"++&)>;$)F-$\"+7fu9$)F-7%$\"+$f'ftMF-$\"+d[%Qd)F-$\"+Xv #)=&)F-7%$\"+\\_c/NF-$\"+87\\J))F-$\"+x\"4Hs)F-7%$\"+0R`NNF-$\"+qv8*3* F-$\"+53*p#*)F--%'COLOURG6&%$RGBG$\"*++++\"!\")F(F(F_al-%*AXESSTYLEG6# %$BOXG" 1 2 0 1 10 0 2 1 1 2 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "10" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }