/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / maths1 / Brian / J_Greening / Polynomfit

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 50 | 6f 6c 79 6e 6f 6d 66 69 |..... >P|olynomfi|
|00000010| 74 0d 00 14 05 3a 0d 00 | 1e 18 f4 20 20 2a 2a 2a |t....:..|...  ***|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 00 |********|******..|
|00000030| 28 18 f4 20 20 2a 20 4a | 6f 68 6e 20 47 72 65 65 |(..  * J|ohn Gree|
|00000040| 6e 69 6e 67 20 2a 0d 00 | 32 18 f4 20 20 2a 20 20 |ning *..|2..  *  |
|00000050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 0d 00 |        |     *..|
|00000060| 3c 18 f4 20 20 2a 20 20 | 20 45 64 69 6e 62 75 72 |<..  *  | Edinbur|
|00000070| 67 68 20 20 20 2a 0d 00 | 46 18 f4 20 20 2a 2a 2a |gh   *..|F..  ***|
|00000080| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 00 |********|******..|
|00000090| 50 05 3a 0d 00 5a 42 f4 | 20 54 68 69 73 20 70 72 |P.:..ZB.| This pr|
|000000a0| 6f 67 72 61 6d 20 75 73 | 65 73 20 6d 61 74 68 65 |ogram us|es mathe|
|000000b0| 6d 61 74 69 63 73 20 66 | 72 6f 6d 20 42 59 54 45 |matics f|rom BYTE|
|000000c0| 20 4a 75 6e 65 20 31 39 | 38 37 20 70 70 31 35 36 | June 19|87 pp156|
|000000d0| 2d 31 36 30 2e 0d 00 64 | 05 3a 0d 00 6e 06 eb 31 |-160...d|.:..n..1|
|000000e0| 0d 00 78 11 ef 31 39 2c | 30 2c 34 2c 30 2c 30 2c |..x..19,|0,4,0,0,|
|000000f0| 30 0d 00 82 26 de 20 50 | 28 31 2c 33 30 29 2c 41 |0...&. P|(1,30),A|
|00000100| 28 33 30 29 2c 58 28 33 | 30 29 2c 59 28 33 30 29 |(30),X(3|0),Y(30)|
|00000110| 2c 57 54 28 33 30 29 0d | 00 8c 36 de 20 43 50 28 |,WT(30).|..6. CP(|
|00000120| 31 31 29 2c 44 31 28 31 | 31 29 2c 44 32 28 31 31 |11),D1(1|1),D2(11|
|00000130| 29 2c 44 33 28 31 31 29 | 2c 44 34 28 31 31 29 2c |),D3(11)|,D4(11),|
|00000140| 44 35 28 31 31 29 2c 44 | 36 28 31 31 29 0d 00 96 |D5(11),D|6(11)...|
|00000150| 0a f2 74 69 74 6c 65 0d | 00 a0 09 f2 6d 65 6e 75 |..title.|....menu|
|00000160| 0d 00 aa 0b f2 61 64 76 | 69 63 65 0d 00 b4 0d f2 |.....adv|ice.....|
|00000170| 63 6f 6e 74 69 6e 75 65 | 0d 00 be 05 db 0d 00 c8 |continue|........|
|00000180| 11 f2 63 68 6f 6f 73 65 | 64 65 67 72 65 65 0d 00 |..choose|degree..|
|00000190| d2 0e f2 73 63 61 6c 65 | 61 78 65 73 0d 00 dc 0d |...scale|axes....|
|000001a0| f2 67 65 74 6e 61 6d 65 | 73 0d 00 e6 0b f2 70 6f |.getname|s.....po|
|000001b0| 69 6e 74 73 0d 00 f0 0d | f2 64 72 61 77 61 78 65 |ints....|.drawaxe|
|000001c0| 73 0d 00 fa 0d f2 6e 61 | 6d 65 61 78 65 73 0d 01 |s.....na|meaxes..|
|000001d0| 04 0d f2 70 6c 6f 74 70 | 6f 6c 79 0d 01 0e 05 e0 |...plotp|oly.....|
|000001e0| 0d 01 18 05 3a 0d 01 22 | 0b dd f2 74 69 74 6c 65 |....:.."|...title|
|000001f0| 0d 01 2c 23 df 31 32 37 | 39 2c 30 3a df 31 32 37 |..,#.127|9,0:.127|
|00000200| 39 2c 31 30 32 33 3a df | 30 2c 31 30 32 33 3a df |9,1023:.|0,1023:.|
|00000210| 30 2c 30 0d 01 36 21 f1 | 8a 31 30 2c 37 29 3b 22 |0,0..6!.|.10,7);"|
|00000220| 50 4f 4c 59 4e 4f 4d 49 | 41 4c 20 44 41 54 41 20 |POLYNOMI|AL DATA |
|00000230| 46 49 54 22 0d 01 40 2b | f1 8a 35 2c 31 31 29 3b |FIT"..@+|..5,11);|
|00000240| 22 54 68 69 73 20 70 72 | 6f 67 72 61 6d 20 75 73 |"This pr|ogram us|
|00000250| 65 73 20 70 6f 6c 79 6e | 6f 6d 69 61 6c 73 22 0d |es polyn|omials".|
|00000260| 01 4a 29 f1 8a 35 2c 31 | 33 29 3b 22 6f 66 20 64 |.J)..5,1|3);"of d|
|00000270| 65 67 72 65 65 20 75 70 | 20 74 6f 20 31 30 20 74 |egree up| to 10 t|
|00000280| 6f 20 66 69 74 20 61 22 | 0d 01 54 2e f1 8a 35 2c |o fit a"|..T...5,|
|00000290| 31 35 29 3b 22 73 6d 6f | 6f 74 68 69 6e 67 20 63 |15);"smo|othing c|
|000002a0| 75 72 76 65 20 74 6f 20 | 75 70 20 74 6f 20 33 30 |urve to |up to 30|
|000002b0| 20 64 61 74 61 22 0d 01 | 5e 2d f1 8a 35 2c 31 37 | data"..|^-..5,17|
|000002c0| 29 3b 22 70 6f 69 6e 74 | 73 20 65 6e 74 65 72 65 |);"point|s entere|
|000002d0| 64 20 62 79 20 68 61 6e | 64 2c 20 62 79 20 44 41 |d by han|d, by DA|
|000002e0| 54 41 22 0d 01 68 2c f1 | 8a 35 2c 31 39 29 3b 22 |TA"..h,.|.5,19);"|
|000002f0| 73 74 61 74 65 6d 65 6e | 74 73 20 6f 72 20 66 72 |statemen|ts or fr|
|00000300| 6f 6d 20 61 20 64 69 73 | 63 20 66 69 6c 65 22 0d |om a dis|c file".|
|00000310| 01 72 2d f1 8a 35 2c 32 | 35 29 3b 22 50 72 65 73 |.r-..5,2|5);"Pres|
|00000320| 73 20 74 68 65 20 53 50 | 41 43 45 20 42 41 52 20 |s the SP|ACE BAR |
|00000330| 74 6f 20 63 6f 6e 74 69 | 6e 75 65 22 0d 01 7c 08 |to conti|nue"..|.|
|00000340| 41 24 3d be 0d 01 86 05 | db 0d 01 90 05 e1 0d 01 |A$=.....|........|
|00000350| 9a 05 3a 0d 01 a4 0f dd | f2 64 61 74 61 65 6e 74 |..:.....|.dataent|
|00000360| 72 79 0d 01 ae 05 db 0d | 01 b8 4f f1 8a 35 2c 31 |ry......|..O..5,1|
|00000370| 29 22 59 6f 75 20 6e 6f | 77 20 68 61 76 65 20 74 |)"You no|w have t|
|00000380| 6f 20 65 6e 74 65 72 20 | 79 6f 75 72 20 64 61 74 |o enter |your dat|
|00000390| 61 22 3a f1 8a 35 29 3b | 22 59 6f 75 20 66 69 72 |a":..5);|"You fir|
|000003a0| 73 74 20 65 6e 74 65 72 | 20 74 68 65 20 58 2d 76 |st enter| the X-v|
|000003b0| 61 6c 75 65 73 22 0d 01 | c2 20 f1 8a 39 29 3b 22 |alues"..|. ..9);"|
|000003c0| 61 6e 64 20 74 68 65 6e | 20 74 68 65 20 59 3d 76 |and then| the Y=v|
|000003d0| 61 6c 75 65 73 22 0d 01 | cc 2b f1 8a 34 29 3b 22 |alues"..|.+..4);"|
|000003e0| 61 6e 64 20 74 68 65 6e | 20 74 68 65 20 77 65 69 |and then| the wei|
|000003f0| 67 68 74 20 6f 66 20 74 | 68 65 20 70 6f 69 6e 74 |ght of t|he point|
|00000400| 22 0d 01 d6 33 f1 8a 31 | 29 3b 22 49 66 20 74 68 |"...3..1|);"If th|
|00000410| 65 20 77 65 69 67 68 74 | 20 69 73 20 31 20 73 69 |e weight| is 1 si|
|00000420| 6d 70 6c 79 20 70 72 65 | 73 73 20 52 45 54 55 52 |mply pre|ss RETUR|
|00000430| 4e 22 27 27 0d 01 e0 2f | f1 8a 33 29 3b 22 45 6e |N"''.../|..3);"En|
|00000440| 74 65 72 20 64 61 74 61 | 20 69 6e 20 61 73 63 65 |ter data| in asce|
|00000450| 6e 64 69 6e 67 20 6f 72 | 64 65 72 20 6f 66 20 58 |nding or|der of X|
|00000460| 22 27 27 0d 01 ea 2a f1 | 8a 35 29 3b 22 54 68 65 |"''...*.|.5);"The|
|00000470| 20 70 72 6f 67 72 61 6d | 20 77 69 6c 6c 20 61 63 | program| will ac|
|00000480| 63 65 70 74 20 6e 75 6d | 62 65 72 73 22 0d 01 f4 |cept num|bers"...|
|00000490| 29 f1 8a 35 29 3b 22 77 | 69 74 68 20 75 70 20 74 |)..5);"w|ith up t|
|000004a0| 6f 20 66 69 76 65 20 66 | 69 67 75 72 65 73 20 74 |o five f|igures t|
|000004b0| 6f 20 74 68 65 22 0d 01 | fe 28 f1 8a 35 29 3b 22 |o the"..|.(..5);"|
|000004c0| 6c 65 66 74 20 6f 66 20 | 61 6e 79 20 64 65 63 69 |left of |any deci|
|000004d0| 6d 61 6c 20 70 6f 69 6e | 74 20 61 6e 64 22 0d 02 |mal poin|t and"..|
|000004e0| 08 2b f1 8a 35 29 3b 22 | 75 70 20 74 6f 20 74 68 |.+..5);"|up to th|
|000004f0| 72 65 65 20 74 6f 20 74 | 68 65 20 72 69 67 68 74 |ree to t|he right|
|00000500| 20 6f 66 20 69 74 22 27 | 27 0d 02 12 30 f1 8a 31 | of it"'|'...0..1|
|00000510| 29 3b 22 55 70 20 74 6f | 20 33 30 20 64 61 74 61 |);"Up to| 30 data|
|00000520| 20 70 6f 69 6e 74 73 20 | 6d 61 79 20 62 65 20 65 | points |may be e|
|00000530| 6e 74 65 72 65 64 22 27 | 27 0d 02 1c 26 f1 8a 36 |ntered"'|'...&..6|
|00000540| 29 3b 22 54 6f 20 66 69 | 6e 69 73 68 20 64 61 74 |);"To fi|nish dat|
|00000550| 61 20 65 6e 74 72 79 20 | 74 79 70 65 20 2f 22 0d |a entry |type /".|
|00000560| 02 26 20 f1 8a 31 31 29 | 3b 22 61 6e 64 20 70 72 |.& ..11)|;"and pr|
|00000570| 65 73 73 20 52 45 54 55 | 52 4e 22 3a 4e 3d 30 0d |ess RETU|RN":N=0.|
|00000580| 02 30 23 df 31 32 37 39 | 2c 30 3a df 31 32 37 39 |.0#.1279|,0:.1279|
|00000590| 2c 31 30 32 33 3a df 30 | 2c 31 30 32 33 3a df 30 |,1023:.0|,1023:.0|
|000005a0| 2c 30 0d 02 3a 0d f2 63 | 6f 6e 74 69 6e 75 65 0d |,0..:..c|ontinue.|
|000005b0| 02 44 05 f5 0d 02 4e 05 | f5 0d 02 58 62 db 3a 4e |.D....N.|...Xb.:N|
|000005c0| 3d 4e 2b 31 3a e7 20 4e | 3d 33 31 20 ef 37 3a e8 |=N+1:. N|=31 .7:.|
|000005d0| 22 4d 61 78 69 6d 75 6d | 20 6e 75 6d 62 65 72 20 |"Maximum| number |
|000005e0| 6f 66 20 70 6f 69 6e 74 | 73 20 65 6e 74 65 72 65 |of point|s entere|
|000005f0| 64 2e 20 50 72 65 73 73 | 20 2f 20 61 6e 64 20 52 |d. Press| / and R|
|00000600| 45 54 55 52 4e 20 74 6f | 20 63 6f 6e 74 69 6e 75 |ETURN to| continu|
|00000610| 65 22 4e 24 3a e5 20 8d | 74 40 42 0d 02 62 23 df |e"N$:. .|t@B..b#.|
|00000620| 31 32 37 39 2c 30 3a df | 31 32 37 39 2c 31 30 32 |1279,0:.|1279,102|
|00000630| 33 3a df 30 2c 31 30 32 | 33 3a df 30 2c 30 0d 02 |3:.0,102|3:.0,0..|
|00000640| 6c 63 f1 8a 31 2c 35 29 | 3b 22 57 68 61 74 20 69 |lc..1,5)|;"What i|
|00000650| 73 20 74 68 65 20 78 2d | 76 61 6c 75 65 20 6f 66 |s the x-|value of|
|00000660| 20 70 6f 69 6e 74 20 22 | 3b 4e 3a f1 8a 31 2c 36 | point "|;N:..1,6|
|00000670| 29 22 50 72 65 73 73 20 | 3c 52 45 54 55 52 4e 3e |)"Press |<RETURN>|
|00000680| 20 61 66 74 65 72 20 74 | 79 70 69 6e 67 20 20 6e | after t|yping  n|
|00000690| 75 6d 62 65 72 73 22 3a | e8 8a 31 2c 37 29 20 4e |umbers":|..1,7) N|
|000006a0| 24 0d 02 76 19 fd 20 97 | 28 4e 24 29 3e 34 34 20 |$..v.. .|(N$)>44 |
|000006b0| 80 20 97 28 4e 24 29 3c | 35 38 0d 02 80 1b e7 20 |. .(N$)<|58..... |
|000006c0| 97 28 4e 24 29 3d 34 37 | 20 4e 3d 4e 2d 31 3a e5 |.(N$)=47| N=N-1:.|
|000006d0| 20 8d 64 64 42 0d 02 8a | 10 50 28 30 2c 4e 29 3d | .ddB...|.P(0,N)=|
|000006e0| bb 28 4e 24 29 0d 02 94 | 05 f5 0d 02 9e 25 f1 8a |.(N$)...|.....%..|
|000006f0| 31 2c 38 29 22 57 68 61 | 74 20 69 73 20 79 2d 76 |1,8)"Wha|t is y-v|
|00000700| 61 6c 75 65 22 3a e8 8a | 31 2c 39 29 20 4e 24 0d |alue":..|1,9) N$.|
|00000710| 02 a8 24 fd 20 97 28 4e | 24 29 3e 34 34 20 80 20 |..$. .(N|$)>44 . |
|00000720| 97 28 4e 24 29 3c 35 38 | 20 80 97 28 4e 24 29 3c |.(N$)<58| ..(N$)<|
|00000730| 3e 34 37 0d 02 b2 10 50 | 28 31 2c 4e 29 3d bb 28 |>47....P|(1,N)=.(|
|00000740| 4e 24 29 0d 02 bc 05 f5 | 0d 02 c6 26 f1 8a 31 2c |N$).....|...&..1,|
|00000750| 31 30 29 22 57 68 61 74 | 20 69 73 20 77 65 69 67 |10)"What| is weig|
|00000760| 68 74 22 3a e8 8a 31 2c | 31 31 29 20 4e 24 0d 02 |ht":..1,|11) N$..|
|00000770| d0 2f fd 20 4e 24 3d 22 | 22 20 84 20 28 97 28 4e |./. N$="|" . (.(N|
|00000780| 24 29 3e 34 34 20 80 20 | 97 28 4e 24 29 3c 35 38 |$)>44 . |.(N$)<58|
|00000790| 20 80 20 97 28 4e 24 29 | 3c 3e 34 37 29 0d 02 da | . .(N$)|<>47)...|
|000007a0| 20 e7 20 4e 24 3d 22 22 | 57 54 28 4e 29 3d 31 20 | . N$=""|WT(N)=1 |
|000007b0| 8b 20 57 54 28 4e 29 3d | bb 28 4e 24 29 0d 02 e4 |. WT(N)=|.(N$)...|
|000007c0| 0e fd 20 97 28 4e 24 29 | 3d 34 37 0d 02 ee 05 f5 |.. .(N$)|=47.....|
|000007d0| 0d 02 f8 25 db 3a df 31 | 32 37 39 2c 30 3a df 31 |...%.:.1|279,0:.1|
|000007e0| 32 37 39 2c 31 30 32 33 | 3a df 30 2c 31 30 32 33 |279,1023|:.0,1023|
|000007f0| 3a df 30 2c 30 0d 03 02 | 31 f1 8a 31 2c 31 29 3b |:.0,0...|1..1,1);|
|00000800| 22 52 45 41 44 49 4e 47 | 20 20 20 58 2d 56 41 4c |"READING|   X-VAL|
|00000810| 55 45 20 20 20 59 2d 56 | 41 4c 55 45 20 20 20 57 |UE   Y-V|ALUE   W|
|00000820| 45 49 47 48 54 22 0d 03 | 0c 0d e3 20 49 3d 31 20 |EIGHT"..|... I=1 |
|00000830| b8 20 4e 0d 03 16 4a f1 | 8a 31 2c 49 2b 31 29 3b |. N...J.|.1,I+1);|
|00000840| 22 20 20 22 49 3b 3a 40 | 25 3d 26 30 30 30 32 30 |"  "I;:@|%=&00020|
|00000850| 33 30 41 3a f1 8a 37 29 | 50 28 30 2c 49 29 3b 3a |30A:..7)|P(0,I);:|
|00000860| f1 8a 31 37 29 50 28 31 | 2c 49 29 3b 3a f1 8a 32 |..17)P(1|,I);:..2|
|00000870| 37 29 57 54 28 49 29 3a | 40 25 3d 31 30 0d 03 20 |7)WT(I):|@%=10.. |
|00000880| 05 ed 0d 03 2a 05 f5 0d | 03 34 1f f1 8a 31 2c bc |....*...|.4...1,.|
|00000890| 2b 32 29 22 41 72 65 20 | 64 61 74 61 20 4f 4b 3f |+2)"Are |data OK?|
|000008a0| 22 3a 54 24 3d be 0d 03 | 3e 31 fd 20 97 28 54 24 |":T$=...|>1. .(T$|
|000008b0| 29 3d 38 39 20 84 20 97 | 28 54 24 29 3d 31 32 31 |)=89 . .|(T$)=121|
|000008c0| 20 84 20 97 28 54 24 29 | 3d 37 38 20 84 20 97 28 | . .(T$)|=78 . .(|
|000008d0| 54 24 29 3d 31 31 30 0d | 03 48 21 e7 20 97 28 54 |T$)=110.|.H!. .(T|
|000008e0| 24 29 3d 38 39 20 84 20 | 97 28 54 24 29 3d 31 32 |$)=89 . |.(T$)=12|
|000008f0| 31 20 8c 20 8d 74 44 43 | 0d 03 52 4b f1 22 45 6e |1 . .tDC|..RK."En|
|00000900| 74 65 72 20 6e 75 6d 62 | 65 72 20 6f 66 20 77 72 |ter numb|er of wr|
|00000910| 6f 6e 67 20 73 65 74 22 | 3a e8 20 58 3a db 3a f1 |ong set"|:. X:.:.|
|00000920| 27 22 45 6e 74 65 72 20 | 78 2d 76 61 6c 75 65 20 |'"Enter |x-value |
|00000930| 6f 66 20 70 6f 69 6e 74 | 22 58 3a e8 20 50 28 30 |of point|"X:. P(0|
|00000940| 2c 58 29 0d 03 5c 21 f1 | 22 26 20 6e 6f 77 20 74 |,X)..\!.|"& now t|
|00000950| 68 65 20 79 2d 76 61 6c | 75 65 22 3a e8 20 50 28 |he y-val|ue":. P(|
|00000960| 31 2c 58 29 0d 03 66 1f | f1 22 26 20 6e 6f 77 20 |1,X)..f.|."& now |
|00000970| 74 68 65 20 77 65 69 67 | 68 74 22 3a e8 20 57 54 |the weig|ht":. WT|
|00000980| 28 58 29 0d 03 70 07 fd | 20 a3 0d 03 7a 05 ed 0d |(X)..p..| ...z...|
|00000990| 03 84 05 db 0d 03 8e 09 | 40 25 3d 31 30 0d 03 98 |........|@%=10...|
|000009a0| 05 e1 0d 03 a2 05 3a 0d | 03 ac 12 dd f2 63 68 6f |......:.|.....cho|
|000009b0| 6f 73 65 64 65 67 72 65 | 65 0d 03 b6 05 f5 0d 03 |osedegre|e.......|
|000009c0| c0 28 e8 22 57 68 61 74 | 20 64 65 67 72 65 65 20 |.(."What| degree |
|000009d0| 6f 66 20 70 6f 6c 79 6e | 6f 6d 69 61 6c 20 28 3c |of polyn|omial (<|
|000009e0| 31 31 29 20 22 4d 0d 03 | ca 09 f2 70 6f 6c 79 0d |11) "M..|...poly.|
|000009f0| 03 d4 0f f2 70 72 69 6e | 74 63 6f 65 66 73 0d 03 |....prin|tcoefs..|
|00000a00| de 22 e8 22 54 72 79 20 | 61 6e 6f 74 68 65 72 20 |."."Try |another |
|00000a10| 64 65 67 72 65 65 20 28 | 59 2f 4e 29 20 22 41 24 |degree (|Y/N) "A$|
|00000a20| 0d 03 e8 15 fd 20 41 24 | 3d 22 4e 22 20 84 20 41 |..... A$|="N" . A|
|00000a30| 24 3d 22 6e 22 0d 03 f2 | 05 e1 0d 03 fc 05 3a 0d |$="n"...|......:.|
|00000a40| 04 06 0f dd f2 73 63 61 | 6c 65 61 78 65 73 0d 04 |.....sca|leaxes..|
|00000a50| 10 6e e3 20 49 3d 31 20 | b8 20 4e 3a 41 28 49 29 |.n. I=1 |. N:A(I)|
|00000a60| 3d 50 28 30 2c 49 29 3a | ed 3a f2 6d 69 6e 6d 61 |=P(0,I):|.:.minma|
|00000a70| 78 3a 53 58 3d 31 30 35 | 30 2f 28 6d 61 78 2d 6d |x:SX=105|0/(max-m|
|00000a80| 69 6e 29 3a 4f 58 3d 31 | 30 35 30 2d 6d 61 78 2a |in):OX=1|050-max*|
|00000a90| 53 58 3a 6d 61 78 58 3d | 53 58 2a 6d 61 78 3a 6d |SX:maxX=|SX*max:m|
|00000aa0| 69 6e 58 3d 53 58 2a 6d | 69 6e 3a 58 6d 61 78 3d |inX=SX*m|in:Xmax=|
|00000ab0| 6d 61 78 3a 58 6d 69 6e | 3d 6d 69 6e 0d 04 1a 6c |max:Xmin|=min...l|
|00000ac0| e3 20 49 3d 31 20 b8 20 | 4e 3a 41 28 49 29 3d 50 |. I=1 . |N:A(I)=P|
|00000ad0| 28 31 2c 49 29 3a ed 3a | f2 6d 69 6e 6d 61 78 3a |(1,I):.:|.minmax:|
|00000ae0| 53 59 3d 38 35 30 2f 28 | 6d 61 78 2d 6d 69 6e 29 |SY=850/(|max-min)|
|00000af0| 3a 4f 59 3d 38 35 30 2d | 6d 61 78 2a 53 59 3a 6d |:OY=850-|max*SY:m|
|00000b00| 61 78 59 3d 53 59 2a 6d | 61 78 3a 6d 69 6e 59 3d |axY=SY*m|ax:minY=|
|00000b10| 53 59 2a 6d 69 6e 3a 59 | 6d 61 78 3d 6d 61 78 3a |SY*min:Y|max=max:|
|00000b20| 59 6d 69 6e 3d 6d 69 6e | 0d 04 24 16 ef 32 39 2c |Ymin=min|..$..29,|
|00000b30| 4f 58 2b 31 32 38 3b 4f | 59 2b 31 30 30 3b 0d 04 |OX+128;O|Y+100;..|
|00000b40| 2e 05 e1 0d 04 38 05 3a | 0d 04 42 0c dd f2 70 6f |.....8.:|..B...po|
|00000b50| 69 6e 74 73 0d 04 4c 25 | db 3a e3 20 49 3d 31 20 |ints..L%|.:. I=1 |
|00000b60| b8 20 4e 3a 58 28 49 29 | 3d a8 28 53 58 2a 28 50 |. N:X(I)|=.(SX*(P|
|00000b70| 28 30 2c 49 29 29 29 3a | ed 0d 04 56 23 e3 20 49 |(0,I))):|...V#. I|
|00000b80| 3d 31 20 b8 20 4e 3a 59 | 28 49 29 3d a8 28 53 59 |=1 . N:Y|(I)=.(SY|
|00000b90| 2a 28 50 28 31 2c 49 29 | 29 29 3a ed 0d 04 60 29 |*(P(1,I)|)):...`)|
|00000ba0| e3 20 49 3d 31 20 b8 20 | 4e 3a ec 20 58 28 49 29 |. I=1 . |N:. X(I)|
|00000bb0| 2d 38 2c 59 28 49 29 3a | df 20 58 28 49 29 2b 38 |-8,Y(I):|. X(I)+8|
|00000bc0| 2c 59 28 49 29 0d 04 6a | 21 ec 20 58 28 49 29 2c |,Y(I)..j|!. X(I),|
|00000bd0| 59 28 49 29 2d 38 3a df | 20 58 28 49 29 2c 59 28 |Y(I)-8:.| X(I),Y(|
|00000be0| 49 29 2b 38 3a ed 0d 04 | 74 05 e1 0d 04 7e 05 3a |I)+8:...|t....~.:|
|00000bf0| 0d 04 88 0e dd f2 64 72 | 61 77 61 78 65 73 0d 04 |......dr|awaxes..|
|00000c00| 92 24 ec 20 30 2c 6d 69 | 6e 59 2b 35 30 2a 28 6d |.$. 0,mi|nY+50*(m|
|00000c10| 69 6e 59 3c 30 29 3a df | 20 30 2c 6d 61 78 59 2b |inY<0):.| 0,maxY+|
|00000c20| 35 30 0d 04 9c 24 ec 20 | 6d 69 6e 58 2b 35 30 2a |50...$. |minX+50*|
|00000c30| 28 6d 69 6e 58 3c 30 29 | 2c 30 3a df 20 6d 61 78 |(minX<0)|,0:. max|
|00000c40| 58 2b 35 30 2c 30 0d 04 | a6 24 61 24 3d a4 69 6e |X+50,0..|.$a$=.in|
|00000c50| 74 73 28 58 6d 61 78 29 | 2b 22 45 22 2b c3 28 a4 |ts(Xmax)|+"E"+.(.|
|00000c60| 65 78 70 28 58 6d 61 78 | 29 29 0d 04 b0 1f 7a 3d |exp(Xmax|))....z=|
|00000c70| bb 28 a4 69 6e 74 73 28 | 58 6d 61 78 29 29 3a e7 |.(.ints(|Xmax)):.|
|00000c80| 20 7a 3d 31 20 7a 3d 31 | 30 0d 04 ba 45 e7 20 bb | z=1 z=1|0...E. .|
|00000c90| 28 61 24 29 3e 30 20 e3 | 20 5a 3d bb 28 61 24 29 |(a$)>0 .| Z=.(a$)|
|00000ca0| 2a 53 58 2f 7a 20 b8 20 | 58 6d 61 78 2a 53 58 2b |*SX/z . |Xmax*SX+|
|00000cb0| 35 30 20 88 20 bb 28 61 | 24 29 2a 53 58 2f 7a 3a |50 . .(a|$)*SX/z:|
|00000cc0| ec 20 5a 2c 30 3a df 20 | 5a 2c 32 30 3a ed 0d 04 |. Z,0:. |Z,20:...|
|00000cd0| c4 28 ef 35 3a ec 20 bb | 28 61 24 29 2a 53 58 2d |.(.5:. .|(a$)*SX-|
|00000ce0| 34 30 2c 2d 31 36 3a e7 | 20 bb 28 61 24 29 3c 3e |40,-16:.| .(a$)<>|
|00000cf0| 30 20 f1 3b 61 24 0d 04 | ce 24 62 24 3d a4 69 6e |0 .;a$..|.$b$=.in|
|00000d00| 74 73 28 59 6d 61 78 29 | 2b 22 45 22 2b c3 28 a4 |ts(Ymax)|+"E"+.(.|
|00000d10| 65 78 70 28 59 6d 61 78 | 29 29 0d 04 d8 1f 7a 3d |exp(Ymax|))....z=|
|00000d20| bb 28 a4 69 6e 74 73 28 | 59 6d 61 78 29 29 3a e7 |.(.ints(|Ymax)):.|
|00000d30| 20 7a 3d 31 20 7a 3d 31 | 30 0d 04 e2 45 e7 20 bb | z=1 z=1|0...E. .|
|00000d40| 28 62 24 29 3e 30 20 e3 | 20 5a 3d bb 28 62 24 29 |(b$)>0 .| Z=.(b$)|
|00000d50| 2a 53 59 2f 7a 20 b8 20 | 59 6d 61 78 2a 53 59 2b |*SY/z . |Ymax*SY+|
|00000d60| 35 30 20 88 20 bb 28 62 | 24 29 2a 53 59 2f 7a 3a |50 . .(b|$)*SY/z:|
|00000d70| ec 20 30 2c 5a 3a df 20 | 32 30 2c 5a 3a ed 0d 04 |. 0,Z:. |20,Z:...|
|00000d80| ec 27 20 ec 20 2d 31 30 | 30 2c bb 28 62 24 29 2a |.' . -10|0,.(b$)*|
|00000d90| 53 59 2b 31 36 3a e7 20 | bb 28 62 24 29 3c 3e 30 |SY+16:. |.(b$)<>0|
|00000da0| 20 f1 3b 62 24 0d 04 f6 | 22 ec 20 2d 31 36 2c 2d | .;b$...|". -16,-|
|00000db0| 31 36 3a f1 3b 22 30 22 | 3a ec 20 2d 33 32 2c 31 |16:.;"0"|:. -32,1|
|00000dc0| 36 3a f1 3b 22 30 22 0d | 05 00 24 63 24 3d a4 69 |6:.;"0".|..$c$=.i|
|00000dd0| 6e 74 73 28 58 6d 69 6e | 29 2b 22 45 22 2b c3 28 |nts(Xmin|)+"E"+.(|
|00000de0| a4 65 78 70 28 58 6d 69 | 6e 29 29 0d 05 0a 1f 7a |.exp(Xmi|n))....z|
|00000df0| 3d bb 28 a4 69 6e 74 73 | 28 58 6d 69 6e 29 29 3a |=.(.ints|(Xmin)):|
|00000e00| e7 20 7a 3d 31 20 7a 3d | 31 30 0d 05 14 60 e7 20 |. z=1 z=|10...`. |
|00000e10| 6d 69 6e 58 3c 30 20 ec | 20 2d bb 28 63 24 29 2a |minX<0 .| -.(c$)*|
|00000e20| 53 58 2d 37 32 2c 2d 31 | 36 3a f1 3b 22 2d 22 3b |SX-72,-1|6:.;"-";|
|00000e30| 63 24 3a e3 20 5a 3d bb | 28 63 24 29 2a 53 58 2f |c$:. Z=.|(c$)*SX/|
|00000e40| 7a 20 b8 20 58 6d 69 6e | 2a 53 58 2d 35 30 20 88 |z . Xmin|*SX-50 .|
|00000e50| 2d bb 28 63 24 29 2a 53 | 58 2f 7a 3a ec 20 5a 2c |-.(c$)*S|X/z:. Z,|
|00000e60| 30 3a df 20 5a 2c 32 30 | 3a ed 0d 05 1e 24 64 24 |0:. Z,20|:....$d$|
|00000e70| 3d a4 69 6e 74 73 28 59 | 6d 69 6e 29 2b 22 45 22 |=.ints(Y|min)+"E"|
|00000e80| 2b c3 28 a4 65 78 70 28 | 59 6d 69 6e 29 29 0d 05 |+.(.exp(|Ymin))..|
|00000e90| 28 1f 7a 3d bb 28 a4 69 | 6e 74 73 28 59 6d 69 6e |(.z=.(.i|nts(Ymin|
|00000ea0| 29 29 3a e7 20 7a 3d 31 | 20 7a 3d 31 30 0d 05 32 |)):. z=1| z=10..2|
|00000eb0| 62 e7 20 6d 69 6e 59 3c | 30 20 ec 20 2d 31 32 38 |b. minY<|0 . -128|
|00000ec0| 2c 2d bb 28 64 24 29 2a | 53 59 2b 31 36 3a f1 3b |,-.(d$)*|SY+16:.;|
|00000ed0| 22 2d 22 3b 64 24 3a e3 | 20 5a 3d bb 28 64 24 29 |"-";d$:.| Z=.(d$)|
|00000ee0| 2a 53 59 2f 7a 20 b8 20 | 59 6d 69 6e 2a 53 59 2d |*SY/z . |Ymin*SY-|
|00000ef0| 35 30 20 88 20 2d bb 28 | 64 24 29 2a 53 59 2f 7a |50 . -.(|d$)*SY/z|
|00000f00| 3a ec 20 30 2c 5a 3a df | 20 32 30 2c 5a 3a ed 0d |:. 0,Z:.| 20,Z:..|
|00000f10| 05 3c 05 e1 0d 05 46 05 | 3a 0d 05 50 0e dd f2 63 |.<....F.|:..P...c|
|00000f20| 6f 6e 74 69 6e 75 65 0d | 05 5a 05 f5 0d 05 64 2c |ontinue.|.Z....d,|
|00000f30| f1 8a 34 2c 32 36 29 22 | 50 72 65 73 73 20 74 68 |..4,26)"|Press th|
|00000f40| 65 20 53 50 41 43 45 20 | 42 41 52 20 74 6f 20 63 |e SPACE |BAR to c|
|00000f50| 6f 6e 74 69 6e 75 65 22 | 0d 05 6e 0a fd 20 a5 3d |ontinue"|..n.. .=|
|00000f60| 33 32 0d 05 78 05 87 0d | 05 82 05 e1 0d 05 8c 05 |32..x...|........|
|00000f70| 3a 0d 05 96 0e dd f2 67 | 65 74 6e 61 6d 65 73 0d |:......g|etnames.|
|00000f80| 05 a0 07 f1 20 27 0d 05 | aa 1e e8 22 45 4e 54 45 |.... '..|..."ENTE|
|00000f90| 52 20 4e 41 4d 45 20 4f | 46 20 58 2d 41 58 49 53 |R NAME O|F X-AXIS|
|00000fa0| 20 22 58 24 0d 05 b4 1e | e8 22 45 4e 54 45 52 20 | "X$....|."ENTER |
|00000fb0| 4e 41 4d 45 20 4f 46 20 | 59 2d 41 58 49 53 20 22 |NAME OF |Y-AXIS "|
|00000fc0| 59 24 0d 05 be 05 e1 0d | 05 c8 05 3a 0d 05 d2 0c |Y$......|...:....|
|00000fd0| dd f2 6d 69 6e 6d 61 78 | 0d 05 dc 0f 6d 69 6e 3d |..minmax|....min=|
|00000fe0| 30 3a 6d 61 78 3d 30 0d | 05 e6 0d e3 20 4a 3d 31 |0:max=0.|.... J=1|
|00000ff0| 20 b8 20 4e 0d 05 f0 17 | e7 20 41 28 4a 29 3c 6d | . N....|. A(J)<m|
|00001000| 69 6e 20 6d 69 6e 3d 41 | 28 4a 29 0d 05 fa 17 e7 |in min=A|(J).....|
|00001010| 20 41 28 4a 29 3e 6d 61 | 78 20 6d 61 78 3d 41 28 | A(J)>ma|x max=A(|
|00001020| 4a 29 0d 06 04 05 ed 0d | 06 0e 05 e1 0d 06 18 05 |J)......|........|
|00001030| 3a 0d 06 22 0e dd f2 6e | 61 6d 65 61 78 65 73 0d |:.."...n|ameaxes.|
|00001040| 06 2c 32 ef 35 3a e7 20 | 6d 61 78 58 3e 31 30 30 |.,2.5:. |maxX>100|
|00001050| 20 8c 20 ec 20 6d 61 78 | 58 2d 31 30 30 2c 2d 35 | . . max|X-100,-5|
|00001060| 30 20 8b 20 ec 20 6d 69 | 6e 58 2b 35 30 2c 2d 35 |0 . . mi|nX+50,-5|
|00001070| 30 0d 06 36 08 f1 20 58 | 24 0d 06 40 30 e7 20 6d |0..6.. X|$..@0. m|
|00001080| 61 78 59 3e 31 30 30 20 | 8c 20 ec 20 2d 31 30 30 |axY>100 |. . -100|
|00001090| 2c 6d 61 78 59 2b 35 36 | 20 8b 20 ec 20 2d 31 30 |,maxY+56| . . -10|
|000010a0| 30 2c 6d 69 6e 59 2d 35 | 30 0d 06 4a 08 f1 20 59 |0,minY-5|0..J.. Y|
|000010b0| 24 0d 06 54 05 e1 0d 06 | 5e 05 3a 0d 06 68 0c dd |$..T....|^.:..h..|
|000010c0| a4 65 78 70 28 4d 29 0d | 06 72 08 ea 20 40 25 0d |.exp(M).|.r.. @%.|
|000010d0| 06 7c 0f 40 25 3d 26 31 | 30 31 30 32 30 39 0d 06 |.|.@%=&1|010209..|
|000010e0| 86 0b 65 24 3d c3 28 4d | 29 0d 06 90 1b 3d bb 28 |..e$=.(M|)....=.(|
|000010f0| c2 65 24 2c a9 28 65 24 | 29 2d a7 65 24 2c 22 45 |.e$,.(e$|)-.e$,"E|
|00001100| 22 29 29 29 0d 06 9a 05 | 3a 0d 06 a4 0f dd a4 69 |")))....|:......i|
|00001110| 6e 74 73 28 6e 75 6d 29 | 0d 06 ae 0d 4d 24 3d c3 |nts(num)|....M$=.|
|00001120| 28 6e 75 6d 29 0d 06 b8 | 05 f5 0d 06 c2 0f 6e 75 |(num)...|......nu|
|00001130| 6d 24 3d c0 4d 24 2c 31 | 29 0d 06 cc 13 4d 24 3d |m$=.M$,1|)....M$=|
|00001140| c2 4d 24 2c a9 28 4d 24 | 29 2d 31 29 0d 06 d6 27 |.M$,.(M$|)-1)...'|
|00001150| fd 20 6e 75 6d 24 3c 3e | 22 30 22 20 80 20 6e 75 |. num$<>|"0" . nu|
|00001160| 6d 24 3c 3e 22 2e 22 20 | 80 20 6e 75 6d 24 3c 3e |m$<>"." |. num$<>|
|00001170| 22 2d 22 0d 06 e0 09 3d | 6e 75 6d 24 0d 06 ea 05 |"-"....=|num$....|
|00001180| 3a 0d 06 f4 0a dd f2 70 | 6f 6c 79 0d 06 fe 21 4a |:......p|oly...!J|
|00001190| 31 3d 31 3a 4d 4d 3d 4d | 3a 53 31 3d 30 3a 53 32 |1=1:MM=M|:S1=0:S2|
|000011a0| 3d 30 3a 53 33 3d 30 3a | 53 34 3d 30 0d 07 08 0d |=0:S3=0:|S4=0....|
|000011b0| e3 20 49 3d 31 20 b8 20 | 4e 0d 07 12 4c 57 54 3d |. I=1 . |N...LWT=|
|000011c0| 57 54 28 49 29 3a 53 31 | 3d 53 31 2b 57 54 2a 50 |WT(I):S1|=S1+WT*P|
|000011d0| 28 30 2c 49 29 3a 53 32 | 3d 53 32 2b 57 54 3a 53 |(0,I):S2|=S2+WT:S|
|000011e0| 33 3d 53 33 2b 57 54 2a | 50 28 31 2c 49 29 3a 53 |3=S3+WT*|P(1,I):S|
|000011f0| 34 3d 53 34 2b 57 54 2a | 50 28 31 2c 49 29 2a 50 |4=S4+WT*|P(1,I)*P|
|00001200| 28 31 2c 49 29 0d 07 1c | 07 ed 20 49 0d 07 26 42 |(1,I)...|.. I..&B|
|00001210| 44 34 28 31 29 3d 53 31 | 2f 53 32 3a 44 35 28 31 |D4(1)=S1|/S2:D5(1|
|00001220| 29 3d 30 3a 44 36 28 31 | 29 3d 53 33 2f 53 32 3a |)=0:D6(1|)=S3/S2:|
|00001230| 44 31 28 31 29 3d 30 3a | 44 32 28 31 29 3d 31 3a |D1(1)=0:|D2(1)=1:|
|00001240| 56 52 3d 53 34 2d 53 33 | 2a 44 36 28 31 29 0d 07 |VR=S4-S3|*D6(1)..|
|00001250| 30 0f e3 20 4a 3d 4a 31 | 20 b8 20 4d 4d 0d 07 3a |0.. J=J1| . MM..:|
|00001260| 17 53 31 3d 30 3a 53 32 | 3d 30 3a 53 33 3d 30 3a |.S1=0:S2|=0:S3=0:|
|00001270| 53 34 3d 30 0d 07 44 0d | e3 20 49 3d 31 20 b8 20 |S4=0..D.|. I=1 . |
|00001280| 4e 0d 07 4e 0d 50 31 3d | 30 3a 50 32 3d 31 0d 07 |N..N.P1=|0:P2=1..|
|00001290| 58 0d e3 20 4b 3d 31 20 | b8 20 4a 0d 07 62 2b 50 |X.. K=1 |. J..b+P|
|000012a0| 3d 50 32 3a 50 32 3d 28 | 50 28 30 2c 49 29 2d 44 |=P2:P2=(|P(0,I)-D|
|000012b0| 34 28 4b 29 29 2a 50 32 | 2d 44 35 28 4b 29 2a 50 |4(K))*P2|-D5(K)*P|
|000012c0| 31 3a 50 31 3d 50 0d 07 | 6c 07 ed 20 4b 0d 07 76 |1:P1=P..|l.. K..v|
|000012d0| 17 57 54 3d 57 54 28 49 | 29 3a 50 3d 57 54 2a 50 |.WT=WT(I|):P=WT*P|
|000012e0| 32 2a 50 32 0d 07 80 3c | 53 31 3d 53 31 2b 50 2a |2*P2...<|S1=S1+P*|
|000012f0| 50 28 30 2c 49 29 3a 53 | 32 3d 53 32 2b 50 3a 53 |P(0,I):S|2=S2+P:S|
|00001300| 33 3d 53 33 2b 57 54 2a | 50 31 2a 50 31 3a 53 34 |3=S3+WT*|P1*P1:S4|
|00001310| 3d 53 34 2b 57 54 2a 50 | 28 31 2c 49 29 2a 50 32 |=S4+WT*P|(1,I)*P2|
|00001320| 0d 07 8a 07 ed 20 49 0d | 07 94 4c 44 34 28 4a 2b |..... I.|..LD4(J+|
|00001330| 31 29 3d 53 31 2f 53 32 | 3a 44 35 28 4a 2b 31 29 |1)=S1/S2|:D5(J+1)|
|00001340| 3d 53 32 2f 53 33 3a 44 | 36 28 4a 2b 31 29 3d 53 |=S2/S3:D|6(J+1)=S|
|00001350| 34 2f 53 32 3a 44 33 28 | 31 29 3d 2d 44 34 28 4a |4/S2:D3(|1)=-D4(J|
|00001360| 29 2a 44 32 28 31 29 2d | 44 35 28 4a 29 2a 44 31 |)*D2(1)-|D5(J)*D1|
|00001370| 28 31 29 0d 07 9e 10 e7 | 20 4a 3c 34 20 8c 20 8d |(1).....| J<4 . .|
|00001380| 74 7c 47 0d 07 a8 0f e3 | 20 4b 3d 32 20 b8 20 4a |t|G.....| K=2 . J|
|00001390| 2d 32 0d 07 b2 2d 44 33 | 28 4b 29 3d 44 32 28 4b |-2...-D3|(K)=D2(K|
|000013a0| 2d 31 29 2d 44 34 28 4a | 29 2a 44 32 28 4b 29 2d |-1)-D4(J|)*D2(K)-|
|000013b0| 44 35 28 4a 29 2a 44 31 | 28 4b 29 3a ed 20 4b 0d |D5(J)*D1|(K):. K.|
|000013c0| 07 bc 2f e7 20 4a 3e 32 | 20 8c 20 44 33 28 4a 2d |../. J>2| . D3(J-|
|000013d0| 31 29 3d 44 32 28 4a 2d | 32 29 2d 44 34 28 4a 29 |1)=D2(J-|2)-D4(J)|
|000013e0| 2a 44 32 28 4a 2d 31 29 | 2d 44 35 28 4a 29 0d 07 |*D2(J-1)|-D5(J)..|
|000013f0| c6 1f e7 20 4a 3e 31 20 | 8c 20 44 33 28 4a 29 3d |... J>1 |. D3(J)=|
|00001400| 44 32 28 4a 2d 31 29 2d | 44 34 28 4a 29 0d 07 d0 |D2(J-1)-|D4(J)...|
|00001410| 0d e3 20 4b 3d 31 20 b8 | 20 4a 0d 07 da 35 44 31 |.. K=1 .| J...5D1|
|00001420| 28 4b 29 3d 44 32 28 4b | 29 3a 44 32 28 4b 29 3d |(K)=D2(K|):D2(K)=|
|00001430| 44 33 28 4b 29 3a 44 36 | 28 4b 29 3d 44 36 28 4b |D3(K):D6|(K)=D6(K|
|00001440| 29 2b 44 33 28 4b 29 2a | 44 36 28 4a 2b 31 29 0d |)+D3(K)*|D6(J+1).|
|00001450| 07 e4 0b ed 20 4b 3a ed | 20 4a 0d 07 ee 23 e3 20 |.... K:.| J...#. |
|00001460| 4a 3d 31 20 b8 20 4d 2b | 31 3a 43 50 28 4a 29 3d |J=1 . M+|1:CP(J)=|
|00001470| 44 36 28 4d 2b 32 2d 4a | 29 3a ed 20 4a 0d 07 f8 |D6(M+2-J|):. J...|
|00001480| 1a 50 32 3d 30 3a e3 20 | 49 3d 31 20 b8 20 4e 3a |.P2=0:. |I=1 . N:|
|00001490| 50 3d 43 50 28 31 29 0d | 08 02 20 e3 20 4a 3d 31 |P=CP(1).|.. . J=1|
|000014a0| 20 b8 20 4d 3a 50 3d 50 | 2a 50 28 30 2c 49 29 2b | . M:P=P|*P(0,I)+|
|000014b0| 43 50 28 4a 2b 31 29 0d | 08 0c 07 ed 20 4a 0d 08 |CP(J+1).|.... J..|
|000014c0| 16 1e 50 3d 50 2d 50 28 | 31 2c 49 29 3a 50 32 3d |..P=P-P(|1,I):P2=|
|000014d0| 50 32 2b 57 54 28 49 29 | 2a 50 2a 50 0d 08 20 07 |P2+WT(I)|*P*P.. .|
|000014e0| ed 20 49 0d 08 2a 20 53 | 32 3d 30 3a e7 20 4e 3e |. I..* S|2=0:. N>|
|000014f0| 4d 2b 31 20 8c 20 53 32 | 3d 50 32 2f 28 4e 2d 4d |M+1 . S2|=P2/(N-M|
|00001500| 2d 31 29 0d 08 34 29 52 | 32 3d 31 3a e7 20 56 52 |-1)..4)R|2=1:. VR|
|00001510| 3c 3e 30 20 8c 20 52 32 | 3d 31 2d 50 32 2f 56 52 |<>0 . R2|=1-P2/VR|
|00001520| 3a e7 20 52 32 3c 30 20 | 52 32 3d 30 0d 08 3e 05 |:. R2<0 |R2=0..>.|
|00001530| e1 0d 08 48 05 3a 0d 08 | 52 10 dd f2 70 72 69 6e |...H.:..|R...prin|
|00001540| 74 63 6f 65 66 73 0d 08 | 5c 2e f1 3a f1 22 43 6f |tcoefs..|\..:."Co|
|00001550| 65 66 66 69 63 69 65 6e | 74 73 20 28 63 6f 6e 73 |efficien|ts (cons|
|00001560| 74 61 6e 74 20 74 65 72 | 6d 20 6c 61 73 74 29 22 |tant ter|m last)"|
|00001570| 3a 4b 3d 30 0d 08 66 0f | e3 20 4a 3d 31 20 b8 20 |:K=0..f.|. J=1 . |
|00001580| 4d 2b 31 0d 08 70 23 f1 | 8a 4b 29 3b 43 50 28 4a |M+1..p#.|.K);CP(J|
|00001590| 29 3b 3a 4b 3d 4b 2b 32 | 30 3a e7 20 4b 3e 32 30 |);:K=K+2|0:. K>20|
|000015a0| 20 4b 3d 30 3a f1 0d 08 | 7a 07 ed 20 4a 0d 08 84 | K=0:...|z.. J...|
|000015b0| 1e f1 3a f1 22 52 65 73 | 69 64 75 61 6c 20 76 61 |..:."Res|idual va|
|000015c0| 72 69 61 6e 63 65 3d 22 | 3b 53 32 0d 08 8e 1f 52 |riance="|;S2....R|
|000015d0| 32 3d a8 28 31 30 30 30 | 30 30 30 2a 52 32 2b 2e |2=.(1000|000*R2+.|
|000015e0| 35 29 2f 31 30 30 30 30 | 30 30 0d 08 98 29 f1 3a |5)/10000|00...).:|
|000015f0| f1 22 43 6f 65 66 66 69 | 63 69 65 6e 74 20 6f 66 |."Coeffi|cient of|
|00001600| 20 64 65 74 65 72 6d 69 | 6e 61 74 69 6f 6e 3d 22 | determi|nation="|
|00001610| 3b 52 32 0d 08 a2 05 e1 | 0d 08 ac 05 3a 0d 08 b6 |;R2.....|....:...|
|00001620| 0e dd f2 70 6c 6f 74 70 | 6f 6c 79 0d 08 c0 2d e3 |...plotp|oly...-.|
|00001630| 20 58 3d 50 28 30 2c 31 | 29 20 b8 20 50 28 30 2c | X=P(0,1|) . P(0,|
|00001640| 4e 29 20 88 20 28 50 28 | 30 2c 4e 29 2d 50 28 30 |N) . (P(|0,N)-P(0|
|00001650| 2c 31 29 29 2f 31 30 30 | 0d 08 ca 0b 59 3d 43 50 |,1))/100|....Y=CP|
|00001660| 28 31 29 0d 08 d4 0d e3 | 20 49 3d 31 20 b8 20 4d |(1).....| I=1 . M|
|00001670| 0d 08 de 11 59 3d 58 2a | 59 2b 43 50 28 49 2b 31 |....Y=X*|Y+CP(I+1|
|00001680| 29 0d 08 e8 07 ed 20 49 | 0d 08 f2 28 e7 20 58 3d |)..... I|...(. X=|
|00001690| 50 28 30 2c 31 29 20 ec | 20 53 58 2a 58 2c 53 59 |P(0,1) .| SX*X,SY|
|000016a0| 2a 59 20 8b 20 df 20 53 | 58 2a 58 2c 53 59 2a 59 |*Y . . S|X*X,SY*Y|
|000016b0| 0d 08 fc 07 ed 20 58 0d | 09 06 05 e1 0d 09 10 05 |..... X.|........|
|000016c0| 3a 0d 09 1a 0c dd f2 61 | 64 76 69 63 65 0d 09 24 |:......a|dvice..$|
|000016d0| 35 f1 27 27 27 3a f1 8a | 31 29 22 54 68 69 73 20 |5.''':..|1)"This |
|000016e0| 70 72 6f 67 72 61 6d 20 | 66 69 6e 64 73 20 74 68 |program |finds th|
|000016f0| 65 20 63 6f 65 66 66 69 | 63 69 65 6e 74 73 20 6f |e coeffi|cients o|
|00001700| 66 22 0d 09 2e 23 f1 8a | 31 29 22 74 68 65 20 6e |f"...#..|1)"the n|
|00001710| 74 68 20 64 65 67 72 65 | 65 20 70 6f 6c 79 6e 6f |th degre|e polyno|
|00001720| 6d 69 61 6c 22 0d 09 38 | 27 f1 3a f1 8a 31 29 22 |mial"..8|'.:..1)"|
|00001730| 79 3d 63 28 31 29 2a 78 | 5e 6e 2b 63 28 32 29 2a |y=c(1)*x|^n+c(2)*|
|00001740| 78 5e 28 6e 2d 31 29 2b | 2e 2e 2e 22 0d 09 42 18 |x^(n-1)+|..."..B.|
|00001750| f1 8a 31 29 22 2b 63 28 | 6e 29 2a 78 2b 63 28 6e |..1)"+c(|n)*x+c(n|
|00001760| 2b 31 29 22 0d 09 4c 33 | f1 3a f1 8a 31 29 22 74 |+1)"..L3|.:..1)"t|
|00001770| 68 61 74 20 66 69 74 73 | 20 64 61 74 61 20 69 6e |hat fits| data in|
|00001780| 20 61 20 6c 65 61 73 74 | 20 73 71 75 61 72 65 73 | a least| squares|
|00001790| 20 73 65 6e 73 65 22 0d | 09 56 31 f1 3a f1 8a 31 | sense".|.V1.:..1|
|000017a0| 29 22 49 74 20 61 6c 73 | 6f 20 70 72 69 6e 74 73 |)"It als|o prints|
|000017b0| 20 74 68 65 20 72 65 73 | 69 64 75 61 6c 20 76 61 | the res|idual va|
|000017c0| 72 69 61 6e 63 65 2e 22 | 0d 09 60 2e f1 3a f1 8a |riance."|..`..:..|
|000017d0| 31 29 22 53 74 61 72 74 | 20 77 69 74 68 20 61 20 |1)"Start| with a |
|000017e0| 6c 6f 77 20 6f 72 64 65 | 72 20 70 6f 6c 79 6e 6f |low orde|r polyno|
|000017f0| 6d 69 61 6c 2e 22 0d 09 | 6a 2d f1 3a f1 8a 31 29 |mial."..|j-.:..1)|
|00001800| 22 49 6e 63 72 65 61 73 | 65 20 74 68 65 20 6f 72 |"Increas|e the or|
|00001810| 64 65 72 20 61 6e 64 20 | 63 68 6f 6f 73 65 20 74 |der and |choose t|
|00001820| 68 65 22 0d 09 74 2d f1 | 3a f1 8a 31 29 22 70 6f |he"..t-.|:..1)"po|
|00001830| 6c 79 6e 6f 6d 69 61 6c | 20 74 68 61 74 20 67 69 |lynomial| that gi|
|00001840| 76 65 73 20 74 68 65 20 | 6c 61 72 67 65 73 74 22 |ves the |largest"|
|00001850| 0d 09 7e 2f f1 3a f1 8a | 31 29 22 72 65 64 75 63 |..~/.:..|1)"reduc|
|00001860| 74 69 6f 6e 20 69 6e 20 | 74 68 65 20 72 65 73 69 |tion in |the resi|
|00001870| 64 75 61 6c 20 76 61 72 | 69 61 6e 63 65 2e 22 0d |dual var|iance.".|
|00001880| 09 88 29 f1 3a f1 8a 31 | 29 22 4f 74 68 65 72 77 |..).:..1|)"Otherw|
|00001890| 69 73 65 20 75 73 65 20 | 79 6f 75 72 20 6a 75 64 |ise use |your jud|
|000018a0| 67 65 6d 65 6e 74 2e 22 | 0d 09 92 23 df 31 32 37 |gement."|...#.127|
|000018b0| 39 2c 30 3a df 31 32 37 | 39 2c 31 30 32 33 3a df |9,0:.127|9,1023:.|
|000018c0| 30 2c 31 30 32 33 3a df | 30 2c 30 0d 09 9c 05 e1 |0,1023:.|0,0.....|
|000018d0| 0d 09 a6 05 3a 0d 09 b0 | 0e dd f2 72 65 61 64 64 |....:...|...readd|
|000018e0| 61 74 61 0d 09 ba 07 4e | 3d 30 0d 09 c4 05 f5 0d |ata....N|=0......|
|000018f0| 09 ce 08 4e 2b 3d 31 0d | 09 d8 19 f3 20 50 28 30 |...N+=1.|.... P(0|
|00001900| 2c 4e 29 2c 50 28 31 2c | 4e 29 2c 57 54 28 4e 29 |,N),P(1,|N),WT(N)|
|00001910| 0d 09 e2 38 fd 20 50 28 | 30 2c 4e 29 3d 31 35 2e |...8. P(|0,N)=15.|
|00001920| 35 3a f4 20 4f 72 20 77 | 68 61 74 65 76 65 72 20 |5:. Or w|hatever |
|00001930| 79 6f 75 72 20 6d 61 78 | 69 6d 75 6d 20 78 20 76 |your max|imum x v|
|00001940| 61 6c 75 65 20 69 73 2e | 0d 09 ec 05 e1 0d 09 f6 |alue is.|........|
|00001950| 05 3a 0d 0a 00 32 f4 20 | 50 75 74 20 79 6f 75 72 |.:...2. |Put your|
|00001960| 20 64 61 74 61 20 68 65 | 72 65 2e 20 54 68 65 73 | data he|re. Thes|
|00001970| 65 20 61 72 65 20 6a 75 | 73 74 20 65 78 61 6d 70 |e are ju|st examp|
|00001980| 6c 65 73 2e 0d 0a 0a 75 | dc 20 30 2e 35 2c 33 2e |les....u|. 0.5,3.|
|00001990| 30 2c 31 2c 31 2e 35 2c | 37 2e 30 2c 31 2c 32 2e |0,1,1.5,|7.0,1,2.|
|000019a0| 35 2c 31 32 2e 35 2c 31 | 2c 35 2e 35 2c 31 34 2e |5,12.5,1|,5.5,14.|
|000019b0| 35 2c 31 2c 36 2e 35 2c | 31 36 2e 30 2c 31 2c 39 |5,1,6.5,|16.0,1,9|
|000019c0| 2e 35 2c 31 34 2e 35 2c | 31 2c 31 30 2e 35 2c 31 |.5,14.5,|1,10.5,1|
|000019d0| 36 2e 30 2c 31 2c 31 32 | 2e 35 2c 31 36 2e 30 2c |6.0,1,12|.5,16.0,|
|000019e0| 31 2c 31 34 2e 35 2c 32 | 31 2e 30 2c 31 2c 31 35 |1,14.5,2|1.0,1,15|
|000019f0| 2e 35 2c 32 33 2e 30 2c | 31 0d 0a 14 05 3a 0d 0a |.5,23.0,|1....:..|
|00001a00| 1e 0a dd f2 6d 65 6e 75 | 0d 0a 28 23 df 31 32 37 |....menu|..(#.127|
|00001a10| 39 2c 30 3a df 31 32 37 | 39 2c 31 30 32 33 3a df |9,0:.127|9,1023:.|
|00001a20| 30 2c 31 30 32 33 3a df | 30 2c 30 0d 0a 32 27 f1 |0,1023:.|0,0..2'.|
|00001a30| 8a 38 2c 36 29 3b 22 44 | 6f 20 79 6f 75 20 77 61 |.8,6);"D|o you wa|
|00001a40| 6e 74 20 74 6f 20 65 6e | 74 65 72 20 64 61 74 61 |nt to en|ter data|
|00001a50| 3a 22 0d 0a 3c 17 f1 8a | 38 2c 38 29 3b 22 31 2e |:"..<...|8,8);"1.|
|00001a60| 20 42 79 20 68 61 6e 64 | 22 0d 0a 46 23 f1 8a 38 | By hand|"..F#..8|
|00001a70| 2c 31 30 29 3b 22 32 2e | 20 42 79 20 44 41 54 41 |,10);"2.| By DATA|
|00001a80| 20 73 74 61 74 65 6d 65 | 6e 74 73 22 0d 0a 50 1a | stateme|nts"..P.|
|00001a90| f1 8a 38 2c 31 32 29 3b | 22 33 2e 20 46 72 6f 6d |..8,12);|"3. From|
|00001aa0| 20 64 69 73 63 22 0d 0a | 5a 26 f1 8a 38 2c 31 37 | disc"..|Z&..8,17|
|00001ab0| 29 3b 22 50 72 65 73 73 | 20 61 70 70 72 6f 70 72 |);"Press| appropr|
|00001ac0| 69 61 74 65 20 6e 75 6d | 62 65 72 22 0d 0a 64 1a |iate num|ber"..d.|
|00001ad0| f5 20 61 24 3d be 3a fd | 20 a7 22 31 32 33 22 2c |. a$=.:.| ."123",|
|00001ae0| 61 24 29 3c 3e 30 0d 0a | 6e 0b c8 8e 20 61 24 20 |a$)<>0..|n... a$ |
|00001af0| ca 0d 0a 78 14 c9 20 22 | 31 22 3a f2 64 61 74 61 |...x.. "|1":.data|
|00001b00| 65 6e 74 72 79 0d 0a 82 | 1d c9 20 22 32 22 3a f2 |entry...|.. "2":.|
|00001b10| 6d 65 73 73 61 67 65 31 | 3a f2 72 65 61 64 64 61 |message1|:.readda|
|00001b20| 74 61 0d 0a 8c 1d c9 20 | 22 33 22 3a f2 6d 65 73 |ta..... |"3":.mes|
|00001b30| 73 61 67 65 32 3a f2 72 | 65 61 64 64 69 73 63 0d |sage2:.r|eaddisc.|
|00001b40| 0a 96 05 cb 0d 0a a0 05 | db 0d 0a aa 05 e1 0d 0a |........|........|
|00001b50| b4 05 3a 0d 0a be 0e dd | f2 72 65 61 64 64 69 73 |..:.....|.readdis|
|00001b60| 63 0d 0a c8 2a e8 8a 32 | 2c 35 29 3b 22 45 6e 74 |c...*..2|,5);"Ent|
|00001b70| 65 72 20 6e 61 6d 65 20 | 6f 66 20 64 61 74 61 20 |er name |of data |
|00001b80| 66 69 6c 65 20 22 6e 61 | 6d 65 24 0d 0a d2 0f 63 |file "na|me$....c|
|00001b90| 25 3d 8e 28 6e 61 6d 65 | 24 29 0d 0a dc 07 4e 3d |%=.(name|$)....N=|
|00001ba0| 30 0d 0a e6 05 f5 0d 0a | f0 08 4e 2b 3d 31 0d 0a |0.......|..N+=1..|
|00001bb0| fa 1c e8 23 63 25 2c 50 | 28 30 2c 4e 29 2c 50 28 |...#c%,P|(0,N),P(|
|00001bc0| 31 2c 4e 29 2c 57 54 28 | 4e 29 0d 0b 04 0a fd 20 |1,N),WT(|N)..... |
|00001bd0| c5 23 63 25 0d 0b 0e 08 | d9 23 63 25 0d 0b 18 05 |.#c%....|.#c%....|
|00001be0| e1 0d 0b 22 05 3a 0d 0b | 2c 0e dd f2 6d 65 73 73 |...".:..|,...mess|
|00001bf0| 61 67 65 31 0d 0b 36 30 | f1 8a 32 2c 32 35 29 3b |age1..60|..2,25);|
|00001c00| 22 49 66 20 79 6f 75 20 | 68 61 76 65 20 6e 6f 74 |"If you |have not|
|00001c10| 20 79 65 74 20 64 6f 6e | 65 20 73 6f 2c 20 65 6e | yet don|e so, en|
|00001c20| 74 65 72 22 0d 0b 40 32 | f1 8a 32 2c 32 36 29 3b |ter"..@2|..2,26);|
|00001c30| 22 79 6f 75 72 20 64 61 | 74 61 20 61 74 20 65 6e |"your da|ta at en|
|00001c40| 64 20 6f 66 20 44 45 46 | 50 52 4f 43 72 65 61 64 |d of DEF|PROCread|
|00001c50| 64 61 74 61 2c 22 0d 0b | 4a 24 f1 8a 32 2c 32 37 |data,"..|J$..2,27|
|00001c60| 29 3b 22 6f 74 68 65 72 | 77 69 73 65 20 70 72 65 |);"other|wise pre|
|00001c70| 73 73 20 52 45 54 55 52 | 4e 22 0d 0b 54 0c f5 20 |ss RETUR|N"..T.. |
|00001c80| fd 20 a5 3d 31 33 0d 0b | 5e 05 e1 0d 0b 68 05 3a |. .=13..|^....h.:|
|00001c90| 0d 0b 72 0e dd f2 6d 65 | 73 73 61 67 65 32 0d 0b |..r...me|ssage2..|
|00001ca0| 7c 30 f1 8a 31 2c 32 35 | 29 3b 22 49 66 20 79 6f ||0..1,25|);"If yo|
|00001cb0| 75 20 68 61 76 65 20 6e | 6f 74 20 79 65 74 20 64 |u have n|ot yet d|
|00001cc0| 6f 6e 65 20 73 6f 2c 20 | 63 68 65 63 6b 22 0d 0b |one so, |check"..|
|00001cd0| 86 31 f1 8a 31 2c 32 36 | 29 3b 22 74 68 61 74 20 |.1..1,26|);"that |
|00001ce0| 44 45 46 50 52 4f 43 72 | 65 61 64 64 69 73 63 20 |DEFPROCr|eaddisc |
|00001cf0| 69 73 20 61 70 70 72 6f | 70 72 69 61 74 65 22 0d |is appro|priate".|
|00001d00| 0b 90 34 f1 8a 31 2c 32 | 37 29 3b 22 66 6f 72 20 |..4..1,2|7);"for |
|00001d10| 79 6f 75 72 20 6e 65 65 | 64 73 2c 20 6f 74 68 65 |your nee|ds, othe|
|00001d20| 72 77 69 73 65 20 70 72 | 65 73 73 20 52 45 54 55 |rwise pr|ess RETU|
|00001d30| 52 4e 22 0d 0b 9a 0e f5 | 20 fd 20 a5 3d 31 33 3a |RN".....| . .=13:|
|00001d40| db 0d 0b a4 05 e1 0d ff |                         |........|        |
+--------+-------------------------+-------------------------+--------+--------+