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

< 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 04 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 12 31 30 20 20 20 20 | 43 4c 45 41 52 20 53 43 |..10    |CLEAR SC|
|00000110| 52 45 45 4e 00 2f 32 30 | 20 20 20 20 4c 4f 41 44 |REEN./20|    LOAD|
|00000120| 53 55 42 20 41 4c 4c 20 | 46 52 4f 4d 20 22 2e 2e |SUB ALL |FROM "..|
|00000130| 5c 6d 61 74 68 6c 69 62 | 5c 4d 61 74 68 6c 69 62 |\mathlib|\Mathlib|
|00000140| 2e 68 74 73 22 00 00 13 | 33 30 20 20 20 20 4f 50 |.hts"...|30    OP|
|00000150| 54 49 4f 4e 20 42 41 53 | 45 20 31 00 00 2d 34 30 |TION BAS|E 1..-40|
|00000160| 20 20 20 20 52 45 41 4c | 20 50 28 32 29 2c 46 76 |    REAL| P(2),Fv|
|00000170| 65 63 74 28 31 33 29 2c | 46 72 65 71 28 31 33 29 |ect(13),|Freq(13)|
|00000180| 2c 56 72 61 74 69 6f 28 | 31 33 29 00 00 12 35 30 |,Vratio(|13)...50|
|00000190| 20 20 20 20 49 4e 54 45 | 47 45 52 20 49 6e 66 6f |    INTE|GER Info|
|000001a0| 00 1c 36 30 20 20 20 20 | 52 45 41 44 20 46 72 65 |..60    |READ Fre|
|000001b0| 71 28 2a 29 2c 56 72 61 | 74 69 6f 28 2a 29 00 34 |q(*),Vra|tio(*).4|
|000001c0| 37 30 20 20 20 20 44 41 | 54 41 20 31 2c 20 32 2c |70    DA|TA 1, 2,|
|000001d0| 20 33 2c 20 34 2c 20 35 | 2c 20 36 2c 20 37 2c 20 | 3, 4, 5|, 6, 7, |
|000001e0| 38 2c 20 39 2c 20 31 30 | 2c 20 31 31 2c 20 31 32 |8, 9, 10|, 11, 12|
|000001f0| 2c 20 31 33 00 35 38 30 | 20 20 20 20 44 41 54 41 |, 13.580|    DATA|
|00000200| 20 2e 31 34 38 35 39 2c | 20 2e 32 36 37 31 31 34 | .14859,| .267114|
|00000210| 2c 20 2e 34 34 36 39 35 | 37 2c 20 2e 36 37 39 37 |, .44695|7, .6797|
|00000220| 32 38 2c 20 2e 38 30 36 | 34 35 32 00 00 36 39 30 |28, .806|452..690|
|00000230| 20 20 20 20 44 41 54 41 | 20 2e 35 38 36 37 33 35 |    DATA| .586735|
|00000240| 2c 20 2e 34 34 39 37 38 | 34 2c 20 2e 33 35 35 36 |, .44978|4, .3556|
|00000250| 34 32 2c 20 2e 32 39 39 | 33 30 32 2c 20 2e 32 36 |42, .299|302, .26|
|00000260| 30 30 33 36 00 23 31 30 | 30 20 20 20 44 41 54 41 |0036.#10|0   DATA|
|00000270| 20 2e 32 32 39 34 35 31 | 2c 2e 32 30 35 32 30 30 | .229451|,.205200|
|00000280| 2c 20 2e 31 38 37 35 38 | 39 00 00 1b 31 31 30 20 |, .18758|9...110 |
|00000290| 20 20 4d 41 54 20 46 72 | 65 71 3d 28 31 30 30 30 |  MAT Fr|eq=(1000|
|000002a0| 30 29 2a 46 72 65 71 00 | 00 10 31 32 30 20 20 20 |0)*Freq.|..120   |
|000002b0| 50 28 31 29 3d 31 2e 45 | 2d 34 00 10 31 33 30 20 |P(1)=1.E|-4..130 |
|000002c0| 20 20 50 28 32 29 3d 31 | 2e 45 2d 37 00 44 31 34 |  P(2)=1|.E-7.D14|
|000002d0| 30 20 20 20 49 6e 66 6f | 3d 46 4e 46 66 69 74 28 |0   Info|=FNFfit(|
|000002e0| 31 33 2c 32 2c 22 52 69 | 63 22 2c 46 72 65 71 28 |13,2,"Ri|c",Freq(|
|000002f0| 2a 29 2c 56 72 61 74 69 | 6f 28 2a 29 2c 31 2e 35 |*),Vrati|o(*),1.5|
|00000300| 45 2d 38 2c 50 28 2a 29 | 2c 46 76 65 63 74 28 2a |E-8,P(*)|,Fvect(*|
|00000310| 29 29 00 3a 31 35 30 20 | 20 20 50 52 49 4e 54 20 |)).:150 |  PRINT |
|00000320| 22 46 69 6e 61 6c 20 61 | 76 65 72 61 67 65 20 65 |"Final a|verage e|
|00000330| 72 72 6f 72 22 2c 46 4e | 4e 6f 72 6d 28 46 76 65 |rror",FN|Norm(Fve|
|00000340| 63 74 28 2a 29 29 2f 53 | 51 52 28 31 33 29 00 21 |ct(*))/S|QR(13).!|
|00000350| 31 36 30 20 20 20 50 52 | 49 4e 54 20 22 45 78 69 |160   PR|INT "Exi|
|00000360| 74 20 70 61 72 61 6d 65 | 74 65 72 22 2c 49 6e 66 |t parame|ter",Inf|
|00000370| 6f 00 00 2c 31 37 30 20 | 20 20 50 52 49 4e 54 20 |o..,170 |  PRINT |
|00000380| 22 4c 20 3d 22 2c 50 52 | 4f 55 4e 44 28 50 28 31 |"L =",PR|OUND(P(1|
|00000390| 29 2a 31 2e 45 2b 36 2c | 30 29 3b 22 75 48 79 22 |)*1.E+6,|0);"uHy"|
|000003a0| 00 2d 31 38 30 20 20 20 | 50 52 49 4e 54 20 22 43 |.-180   |PRINT "C|
|000003b0| 20 3d 22 2c 50 52 4f 55 | 4e 44 28 50 28 32 29 2a | =",PROU|ND(P(2)*|
|000003c0| 31 2e 45 2b 36 2c 2d 33 | 29 3b 22 75 46 64 22 00 |1.E+6,-3|);"uFd".|
|000003d0| 00 18 31 39 30 20 20 20 | 44 45 4c 53 55 42 20 46 |..190   |DELSUB F|
|000003e0| 4e 41 69 20 54 4f 20 45 | 4e 44 00 09 32 30 30 20 |NAi TO E|ND..200 |
|000003f0| 20 20 45 4e 44 00 00 1c | 32 31 30 20 20 20 53 55 |  END...|210   SU|
|00000400| 42 20 52 69 63 28 52 45 | 41 4c 20 59 2c 50 28 2a |B Ric(RE|AL Y,P(*|
|00000410| 29 2c 58 29 00 11 32 32 | 30 20 20 20 20 20 49 4e |),X)..22|0     IN|
|00000420| 54 45 47 45 52 20 49 00 | 00 1f 32 33 30 20 20 20 |TEGER I.|..230   |
|00000430| 20 20 4f 6d 65 67 61 3d | 36 2e 32 38 33 31 38 36 |  Omega=|6.283186|
|00000440| 35 37 31 37 39 35 39 2a | 58 00 00 3f 32 34 30 20 |5717959*|X..?240 |
|00000450| 20 20 20 20 59 3d 28 31 | 35 2f 31 38 29 2f 41 42 |    Y=(1|5/18)/AB|
|00000460| 53 28 43 4d 50 4c 58 28 | 31 2c 4f 6d 65 67 61 2a |S(CMPLX(|1,Omega*|
|00000470| 50 28 31 29 2f 31 38 2d | 31 2f 28 4f 6d 65 67 61 |P(1)/18-|1/(Omega|
|00000480| 2a 31 38 2a 50 28 32 29 | 29 29 29 00 00 0c 32 35 |*18*P(2)|)))...25|
|00000490| 30 20 20 20 53 55 42 45 | 4e 44 00 04 32 36 30 21 |0   SUBE|ND..260!|
|000004a0| ff ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+