{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 "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 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 "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 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "x,y,z:=u*cos(v),u*sin(v),sqrt(r^2-a ^2*sin(v)^2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "r,a:=1,2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "sphere:=plot3d([a+r*cos( u)*cos(v),r*sin(u)*cos(v),r*sin(v)],u=0..2*Pi,v=-Pi/2..Pi/2,style=patc hnogrid):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 149 "courbe:=space curve(\{[a*cos(v)^2,a*cos(v)*sin(v),z],[a*cos(v)^2,a*cos(v)*sin(v),-z] \},v=-arcsin(r/a)+0.0001..arcsin(r/a)-0.0001,color=red,thickness=2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 158 "display(courbe,sphere,pl ot3d([[x,y,z],[x,y,-z]],u=-2..2,v=-arcsin(r/a)+0.00001..arcsin(r/a)-0. 00001,style=patchnogrid),lightmodel=light2,scaling=constrained);" }} {PARA 13 "" 1 "" {GLPLOT3D 862 606 606 {PLOTDATA 3 "6)-%'CURVESG6%7T7% $\"+&>t,]\"!\"*$!+lQDf')!#5$\"+$)f:h=!#67%$\"+`-rO:F*$!+vhmP%)F-$\"+R= i4FF-7%$\"+%HnAd\"F*$!+!er1?)F-$\"+&\\qAo(F-$\"+&)*p\\H&F-7%$\"+A(=Cn\"F*$!+\"o 4ZF-$\"+e/rO()F-7%$\"+bg+,>F*$!+2^1QVF-$\"+%)G^b* )F-7%$\"+ajr=>F*$!+I/=\\RF-$\"+Z\\8^\"*F-7%$\"+2\"\\Z$>F*$!+yY3`NF-$\" +3))oC$*F-7%$\"+Q]2\\>F*$!+36]]JF-$\"+4!yqZ*F-7%$\"+*)zmh>F*$!+D[;UFF- $\"+'HP!4'*F-7%$\"+l\\]s>F*$!+Q9#)GBF-$\"+B@;@(*F-7%$\"+zhc\")>F*$!+*p D7\">F-$\"+)pIR\")*F-7%$\"+%3N)))>F*$!+C,9!\\\"F-$\"+50s())*F-7%$\"+4% )H%*>F*$!+-OLm5F-$\"+=1#G%**F-7%$\"+xh%z*>F*$!+())*z0kF0$\"+R1Wz**F-7% $\"+GF*$!+spcO@F0$\"+?qr(***F-7%F]v$\"+WscO@F0$\"+>qr(***F-7%Ffu$ \"+e,!eS'F0$\"+P1Wz**F-7%F_u$\"+HOLm5F-$\"+:1#G%**F-7%Fht$\"+^,9!\\\"F -$\"+00s())*F-7%$\"+yhc\")>F*$\"+EdA6>F-$\"+$pIR\")*F-7%$\"+k\\]s>F*$ \"+l9#)GBF-$\"+;@;@(*F-7%$\"+))zmh>F*$\"+_[;UFF-$\"+)GP!4'*F-7%$\"+P]2 \\>F*$\"+N6]]JF-$\"++!yqZ*F-7%$\"+1\"\\Z$>F*$\"+/Z3`NF-$\"+(z)oC$*F-7% $\"+`jr=>F*$\"+c/=\\RF-$\"+N\\8^\"*F-7%$\"+ag+,>F*$\"+K^1QVF-$\"+qG^b* )F-7%$\"+Z0l\")=F*$\"+U'G!>ZF-$\"+V/rO()F-7%$\"+u^og=F*$\"+e`P\"4&F-$ \"+&R_L\\)F-7%$\"+>#[\"Q=F*$\"+)QDWX&F-$\"+ZWsB#)F-7%$\"+K339=F*$\"+9e ^2eF-$\"+U]mDzF-7%$\"+fp_)y\"F*$\"+/>+]hF-$\"+7lS'f(F-7%$\"+iK`hmwV)F-$\"+ ^t,]\"F*$\"+zQDf')F-$\"+SH9h=F0-%'COLOURG6&%$RGBG$\"*+++ +\"!\")$\"\"!FbalFaal-%*THICKNESSG6#\"\"#-F$6%7T7%F(F+$!+$)f:h=F07%F2F 4$!+R=i4FF-7%F9F;$!+&\\qqr(***F-7%FfuFiv$!+P1Wz**F- 7%F_uF^w$!+:1#G%**F-7%FhtFcw$!+00s())*F-7%FhwFjw$!+$pIR\")*F-7%F_xFax$ !+;@;@(*F-7%FfxFhx$!+)GP!4'*F-7%F]yF_y$!++!yqZ*F-7%FdyFfy$!+(z)oC$*F-7 %F[zF]z$!+N\\8^\"*F-7%FbzFdz$!+qG^b*)F-7%FizF[[l$!+V/rO()F-7%F`[lFb[l$ !+&R_L\\)F-7%Fg[lFi[l$!+ZWsB#)F-7%F^\\lF`\\l$!+U]mDzF-7%Fe\\lFg\\l$!+7 lS'f(F-7%F\\]lF^]l$!+?QLKsF-7%Fc]lFe]l$!+e?gGoF-7%Fj]lF\\^l$!+gl\\yjF- 7%Fa^lFc^l$!+)4'GseF-7%Fh^lFj^l$!+X*p\\H&F-7%F__lFa_l$!+)4U7i%F-7%Ff_l Fh_l$!+M/x,QF-7%F]`lF_`l$!+^ \+ " 0 "" {MPLTEXT 1 0 6 "x,y,z;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%*&%\" uG\"\"\"-%$cosG6#%\"vGF%*&F$F%-%$sinGF(F%*$,&F%F%*$)F+\"\"#F%!\"\"#F%F 1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "Z:=sqrt((b^2*r^2-(a^2- r^2)*y^2)/(b^2+y^2));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"ZG*$*&,&* &)%\"bG\"\"#\"\"\")%\"rGF+F,F,*&,&*$)%\"aGF+F,F,*$F-F,!\"\"F,)%\"yGF+F ,F5F,,&*$F)F,F,*$F6F,F,F5#F,F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "r,a,b:=1,2,2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "r, a,b:=1,1.5,2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "plot([Z,-Z ],y=-b/sqrt(a^2-r^2)..b/sqrt(a^2-r^2),scaling=constrained,color=red); " }}{PARA 13 "" 1 "" {GLPLOT2D 575 575 575 {PLOTDATA 2 "6(-%'CURVESG6# X<%)anythingG6\"6\"[gl'\"%!!!#cdl\"gw\"#!!!!!!!!!!!!!!!!BFFC9F25C5BFF0 CFBFFC789FD2207C55BFFC5219DE8107DBBFFC309509CE1B3CBFFC0F10351B2E9EBFFB C3AC1F71FA07BFFB77C81B0C4AE7BFFB2C406CCF02A9BFFAE639C652E8B9BFFA9DB7C4 5A9601BFFA52BAE95BB4EEBFFA07FB9F037714BFF9BB189F6F57B8BFF9775FD3ADC528 BFF92B22B35E3BCBBFF8DE956F9BF7CBBFF894CFD6FE9025BFF851D1E8DA385FBFF802 28FBBB9180BFF7BEAD7FEF3D54BFF7702E01565283BFF72AB216794F5DBFF6DE75EC51 889ABFF695DDEB60BF3BBFF64A1F76120008BFF60490F79ABCEBBFF5B98A41DA3766BF F56B9BE27428F2BFF527C506EBE8ADBFF4DE805807B183BFF492CEDB00277EBFF448C1 C361F297BFF4011BCD2141AABFF3B18E2E11C764BFF36A12C395DB38BFF31DC03B2A33 C1BFF2D8976A9DE130BFF28CFB60B3F4E5BFF245D6DAA8E9AABFF1FB7984C00786BFF1 B2C50AFB4A7DBFF166A7818EB5E6BFF11D589E854456BFF0D260C3F64AB1BFF08807D4 AD0D61BFF043B68A59FA61BFEFEAD3ADF6FA9CBFEF5EC33DC85BA6BFEEC96CCCB1F4DA BFEE3A7D6371D925BFED9BC754458523BFED1258AEEA4F19BFEC765C10C0FB2FBFEBE8 31D1BE8C08BFEB4CB03BD01864BFEAC6834B3F11BABFEA2DB3DC60CA8EBFE99A186B78 F84EBFE90695A9DC182ABFE8739DD4F03A6EBFE7E66D1B502C57BFE74DCBB34FD6B6BF E6BC53E9F3347CBFE6233ACA22C5CABFE598A39320365FBFE4FF786700257BBFE46CC2 EDBFA561BFE3DA68DFC6015FBFE3418B6EC4BFF4BFE2B4C01ADA185CBFE2248ECEA09D ABBFE1855A24053A49BFE0F534518DB3AABFE061C94AD98F75BFDF97BB5943237CBFDE 841EACAD3673BFDD5E538B200CC3BFDC3AC4ED2F6DD7BFDB02E4CE6DAE26BFD9EFAD5B 872918BFD8B22265F54124BFD793939290DE2CBFD6780AD8F6FCA1BFD54726F4D03ADA BFD4150752738420BFD2FE80627FC0C4BFD1D6B7D37CA57EBFD0B60FF743EEC2BFCEFA 5023EAFCF5BFCCDCCFDE3DFD2ABFCA6EE0D7E06AFEBFC8263A59F69F0CBFC5E33982A5 02D1BFC39FC2C24BAE43BFC150BE89681E21BFBDBC8DB1D14046BFB93FBC13D32CC9BF B4D1B3F4303574BFB0157115ECD14FBFA6B7A39ACF4EB2BF9C787271506913BF80C019 C7379DB73F80E115AF13D4483F9C1B3F181039803FA7703137D2CC8E3FAFD166648DF4 1F3FB49EF4888EC0893FB95D34D780B8803FBE15AFB2BE36653FC13B0D0D3FEAB83FC3 7F1D1F2841F13FC5D703F71F4A8D3FC82CFE49E1395A3FCA94164682343C3FCCB1DCA2 69073C3FCF13C5A70B13A73FD0BC17E28E99D03FD1E32E43F157AD3FD2EF25FD959781 3FD42DC9B32313BD3FD53BB7A14183AE3FD675B59CB80FAF3FD78BA546065AC93FD8BC 95EFB856963FD9DEF5F37B7C113FDB0DEFC8B678DF3FDC2429C3A6660E3FDD50449995 9B663FDE87FE172DD5373FDF9759854ED6493FE05E3620F949D83FE0F5991B085DE13F E189B34A44C7B03FE218FF36C629893FE2B81A745BADB73FE3471148CA15B03FE3DFB6 5A2AD4FC3FE46A07FBCCEA7F3FE501400E8DE2563FE58F891BB6D98A3FE62443C7889D D13FE6B5ACBA88A7843FE74DE7CDEB41123FE7E0859374B3D33FE87675480936BE3FE9 0B27272521BC3FE993C9BBCB47BD3FEA306321E354A43FEABC73931715E93FEB51CA04 11FFD43FEBE0B96D0D635A3FEC7F6F7C39B75C3FED08DE21A2ABD63FEDA4DAC055701F 3FEE3304FE52BCF73FEECE86946A6BEB3FEF54B385A05FD43FEFED82F3CBFB523FF040 8F3259E6C93FF08A50930CD9FA3FF0D3CC7E0C39383FF11A64DADC40433FF166B58E52 FAB53FF1AF71734604013FF1FBFE02E9832B3FF241499EAF83103FF28DDF34BF8B823F F2D739F11B135F3FF32066F85C9D903FF36CD5B0DD3E453FF3B33B5B174A413FF3FB54 00EF4F6A3FF44AEE55F848EB3FF493013F340C3B3FF4DCB6C3178EB43FF527AC91EED5 603FF56C93BD1450A33FF5B60685779B0F3FF5FEEA2CF3C2CA3FF64CE234A432B63FF6 91B011191BCA3FF6E112CEC24DF63FF728B6839B66B43FF76F98B201DF173FF7BBD1AB 5047B83FF80859935E05083FF84DFB4FE4663E3FF897ED736074E03FF8E0176A6EA28F 3FF92E5163C23EA13FF972016C77DE9A3FF9BFBF4D4390E03FFA08D41D00CA5E3FFA51 3437EAFDE53FFA99A30FF628773FFAE38397129A7B3FFB31D28D228A3B3FFB799FA747 23A23FFBC08028FC9AE83FFC0C4456E0D12A3FFC321151029E623FFC57DE4B246B9A3F FC7B8208722E343FFC9F25C5BFF0CF00000000000000003FB39621486C230F3FBBBA40 677798E43FC09F5C127771AA3FC2FE004943B8913FC77C67B083E95C3FCB4C73DB2F4C 8E3FCEA631313972803FD0BCF580D2AE973FD218336908BDF83FD36811629257F63FD4 A3BA636558B43FD5D7DED1F5B6FC3FD6DB7096E80CF43FD7F42DE5F5C2423FD9035AD7 15E8B13FD9FFB5D7BAF0763FDADE09B5A84F0E3FDBDEC4442219FB3FDCB254E8F30453 3FDDA23281C6691B3FDE715C27B9595E3FDF4F7FBAFCDDFA3FE00F2E981AE4AF3FE078 D6E315C3903FE0D7F3FEC11DB73FE13C9C62D5B0D83FE1A32792B6B6913FE1FAD59F7E 0BB93FE257F39C60A7FF3FE2B6808B02B4223FE311726015EABA3FE368084C523D773F E3C69B3DD5B2123FE41A3A05CEBA8E3FE47221F3E55AC53FE4C097EB2BF77A3FE5151A 8FB6F5A73FE5637035342D9B3FE5B41E7B6B4CC93FE601D54A8727953FE651FA2C3482 EA3FE69E01B9CD4DCF3FE6EA98B31841DB3FE735677AF36BDB3FE7792547F9953B3FE7 C59DCC0D4CFC3FE808F60E072E5A3FE84FACEDD8465F3FE8924EE6AC154F3FE8DB180B ADB46E3FE91919A04E4E813FE95E54268CF0A43FE99C5B70CCC7DD3FE9DF0A110A8078 3FEA1797570783323FEA56E1EE60B1523FEA92E2DEADAB163FEACDBB7347D3C53FEB07 3E258E74963FEB3D6EECCCC6CB3FEB76D6B7A4B1013FEBAC6784EF07A13FEBE38FCC1F 89CA3FEC1467FB93129A3FEC492D59D9CF9F3FEC7A84F8EC17EC3FECAA8ECEA847AB3F ECDB75BDA7B48C3FED07568450F97D3FED331BD96CD57D3FED620D946950703FED8B4A D96451F93FEDB4364D4C01B33FEDDC833427206A3FEE00608936221A3FEE255A3EEE22 5F3FEE48C1445C04193FEE6D3008134DF13FEE8C17FB24C0C83FEEAE4A8105D9D23FEE CBCBD6550F763FEEE7B6F20EED563FEF044F41802D1C3FEF1F85B0C82C403FEF36F7E6 D315583FEF4E7CECCA938C3FEF64100E601ECC3FEF79E72611693F3FEF8B7EA8B8851C 3FEF9E32553B1BB23FEFAE4E0E77FFF53FEFBCD8486625193FEFC9FBA83F38363FEFD5 EBD97A43D23FEFE0F5581595713FEFE99C7EF383343FEFF0C5E1F06C363FEFF6E8D1A3 AB333FEFFB77134E3AF93FEFFE3817E86B663FEFFFD88B597A553FEFFFD7EF5D6DA63F EFFE43AD7A0E993FEFFB2C3DF4A5EA3FEFF71B195B60B33FEFF10FB5CD25943FEFE968 2AA305643FEFE03A7235A03B3FEFD654D1EAACB63FEFCAAE59E8F0833FEFBD22E2D203 E53FEFAE206F0CC4593FEF9D1F813E576C3FEF8CD6897214EB3FEF790BC3A7E76A3FEF 63A03D3818C63FEF4D8699F6DB4F3FEF383966693C733FEF1D60983A1C453FEF055A67 A05E983FEEE7F0661DF8943FEECC982DC487873FEEAD30C7E0880C3FEE8DEEDF0155F6 3FEE6BEC5209FE9C3FEE4B7222037F503FEE2716D47F20063FEDFFE18A7ECCDB3FEDDC 90227626CD3FEDB53044DC06313FED8B2E6FCE43CA3FED60CA52287F9C3FED3691179A 82E13FED064E5A59C9563FECD9B748AD79903FECA8D68BB879433FEC7B6D2C3E623A3F EC48923EE650B13FEC179405B474993FEBE331687760A53FEBAED3CC5D49CE3FEB76CC 429EE5F73FEB3FAD40C27D5E3FEB06243586150D3FEACBED38D137BE3FEA956CE1BC9D 4A3FEA55C7E7E2FF553FEA1BCB847ED5AA3FE9DCDF1A05D7323FE99F96A27BD0543FE9 5A55919FCC8A3FE91D577BEF01613FE8D6F73BB017B73FE895C330B67E863FE84D475A 6F9AC23FE80DC2BD5094AF3FE7C450DE4C40BC3FE77C3FEE34E0A93FE7331F7256EB56 3FE6E927E15523A63FE6A10B807621943FE651EB7E21C3383FE6055C92E540F83FE5B3 8FCF1F15023FE56869625C40793FE5141DDB03F28F3FE4C22184470EA93FE46F1A30A9 05ED3FE417050B231E2D3FE3C4A147EE9CBA3FE36EF58875C00E3FE30ECC4AECEF833F E2B642236709383FE25A340F74E7C53FE1FAF4F99DC4073FE1A1E48B84588A3FE14147 5D4B3F9F3FE0DF9A9E80FCE73FE07506FCBC09B23FE01512094EE0EF3FDF47F873C22E 0D3FDE7734365D1B313FDDA3F4ADE67CF43FDCBB2E7379227B3FDBCB18F3087B0E3FDA EA979C6BDC4B3FD9F537A6354DD13FD8FE1BEA0C4BDF3FD7E8AEEFB0A8F93FD6EF96D5 4EC2413FD5C5A8182992153FD4A0403527F8753FD36EB0F3C22D6D3FD22B0A89886B32 3FD0CA67DD0EF05C3FCE69F3476B489B3FCB364CD65612C83FC7A8303520034A3FC32D 4FF821E0813FC0828353A739263FBAAA61961EF7EC3FB2D67291BACE94000000000000 0000-F$6#X " 0 "" {MPLTEXT 1 0 50 "with(algcurves):\nf:=(x^2+y^2)-y^2; \ngenus(f,x,y);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG*$)%\"xG\" \"#\"\"\"" }}{PARA 7 "" 1 "" {TEXT -1 61 "Warning, curve failed simple reducibility test, returning -1\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# !\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0 " 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }