/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsm / numbers / !NumModTxt / NumbersPi2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 4e | 75 6d 62 65 72 73 50 69 |..... >N|umbersPi|
|00000010| 32 0d 00 14 04 0d 00 1e | 23 ee 20 85 3a 20 ee 20 |2.......|#. .: . |
|00000020| 85 20 87 3a 20 85 20 9f | 2c f6 24 2b 22 20 61 74 |. .: . .|,.$+" at|
|00000030| 20 22 2b c3 9e 3a 20 e0 | 0d 00 28 13 c8 9b 20 22 | "+..: .|..(... "|
|00000040| 4e 75 6d 62 65 72 73 4c | 69 62 22 0d 00 32 17 f2 |NumbersL|ib"..2..|
|00000050| 6e 75 6d 62 65 72 73 5f | 69 6e 69 74 69 61 6c 69 |numbers_|initiali|
|00000060| 73 65 0d 00 3c 04 0d 00 | 46 34 f1 20 22 50 69 20 |se..<...|F4. "Pi |
|00000070| 75 73 69 6e 67 20 47 61 | 75 73 73 27 20 61 72 69 |using Ga|uss' ari|
|00000080| 74 68 6d 65 74 69 63 2f | 67 65 6d 6f 6d 65 74 72 |thmetic/|gemometr|
|00000090| 69 63 20 6d 65 74 68 6f | 64 22 0d 00 50 29 e8 20 |ic metho|d"..P). |
|000000a0| 22 4e 75 6d 62 65 72 20 | 6f 66 20 64 65 63 69 6d |"Number |of decim|
|000000b0| 61 6c 20 70 6c 61 63 65 | 73 20 22 3b 70 6c 61 63 |al place|s ";plac|
|000000c0| 65 73 25 0d 00 5a 14 6f | 6e 65 25 3d a4 6e 75 6d |es%..Z.o|ne%=.num|
|000000d0| 5f 63 72 65 61 74 65 0d | 00 64 15 6f 6e 65 32 25 |_create.|.d.one2%|
|000000e0| 3d a4 6e 75 6d 5f 63 72 | 65 61 74 65 0d 00 6e 15 |=.num_cr|eate..n.|
|000000f0| 74 65 6d 70 25 3d a4 6e | 75 6d 5f 63 72 65 61 74 |temp%=.n|um_creat|
|00000100| 65 0d 00 78 16 c8 99 20 | 4e 75 6d 5f 53 65 74 2c |e..x... |Num_Set,|
|00000110| 6f 6e 65 25 2c 31 30 0d | 00 82 1c c8 99 20 4e 75 |one%,10.|..... Nu|
|00000120| 6d 5f 53 65 74 2c 74 65 | 6d 70 25 2c 70 6c 61 63 |m_Set,te|mp%,plac|
|00000130| 65 73 25 0d 00 8c 1e c8 | 99 20 4e 75 6d 5f 50 6f |es%.....|. Num_Po|
|00000140| 77 2c 6f 6e 65 25 2c 74 | 65 6d 70 25 2c 6f 6e 65 |w,one%,t|emp%,one|
|00000150| 25 0d 00 96 1e c8 99 20 | 4e 75 6d 5f 4d 75 6c 2c |%...... |Num_Mul,|
|00000160| 6f 6e 65 25 2c 6f 6e 65 | 25 2c 6f 6e 65 32 25 0d |one%,one|%,one2%.|
|00000170| 00 a0 04 0d 00 aa 13 70 | 69 25 3d a4 6e 75 6d 5f |.......p|i%=.num_|
|00000180| 63 72 65 61 74 65 0d 00 | b4 12 61 25 3d a4 6e 75 |create..|..a%=.nu|
|00000190| 6d 5f 63 72 65 61 74 65 | 0d 00 be 12 62 25 3d a4 |m_create|....b%=.|
|000001a0| 6e 75 6d 5f 63 72 65 61 | 74 65 0d 00 c8 12 63 25 |num_crea|te....c%|
|000001b0| 3d a4 6e 75 6d 5f 63 72 | 65 61 74 65 0d 00 d2 12 |=.num_cr|eate....|
|000001c0| 78 25 3d a4 6e 75 6d 5f | 63 72 65 61 74 65 0d 00 |x%=.num_|create..|
|000001d0| dc 12 79 25 3d a4 6e 75 | 6d 5f 63 72 65 61 74 65 |..y%=.nu|m_create|
|000001e0| 0d 00 e6 15 74 65 6d 70 | 25 3d a4 6e 75 6d 5f 63 |....temp|%=.num_c|
|000001f0| 72 65 61 74 65 0d 00 f0 | 16 74 65 6d 70 32 25 3d |reate...|.temp2%=|
|00000200| a4 6e 75 6d 5f 63 72 65 | 61 74 65 0d 00 fa 04 0d |.num_cre|ate.....|
|00000210| 01 04 0b f4 20 61 20 3d | 20 31 0d 01 0e 17 c8 99 |.... a =| 1......|
|00000220| 20 4e 75 6d 5f 4d 6f 76 | 65 2c 6f 6e 65 25 2c 61 | Num_Mov|e,one%,a|
|00000230| 25 0d 01 18 04 0d 01 22 | 0b f4 20 78 20 3d 20 31 |%......"|.. x = 1|
|00000240| 0d 01 2c 17 c8 99 20 4e | 75 6d 5f 4d 6f 76 65 2c |..,... N|um_Move,|
|00000250| 6f 6e 65 25 2c 78 25 0d | 01 36 04 0d 01 40 12 f4 |one%,x%.|.6...@..|
|00000260| 20 62 20 3d 20 53 51 52 | 28 31 2f 32 29 0d 01 4a | b = SQR|(1/2)..J|
|00000270| 1f c8 99 20 4e 75 6d 5f | 53 63 61 6c 61 72 44 69 |... Num_|ScalarDi|
|00000280| 76 2c 6f 6e 65 32 25 2c | 32 2c 62 25 0d 01 54 14 |v,one2%,|2,b%..T.|
|00000290| c8 99 20 4e 75 6d 5f 53 | 71 72 2c 62 25 2c 62 25 |.. Num_S|qr,b%,b%|
|000002a0| 0d 01 5e 04 0d 01 68 0d | f4 20 63 20 3d 20 31 2f |..^...h.|. c = 1/|
|000002b0| 34 0d 01 72 1e c8 99 20 | 4e 75 6d 5f 53 63 61 6c |4..r... |Num_Scal|
|000002c0| 61 72 44 69 76 2c 6f 6e | 65 25 2c 34 2c 63 25 0d |arDiv,on|e%,4,c%.|
|000002d0| 01 7c 04 0d 01 86 04 0d | 01 90 08 74 25 3d 91 0d |.|......|...t%=..|
|000002e0| 01 9a 11 69 74 65 72 61 | 74 69 6f 6e 73 25 3d 30 |...itera|tions%=0|
|000002f0| 0d 01 a4 05 f5 0d 01 ae | 0d 20 20 f4 20 79 20 3d |........|.  . y =|
|00000300| 20 61 0d 01 b8 17 20 20 | c8 99 20 4e 75 6d 5f 4d | a....  |.. Num_M|
|00000310| 6f 76 65 2c 61 25 2c 79 | 25 0d 01 c2 04 0d 01 cc |ove,a%,y|%.......|
|00000320| 17 20 20 f4 20 61 20 3d | 20 28 61 20 2b 20 62 29 |.  . a =| (a + b)|
|00000330| 20 2f 20 32 0d 01 d6 19 | 20 20 c8 99 20 4e 75 6d | / 2....|  .. Num|
|00000340| 5f 41 64 64 2c 61 25 2c | 62 25 2c 61 25 0d 01 e0 |_Add,a%,|b%,a%...|
|00000350| 1e 20 20 c8 99 20 4e 75 | 6d 5f 53 63 61 6c 61 72 |.  .. Nu|m_Scalar|
|00000360| 44 69 76 2c 61 25 2c 32 | 2c 61 25 0d 01 ea 04 0d |Div,a%,2|,a%.....|
|00000370| 01 f4 16 20 20 f4 20 62 | 20 3d 20 53 51 52 28 62 |...  . b| = SQR(b|
|00000380| 20 2a 20 79 29 0d 01 fe | 19 20 20 c8 99 20 4e 75 | * y)...|.  .. Nu|
|00000390| 6d 5f 4d 75 6c 2c 62 25 | 2c 79 25 2c 62 25 0d 02 |m_Mul,b%|,y%,b%..|
|000003a0| 08 16 20 20 c8 99 20 4e | 75 6d 5f 53 71 72 2c 62 |..  .. N|um_Sqr,b|
|000003b0| 25 2c 62 25 0d 02 12 06 | 20 20 0d 02 1c 25 20 20 |%,b%....|  ...%  |
|000003c0| f4 20 63 20 3d 20 63 20 | 2d 20 78 20 2a 20 28 61 |. c = c |- x * (a|
|000003d0| 20 2d 20 79 29 20 2a 20 | 28 61 20 2d 20 79 29 0d | - y) * |(a - y).|
|000003e0| 02 26 1c 20 20 c8 99 20 | 4e 75 6d 5f 53 75 62 2c |.&.  .. |Num_Sub,|
|000003f0| 61 25 2c 79 25 2c 74 65 | 6d 70 25 0d 02 30 22 20 |a%,y%,te|mp%..0" |
|00000400| 20 c8 99 20 4e 75 6d 5f | 4d 75 6c 2c 74 65 6d 70 | .. Num_|Mul,temp|
|00000410| 25 2c 74 65 6d 70 25 2c | 74 65 6d 70 25 0d 02 3a |%,temp%,|temp%..:|
|00000420| 1f 20 20 c8 99 20 4e 75 | 6d 5f 4d 75 6c 2c 74 65 |.  .. Nu|m_Mul,te|
|00000430| 6d 70 25 2c 78 25 2c 74 | 65 6d 70 25 0d 02 44 29 |mp%,x%,t|emp%..D)|
|00000440| 20 20 c8 99 20 4e 75 6d | 5f 44 69 76 2c 74 65 6d |  .. Num|_Div,tem|
|00000450| 70 25 2c 6f 6e 65 32 25 | 2c 74 65 6d 70 25 2c 74 |p%,one2%|,temp%,t|
|00000460| 65 6d 70 32 25 0d 02 4e | 1c 20 20 c8 99 20 4e 75 |emp2%..N|.  .. Nu|
|00000470| 6d 5f 53 75 62 2c 63 25 | 2c 74 65 6d 70 25 2c 63 |m_Sub,c%|,temp%,c|
|00000480| 25 0d 02 58 04 0d 02 62 | 11 20 20 f4 20 78 20 3d |%..X...b|.  . x =|
|00000490| 20 32 20 2a 20 78 0d 02 | 6c 1e 20 20 c8 99 20 4e | 2 * x..|l.  .. N|
|000004a0| 75 6d 5f 53 63 61 6c 61 | 72 4d 75 6c 2c 78 25 2c |um_Scala|rMul,x%,|
|000004b0| 32 2c 78 25 0d 02 76 04 | 0d 02 80 22 20 20 f4 20 |2,x%..v.|..."  . |
|000004c0| 50 52 49 4e 54 20 22 61 | 20 3d 20 22 3b 46 4e 6e |PRINT "a| = ";FNn|
|000004d0| 75 6d 5f 70 72 6e 28 61 | 25 29 0d 02 8a 22 20 20 |um_prn(a|%)..."  |
|000004e0| f4 20 50 52 49 4e 54 20 | 22 62 20 3d 20 22 3b 46 |. PRINT |"b = ";F|
|000004f0| 4e 6e 75 6d 5f 70 72 6e | 28 62 25 29 0d 02 94 22 |Nnum_prn|(b%)..."|
|00000500| 20 20 f4 20 50 52 49 4e | 54 20 22 63 20 3d 20 22 |  . PRIN|T "c = "|
|00000510| 3b 46 4e 6e 75 6d 5f 70 | 72 6e 28 63 25 29 0d 02 |;FNnum_p|rn(c%)..|
|00000520| 9e 22 20 20 f4 20 50 52 | 49 4e 54 20 22 78 20 3d |."  . PR|INT "x =|
|00000530| 20 22 3b 46 4e 6e 75 6d | 5f 70 72 6e 28 78 25 29 | ";FNnum|_prn(x%)|
|00000540| 0d 02 a8 04 0d 02 b2 1f | 20 20 c8 99 20 4e 75 6d |........|  .. Num|
|00000550| 5f 43 6d 70 2c 61 25 2c | 62 25 20 b8 20 65 71 75 |_Cmp,a%,|b% . equ|
|00000560| 61 6c 25 0d 02 b3 14 20 | 20 69 74 65 72 61 74 69 |al%.... | iterati|
|00000570| 6f 6e 73 25 2b 3d 31 0d | 02 bc 0e fd 20 65 71 75 |ons%+=1.|.... equ|
|00000580| 61 6c 25 3d 30 0d 02 c6 | 04 0d 02 d0 26 f4 20 70 |al%=0...|....&. p|
|00000590| 69 20 3d 20 28 61 20 2b | 20 62 29 20 2a 20 28 61 |i = (a +| b) * (a|
|000005a0| 20 2b 20 62 29 20 2f 20 | 28 34 20 2a 20 63 29 0d | + b) / |(4 * c).|
|000005b0| 02 da 18 c8 99 20 4e 75 | 6d 5f 41 64 64 2c 61 25 |..... Nu|m_Add,a%|
|000005c0| 2c 62 25 2c 70 69 25 0d | 02 e4 1a c8 99 20 4e 75 |,b%,pi%.|..... Nu|
|000005d0| 6d 5f 4d 75 6c 2c 70 69 | 25 2c 70 69 25 2c 70 69 |m_Mul,pi|%,pi%,pi|
|000005e0| 25 0d 02 ee 1f c8 99 20 | 4e 75 6d 5f 44 69 76 2c |%...... |Num_Div,|
|000005f0| 70 69 25 2c 63 25 2c 70 | 69 25 2c 74 65 6d 70 25 |pi%,c%,p|i%,temp%|
|00000600| 0d 02 f8 1e c8 99 20 4e | 75 6d 5f 53 63 61 6c 61 |...... N|um_Scala|
|00000610| 72 44 69 76 2c 70 69 25 | 2c 34 2c 70 69 25 0d 03 |rDiv,pi%|,4,pi%..|
|00000620| 02 04 0d 03 0c 0b 74 25 | 3d 91 2d 74 25 0d 03 16 |......t%|=.-t%...|
|00000630| 13 f1 20 a4 6e 75 6d 5f | 70 72 6e 28 70 69 25 29 |.. .num_|prn(pi%)|
|00000640| 0d 03 20 3c f1 20 22 54 | 68 61 74 20 74 6f 6f 6b |.. <. "T|hat took|
|00000650| 20 22 3b 74 25 2f 31 30 | 30 3b 22 53 20 61 6e 64 | ";t%/10|0;"S and|
|00000660| 20 22 3b 69 74 65 72 61 | 74 69 6f 6e 73 25 3b 22 | ";itera|tions%;"|
|00000670| 20 69 74 65 72 61 74 69 | 6f 6e 73 22 0d 03 2a 04 | iterati|ons"..*.|
|00000680| 0d 03 34 05 e0 0d ff    |                         |..4.... |        |
+--------+-------------------------+-------------------------+--------+--------+