/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Advanced_Math_Samples / binom

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 88 84 00 01 00 00 01 00 | 00 00 00 00 02 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 3b 31 30 21 20 20 20 | 54 68 65 20 66 6f 6c 6c |.;10!   |The foll|
|00000110| 6f 77 69 6e 67 20 69 73 | 20 61 20 74 65 73 74 20 |owing is| a test |
|00000120| 6f 66 20 74 68 65 20 48 | 54 42 61 73 69 63 20 6d |of the H|TBasic m|
|00000130| 61 74 68 20 22 72 75 6e | 74 69 6d 65 22 00 00 1c |ath "run|time"...|
|00000140| 32 30 21 20 20 6c 69 62 | 72 61 72 79 20 66 75 6e |20!  lib|rary fun|
|00000150| 63 74 69 6f 6e 3a 20 42 | 69 6e 6f 6d 00 13 33 30 |ction: B|inom..30|
|00000160| 21 20 46 69 6c 65 3a 20 | 42 69 6e 6f 6d 2e 70 72 |! File: |Binom.pr|
|00000170| 67 00 00 24 35 30 21 20 | 43 6f 6d 6d 65 6e 74 73 |g..$50! |Comments|
|00000180| 3a 20 42 69 6e 6f 6d 69 | 61 6c 20 63 6f 65 66 66 |: Binomi|al coeff|
|00000190| 69 63 69 65 6e 74 73 2e | 00 12 36 30 20 20 20 20 |icients.|..60    |
|000001a0| 43 4c 45 41 52 20 53 43 | 52 45 45 4e 00 2f 37 30 |CLEAR SC|REEN./70|
|000001b0| 20 20 20 20 4c 4f 41 44 | 53 55 42 20 41 4c 4c 20 |    LOAD|SUB ALL |
|000001c0| 46 52 4f 4d 20 22 2e 2e | 5c 6d 61 74 68 6c 69 62 |FROM "..|\mathlib|
|000001d0| 5c 4d 61 74 68 6c 69 62 | 2e 68 74 73 22 00 00 11 |\Mathlib|.hts"...|
|000001e0| 38 30 20 20 20 20 49 4e | 54 45 47 45 52 20 4d 2c |80    IN|TEGER M,|
|000001f0| 4e 00 00 3f 39 30 20 20 | 20 20 50 52 49 4e 54 20 |N..?90  |  PRINT |
|00000200| 22 54 68 65 20 42 69 6e | 6f 6d 69 61 6c 20 63 6f |"The Bin|omial co|
|00000210| 65 66 66 69 63 69 65 6e | 74 73 20 6f 66 20 6d 20 |efficien|ts of m |
|00000220| 3d 20 22 3b 4d 3b 22 20 | 61 6e 64 20 6e 20 3d 20 |= ";M;" |and n = |
|00000230| 22 3b 4e 00 00 1f 31 30 | 30 20 20 20 50 52 49 4e |";N...10|0   PRIN|
|00000240| 54 20 22 69 73 3a 20 22 | 3b 46 4e 42 69 6e 6f 6d |T "is: "|;FNBinom|
|00000250| 28 4d 2c 4e 29 00 00 18 | 31 31 30 20 20 20 44 45 |(M,N)...|110   DE|
|00000260| 4c 53 55 42 20 46 4e 41 | 69 20 54 4f 20 45 4e 44 |LSUB FNA|i TO END|
|00000270| 00 09 31 32 30 20 20 20 | 45 4e 44 00 ff ff       |..120   |END...  |
+--------+-------------------------+-------------------------+--------+--------+