/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / programs / Maths2 / J_Selig / Complex

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 3e 43 6f | 6d 70 6c 65 78 0d 00 14 |.....>Co|mplex...|
|00000010| 04 0d 00 1e 0b eb 30 3a | fb 30 2c 34 0d 00 28 09 |......0:|.0,4..(.|
|00000020| f2 74 65 78 74 0d 00 32 | 0c ee 85 20 e5 8d 64 48 |.text..2|... ..dH|
|00000030| 40 0d 00 3c 14 eb 36 3a | fb 30 2c 34 3a 2a 4b 2e |@..<..6:|.0,4:*K.|
|00000040| 30 20 50 7c 4d 0d 00 46 | 1f f1 8a 38 29 3b 22 45 |0 P|M..F|...8);"E|
|00000050| 71 75 61 74 69 6f 6e 22 | 8a 32 33 29 3b 22 52 6f |quation"|.23);"Ro|
|00000060| 6f 74 73 22 0d 00 50 18 | ef 32 38 2c 31 2c 32 32 |ots"..P.|.28,1,22|
|00000070| 2c 33 36 2c 32 3a f2 73 | 74 61 72 74 0d 00 5a 0d |,36,2:.s|tart..Z.|
|00000080| e3 78 25 3d 66 25 b8 31 | 31 0d 00 64 12 f1 22 52 |.x%=f%.1|1..d.."R|
|00000090| 6f 6f 74 3d 20 22 3b 3a | e8 71 24 0d 00 6e 13 e7 |oot= ";:|.q$..n..|
|000000a0| 20 71 24 3d 22 50 22 20 | f2 70 72 69 6e 74 0d 00 | q$="P" |.print..|
|000000b0| 78 13 72 74 24 28 78 25 | 29 3d 71 24 3a f2 69 6e |x.rt$(x%|)=q$:.in|
|000000c0| 74 0d 00 82 10 e3 79 25 | 3d 78 25 b8 31 20 88 2d |t.....y%|=x%.1 .-|
|000000d0| 31 0d 00 8c 23 74 6d 25 | 28 79 25 29 3d 74 6d 25 |1...#tm%|(y%)=tm%|
|000000e0| 28 79 25 2d 31 29 2a 64 | 25 2d 74 6d 25 28 79 25 |(y%-1)*d|%-tm%(y%|
|000000f0| 29 2a 6e 25 0d 00 96 07 | ed 79 25 0d 00 a0 11 db |)*n%....|.y%.....|
|00000100| 3a e3 6a 25 3d 78 25 b8 | 31 88 2d 31 0d 00 aa 17 |:.j%=x%.|1.-1....|
|00000110| f1 74 6d 25 28 6a 25 29 | 22 20 58 5e 22 3b 6a 25 |.tm%(j%)|" X^";j%|
|00000120| 2d 31 3b 0d 00 b4 13 f1 | 3b 8a 32 32 29 72 74 24 |-1;.....|;.22)rt$|
|00000130| 28 6a 25 29 3a ed 0d 00 | be 07 ed 78 25 0d 00 c8 |(j%):...|...x%...|
|00000140| 0f ee 85 87 3a ef 37 3a | 2a 46 58 33 0d 00 d2 1a |....:.7:|*FX3....|
|00000150| f1 27 22 4e 65 78 74 20 | 65 71 75 61 74 69 6f 6e |.'"Next |equation|
|00000160| 3f 20 59 2f 4e 22 0d 00 | dc 0c e7 be 3d 22 59 22 |? Y/N"..|....="Y"|
|00000170| 20 f9 0d 00 e6 05 e0 0d | 00 f0 12 dd f2 73 74 61 | .......|.....sta|
|00000180| 72 74 3a db 3a 66 25 3d | 32 0d 00 fa 14 de 74 6d |rt:.:f%=|2.....tm|
|00000190| 25 28 31 31 29 2c 72 74 | 24 28 31 31 29 0d 01 04 |%(11),rt|$(11)...|
|000001a0| 17 74 6d 25 28 31 29 3d | 31 3a e8 22 2b 2f 2d 69 |.tm%(1)=|1:."+/-i|
|000001b0| 22 2c 71 24 0d 01 0e 10 | e7 bb 71 24 3d 30 20 ef |",q$....|..q$=0 .|
|000001c0| 31 31 3a e1 0d 01 18 13 | 69 24 3d 22 2b 2f 2d 22 |11:.....|i$="+/-"|
|000001d0| 2b 71 24 2b 22 69 22 0d | 01 22 17 f2 69 6e 74 3a |+q$+"i".|."..int:|
|000001e0| 6e 69 25 3d 94 6e 25 3a | 64 69 25 3d 64 25 0d 01 |ni%=.n%:|di%=d%..|
|000001f0| 2c 1b e8 22 52 65 61 6c | 22 2c 71 24 3a 72 74 24 |,.."Real|",q$:rt$|
|00000200| 28 31 29 3d 71 24 2b 69 | 24 0d 01 36 15 f2 69 6e |(1)=q$+i|$..6..in|
|00000210| 74 3a 74 6d 25 28 33 29 | 3d 64 25 2a 64 25 0d 01 |t:tm%(3)|=d%*d%..|
|00000220| 40 20 74 6d 25 28 32 29 | 3d 2d 32 2a 6e 25 2a 64 |@ tm%(2)|=-2*n%*d|
|00000230| 25 3a 74 6d 25 28 31 29 | 3d 6e 25 2a 6e 25 0d 01 |%:tm%(1)|=n%*n%..|
|00000240| 4a 1e 6e 69 25 3d 6e 69 | 25 2a 6e 69 25 2a 74 6d |J.ni%=ni|%*ni%*tm|
|00000250| 25 28 33 29 3a e3 6a 25 | 3d 31 b8 33 0d 01 54 1d |%(3):.j%|=1.3..T.|
|00000260| 74 6d 25 28 6a 25 29 3d | 74 6d 25 28 6a 25 29 2a |tm%(j%)=|tm%(j%)*|
|00000270| 64 69 25 2a 64 69 25 3a | ed 0d 01 5e 1a 74 6d 25 |di%*di%:|...^.tm%|
|00000280| 28 31 29 3d 74 6d 25 28 | 31 29 2b 6e 69 25 3a 66 |(1)=tm%(|1)+ni%:f|
|00000290| 25 3d 34 0d 01 68 1a 67 | 25 3d a4 68 63 66 28 74 |%=4..h.g|%=.hcf(t|
|000002a0| 6d 25 28 31 29 2c 74 6d | 25 28 32 29 29 0d 01 72 |m%(1),tm|%(2))..r|
|000002b0| 1b 67 25 3d 94 28 a4 68 | 63 66 28 67 25 2c 74 6d |.g%=.(.h|cf(g%,tm|
|000002c0| 25 28 33 29 29 29 3a db | 0d 01 7c 12 e3 20 6a 25 |%(3))):.|..|.. j%|
|000002d0| 3d 33 20 b8 20 31 20 88 | 2d 31 0d 01 86 16 74 6d |=3 . 1 .|-1....tm|
|000002e0| 25 28 6a 25 29 3d 74 6d | 25 28 6a 25 29 81 67 25 |%(j%)=tm|%(j%).g%|
|000002f0| 0d 01 90 17 f1 74 6d 25 | 28 6a 25 29 22 20 58 5e |.....tm%|(j%)" X^|
|00000300| 22 3b 6a 25 2d 31 3b 0d | 01 9a 11 f1 3b 8a 32 32 |";j%-1;.|....;.22|
|00000310| 29 72 74 24 28 6a 25 29 | 0d 01 a4 07 ed 3a e1 0d |)rt$(j%)|.....:..|
|00000320| 01 ae 05 3a 0d 01 b8 0f | dd f2 69 6e 74 3a 7a 3d |...:....|..int:z=|
|00000330| a0 71 24 0d 01 c2 1b 6e | 25 3d 31 3a 66 64 25 3d |.q$....n|%=1:fd%=|
|00000340| 30 3a 64 25 3d 30 3a 66 | 63 25 3d 31 3a f5 0d 01 |0:d%=0:f|c%=1:...|
|00000350| cc 22 69 25 3d a8 28 2e | 35 2b 28 66 64 25 2d 66 |."i%=.(.|5+(fd%-f|
|00000360| 63 25 2a 7a 29 2f 28 64 | 25 2a 7a 2d 6e 25 29 29 |c%*z)/(d|%*z-n%))|
|00000370| 0d 01 d6 1f 74 70 25 3d | 66 64 25 3a 66 64 25 3d |....tp%=|fd%:fd%=|
|00000380| 6e 25 3a 6e 25 3d 6e 25 | 2a 69 25 2b 74 70 25 0d |n%:n%=n%|*i%+tp%.|
|00000390| 01 e0 1f 74 70 25 3d 66 | 63 25 3a 66 63 25 3d 64 |...tp%=f|c%:fc%=d|
|000003a0| 25 3a 64 25 3d 64 25 2a | 69 25 2b 74 70 25 0d 01 |%:d%=d%*|i%+tp%..|
|000003b0| ea 14 fd 94 28 7a 2d 6e | 25 2f 64 25 29 3c 31 45 |....(z-n|%/d%)<1E|
|000003c0| 2d 36 0d 01 f4 16 64 25 | 3d 94 64 25 3a 6e 25 3d |-6....d%|=.d%:n%=|
|000003d0| b4 7a 2a 94 6e 25 3a e1 | 0d 01 fe 05 3a 0d 02 08 |.z*.n%:.|....:...|
|000003e0| 1a dd a4 68 63 66 28 6e | 25 2c 64 25 29 3a e7 6e |...hcf(n|%,d%):.n|
|000003f0| 25 3d 30 20 3d 64 25 0d | 02 12 13 3d a4 68 63 66 |%=0 =d%.|...=.hcf|
|00000400| 28 64 25 83 6e 25 2c 6e | 25 29 0d 02 1c 05 3a 0d |(d%.n%,n|%)....:.|
|00000410| 02 26 18 dd f2 70 72 69 | 6e 74 3a ea 20 71 25 3a |.&...pri|nt:. q%:|
|00000420| 2a 46 58 33 2c 31 30 0d | 02 30 1a f1 22 59 3d 22 |*FX3,10.|.0.."Y="|
|00000430| 3b 3a e3 20 71 25 3d 78 | 25 2d 31 b8 31 20 88 2d |;:. q%=x|%-1.1 .-|
|00000440| 31 0d 02 3a 16 e7 20 74 | 6d 25 28 71 25 29 3d 30 |1..:.. t|m%(q%)=0|
|00000450| 20 8c 20 8d 44 76 42 0d | 02 44 21 e7 20 71 25 3c | . .DvB.|.D!. q%<|
|00000460| 78 25 2d 31 20 80 20 74 | 6d 25 28 71 25 29 3e 30 |x%-1 . t|m%(q%)>0|
|00000470| 20 8c 20 f1 22 2b 22 3b | 0d 02 4e 27 e7 20 94 28 | . ."+";|..N'. .(|
|00000480| 74 6d 25 28 71 25 29 29 | 3c 3e 31 20 84 20 71 25 |tm%(q%))|<>1 . q%|
|00000490| 3d 31 20 8c 20 f1 3b 74 | 6d 25 28 71 25 29 3b 0d |=1 . .;t|m%(q%);.|
|000004a0| 02 58 18 e7 20 74 6d 25 | 28 71 25 29 3d 2d 31 20 |.X.. tm%|(q%)=-1 |
|000004b0| 8c 20 f1 22 2d 22 3b 0d | 02 62 12 e7 20 71 25 3e |. ."-";.|.b.. q%>|
|000004c0| 31 20 8c 20 f1 22 78 22 | 3b 0d 02 6c 22 e7 20 71 |1 . ."x"|;..l". q|
|000004d0| 25 3e 32 20 8c 20 f1 bd | 32 37 22 53 30 22 3b 71 |%>2 . ..|27"S0";q|
|000004e0| 25 2d 31 3b bd 32 37 22 | 54 22 3b 0d 02 76 0d ed |%-1;.27"|T";..v..|
|000004f0| 3a f1 27 3a 2a 46 58 33 | 0d 02 80 0e e8 22 58 3d |:.':*FX3|....."X=|
|00000500| 22 2c 71 24 3a e1 0d 02 | 8a 0a dd f2 74 65 78 74 |",q$:...|....text|
|00000510| 0d 02 94 3c f1 27 27 27 | 27 22 20 20 54 68 69 73 |...<.'''|'"  This|
|00000520| 20 70 72 6f 67 72 61 6d | 20 67 65 6e 65 72 61 74 | program| generat|
|00000530| 65 73 20 70 6f 6c 79 6e | 6f 6d 69 61 6c 73 20 77 |es polyn|omials w|
|00000540| 69 74 68 20 69 6e 74 65 | 67 65 72 22 0d 02 9e 35 |ith inte|ger"...5|
|00000550| f1 22 20 20 63 6f 65 66 | 66 69 63 69 65 6e 74 73 |."  coef|ficients|
|00000560| 20 66 72 6f 6d 20 72 6f | 6f 74 73 20 65 6e 74 65 | from ro|ots ente|
|00000570| 72 65 64 20 62 79 20 74 | 68 65 20 75 73 65 72 2e |red by t|he user.|
|00000580| 22 0d 02 a8 3a f1 22 20 | 20 49 6e 70 75 74 20 6d |"...:." | Input m|
|00000590| 61 79 20 74 61 6b 65 20 | 61 6e 79 20 66 6f 72 6d |ay take |any form|
|000005a0| 20 74 68 61 74 20 45 56 | 41 4c 20 63 61 6e 20 75 | that EV|AL can u|
|000005b0| 6e 64 65 72 73 74 61 6e | 64 3a 22 0d 02 b2 2f f1 |nderstan|d:".../.|
|000005c0| 22 20 20 2d 31 2e 34 2c | 20 32 2f 33 2c 20 32 2b |"  -1.4,| 2/3, 2+|
|000005d0| 33 2f 37 20 61 72 65 20 | 61 6c 6c 20 76 61 6c 69 |3/7 are |all vali|
|000005e0| 64 20 69 6e 70 75 74 73 | 2e 22 0d 02 bc 42 f1 22 |d inputs|."...B."|
|000005f0| 20 20 55 73 65 20 6f 66 | 20 73 69 6d 70 6c 65 20 |  Use of| simple |
|00000600| 66 72 61 63 74 69 6f 6e | 73 20 68 65 6c 70 73 20 |fraction|s helps |
|00000610| 74 6f 20 6b 65 65 70 20 | 63 6f 65 66 66 69 63 69 |to keep |coeffici|
|00000620| 65 6e 74 73 20 73 6d 61 | 6c 6c 2e 22 0d 02 c6 45 |ents sma|ll."...E|
|00000630| f1 22 20 20 43 6f 65 66 | 66 69 63 69 65 6e 74 73 |."  Coef|ficients|
|00000640| 20 61 72 65 20 6d 69 6e | 69 6d 69 7a 65 64 20 62 | are min|imized b|
|00000650| 79 20 6d 65 74 68 6f 64 | 20 6f 66 20 63 6f 6e 74 |y method| of cont|
|00000660| 69 6e 75 65 64 20 66 72 | 61 63 74 69 6f 6e 73 2c |inued fr|actions,|
|00000670| 22 0d 02 c7 44 f1 22 20 | 20 69 66 20 69 6e 70 75 |"...D." | if inpu|
|00000680| 74 20 64 65 63 69 6d 61 | 6c 20 69 73 20 6d 6f 72 |t decima|l is mor|
|00000690| 65 20 74 68 61 6e 20 35 | 20 66 69 67 75 72 65 73 |e than 5| figures|
|000006a0| 20 6c 6f 6e 67 2e 20 28 | 54 72 79 20 2e 31 34 32 | long. (|Try .142|
|000006b0| 38 35 37 29 22 0d 02 d0 | 3f f1 22 20 20 4f 6e 6c |857)"...|?."  Onl|
|000006c0| 79 20 6f 6e 65 20 63 6f | 6e 6a 75 67 61 74 65 20 |y one co|njugate |
|000006d0| 70 61 69 72 20 6f 66 20 | 63 6f 6d 70 6c 65 78 20 |pair of |complex |
|000006e0| 72 6f 6f 74 73 20 69 73 | 20 70 65 72 6d 69 74 74 |roots is| permitt|
|000006f0| 65 64 2e 22 0d 02 da 40 | f1 22 20 20 49 66 20 73 |ed."...@|."  If s|
|00000700| 75 63 68 20 70 61 69 72 | 20 69 73 20 72 65 71 75 |uch pair| is requ|
|00000710| 69 72 65 64 2c 20 65 6e | 74 65 72 20 74 68 65 20 |ired, en|ter the |
|00000720| 69 6d 61 67 69 6e 61 72 | 79 20 70 61 72 74 20 77 |imaginar|y part w|
|00000730| 68 65 6e 22 0d 02 e4 46 | f1 22 20 20 70 72 6f 6d |hen"...F|."  prom|
|00000740| 70 74 65 64 20 66 6f 72 | 20 2b 2f 2d 69 2c 20 74 |pted for| +/-i, t|
|00000750| 68 65 6e 20 74 68 65 20 | 72 65 61 6c 20 70 61 72 |hen the |real par|
|00000760| 74 20 77 68 65 6e 20 70 | 72 6f 6d 70 74 65 64 20 |t when p|rompted |
|00000770| 66 6f 72 20 72 65 61 6c | 2e 22 0d 02 ee 43 f1 22 |for real|."...C."|
|00000780| 20 20 41 66 74 65 72 20 | 74 68 61 74 20 6f 6e 6c |  After |that onl|
|00000790| 79 20 72 65 61 6c 20 72 | 6f 6f 74 73 20 6d 61 79 |y real r|oots may|
|000007a0| 20 62 65 20 65 6e 74 65 | 72 65 64 2e 20 55 70 20 | be ente|red. Up |
|000007b0| 74 6f 20 39 20 69 6e 20 | 61 6c 6c 2e 22 0d 02 f8 |to 9 in |all."...|
|000007c0| 46 f1 22 20 20 49 66 20 | 63 6f 6d 70 6c 65 78 20 |F."  If |complex |
|000007d0| 72 6f 6f 74 73 20 61 72 | 65 20 6e 6f 74 20 72 65 |roots ar|e not re|
|000007e0| 71 75 69 72 65 64 2c 20 | 70 75 73 68 20 52 45 54 |quired, |push RET|
|000007f0| 55 52 4e 20 61 74 20 2b | 2f 2d 20 70 72 6f 6d 70 |URN at +|/- promp|
|00000800| 74 2e 22 0d 03 02 48 f1 | 22 20 20 50 75 73 68 69 |t."...H.|"  Pushi|
|00000810| 6e 67 20 27 50 72 69 6e | 74 27 28 72 69 67 68 74 |ng 'Prin|t'(right|
|00000820| 20 6f 66 20 66 31 32 29 | 2c 20 77 69 6c 6c 20 73 | of f12)|, will s|
|00000830| 65 6e 64 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |end the |current |
|00000840| 70 6f 6c 79 6e 6f 6d 69 | 61 6c 22 0d 03 0c 3e f1 |polynomi|al"...>.|
|00000850| 22 20 20 74 6f 20 61 20 | 64 6f 74 20 6d 61 74 72 |"  to a |dot matr|
|00000860| 69 78 20 70 72 69 6e 74 | 65 72 20 77 69 74 68 20 |ix print|er with |
|00000870| 73 75 70 65 72 2d 73 63 | 72 69 70 74 20 63 61 70 |super-sc|ript cap|
|00000880| 61 62 69 6c 69 74 79 2e | 22 0d 03 16 44 f1 22 20 |ability.|"...D." |
|00000890| 20 54 68 69 73 20 64 6f | 65 73 6e 27 74 20 73 74 | This do|esn't st|
|000008a0| 6f 70 20 74 68 65 20 70 | 72 6f 67 72 61 6d 2c 20 |op the p|rogram, |
|000008b0| 61 6e 64 20 6d 6f 72 65 | 20 72 6f 6f 74 73 20 6d |and more| roots m|
|000008c0| 61 79 20 62 65 20 61 64 | 64 65 64 2c 22 0d 03 20 |ay be ad|ded,".. |
|000008d0| 36 f1 22 20 20 74 6f 20 | 70 72 6f 64 75 63 65 20 |6."  to |produce |
|000008e0| 70 6f 6c 79 6e 6f 6d 69 | 61 6c 73 20 77 69 74 68 |polynomi|als with|
|000008f0| 20 63 6f 69 6e 63 69 64 | 65 6e 74 20 72 6f 6f 74 | coincid|ent root|
|00000900| 73 2e 22 0d 03 2a 3a f1 | 22 20 20 54 6f 20 65 6e |s."..*:.|"  To en|
|00000910| 64 20 74 68 65 20 70 72 | 6f 67 72 61 6d 20 70 75 |d the pr|ogram pu|
|00000920| 73 68 20 45 53 43 41 50 | 45 2e 22 27 27 22 20 20 |sh ESCAP|E."''"  |
|00000930| 50 55 53 48 20 41 4e 59 | 20 4b 45 59 22 0d 03 34 |PUSH ANY| KEY"..4|
|00000940| 0b 67 65 74 3d a5 3a e1 | 0d ff                   |.get=.:.|..      |
+--------+-------------------------+-------------------------+--------+--------+