home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / evaluate / !Evaluate / MathLib < prev    next >
Unknown  |  1990-02-14  |  2.4 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert Truevision Targa Graphic (image/tga) magic Supported
100% file data default
100% xdgMime image/x-tga default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 46 f4 20 3e 3c | 45 76 61 6c 24 44 69 72 |...F. ><|Eval$Dir|
|00000010| 3e 2e 4d 61 74 68 4c 69 | 62 20 2d 20 6d 61 74 68 |>.MathLi|b - math|
|00000020| 20 6c 69 62 72 61 72 79 | 20 66 6f 72 20 21 45 76 | library| for !Ev|
|00000030| 61 6c 75 61 74 65 2e 20 | 44 61 74 65 20 32 38 2d |aluate. |Date 28-|
|00000040| 30 31 2d 39 30 2e 0d 00 | 14 47 f4 20 54 68 69 73 |01-90...|.G. This|
|00000050| 20 70 72 6f 67 72 61 6d | 20 69 73 20 65 6e 74 69 | program| is enti|
|00000060| 72 65 6c 79 20 64 69 66 | 66 65 72 65 6e 74 20 66 |rely dif|ferent f|
|00000070| 72 6f 6d 20 41 26 42 20 | 43 6f 6d 70 75 74 69 6e |rom A&B |Computin|
|00000080| 67 27 73 20 21 45 76 61 | 75 6c 61 74 65 0d 00 1e |g's !Eva|ulate...|
|00000090| 34 f4 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 77 |4. appli|cation w|
|000000a0| 68 69 63 68 20 69 73 20 | 66 61 72 20 69 6e 66 65 |hich is |far infe|
|000000b0| 72 69 6f 72 20 74 6f 20 | 74 68 69 73 20 6f 6e 65 |rior to |this one|
|000000c0| 21 0d 00 28 04 0d 00 32 | 15 3c 73 6f 66 74 20 62 |!..(...2|.<soft b|
|000000d0| 6f 6e 67 20 73 6f 75 6e | 64 3e 0d 00 3c 44 59 6f |ong soun|d>..<DYo|
|000000e0| 75 20 68 61 76 65 20 6e | 6f 77 20 65 6e 74 65 72 |u have n|ow enter|
|000000f0| 65 64 20 61 20 70 72 6f | 63 65 64 75 72 65 20 6c |ed a pro|cedure l|
|00000100| 69 62 72 61 72 79 2e 20 | 46 6f 72 20 74 68 65 20 |ibrary. |For the |
|00000110| 68 6f 73 74 20 70 72 6f | 67 72 61 6d 27 73 0d 00 |host pro|gram's..|
|00000120| 46 40 73 61 66 65 74 79 | 20 63 6f 75 6c 64 20 61 |F@safety| could a|
|00000130| 6c 6c 20 70 72 6f 67 72 | 61 6d 6d 65 72 73 20 70 |ll progr|ammers p|
|00000140| 6c 65 61 73 65 20 72 65 | 66 72 61 69 6e 20 66 72 |lease re|frain fr|
|00000150| 6f 6d 20 75 73 69 6e 67 | 20 6e 6f 6e 20 ea 0d 00 |om using| non ...|
|00000160| 50 29 76 61 72 69 61 62 | 6c 65 73 20 61 6e 64 20 |P)variab|les and |
|00000170| 6c 69 6e 65 20 6e 75 6d | 62 65 72 20 72 65 66 65 |line num|ber refe|
|00000180| 72 65 6e 63 65 73 2e 0d | 00 5a 04 0d 00 64 3e 49 |rences..|.Z...d>I|
|00000190| 66 20 79 6f 75 20 77 6f | 75 6c 64 20 6c 69 6b 65 |f you wo|uld like|
|000001a0| 20 74 6f 20 f7 20 79 6f | 75 72 20 64 61 74 61 20 | to . yo|ur data |
|000001b0| 70 6f 69 6e 74 65 72 73 | 20 74 6f 20 61 20 63 6f |pointers| to a co|
|000001c0| 6d 66 6f 72 74 61 62 6c | 65 0d 00 6e 3d 6c 6f 63 |mfortabl|e..n=loc|
|000001d0| 61 74 69 6f 6e 20 70 6c | 65 61 73 65 20 75 73 65 |ation pl|ease use|
|000001e0| 20 f7 20 2b 6e 20 77 68 | 69 63 68 20 77 69 6c 6c | . +n wh|ich will|
|000001f0| 20 6d 6f 76 65 20 74 68 | 65 6d 20 74 6f 20 74 68 | move th|em to th|
|00000200| 65 20 6c 69 6e 65 0d 00 | 78 2b 77 65 20 77 69 6c |e line..|x+we wil|
|00000210| 6c 20 62 65 20 61 72 72 | 69 76 69 6e 67 20 61 74 |l be arr|iving at|
|00000220| 20 69 6e 20 6e 20 6c 69 | 6e 65 73 20 74 69 6d 65 | in n li|nes time|
|00000230| 2e 0d 00 82 04 0d 00 8c | 4c 50 6c 65 61 73 65 20 |........|LPlease |
|00000240| 6e 6f 74 65 20 74 68 61 | 74 20 74 68 69 73 20 4c |note tha|t this L|
|00000250| 69 62 72 61 72 79 20 69 | 73 20 65 71 75 69 70 70 |ibrary i|s equipp|
|00000260| 65 64 20 77 69 74 68 20 | 74 68 65 20 6c 61 74 65 |ed with |the late|
|00000270| 73 74 20 65 72 72 6f 72 | 20 74 72 61 70 70 69 6e |st error| trappin|
|00000280| 67 0d 00 96 49 73 61 66 | 65 74 79 20 66 65 61 74 |g...Isaf|ety feat|
|00000290| 75 72 65 73 20 77 68 69 | 63 68 20 79 6f 75 20 63 |ures whi|ch you c|
|000002a0| 61 6e 20 6d 61 6b 65 20 | 75 73 65 20 6f 66 20 62 |an make |use of b|
|000002b0| 79 20 75 73 69 6e 67 20 | 74 68 65 20 85 20 32 35 |y using |the . 25|
|000002c0| 35 2c 3c 73 74 72 69 6e | 67 3e 0d 00 a0 0e 73 74 |5,<strin|g>....st|
|000002d0| 61 74 65 6d 65 6e 74 2e | 0d 00 aa 04 0d 00 b4 4a |atement.|.......J|
|000002e0| 49 74 20 69 73 20 61 6e | 20 6f 66 66 65 6e 63 65 |It is an| offence|
|000002f0| 20 70 75 6e 69 73 68 61 | 62 6c 65 20 62 79 20 64 | punisha|ble by d|
|00000300| 65 61 74 68 20 74 6f 20 | 6f 77 6e 2c 20 70 6f 73 |eath to |own, pos|
|00000310| 73 65 73 73 2c 20 73 6d | 75 67 67 6c 65 2c 20 61 |sess, sm|uggle, a|
|00000320| 74 74 65 6d 70 74 0d 00 | be 3a 74 6f 20 73 6d 75 |ttempt..|.:to smu|
|00000330| 67 67 6c 65 2c 20 62 75 | 79 20 6f 72 20 73 77 61 |ggle, bu|y or swa|
|00000340| 70 20 e5 73 20 61 6e 64 | 20 e4 73 20 69 6e 73 69 |p .s and| .s insi|
|00000350| 64 65 20 74 68 69 73 20 | 70 72 6f 67 72 61 6d 2e |de this |program.|
|00000360| 0d 00 c8 04 0d 00 d2 31 | 48 61 76 65 20 61 20 70 |.......1|Have a p|
|00000370| 6c 65 61 73 61 6e 74 20 | 70 72 6f 67 72 61 6d 6d |leasant |programm|
|00000380| 69 6e 67 20 73 65 73 73 | 69 6f 6e 2e 20 47 6f 6f |ing sess|ion. Goo|
|00000390| 64 62 79 65 2e 0d 00 dc | 04 0d 00 e6 3b 3d 3d 3d |dbye....|....;===|
|000003a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003d0| 3d 3d 3d 3d 0d 00 f0 3b | 3d 3d 3d 20 54 68 65 73 |====...;|=== Thes|
|000003e0| 65 20 66 75 6e 63 74 69 | 6f 6e 73 20 62 79 20 53 |e functi|ons by S|
|000003f0| 61 6e 64 69 65 20 74 68 | 65 20 57 61 6c 72 75 73 |andie th|e Walrus|
|00000400| 20 32 38 2f 30 31 2f 31 | 39 39 30 20 3d 3d 3d 0d | 28/01/1|990 ===.|
|00000410| 00 fa 3b 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..;=====|========|
|00000420| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000440| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 01 04 04 0d 01 |========|==......|
|00000450| 0e 31 a4 66 61 63 28 6e | 29 20 2d 20 72 65 74 75 |.1.fac(n|) - retu|
|00000460| 72 6e 73 20 74 68 65 20 | 66 61 63 74 6f 72 69 61 |rns the |factoria|
|00000470| 6c 20 6f 66 20 74 68 65 | 20 6e 75 6d 62 65 72 0d |l of the| number.|
|00000480| 01 18 49 49 20 68 61 76 | 65 6e 27 74 20 6d 61 64 |..II hav|en't mad|
|00000490| 65 20 69 74 20 72 65 63 | 75 72 73 69 76 65 20 61 |e it rec|ursive a|
|000004a0| 73 20 49 20 63 61 6e 27 | 74 20 62 65 20 70 69 73 |s I can'|t be pis|
|000004b0| 73 65 64 20 61 6e 64 20 | 69 74 20 77 6f 72 6b 73 |sed and |it works|
|000004c0| 20 6a 75 73 74 20 61 73 | 0d 01 22 18 77 65 6c 6c | just as|..".well|
|000004d0| 20 74 68 69 73 20 77 61 | 79 20 61 6e 79 77 61 79 | this wa|y anyway|
|000004e0| 0d 01 2c 0d dd a4 66 61 | 63 28 4e 25 29 0d 01 36 |..,...fa|c(N%)..6|
|000004f0| 41 e7 4e 25 3c 30 20 85 | 20 32 35 35 2c 22 4e 65 |A.N%<0 .| 255,"Ne|
|00000500| 67 61 74 69 76 65 20 6e | 75 6d 62 65 72 73 20 64 |gative n|umbers d|
|00000510| 6f 20 6e 6f 74 20 68 61 | 76 65 20 66 61 63 74 6f |o not ha|ve facto|
|00000520| 72 69 61 6c 73 2c 20 74 | 75 72 6b 65 79 22 0d 01 |rials, t|urkey"..|
|00000530| 40 27 ea 54 25 2c 49 25 | 3a 54 25 3d 31 3a e3 49 |@'.T%,I%|:T%=1:.I|
|00000540| 25 3d 31 b8 4e 25 3a 54 | 25 3d 54 25 2a 49 25 3a |%=1.N%:T|%=T%*I%:|
|00000550| ed 3a 3d 54 25 0d 01 4a | 04 0d 01 54 3b a4 70 72 |.:=T%..J|...T;.pr|
|00000560| 69 6d 65 28 6e 29 20 2d | 20 72 65 74 75 72 6e 73 |ime(n) -| returns|
|00000570| 20 b9 20 69 66 20 6e 75 | 6d 62 65 72 20 69 73 20 | . if nu|mber is |
|00000580| 61 20 70 72 69 6d 65 2c | 20 6f 74 68 65 72 77 69 |a prime,| otherwi|
|00000590| 73 65 20 a3 0d 01 5e 43 | 49 27 76 65 20 75 73 65 |se ...^C|I've use|
|000005a0| 64 20 61 20 48 65 61 74 | 68 20 52 6f 62 69 6e 73 |d a Heat|h Robins|
|000005b0| 6f 6e 20 76 65 72 73 69 | 6f 6e 20 6f 66 20 74 68 |on versi|on of th|
|000005c0| 65 20 53 69 65 76 65 20 | 6f 66 20 45 72 61 74 6f |e Sieve |of Erato|
|000005d0| 73 74 68 65 6e 65 73 0d | 01 68 2c 61 73 20 49 20 |sthenes.|.h,as I |
|000005e0| 63 61 6e 27 74 20 62 65 | 20 70 69 73 73 65 64 20 |can't be| pissed |
|000005f0| 74 6f 20 64 6f 20 61 20 | ea 20 61 72 72 61 79 20 |to do a |. array |
|00000600| 6f 6e 65 0d 01 72 16 dd | a4 70 72 69 6d 65 28 4e |one..r..|.prime(N|
|00000610| 25 29 3a ea 49 25 2c 4a | 25 0d 01 86 3a e7 4e 25 |%):.I%,J|%...:.N%|
|00000620| 3c 31 20 85 20 32 35 35 | 2c 22 46 4e 70 72 69 6d |<1 . 255|,"FNprim|
|00000630| 65 20 64 6f 65 73 6e 27 | 74 20 6c 69 6b 65 20 6e |e doesn'|t like n|
|00000640| 75 6d 62 65 72 73 20 6c | 65 73 73 20 74 68 61 6e |umbers l|ess than|
|00000650| 20 31 22 0d 01 90 27 e7 | 4e 25 20 83 20 32 20 3d | 1"...'.|N% . 2 =|
|00000660| 30 20 8c 20 3d a3 20 3a | f4 20 4e 6f 20 70 72 69 |0 . =. :|. No pri|
|00000670| 6d 65 20 69 73 20 65 76 | 65 6e 0d 01 9a 42 e7 4e |me is ev|en...B.N|
|00000680| 25 3c 33 20 3d a3 20 20 | 20 20 20 20 20 20 20 20 |%<3 =.  |        |
|00000690| 20 20 20 3a f4 20 31 20 | 61 6e 64 20 32 20 61 72 |   :. 1 |and 2 ar|
|000006a0| 65 20 70 72 69 6d 65 2c | 20 6e 65 67 20 6e 75 6d |e prime,| neg num|
|000006b0| 20 67 69 76 65 73 20 65 | 72 72 6f 72 0d 01 a4 23 | gives e|rror...#|
|000006c0| e3 20 49 25 3d 32 20 b8 | 20 4e 25 3a e3 20 4a 25 |. I%=2 .| N%:. J%|
|000006d0| 3d 49 25 2a 32 20 b8 20 | 4e 25 20 88 20 49 25 0d |=I%*2 . |N% . I%.|
|000006e0| 01 ae 17 e7 20 4e 25 3d | 4a 25 20 3d a3 20 8b 20 |.... N%=|J% =. . |
|000006f0| ed 3a ed 3a 3d b9 0d 01 | b8 04 0d 01 c2 3b a4 66 |.:.:=...|.....;.f|
|00000700| 6c 61 67 28 73 24 29 20 | 2d 20 72 65 74 75 72 6e |lag(s$) |- return|
|00000710| 73 20 76 61 6c 75 65 20 | 28 69 6e 20 64 65 63 69 |s value |(in deci|
|00000720| 6d 61 6c 29 20 66 6f 72 | 20 77 69 6e 64 6f 77 20 |mal) for| window |
|00000730| 66 6c 61 67 73 0d 01 cc | 4a 65 2e 67 2e 20 a4 66 |flags...|Je.g. .f|
|00000740| 6c 61 67 28 31 2e 32 2e | 34 29 20 77 6f 72 6b 73 |lag(1.2.|4) works|
|00000750| 20 6f 75 74 20 31 3c 3c | 31 2b 31 3c 3c 32 2b 31 | out 1<<|1+1<<2+1|
|00000760| 3c 3c 34 20 6f 72 20 32 | 5e 31 2b 32 5e 32 2b 32 |<<4 or 2|^1+2^2+2|
|00000770| 5e 34 20 77 68 69 63 68 | 20 69 73 20 26 31 36 0d |^4 which| is &16.|
|00000780| 01 d6 16 dd a4 66 6c 61 | 67 28 73 24 29 3a 73 24 |.....fla|g(s$):s$|
|00000790| 2b 3d 22 2e 22 0d 01 e0 | 11 ea 62 69 74 24 2c 46 |+="."...|..bit$,F|
|000007a0| 25 3a 46 25 3d 30 0d 01 | ea 0f c8 95 20 a7 73 24 |%:F%=0..|.... .s$|
|000007b0| 2c 22 2e 22 29 0d 01 f4 | 2f 20 46 25 2b 3d 31 3c |,".")...|/ F%+=1<|
|000007c0| 3c bb c0 73 24 2c a7 73 | 24 2c 22 2e 22 29 2d 31 |<..s$,.s|$,".")-1|
|000007d0| 29 3a 73 24 3d c1 73 24 | 2c a7 73 24 2c 22 2e 22 |):s$=.s$|,.s$,"."|
|000007e0| 29 2b 31 29 0d 01 fe 09 | ce 3a 3d 46 25 0d 02 08 |)+1)....|.:=F%...|
|000007f0| 04 0d 02 12 3b 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |....;===|========|
|00000800| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000810| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000820| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 02 1c 3a |========|====...:|
|00000830| 20 3d 3d 3d 20 54 68 65 | 73 65 20 66 75 6e 63 74 | === The|se funct|
|00000840| 69 6f 6e 73 20 61 64 64 | 65 64 20 62 79 20 4e 61 |ions add|ed by Na|
|00000850| 74 61 73 68 61 20 4b 20 | 32 38 2f 30 31 2f 31 39 |tasha K |28/01/19|
|00000860| 39 30 20 3d 3d 3d 0d 02 | 26 3b 3d 3d 3d 3d 3d 3d |90 ===..|&;======|
|00000870| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000880| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000890| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008a0| 3d 0d 02 30 33 a4 64 28 | 73 29 20 2d 20 72 6f 6c |=..03.d(|s) - rol|
|000008b0| 6c 73 20 61 6e 20 73 2d | 73 69 64 65 64 20 64 69 |ls an s-|sided di|
|000008c0| 65 20 28 73 69 6e 67 75 | 6c 61 72 20 6f 66 20 64 |e (singu|lar of d|
|000008d0| 69 63 65 29 0d 02 3a 2a | dd a4 64 28 53 25 29 3a |ice)..:*|..d(S%):|
|000008e0| e7 53 25 3c 32 20 85 20 | 32 35 35 2c 22 46 75 6e |.S%<2 . |255,"Fun|
|000008f0| 6e 79 20 64 69 65 2c 20 | 77 68 61 74 3f 22 0d 02 |ny die, |what?"..|
|00000900| 44 0a 3d b3 28 53 25 29 | 0d 02 4e 04 0d 02 58 23 |D.=.(S%)|..N...X#|
|00000910| a4 64 73 28 6e 2c 73 29 | 20 2d 20 72 6f 6c 6c 73 |.ds(n,s)| - rolls|
|00000920| 20 6e 20 73 2d 73 69 64 | 65 73 20 64 69 63 65 0d | n s-sid|es dice.|
|00000930| 02 62 38 dd a4 64 73 28 | 4e 25 2c 53 25 29 3a e7 |.b8..ds(|N%,S%):.|
|00000940| 53 25 3c 32 20 85 20 32 | 35 35 2c 22 44 69 63 65 |S%<2 . 2|55,"Dice|
|00000950| 20 68 61 76 65 20 6d 6f | 72 65 20 74 68 61 6e 20 | have mo|re than |
|00000960| 31 20 66 61 63 65 22 0d | 02 6c 25 e7 4e 25 3c 31 |1 face".|.l%.N%<1|
|00000970| 20 85 20 32 35 35 2c 22 | 52 6f 6c 6c 20 68 6f 77 | . 255,"|Roll how|
|00000980| 20 6d 61 6e 79 20 64 69 | 63 65 3f 22 0d 02 76 25 | many di|ce?"..v%|
|00000990| ea 54 25 3a 54 25 3d 30 | 3a e3 49 25 3d 31 b8 4e |.T%:T%=0|:.I%=1.N|
|000009a0| 25 3a 54 25 2b 3d b3 28 | 53 25 29 3a ed 3a 3d 54 |%:T%+=.(|S%):.:=T|
|000009b0| 25 0d ff                |                         |%..     |        |
+--------+-------------------------+-------------------------+--------+--------+