{VERSION 5 0 "HP RISC UNIX" "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 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "helvetica" 1 24 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 256 "" 0 "" {TEXT -1 31 "Die stereographische Pro jektion" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "with(plots): with(plottools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 350 "Kugel := sphere([0,0,3], 3, color=COLOR(RGB,0.5,0.7, 1), style=PATCHNOGRID):\nEbene := cylinder([0$3], 10, 0.1,\nstyle=PATC HNOGRID, color=green):\nStrahl := proc(x,y,z)\nCURVES([[0,0,6], [x,y,z ]], THICKNESS(3), COLOR(RGB,1,0,0)):\nend:\nKreis := proc(r, k)\nlocal i, phi;\nseq(Strahl(evalf(r*cos(phi)), evalf(r*sin(phi)), k),\nphi=[s eq(i*Pi/6, i=0..11)]):\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 359 "display3d([\n\ndisplay3d([Kugel, Ebene]),\n\ndisplay3d([Kugel, \+ Ebene, Strahl(6,6,0)]),\n\ndisplay3d([Kugel, Ebene, seq(Kreis(i,0), i= [2,5,10])]),\n\nseq(display3d([Kugel, Ebene, Kreis(i,0)]), i=2..10),\n \nseq(display3d([Kugel, Ebene, Kreis(10,i)]), i=1..6)\n\n],\n\nscaling =constrained, orientation=[-20,65], \nambientlight=[0.5$3],light=[40,8 5,1,0.6,0.6],\ninsequence=true);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 29 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }