/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / programs / Maths1 / PLANE_BALL

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 50 | 4c 41 4e 45 2f 42 41 4c |..... >P|LANE/BAL|
|00000010| 4c 0d 00 14 2a f1 22 50 | 52 4f 4a 45 43 54 49 4f |L...*."P|ROJECTIO|
|00000020| 4e 20 4f 46 20 41 20 50 | 4c 41 4e 45 20 4f 4e 54 |N OF A P|LANE ONT|
|00000030| 4f 20 41 20 53 50 48 45 | 52 45 22 0d 00 1e 40 e8 |O A SPHE|RE"...@.|
|00000040| 22 52 41 44 49 55 53 20 | 28 53 55 47 47 45 53 54 |"RADIUS |(SUGGEST|
|00000050| 20 33 33 33 29 22 3b 52 | 25 3a 41 25 3d 32 2a 52 | 333)";R|%:A%=2*R|
|00000060| 25 3a 42 25 3d 41 25 2a | 41 25 3a 45 25 3d 52 25 |%:B%=A%*|A%:E%=R%|
|00000070| 2a 52 25 3a 4e 25 3d 34 | 2a 52 25 0d 00 28 2f f1 |*R%:N%=4|*R%..(/.|
|00000080| 22 49 4e 50 55 54 20 4f | 46 20 50 4f 49 4e 54 20 |"INPUT O|F POINT |
|00000090| 49 4e 20 50 4c 41 4e 45 | 22 3a e8 22 58 3d 22 3b |IN PLANE|":."X=";|
|000000a0| 58 25 2c 22 59 3d 22 3b | 59 25 0d 00 32 6c 43 25 |X%,"Y=";|Y%..2lC%|
|000000b0| 3d 58 25 2a 58 25 2b 59 | 25 2a 59 25 3a 44 3d 43 |=X%*X%+Y|%*Y%:D=C|
|000000c0| 25 2f 28 42 25 2b 43 25 | 29 3a 58 32 3d 58 25 2d |%/(B%+C%|):X2=X%-|
|000000d0| 58 25 2a 44 3a 59 32 3d | 59 25 2d 59 25 2a 44 3a |X%*D:Y2=|Y%-Y%*D:|
|000000e0| 5a 3d 44 2a 41 25 3a f1 | 22 50 4f 49 4e 54 20 4f |Z=D*A%:.|"POINT O|
|000000f0| 4e 20 53 50 48 45 52 45 | 20 58 27 3d 22 58 32 2c |N SPHERE| X'="X2,|
|00000100| 22 59 27 3d 22 3b 59 32 | 2c 22 5a 27 3d 22 3b 5a |"Y'=";Y2|,"Z'=";Z|
|00000110| 3a 50 3d a5 3a db 0d 00 | 3c 30 f1 22 50 52 4f 4a |:P=.:...|<0."PROJ|
|00000120| 45 43 54 49 4f 4e 20 4f | 46 20 53 4f 55 54 48 20 |ECTION O|F SOUTH |
|00000130| 48 45 4d 49 53 50 48 45 | 52 45 20 4f 4e 54 4f 20 |HEMISPHE|RE ONTO |
|00000140| 50 4c 41 4e 45 22 0d 00 | 46 67 eb 31 32 3a e3 58 |PLANE"..|Fg.12:.X|
|00000150| 3d 30 b8 32 32 32 3a e6 | 28 b3 28 31 34 29 2b 31 |=0.222:.|(.(14)+1|
|00000160| 29 3a c8 8f 20 c8 90 20 | b3 28 31 32 32 32 29 2c |):.. .. |.(1222),|
|00000170| b3 28 39 39 39 29 2c b3 | 28 31 31 31 29 3a ed 3a |.(999),.|(111):.:|
|00000180| c8 91 36 34 30 2c 35 31 | 32 3a 87 3a e3 58 3d 31 |..640,51|2:.:.X=1|
|00000190| b8 31 35 3a fb 58 2c b3 | 28 32 35 35 29 2c b3 28 |.15:.X,.|(255),.(|
|000001a0| 32 35 35 29 2c b3 28 32 | 35 35 29 3a ed 0d 00 50 |255),.(2|55):...P|
|000001b0| 3e e3 20 58 25 3d 30 20 | b8 20 52 25 20 88 32 3a |>. X%=0 |. R% .2:|
|000001c0| 48 25 3d 42 25 2d 34 2a | 58 25 2a 58 25 3a 43 25 |H%=B%-4*|X%*X%:C%|
|000001d0| 3d b6 28 45 25 2d 58 25 | 2a 58 25 29 3a e7 43 25 |=.(E%-X%|*X%):.C%|
|000001e0| 3c 58 25 3a ed 3a e5 8d | 74 7e 40 0d 00 5a 13 e3 |<X%:.:..|t~@..Z..|
|000001f0| 20 59 25 3d 58 25 20 b8 | 20 43 25 20 88 32 0d 00 | Y%=X% .| C% .2..|
|00000200| 64 67 46 3d b6 28 48 25 | 2d 34 2a 59 25 2a 59 25 |dgF=.(H%|-4*Y%*Y%|
|00000210| 29 2f 4e 25 2b 2e 35 3a | f4 20 50 2e 22 50 2e 20 |)/N%+.5:|. P."P. |
|00000220| 4f 4e 20 53 50 48 45 52 | 45 20 58 3d 22 3b 58 25 |ON SPHER|E X=";X%|
|00000230| 3b 22 20 59 3d 22 3b 59 | 25 2c 22 50 2e 20 4f 4e |;" Y=";Y|%,"P. ON|
|00000240| 20 50 4c 41 4e 45 20 58 | 27 3d 3a 58 25 2f 46 3b | PLANE X|'=:X%/F;|
|00000250| 22 20 59 27 3d 22 3b 59 | 25 2f 46 3a 4e 45 58 54 |" Y'=";Y|%/F:NEXT|
|00000260| 3a 4e 45 58 54 0d 00 6e | 2a 4d 25 3d 58 25 2f 46 |:NEXT..n|*M%=X%/F|
|00000270| 3a 4f 25 3d 59 25 2f 46 | 3a 50 25 3d b0 4d 25 2c |:O%=Y%/F|:P%=.M%,|
|00000280| 4f 25 29 3a e6 50 25 3a | c8 92 58 25 2c 59 25 0d |O%):.P%:|..X%,Y%.|
|00000290| 00 78 1c 50 25 3d b0 2d | 4d 25 2c 4f 25 29 3a e6 |.x.P%=.-|M%,O%):.|
|000002a0| 50 25 3a c8 92 2d 58 25 | 2c 59 25 0d 00 82 1c 50 |P%:..-X%|,Y%....P|
|000002b0| 25 3d b0 4d 25 2c 2d 4f | 25 29 3a e6 50 25 3a c8 |%=.M%,-O|%):.P%:.|
|000002c0| 92 58 25 2c 2d 59 25 0d | 00 8c 1e 50 25 3d b0 2d |.X%,-Y%.|...P%=.-|
|000002d0| 4d 25 2c 2d 4f 25 29 3a | e6 50 25 3a c8 92 2d 58 |M%,-O%):|.P%:..-X|
|000002e0| 25 2c 2d 59 25 0d 00 96 | 1a 50 25 3d b0 4f 25 2c |%,-Y%...|.P%=.O%,|
|000002f0| 4d 25 29 3a e6 50 25 3a | c8 92 59 25 2c 58 25 0d |M%):.P%:|..Y%,X%.|
|00000300| 00 a0 1c 50 25 3d b0 2d | 4f 25 2c 4d 25 29 3a e6 |...P%=.-|O%,M%):.|
|00000310| 50 25 3a c8 92 2d 59 25 | 2c 58 25 0d 00 aa 1c 50 |P%:..-Y%|,X%....P|
|00000320| 25 3d b0 4f 25 2c 2d 4d | 25 29 3a e6 50 25 3a c8 |%=.O%,-M|%):.P%:.|
|00000330| 92 59 25 2c 2d 58 25 0d | 00 b4 22 50 25 3d b0 2d |.Y%,-X%.|.."P%=.-|
|00000340| 4f 25 2c 2d 4d 25 29 3a | e6 50 25 3a c8 92 2d 59 |O%,-M%):|.P%:..-Y|
|00000350| 25 2c 2d 58 25 3a ed 3a | ed 0d 00 be 10 e6 30 3a |%,-X%:.:|......0:|
|00000360| c8 8f 20 30 2c 30 2c 52 | 25 0d ff                |.. 0,0,R|%..     |
+--------+-------------------------+-------------------------+--------+--------+