{VERSION 4 0 "IBM INTEL NT" "4.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Eurasia" 1 14 0 0 1 1 0 0 0 0 1 0 0 0 0 1 }{CSTYLE "moi" -1 256 "Times" 1 12 0 0 1 1 0 0 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Century Schoolbook" 1 10 0 128 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 "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Century Schoolbook" 1 10 0 128 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 "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Lucida Sans" 1 12 0 0 255 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 Fo nt 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "restart:ps:=proc(u,v )\nu[1]*v[1]+u[2]*v[2]\nend:\npv:=proc(u,v)\nu[1]*v[2]-u[2]*v[1]\nend: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 253 "d1:=proc(M,A,B);\nif p v(B-A,M-A)<=0 then 0\nelif ps(M-A,B-A)<=0 then ps(M-A,M-A)\nelif ps(M- B,A-B)<=0 then ps(M-B,M-B)\nelse pv(B-A,M-A)^2/ps(B-A,B-A) fi:\nend:\n d2:=proc(M,contour)\nn:=nops(contour)-1:\nsqrt(min(seq(d1(M,contour[k] ,contour[k+1]),k=1..n)))\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "cont:=[[0,0],[1,0],[2,1],[2,2],[0,2],[0,0]]:\nf:=(x,y)->d2([x, y],cont):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "plot3d(f,0..2 ,0..2,style=patchcontour,scaling=constrained,lightmodel=light2,grid=[2 0,20],contours=8);" }}{PARA 13 "" 1 "" {GLPLOT3D 400 300 300 {PLOTDATA 3 "6'-%%GRIDG6%;$\"\"!F($\"\"#F(F&7676F'F'F'F'F'F'F'F'F'F'F' F'F'F'F'F'F'F'F'F'76F'$\"+z:j_5!#5F.F.F.F.F.F.F.F.F.F.F.F.F.F.F.F.$\"+ q:j_5F0F'76F'F.$\"+eJE0@F0F4F4F4F4F4F4F4F4F4F4F4F4F4F4$\"+]JE0@F0F1F'7 6F'F.F4$\"+PZ*y:$F0F9F9F9F9F9F9F9F9F9F9F9F9$\"+IZ*y:$F0F6F1F'76F'F.F4F 9$\"+;j_5UF0F>F>F>F>F>F>F>F>F>F>$\"+5j_5UF0F;F6F1F'76F'F.F4F9F>$\"+%*y :j_F0FCFCFCFCFCFCFCFC$\"+!*y:j_F0F@F;F6F1F'76F'F.F4F9F>$\"+&*y:j_F0$\" +u%*y:jF0$\"+w%*y:jF0FLFLFLFLFL$\"+p%*y:jF0FEF@F;F6F1F'76F'F.F4F9F>FHF J$\"+7y1rqF0$\"+b5UotF0FSFSFS$\"+^5UotF0FNFEF@F;F6F1F'76F'F.F4F9$\"+-h x$4%F0$\"+I!*4Q[F0$\"+c>U#e&F0$\"+%)[uEjF0FQ$\"+R2R:yF0$\"+IE0@%)F0F\\ oFUFNFEF@F;F6F1F'76F'F.$\"+>t!3'=F0$\"+Y-80EF0$\"+tJX\\LF0FXFZFfnFhnFQ FjnF\\oFUFNFEF@F;F6F1F'76F'$\"+NYh@P!#6$\"+\"R%[;6F0F_oFaoFcoFXFZFfnFh nFQFjnFUFNFEF@F;F6F1F'76F'F'$\"+GYh@PFho$\"+!R%[;6F0$\"+=t!3'=F0$\"+X- 80EF0Fco$\"++hx$4%F0$\"+G!*4Q[F0Ffn$\"+$)[uEjF0FQFUFNFEF@F;F6F1F'76F'F 'F'$\"+?Yh@PFhoF^p$\"+U#e&F0FhpFQFNFEF@F;F6F 1F'76F'F'F'F'$\"+8Yh@PFho$\"+*Q%[;6F0$\"+;t!3'=F0$\"+W-80EF0$\"+sJX\\L F0$\"+*4wP4%F0FfpF_q$\"+q%*y:jF0FNFEF@F;F6F1F'76F'F'F'F'F'$\"+2Yh@PFho $\"+)Q%[;6F0Ffq$\"+V-80EF0$\"+qJX\\LF0$\"+)4wP4%F0FfpFEFEFEF@F;F6F1F'7 6F'F'F'F'F'F'$\"+)f9;s$FhoFcr$\"+:t!3'=F0$\"+U-80EF0FgrFirF@F@F@F@F;F6 F1F'76F'F'F'F'F'F'F'$\"+#f9;s$Fho$\"+(Q%[;6F0F^sF`sF;F;F;F;F;F;F6F1F'7 6F'F'F'F'F'F'F'F'$\"+&e9;s$Fho$\"+'Q%[;6F0$\"+9t!3'=F0F6F6F6F6F6F6F6F1 F'76F'F'F'F'F'F'F'F'F'$\"+xXh@PFhoF1F1F1F1F1F1F1F1F1F'F,-%)CONTOURSG6# \"\")-%+LIGHTMODELG6#%(LIGHT_2G-%&STYLEG6#%-PATCHCONTOURG-%(SCALINGG6# %,CONSTRAINEDG" 1 4 0 1 10 0 2 1 4 1 1 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "plot3d(f,0.. 2,0..2,style=patchnogrid,scaling=constrained,lightmodel=light2,grid=[5 0,50]);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "plot3d(f,0..2,0..2,scaling=constrained,grid=[50,50],o rientation=[-90,0],color=black,contours=8);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "cont:=[[0,0],[2,0 ],[1.5,1],[0,0]]:\nf:=(x,y)->d2([x,y],cont):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "plot3d(f,0..2,0..1,style=patchcontour,scaling=c onstrained,lightmodel=light2,grid=[20,20],contours=8);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 135 "plot3 d(f,0..2,0..1,style=patchnogrid,scaling=constrained,lightmodel=light2, grid=[50,50],view=[0..3,0..1,0.03..1],orientation=[-97,34]);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 110 "plot3d(f,0..3,0..1,scaling=constrained,style=contour,grid=[50,50],ori entation=[-90,0],color=black,contours=8);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "cont:=[[0,0],[2,0 ],[2,1],[0,1],[0,0]]:\nf:=(x,y)->d2([x,y],cont):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "plot3d(f,0..1,0..1,style=patchcontour,scalin g=constrained,lightmodel=light2,grid=[20,20],contours=8);" }}{PARA 13 "" 1 "" {GLPLOT3D 400 300 300 {PLOTDATA 3 "6'-%%GRIDG6%;$\"\"!F($\"\" \"F(F&7676F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'76F'$\"+%*y:j_!#6$\" +&*y:j_F0F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1$\"+@y:j_F0F'76F'F.$\"+z:j_5!#5 F6F6F6F6F6F6F6F6F6F6F6F6F6F6$\"+s:j_5F8F3F'76F'F.F6$\"+ot%*y:F8FF9F3F'76F'F.F6FF9F3F'76F'F.F6FF9F3F'76F'F.F6FF9F3F '76F'F.F6FF9F3F '76F'F.F6Fj_5UF8$\"+3@%ot%F8$\"+-@%ot%F8FYFRFMFHFCF>F9F3 F'FenFenFenFenFenFenFenFenFenFen-%)CONTOURSG6#\"\")-%&STYLEG6#%-PATCHC ONTOURG-%+LIGHTMODELG6#%(LIGHT_2G-%(SCALINGG6#%,CONSTRAINEDG" 1 4 0 1 10 0 2 1 4 1 1 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 164 "plot3d(f,0..2,0..1,style=patchnogr id,scaling=constrained,lightmodel=light2,color=COLOR(RGB,1,0.9,0.2),gr id=[100,100],view=[0..2,0..1,0.03..1],orientation=[-97,34]);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 113 "plot3d(f,0..1,0..1.03,scaling=constrained,style=contour,grid=[50,50], orientation=[-90,0],color=black,contours=8);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "cont:=[[0,0 ],[6,0],[3,4],[2.5,4.2],[0,2],[0,0]]:\nf:=(x,y)->d2([x,y],cont):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "plot3d(f,0..6,0..4.5,style= patchcontour,scaling=constrained,lightmodel=light2,grid=[20,20],contou rs=8);" }}{PARA 13 "" 1 "" {GLPLOT3D 400 300 300 {PLOTDATA 3 "6'-%%GRI DG6%;$\"\"!F($\"\"'F(;F'$\"#X!\"\"7676F'F'F'F'F'F'F'F'F'F'F'F'F'F'F'F' F'F'F'F'76F'$\"+`5UoB!#5$\"+PZ*y:$F4F5F5F5F5F5$\"+>\"=k(GF4$\"+ACT)4\" F4F'F'F'F'F'F'F'F'F'F'76F'F2$\"+1@%ot%F4$\"+w%*y:jF4F>F>F>F>$\"+m9hi\\ F4$\"+odg%=$F4$\"+q+g19F4F'F'F'F'F'F'F'F'F'76F'F2F<$\"+fJE0rF4$\"+4Uot %*F4FIFI$\"+:0\"o#))F4$\"+@[!)[qF4$\"+A\"*zq_F4$\"+EMz#\\$F4$\"+Jxy9**H\"F Z$\"+`\">@7\"FZ$\"+Le=V%*F4$\"+O,=lwF4$\"+SW<()eF4$\"+Y(o\"4TF4$\"+\\I ;JBF4$\"+9NdJbFeoF'F'F'F'F'76F'F2Fz$H:\"FZ$\"+!\\t8v*F4$\"+&znL(zF4$\"+-@O&>'F4$\"+/kNZ*y :*F4$\"+(3Uot(F4$\"+e%*y:jF4$\"+Got%*[F4$\"+)>%otMF4$\"+o:j_?F4$\"+!Q* y:jFeoF'F'F'F'F'F'F'76F'F2F " 0 "" {MPLTEXT 1 0 138 "plot3d(f,0..6,0..4.5,style=patchnogrid,sca ling=constrained,lightmodel=light2,grid=[50,50],view=[0..6,0..4.5,0.01 ..2],orientation=[42,27]);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "plot3d(f,0..6,0..4.5,scaling=constrained, grid=[50,50],orientation=[-90,0],color=black,contours=8);" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2136 "restart:\n ps:=proc(u,v)\n u[1]*v [1]+u[2]*v[2]\n end:\n pv:=proc(u,v)\n u[1]*v[2]-u[2]*v[1]\n end:\n d1 :=proc(M,A,B);\n if ps(M-A,B-A)<=0 then ps(M-A,M-A)\n elif p s(M-B,A-B)<=0 then ps(M-B,M-B)\n else pv(B-A,M-A)^2/ps(B-A,B-A) fi:\n end:\n f:=proc(x,y)\n local n; global contour; n:=nops(c ontour)-1:\n sqrt(min(seq(d1([x,y],contour[k],contour[k+1]),k=1. .n)))\n end:\n\n\nfrance:=[[0.762,15.663],[-2.286,14.986],[-2.709,11.9 38],[-5.673,10.668],[-7.281,9.313],[-6.096,9.059],[-6.096,8.805],[-7.4 51,8.721],[-8.043,8.467],[-8.721,8.302],[-9.567,8.467],[-11.091,8.636] ,[-11.769,9.398],[-11.853,10.075],[-\n13.547,9.991],[-12.954,8.213],[- 12.700,6.265],[-12.192,5.673],[-12.700,5.249\n],[-13.631,5.757],[-15.9 17,5.334],[-17.949,6.519],[-18.711,6.265],[-21.251,5\n.403],[-22.775,4 .826],[-22.775,4.318],[-21.590,4.318],[-22.267,3.810],[-21.505,3.556], [-22.352,3.217],[-21.167,2.201],[-20.235,2.540],[-18.288,1.778],[-\n17 .441,1.016],[-16.679,1.355],[-16.510,1.016],[-15.579,1.016],[-15.409,0 .000\n],[-13.377,0.085],[-13.208,-0.169],[-14.309,-0.339],[-14.139,-1. 863],[-13.039,-3.183],[-11.216,-3.810],[-10.922,-4.911],[-11.007,-5.67 3],[-11.261,-6.519\n],[-9.906,-7.535],[-9.906,-8.297],[-10.922,-7.281] ,[-11.176,-10.329],[-10.922,-10.668],[-11.684,-11.938],[-12.277,-15.49 4],[-13.801,-16.002],[-6.858,-18\n.965],[-5.080,-18.373],[-3.556,-19.3 04],[-1.709,-19.219],[-1.693,-20.151],[2.032,-19.812],[1.778,-17.272], [4.741,-15.325],[6.181,-15.663],[7.112,-16.171],[8.043,-15.748],[9.229 ,-16.510],[10.245,-16.510],[10.668,-17.103],[11.769,-17.103],[15.663,- 14.139],[15.663,-12.700],[14.224,-12.446],[13.173,-9.821],[13.123,-9.3 13],[14.055,-7.874],[13.377\n,-5.588],[14.139,-5.588],[13.208,-4.572], [13.208,-3.641],[12.023,-3.641],[10\n.922,-4.572],[10.922,-3.048],[13. 801,0.423],[13.801,1.101],[15.579,1.693],[16.087,4.995],[17.187,7.027] ,[13.208,8.043],[11.345,9.567],[8.805,9.567],[7.620,10.753],[7.620,12. 107],[6.435,11.176],[5.249,11.515],[4.911,12.785],\n[2.879,13.377],[2. 286,14.309],[0.762,14.378],[0.762,15.663]]:\n contour:=[[0,0],[1,0],[2 ,1],[2,2],[0,2],[0,0]]:\n\ncontour:=[[0,0],[8.5,0],[9,6.5],[1.8,10],[- 4,7],[-2.5,5],[-2.5,1.5],[0,0]]:\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 279 "tas:=plot3d(f,-4..10,0..10,style=patchcontour,lightm odel=light2,color=COLOR(RGB,1,0.9,0.2),grid=[150,150],contours=10):\nb ord:=spacecurve(map(x ->[op(x),0.1],contour),color=magenta,thickness=5 ):\ndisplay([tas,bord],scaling=constrained,orientation=[-82,24],light= [30,50,1,0.9,0.2]);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "21" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }