/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / wst!blz4.dms / in.adf / bum6 / squareroot.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 74 68 65 20 | 22 77 68 79 20 73 6b 69 |;.; the |"why ski|
|00000010| 64 6d 61 72 6b 73 20 64 | 6f 65 73 6e 27 74 20 73 |dmarks d|oesn't s|
|00000020| 6c 6f 77 20 64 6f 77 6e | 20 6f 6e 20 61 6e 20 41 |low down| on an A|
|00000030| 35 30 30 22 20 72 6f 75 | 74 69 6e 65 00 3b 00 00 |500" rou|tine.;..|
|00000040| 80 04 20 73 71 6c 75 70 | 2e 77 28 32 30 34 38 29 |.. sqlup|.w(2048)|
|00000050| 00 80 16 20 69 69 2e 66 | 3d 30 20 80 18 20 32 30 |... ii.f|=0 .. 20|
|00000060| 34 38 00 20 20 76 2e 66 | 3d e0 0c 28 69 69 2f 34 |48.  v.f|=..(ii/4|
|00000070| 30 39 36 29 2a 36 35 35 | 33 35 3a 73 71 6c 75 70 |096)*655|35:sqlup|
|00000080| 28 69 69 29 3d 76 00 80 | 17 00 00 3b 20 74 68 65 |(ii)=v..|...; the|
|00000090| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 72 6f 75 74 69 | followi|ng routi|
|000000a0| 6e 65 20 66 69 6e 64 73 | 20 74 68 65 20 73 71 75 |ne finds| the squ|
|000000b0| 61 72 65 20 72 6f 6f 74 | 20 62 79 20 69 6e 74 65 |are root| by inte|
|000000c0| 72 70 6f 6c 61 74 69 6e | 67 00 3b 20 74 68 65 20 |rpolatin|g.; the |
|000000d0| 61 62 6f 76 65 20 6c 6f | 6f 6b 20 75 70 20 74 61 |above lo|ok up ta|
|000000e0| 62 6c 65 20 66 6f 72 20 | 76 61 6c 75 65 73 20 62 |ble for |values b|
|000000f0| 65 74 77 65 65 6e 20 30 | 2e 30 30 31 20 61 6e 64 |etween 0|.001 and|
|00000100| 20 33 32 30 30 30 00 3b | 20 74 68 65 20 6e 75 6d | 32000.;| the num|
|00000110| 62 65 72 20 6f 66 20 69 | 74 65 72 61 74 69 6f 6e |ber of i|teration|
|00000120| 73 20 66 6f 72 20 69 6e | 74 65 72 70 6f 6c 61 74 |s for in|terpolat|
|00000130| 69 6f 6e 20 69 73 20 67 | 6f 76 65 72 6e 65 64 00 |ion is g|overned.|
|00000140| 3b 20 62 79 20 31 2e 32 | 37 2a 6c 6f 67 28 61 29 |; by 1.2|7*log(a)|
|00000150| 2b 33 20 28 74 68 61 74 | 73 20 77 68 61 74 20 61 |+3 (that|s what a|
|00000160| 6e 64 72 65 77 20 62 72 | 61 69 6e 62 6f 75 72 6e |ndrew br|ainbourn|
|00000170| 65 20 72 65 63 6b 6f 6e | 73 29 00 3b 20 77 68 69 |e reckon|s).; whi|
|00000180| 63 68 20 69 73 20 73 6f | 6d 65 74 68 69 6e 67 20 |ch is so|mething |
|00000190| 79 6f 75 27 64 20 70 72 | 6f 62 61 62 6c 79 20 66 |you'd pr|obably f|
|000001a0| 69 6e 64 20 69 6e 20 61 | 20 64 6f 75 67 6c 61 73 |ind in a| douglas|
|000001b0| 20 61 64 61 6d 73 00 3b | 20 62 6f 6f 6b 20 69 66 | adams.;| book if|
|000001c0| 20 79 6f 75 20 72 65 61 | 6c 6c 79 20 74 72 69 65 | you rea|lly trie|
|000001d0| 64 20 62 75 74 20 69 74 | 27 73 20 70 72 6f 62 61 |d but it|'s proba|
|000001e0| 62 6c 79 20 74 72 75 65 | 00 00 80 09 2e 71 20 74 |bly true|.....q t|
|000001f0| 65 73 74 7b 61 2e 71 2c | 62 2e 6c 7d 00 20 20 80 |est{a.q,|b.l}.  .|
|00000200| 7e 2e 6c 20 64 31 2c 61 | 33 00 20 20 80 81 23 31 |~.l d1,a|3.  ..#1|
|00000210| 38 2c 64 32 3a 80 7e 2e | 6c 20 23 32 30 34 38 2c |8,d2:.~.|l #2048,|
|00000220| 64 33 3a 80 81 23 30 2c | 64 34 00 20 20 62 6c 6f |d3:..#0,|d4.  blo|
|00000230| 6f 70 3a 80 5c 2e 6c 20 | 64 33 2c 64 30 3a 80 4e |op:.\.l |d3,d0:.N|
|00000240| 20 63 65 77 6c 00 20 20 | 80 7d 2e 6c 23 31 2c 64 | cewl.  |.}.l#1,d|
|00000250| 30 3a 80 91 23 31 2c 64 | 34 3a 80 7d 2e 6c 23 31 |0:..#1,d|4:.}.l#1|
|00000260| 2c 64 30 3a 80 91 23 31 | 2c 64 34 00 20 20 80 6f |,d0:..#1|,d4.  .o|
|00000270| 20 64 32 2c 62 6c 6f 6f | 70 3a 63 65 77 6c 3a 80 | d2,bloo|p:cewl:.|
|00000280| 3d 20 64 30 2c 64 30 00 | 20 20 80 82 20 30 28 61 |= d0,d0.|  .. 0(a|
|00000290| 33 2c 64 30 29 2c 64 30 | 2f 64 35 3a 80 84 20 64 |3,d0),d0|/d5:.. d|
|000002a0| 34 2c 64 35 3a 80 89 20 | 64 34 3a 80 84 20 64 34 |4,d5:.. |d4:.. d4|
|000002b0| 2c 64 30 00 20 20 80 3d | 2e 6c 20 64 35 2c 64 30 |,d0.  .=|.l d5,d0|
|000002c0| 3a 80 7d 2e 6c 20 64 32 | 2c 64 30 00 20 20 80 b1 |:.}.l d2|,d0.  ..|
|000002d0| 20 61 34 3a 80 94 00 80 | 02 20 80 09 00 00 80 16 | a4:....|. ......|
|000002e0| 20 69 2e 77 3d 31 20 80 | 18 20 31 30 30 00 20 20 | i.w=1 .|. 100.  |
|000002f0| 69 77 2e 71 3d 69 20 80 | 45 20 31 36 00 20 20 61 |iw.q=i .|E 16.  a|
|00000300| 31 2e 66 3d e0 0c 28 69 | 77 29 00 20 20 61 32 2e |1.f=..(i|w).  a2.|
|00000310| 71 3d 74 65 73 74 7b 69 | 77 2c 26 73 71 6c 75 70 |q=test{i|w,&sqlup|
|00000320| 28 30 29 7d 00 20 20 61 | 33 3d 31 30 30 2a 28 61 |(0)}.  a|3=100*(a|
|00000330| 31 2d 61 32 29 2f 61 32 | 20 3b 41 62 73 28 61 31 |1-a2)/a2| ;Abs(a1|
|00000340| 2d 61 32 29 2f 61 31 00 | 3b 20 20 4e 50 72 69 6e |-a2)/a1.|;  NPrin|
|00000350| 74 20 48 65 78 24 28 50 | 65 65 6b 2e 6c 28 26 61 |t Hex$(P|eek.l(&a|
|00000360| 31 29 29 2c 22 20 20 22 | 2c 48 65 78 24 28 50 65 |1)),"  "|,Hex$(Pe|
|00000370| 65 6b 2e 6c 28 26 61 32 | 29 29 2c 22 20 20 22 2c |ek.l(&a2|)),"  ",|
|00000380| 48 65 78 24 28 50 65 65 | 6b 2e 6c 28 26 61 33 29 |Hex$(Pee|k.l(&a3)|
|00000390| 29 00 20 20 dd 82 20 61 | 31 2c 22 20 20 22 2c 61 |).  .. a|1,"  ",a|
|000003a0| 32 2c 22 20 20 22 2c 61 | 33 00 80 17 00 dd 82 20 |2,"  ",a|3...... |
|000003b0| 22 74 72 75 65 2c 20 65 | 73 74 69 6d 61 74 65 64 |"true, e|stimated|
|000003c0| 2c 20 70 65 72 63 65 6e | 74 20 65 72 72 6f 72 22 |, percen|t error"|
|000003d0| 00 00 80 0a 00 80 02 00 |                         |........|        |
+--------+-------------------------+-------------------------+--------+--------+