{VERSION 4 0 "IBM INTEL NT" "4.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "dist:=(x1,y1,x2,y2)- >sqrt((x2-x1)^2+(y2-y1)^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%dist GR6&%#x1G%#y1G%#x2G%#y2G6\"6$%)operatorG%&arrowGF+-%%sqrtG6#,&*$),&9& \"\"\"9$!\"\"\"\"#F7F7*$),&9'F79%F9F:F7F7F+F+F+" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 16 "f:=cos:g:=sin/2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "n:=100:d:=(x,y)->min(seq(evalf(dist(x,y,f(t),g(t))),t =seq(2*k*Pi/n,k=1..n)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"dGR6$% \"xG%\"yG6\"6$%)operatorG%&arrowGF)-%$minG6#-%$seqG6$-%&evalfG6#-%%dis tG6&9$9%-%\"fG6#%\"tG-%\"gGF=/F>-F16$,$*&*&%\"kG\"\"\"%#PiGFHFH%\"nG! \"\"\"\"#/FG;FHFJF)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 125 "plot3d(d(x,y),x=-1..1,y=-sqrt(1-x^2)/2..sqrt(1-x^2)/2,style=patchcont our,scaling=constrained,lightmodel=light2,grid=[50,50]);" }}{PARA 13 " " 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} }{MARK "3 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }