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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 20 f4 20 3e | 46 55 4e 43 54 5f 50 4c |.... . >|FUNCT_PL|
|00000010| 4f 54 0d 00 14 41 20 f4 | 20 50 72 6f 67 72 61 6d |OT...A .| Program|
|00000020| 20 74 6f 20 70 6c 6f 74 | 20 6f 6e 65 20 63 75 72 | to plot| one cur|
|00000030| 76 65 20 28 36 34 30 20 | 70 6f 69 6e 74 73 29 20 |ve (640 |points) |
|00000040| 66 72 6f 6d 20 67 69 76 | 65 6e 20 66 75 6e 63 74 |from giv|en funct|
|00000050| 69 6f 6e 0d 00 1e 40 20 | f1 20 22 20 45 6e 73 75 |ion...@ |. " Ensu|
|00000060| 72 65 20 74 68 61 74 20 | 66 75 6e 63 74 69 6f 6e |re that |function|
|00000070| 20 74 6f 20 62 65 20 70 | 6c 6f 74 74 65 64 20 69 | to be p|lotted i|
|00000080| 73 20 70 6c 61 63 65 64 | 20 61 74 20 65 6e 64 20 |s placed| at end |
|00000090| 6f 66 22 0d 00 28 29 20 | f1 20 22 20 20 20 20 20 |of"..() |. "     |
|000000a0| 20 20 20 20 20 20 20 20 | 70 72 6f 67 72 61 6d 20 |        |program |
|000000b0| 61 73 20 46 4e 63 75 72 | 76 65 20 22 0d 00 32 15 |as FNcur|ve "..2.|
|000000c0| 20 e8 20 22 58 6d 69 6e | 20 3d 20 22 20 58 6d 69 | . "Xmin| = " Xmi|
|000000d0| 6e 0d 00 3c 15 20 e8 20 | 22 58 6d 61 78 20 3d 20 |n..<. . |"Xmax = |
|000000e0| 22 20 58 6d 61 78 0d 00 | 46 45 20 f4 20 66 6c 61 |" Xmax..|FE . fla|
|000000f0| 67 20 5a 5a 25 3d 31 20 | 6d 65 61 6e 73 20 7b 58 |g ZZ%=1 |means {X|
|00000100| 6d 69 6e 2c 58 6d 61 78 | 7d 20 63 6f 6e 74 61 69 |min,Xmax|} contai|
|00000110| 6e 73 20 7a 65 72 6f 20 | 73 6f 20 6d 75 73 74 20 |ns zero |so must |
|00000120| 70 6c 6f 74 20 79 20 61 | 78 69 73 0d 00 50 25 20 |plot y a|xis..P% |
|00000130| e7 20 58 6d 69 6e 2a 58 | 6d 61 78 20 3c 3d 20 30 |. Xmin*X|max <= 0|
|00000140| 20 8c 20 5a 5a 25 3d 31 | 20 8b 20 5a 5a 25 3d 30 | . ZZ%=1| . ZZ%=0|
|00000150| 0d 00 5a 09 20 eb 20 32 | 30 0d 00 5b 11 fb 20 31 |..Z. . 2|0..[.. 1|
|00000160| 33 35 3a e6 20 30 3a fb | 20 30 0d 00 64 3a 20 f4 |35:. 0:.| 0..d: .|
|00000170| 20 46 69 72 73 74 20 77 | 65 20 6d 75 73 74 20 64 | First w|e must d|
|00000180| 69 6d 65 6e 73 69 6f 6e | 20 74 68 65 20 61 72 72 |imension| the arr|
|00000190| 61 79 20 74 6f 20 68 6f | 6c 64 20 74 68 65 20 64 |ay to ho|ld the d|
|000001a0| 61 74 61 2e 0d 00 6e 0f | 20 de 20 44 41 54 28 36 |ata...n.| . DAT(6|
|000001b0| 33 39 29 0d 00 78 17 20 | 5a 25 3d 31 20 3a 20 f4 |39)..x. |Z%=1 : .|
|000001c0| 20 72 65 64 75 6e 64 61 | 6e 74 0d 00 82 6a 20 f4 | redunda|nt...j .|
|000001d0| 20 54 68 65 20 66 6c 61 | 67 20 5a 25 20 74 65 6c | The fla|g Z% tel|
|000001e0| 6c 73 20 69 66 20 74 68 | 65 72 65 20 61 72 65 20 |ls if th|ere are |
|000001f0| 6d 6f 72 65 20 63 75 72 | 76 65 73 20 74 6f 20 70 |more cur|ves to p|
|00000200| 6c 6f 74 2e 20 5a 25 3d | 31 20 6d 65 61 6e 73 20 |lot. Z%=|1 means |
|00000210| 6d 6f 72 65 20 74 6f 20 | 70 6c 6f 74 2c 20 61 6e |more to |plot, an|
|00000220| 64 20 5a 25 3d 30 20 6d | 65 61 6e 73 20 6e 6f 20 |d Z%=0 m|eans no |
|00000230| 6d 6f 72 65 0d 00 8c 1c | 20 f4 20 4e 6f 77 20 72 |more....| . Now r|
|00000240| 65 61 64 20 69 6e 20 74 | 68 65 20 64 61 74 61 2e |ead in t|he data.|
|00000250| 0d 00 96 04 0d 00 a0 0b | 20 f2 69 6e 70 75 74 0d |........| .input.|
|00000260| 00 aa 70 20 f4 20 4e 6f | 77 20 73 6f 72 74 20 74 |..p . No|w sort t|
|00000270| 68 65 20 64 61 74 61 20 | 74 6f 20 66 69 6e 64 20 |he data |to find |
|00000280| 74 68 65 20 67 72 65 61 | 74 65 73 74 20 61 6e 64 |the grea|test and|
|00000290| 20 6c 65 61 73 74 20 70 | 6f 69 6e 74 73 20 73 6f | least p|oints so|
|000002a0| 20 74 68 61 74 20 74 68 | 65 20 64 61 74 61 20 63 | that th|e data c|
|000002b0| 61 6e 20 62 65 20 73 63 | 61 6c 65 64 20 74 6f 20 |an be sc|aled to |
|000002c0| 66 69 74 20 74 68 65 20 | 73 63 72 65 65 6e 2e 0d |fit the |screen..|
|000002d0| 00 b4 0a 20 f2 73 6f 72 | 74 0d 00 be 13 20 f1 20 |... .sor|t.... . |
|000002e0| 22 20 59 6d 69 6e 20 3d | 20 22 59 4c 0d 00 c8 13 |" Ymin =| "YL....|
|000002f0| 20 f1 20 22 20 59 6d 61 | 78 20 3d 20 22 59 55 0d | . " Yma|x = "YU.|
|00000300| 00 c9 22 20 f1 20 27 20 | 22 50 72 65 73 73 20 73 |.." . ' |"Press s|
|00000310| 70 61 63 65 20 74 6f 20 | 63 6f 6e 74 69 6e 75 65 |pace to |continue|
|00000320| 22 0d 00 ca 0f 20 f5 20 | fd 20 a5 20 3d 20 33 32 |".... . |. . = 32|
|00000330| 0d 00 d2 04 0d 00 d3 04 | 0d 00 dc 06 20 db 0d 00 |........|.... ...|
|00000340| e6 04 0d 00 f0 35 20 f4 | 20 4d 75 73 74 20 64 65 |.....5 .| Must de|
|00000350| 63 69 64 65 20 69 66 20 | 74 68 65 20 62 61 73 65 |cide if |the base|
|00000360| 6c 69 6e 65 20 73 68 6f | 75 6c 64 20 62 65 20 70 |line sho|uld be p|
|00000370| 6c 6f 74 74 65 64 2e 0d | 00 fa 0a 20 f2 61 78 69 |lotted..|... .axi|
|00000380| 73 0d 01 04 23 20 f4 20 | 4e 6f 77 20 74 68 65 20 |s...# . |Now the |
|00000390| 64 61 74 61 20 63 61 6e | 20 62 65 20 70 6c 6f 74 |data can| be plot|
|000003a0| 74 65 64 2e 0d 01 0e 0d | 20 f2 73 63 61 5f 70 6c |ted.....| .sca_pl|
|000003b0| 6f 0d 01 18 28 20 f4 20 | 69 66 20 5a 5a 25 20 3d |o...( . |if ZZ% =|
|000003c0| 20 31 20 74 68 65 6e 20 | 6d 75 73 74 20 70 6c 6f | 1 then |must plo|
|000003d0| 74 20 59 20 61 78 69 73 | 3a 0d 01 22 0b 20 f2 59 |t Y axis|:..". .Y|
|000003e0| 61 78 69 73 0d 01 2c 45 | 20 f4 20 50 65 72 68 61 |axis..,E| . Perha|
|000003f0| 70 73 20 77 65 20 77 61 | 6e 74 20 74 6f 20 70 6c |ps we wa|nt to pl|
|00000400| 6f 74 20 61 6e 6f 74 68 | 65 72 20 73 65 74 20 6f |ot anoth|er set o|
|00000410| 66 20 64 61 74 61 20 6f | 6e 20 74 68 65 20 73 61 |f data o|n the sa|
|00000420| 6d 65 20 73 63 61 6c 65 | 2e 0d 01 36 06 20 f5 0d |me scale|...6. ..|
|00000430| 01 40 0d 20 f2 61 6e 6f | 74 68 65 72 0d 01 4a 0b |.@. .ano|ther..J.|
|00000440| 20 fd 20 5a 25 3d 30 0d | 01 54 06 20 e0 0d 01 5e | . Z%=0.|.T. ...^|
|00000450| 06 20 f4 0d 01 68 24 20 | f4 20 2d 2d 2d 2d 2d 2d |. ...h$ |. ------|
|00000460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000470| 2d 2d 2d 2d 2d 2d 2d 0d | 01 72 0c 20 dd f2 69 6e |-------.|.r. ..in|
|00000480| 70 75 74 0d 01 7c 4a 20 | f4 20 54 68 69 73 20 50 |put..|J |. This P|
|00000490| 52 4f 43 20 63 61 6c 63 | 75 6c 61 74 65 73 20 64 |ROC calc|ulates d|
|000004a0| 61 74 61 20 70 6f 69 6e | 74 73 20 61 6e 64 20 70 |ata poin|ts and p|
|000004b0| 6c 61 63 65 73 20 74 68 | 65 6d 20 69 6e 20 61 6e |laces th|em in an|
|000004c0| 20 61 72 72 61 79 20 44 | 41 54 28 20 29 0d 01 86 | array D|AT( )...|
|000004d0| 11 20 e3 20 49 25 3d 30 | 20 b8 20 36 33 39 0d 01 |. . I%=0| . 639..|
|000004e0| 90 25 20 58 58 20 3d 20 | 58 6d 69 6e 20 2b 20 28 |.% XX = |Xmin + (|
|000004f0| 58 6d 61 78 20 2d 20 58 | 6d 69 6e 29 2a 49 25 2f |Xmax - X|min)*I%/|
|00000500| 36 34 30 0d 01 9a 18 20 | 44 41 54 28 49 25 29 3d |640.... |DAT(I%)=|
|00000510| 20 a4 63 75 72 76 65 28 | 58 58 29 0d 01 a4 06 20 | .curve(|XX).... |
|00000520| ed 0d 01 ae 39 20 f4 20 | 54 68 65 20 64 61 74 61 |....9 . |The data|
|00000530| 20 68 61 76 65 20 6e 6f | 77 20 62 65 65 6e 20 70 | have no|w been p|
|00000540| 6c 61 63 65 64 20 69 6e | 20 74 68 65 20 61 72 72 |laced in| the arr|
|00000550| 61 79 20 44 41 54 28 20 | 29 2e 0d 01 b8 06 20 e1 |ay DAT( |)..... .|
|00000560| 0d 01 c2 24 20 f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...$ . -|--------|
|00000570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000580| 2d 2d 2d 2d 0d 01 cc 0b | 20 dd f2 73 6f 72 74 0d |----....| ..sort.|
|00000590| 01 d6 6c 20 f4 20 54 68 | 69 73 20 50 52 4f 43 20 |..l . Th|is PROC |
|000005a0| 73 6f 72 74 73 20 74 68 | 65 20 64 61 74 61 20 66 |sorts th|e data f|
|000005b0| 6f 72 20 74 68 65 20 6c | 65 61 73 74 20 61 6e 64 |or the l|east and|
|000005c0| 20 74 68 65 20 67 72 65 | 61 74 65 73 74 20 64 61 | the gre|atest da|
|000005d0| 74 61 20 70 6f 69 6e 74 | 73 2e 20 54 68 65 73 65 |ta point|s. These|
|000005e0| 20 61 72 65 20 74 68 65 | 6e 20 63 61 6c 6c 65 64 | are the|n called|
|000005f0| 20 59 4c 20 61 6e 64 20 | 59 55 2e 0d 01 e0 1a 20 | YL and |YU..... |
|00000600| 59 55 3d 44 41 54 28 30 | 29 20 3a 20 59 4c 3d 44 |YU=DAT(0|) : YL=D|
|00000610| 41 54 28 30 29 0d 01 ea | 11 20 e3 20 4a 25 3d 30 |AT(0)...|. . J%=0|
|00000620| 20 b8 20 36 33 39 0d 01 | f4 0f 20 59 43 3d 44 41 | . 639..|.. YC=DA|
|00000630| 54 28 4a 25 29 0d 01 fe | 14 20 e7 20 59 55 3c 59 |T(J%)...|. . YU<Y|
|00000640| 43 20 8c 20 59 55 3d 59 | 43 0d 02 08 14 20 e7 20 |C . YU=Y|C.... . |
|00000650| 59 4c 3e 59 43 20 8c 20 | 59 4c 3d 59 43 0d 02 12 |YL>YC . |YL=YC...|
|00000660| 06 20 ed 0d 02 1c 41 20 | f4 20 4e 6f 77 20 59 55 |. ....A |. Now YU|
|00000670| 20 73 68 6f 75 6c 64 20 | 62 65 20 74 68 65 20 67 | should |be the g|
|00000680| 72 65 61 74 65 73 74 20 | 64 61 74 61 20 70 6f 69 |reatest |data poi|
|00000690| 6e 74 20 61 6e 64 20 59 | 4c 20 74 68 65 20 6c 65 |nt and Y|L the le|
|000006a0| 61 73 74 2e 0d 02 26 06 | 20 e1 0d 02 30 24 20 f4 |ast...&.| ...0$ .|
|000006b0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|000006c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 02 |--------|------..|
|000006d0| 3a 0b 20 dd f2 61 78 69 | 73 0d 02 44 57 20 f4 20 |:. ..axi|s..DW . |
|000006e0| 54 68 69 73 20 50 52 4f | 43 20 64 65 63 69 64 65 |This PRO|C decide|
|000006f0| 73 20 69 66 20 61 20 68 | 6f 72 69 7a 6f 6e 74 61 |s if a h|orizonta|
|00000700| 6c 20 61 78 69 73 20 73 | 68 6f 75 6c 64 20 62 65 |l axis s|hould be|
|00000710| 20 70 6c 6f 74 74 65 64 | 2c 20 61 6e 64 20 69 66 | plotted|, and if|
|00000720| 20 73 6f 20 69 74 20 70 | 6c 6f 74 73 20 69 74 2e | so it p|lots it.|
|00000730| 0d 02 4e 4b 20 f4 20 49 | 66 20 74 68 65 20 6c 69 |..NK . I|f the li|
|00000740| 6e 65 20 59 3d 30 20 66 | 61 6c 6c 73 20 77 69 74 |ne Y=0 f|alls wit|
|00000750| 68 69 6e 20 74 68 65 20 | 64 61 74 61 20 69 74 20 |hin the |data it |
|00000760| 6d 75 73 74 20 62 65 20 | 70 6c 6f 74 74 65 64 20 |must be |plotted |
|00000770| 61 73 20 61 6e 20 61 78 | 69 73 2e 0d 02 58 55 20 |as an ax|is...XU |
|00000780| f4 20 49 66 20 74 68 65 | 20 6c 69 6e 65 20 59 3d |. If the| line Y=|
|00000790| 30 20 69 73 20 63 6c 6f | 73 65 20 74 6f 20 74 68 |0 is clo|se to th|
|000007a0| 65 20 62 6f 74 74 6f 6d | 20 74 68 65 6e 20 69 6e |e bottom| then in|
|000007b0| 63 6c 75 64 65 20 69 74 | 20 61 6e 64 20 72 65 64 |clude it| and red|
|000007c0| 65 66 69 6e 65 20 59 4c | 20 74 6f 20 62 65 20 30 |efine YL| to be 0|
|000007d0| 0d 02 62 22 20 e7 20 b4 | 28 59 55 2a 28 59 4c 2d |..b" . .|(YU*(YL-|
|000007e0| 28 59 55 2d 59 4c 29 2f | 31 30 29 29 3e 30 20 8c |(YU-YL)/|10))>0 .|
|000007f0| 20 e1 0d 02 6c 1a 20 e7 | 20 b4 28 59 55 2a 59 4c | ...l. .| .(YU*YL|
|00000800| 29 3e 30 20 8c 20 59 4c | 20 3d 20 30 0d 02 76 18 |)>0 . YL| = 0..v.|
|00000810| 20 59 4f 3d 2d 59 4c 2a | 31 30 32 34 2f 28 59 55 | YO=-YL*|1024/(YU|
|00000820| 2d 59 4c 29 0d 02 80 0b | 20 ec 20 30 2c 59 4f 0d |-YL)....| . 0,YO.|
|00000830| 02 8a 11 20 f0 20 32 31 | 2c 31 32 38 30 2c 59 4f |... . 21|,1280,YO|
|00000840| 0d 02 94 6a 20 f4 20 57 | 68 65 6e 20 74 68 65 20 |...j . W|hen the |
|00000850| 6c 69 6e 65 20 59 3d 30 | 20 69 73 20 6e 6f 74 20 |line Y=0| is not |
|00000860| 77 69 74 68 69 6e 20 74 | 68 65 20 64 61 74 61 20 |within t|he data |
|00000870| 77 65 20 73 68 6f 75 6c | 64 20 70 72 6f 62 61 62 |we shoul|d probab|
|00000880| 6c 79 20 67 69 76 65 20 | 74 68 65 20 20 20 6f 70 |ly give |the   op|
|00000890| 74 69 6f 6e 20 6f 66 20 | 73 74 69 6c 6c 20 70 6c |tion of |still pl|
|000008a0| 6f 74 74 69 6e 67 20 69 | 74 2e 0d 02 9e 06 20 e1 |otting i|t..... .|
|000008b0| 0d 02 a8 24 20 f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...$ . -|--------|
|000008c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008d0| 2d 2d 2d 2d 0d 02 b2 0e | 20 dd f2 73 63 61 5f 70 |----....| ..sca_p|
|000008e0| 6c 6f 0d 02 bc 48 20 f4 | 20 54 68 69 73 20 50 52 |lo...H .| This PR|
|000008f0| 4f 43 20 73 63 61 6c 65 | 73 20 74 68 65 20 64 61 |OC scale|s the da|
|00000900| 74 61 20 74 6f 20 66 69 | 74 20 74 68 65 20 64 69 |ta to fi|t the di|
|00000910| 73 70 6c 61 79 20 61 6e | 64 20 74 68 65 6e 20 70 |splay an|d then p|
|00000920| 6c 6f 74 73 20 74 68 65 | 6d 2e 0d 02 c6 34 20 f4 |lots the|m....4 .|
|00000930| 20 46 69 72 73 74 20 6d | 6f 76 65 20 74 68 65 20 | First m|ove the |
|00000940| 70 6f 69 6e 74 20 74 6f | 20 74 68 65 20 66 69 72 |point to| the fir|
|00000950| 73 74 20 64 61 74 61 20 | 70 6f 69 6e 74 2e 0d 02 |st data |point...|
|00000960| d0 20 20 59 31 3d 28 44 | 41 54 28 30 29 2d 59 4c |.  Y1=(D|AT(0)-YL|
|00000970| 29 2a 31 30 32 34 2f 28 | 59 55 2d 59 4c 29 0d 02 |)*1024/(|YU-YL)..|
|00000980| da 0b 20 ec 20 30 2c 59 | 31 0d 02 e4 11 20 e3 20 |.. . 0,Y|1.... . |
|00000990| 4b 25 3d 30 20 b8 20 36 | 33 39 0d 02 ee 21 20 59 |K%=0 . 6|39...! Y|
|000009a0| 50 3d 28 44 41 54 28 4b | 25 29 2d 59 4c 29 2a 31 |P=(DAT(K|%)-YL)*1|
|000009b0| 30 32 34 2f 28 59 55 2d | 59 4c 29 0d 02 f8 0e 20 |024/(YU-|YL).... |
|000009c0| df 20 32 2a 4b 25 2c 59 | 50 0d 03 02 06 20 ed 0d |. 2*K%,Y|P.... ..|
|000009d0| 03 0c 06 20 e1 0d 03 16 | 24 20 f4 20 2d 2d 2d 2d |... ....|$ . ----|
|000009e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 03 20 0d 20 dd 20 |--------|-.. . . |
|00000a00| f2 59 61 78 69 73 0d 03 | 2a 27 20 49 49 25 20 3d |.Yaxis..|*' II% =|
|00000a10| 20 32 2a a8 28 20 36 34 | 30 2a 58 6d 69 6e 2f 28 | 2*.( 64|0*Xmin/(|
|00000a20| 58 6d 69 6e 20 2d 20 58 | 6d 61 78 29 29 0d 03 34 |Xmin - X|max))..4|
|00000a30| 0c 20 ec 20 49 49 25 2c | 30 0d 03 3e 12 20 f0 20 |. . II%,|0..>. . |
|00000a40| 32 31 2c 49 49 25 2c 31 | 30 32 34 0d 03 48 06 20 |21,II%,1|024..H. |
|00000a50| e1 0d 03 52 25 20 f4 20 | 2d 2d 2d 2d 2d 2d 2d 2d |...R% . |--------|
|00000a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a70| 2d 2d 2d 2d 2d 2d 0d 03 | 5c 0e 20 dd f2 61 6e 6f |------..|\. ..ano|
|00000a80| 74 68 65 72 0d 03 66 24 | 20 f4 20 6e 65 78 74 20 |ther..f$| . next |
|00000a90| 6c 69 6e 65 20 64 69 73 | 61 62 6c 65 73 20 74 68 |line dis|ables th|
|00000aa0| 69 73 20 70 72 6f 63 3a | 0d 03 70 0c 20 5a 25 3d |is proc:|..p. Z%=|
|00000ab0| 30 3a 20 e1 0d 03 7a 21 | 20 f1 20 22 41 6e 6f 74 |0: ...z!| . "Anot|
|00000ac0| 68 65 72 20 70 6c 6f 74 | 20 3f 20 20 20 59 2f 4e |her plot| ?   Y/N|
|00000ad0| 20 20 20 22 3b 0d 03 84 | 16 20 e7 20 be 3d 22 4e |   ";...|. . .="N|
|00000ae0| 22 20 8c 20 5a 25 3d 30 | 20 3a e1 0d 03 8e 0b 20 |" . Z%=0| :..... |
|00000af0| f2 69 6e 70 75 74 0d 03 | 98 0d 20 f2 73 63 61 5f |.input..|.. .sca_|
|00000b00| 70 6c 6f 0d 03 a2 06 20 | e1 0d 03 ac 25 20 f4 20 |plo.... |....% . |
|00000b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 03 |--------|------..|
|00000b30| b6 10 20 dd 20 a4 63 75 | 72 76 65 28 58 29 0d 03 |.. . .cu|rve(X)..|
|00000b40| c0 22 20 f4 20 3d 20 43 | 4f 53 28 31 30 2a 58 29 |." . = C|OS(10*X)|
|00000b50| 20 2a 20 45 58 50 28 2d | 20 41 42 53 28 58 29 29 | * EXP(-| ABS(X))|
|00000b60| 0d 03 ca 11 20 f4 3d 20 | 58 2f 28 31 2b 58 5e 32 |.... .= |X/(1+X^2|
|00000b70| 29 0d 03 d4 10 20 f4 3d | 45 58 50 2d 28 58 5e 32 |).... .=|EXP-(X^2|
|00000b80| 29 0d 03 de 16 20 f4 20 | 3d 2d 32 2a 58 2a 45 58 |).... . |=-2*X*EX|
|00000b90| 50 28 2d 58 5e 32 29 0d | 03 df 35 20 f4 3d 20 31 |P(-X^2).|..5 .= 1|
|00000ba0| 2f 28 28 58 2d 30 2e 35 | 29 5e 32 2b 31 29 5e 28 |/((X-0.5|)^2+1)^(|
|00000bb0| 33 2f 32 29 20 2b 20 31 | 2f 28 28 58 2b 30 2e 35 |3/2) + 1|/((X+0.5|
|00000bc0| 29 5e 32 2b 31 29 5e 28 | 33 2f 32 29 0d 03 e0 3f |)^2+1)^(|3/2)...?|
|00000bd0| 20 f4 3d 20 31 2f 28 28 | 58 2d 53 51 52 28 33 29 | .= 1/((|X-SQR(3)|
|00000be0| 2f 32 29 5e 32 2b 31 29 | 5e 28 33 2f 32 29 20 2d |/2)^2+1)|^(3/2) -|
|00000bf0| 20 31 2f 28 28 58 2b 53 | 51 52 28 33 29 2f 32 29 | 1/((X+S|QR(3)/2)|
|00000c00| 5e 32 2b 31 29 5e 28 33 | 2f 32 29 0d 03 e1 2b 20 |^2+1)^(3|/2)...+ |
|00000c10| f4 20 3d 28 31 2b 58 29 | 2f 53 51 52 28 31 2b 28 |. =(1+X)|/SQR(1+(|
|00000c20| 31 2b 58 29 5e 32 29 20 | 2d 20 58 2f 53 51 52 28 |1+X)^2) |- X/SQR(|
|00000c30| 31 2b 58 5e 32 29 0d 03 | e2 0f 20 43 3d 30 2e 32 |1+X^2)..|.. C=0.2|
|00000c40| 3a 20 42 3d 31 0d 03 e3 | 35 20 43 31 3d 28 43 2d |: B=1...|5 C1=(C-|
|00000c50| 58 2b 42 29 2f b6 28 28 | 43 2d 58 2b 42 29 5e 32 |X+B)/.((|C-X+B)^2|
|00000c60| 2b 31 29 3a 20 43 32 3d | 28 43 2d 58 29 2f b6 28 |+1): C2=|(C-X)/.(|
|00000c70| 28 43 2d 58 29 5e 32 2b | 31 29 0d 03 e4 35 20 43 |(C-X)^2+|1)...5 C|
|00000c80| 33 3d 28 43 2b 58 2b 42 | 29 2f b6 28 28 43 2b 58 |3=(C+X+B|)/.((C+X|
|00000c90| 2b 42 29 5e 32 2b 31 29 | 3a 20 43 34 3d 28 43 2b |+B)^2+1)|: C4=(C+|
|00000ca0| 58 29 2f b6 28 28 43 2b | 58 29 5e 32 2b 31 29 0d |X)/.((C+|X)^2+1).|
|00000cb0| 03 e5 2b 20 f4 20 49 46 | 20 58 3d 30 20 54 48 45 |..+ . IF| X=0 THE|
|00000cc0| 4e 20 3d 30 20 45 4c 53 | 45 20 3d 28 43 31 2d 43 |N =0 ELS|E =(C1-C|
|00000cd0| 32 29 2d 28 43 33 2d 43 | 34 29 0d 03 e6 18 20 3d |2)-(C3-C|4).... =|
|00000ce0| 20 28 b5 28 58 29 2d 58 | 2a 9b 28 58 29 29 2f 58 | (.(X)-X|*.(X))/X|
|00000cf0| 5e 32 0d ff             |                         |^2..    |        |
+--------+-------------------------+-------------------------+--------+--------+