/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / maths1 / Brian / 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| 0c ee 85 20 e5 8d 74 6a | 40 0d 00 1e 14 eb 36 3a |... ..tj|@.....6:|
|00000020| fb 30 2c 34 3a 2a 4b 2e | 30 20 50 7c 4d 0d 00 28 |.0,4:*K.|0 P|M..(|
|00000030| 1f f1 8a 38 29 3b 22 45 | 71 75 61 74 69 6f 6e 22 |...8);"E|quation"|
|00000040| 8a 32 33 29 3b 22 52 6f | 6f 74 73 22 0d 00 32 18 |.23);"Ro|ots"..2.|
|00000050| ef 32 38 2c 31 2c 32 32 | 2c 33 36 2c 32 3a f2 73 |.28,1,22|,36,2:.s|
|00000060| 74 61 72 74 0d 00 3c 0d | e3 78 25 3d 66 25 b8 31 |tart..<.|.x%=f%.1|
|00000070| 31 0d 00 46 12 f1 22 52 | 6f 6f 74 3d 20 22 3b 3a |1..F.."R|oot= ";:|
|00000080| e8 71 24 0d 00 50 13 e7 | 20 71 24 3d 22 50 22 20 |.q$..P..| q$="P" |
|00000090| f2 70 72 69 6e 74 0d 00 | 5a 13 72 74 24 28 78 25 |.print..|Z.rt$(x%|
|000000a0| 29 3d 71 24 3a f2 69 6e | 74 0d 00 64 10 e3 79 25 |)=q$:.in|t..d..y%|
|000000b0| 3d 78 25 b8 31 20 88 2d | 31 0d 00 6e 23 74 6d 25 |=x%.1 .-|1..n#tm%|
|000000c0| 28 79 25 29 3d 74 6d 25 | 28 79 25 2d 31 29 2a 64 |(y%)=tm%|(y%-1)*d|
|000000d0| 25 2d 74 6d 25 28 79 25 | 29 2a 6e 25 0d 00 78 07 |%-tm%(y%|)*n%..x.|
|000000e0| ed 79 25 0d 00 82 11 db | 3a e3 6a 25 3d 78 25 b8 |.y%.....|:.j%=x%.|
|000000f0| 31 88 2d 31 0d 00 8c 17 | f1 74 6d 25 28 6a 25 29 |1.-1....|.tm%(j%)|
|00000100| 22 20 58 5e 22 3b 6a 25 | 2d 31 3b 0d 00 96 13 f1 |" X^";j%|-1;.....|
|00000110| 3b 8a 32 32 29 72 74 24 | 28 6a 25 29 3a ed 0d 00 |;.22)rt$|(j%):...|
|00000120| a0 07 ed 78 25 0d 00 aa | 0f ee 85 87 3a ef 37 3a |...x%...|....:.7:|
|00000130| 2a 46 58 33 0d 00 b4 1a | f1 27 22 4e 65 78 74 20 |*FX3....|.'"Next |
|00000140| 65 71 75 61 74 69 6f 6e | 3f 20 59 2f 4e 22 0d 00 |equation|? Y/N"..|
|00000150| be 0c e7 be 3d 22 59 22 | 20 f9 0d 00 c8 05 e0 0d |....="Y"| .......|
|00000160| 00 d2 12 dd f2 73 74 61 | 72 74 3a db 3a 66 25 3d |.....sta|rt:.:f%=|
|00000170| 32 0d 00 dc 14 de 74 6d | 25 28 31 31 29 2c 72 74 |2.....tm|%(11),rt|
|00000180| 24 28 31 31 29 0d 00 e6 | 17 74 6d 25 28 31 29 3d |$(11)...|.tm%(1)=|
|00000190| 31 3a e8 22 2b 2f 2d 69 | 22 2c 71 24 0d 00 f0 10 |1:."+/-i|",q$....|
|000001a0| e7 bb 71 24 3d 30 20 ef | 31 31 3a e1 0d 00 fa 13 |..q$=0 .|11:.....|
|000001b0| 69 24 3d 22 2b 2f 2d 22 | 2b 71 24 2b 22 69 22 0d |i$="+/-"|+q$+"i".|
|000001c0| 01 04 17 f2 69 6e 74 3a | 6e 69 25 3d 94 6e 25 3a |....int:|ni%=.n%:|
|000001d0| 64 69 25 3d 64 25 0d 01 | 0e 1b e8 22 52 65 61 6c |di%=d%..|..."Real|
|000001e0| 22 2c 71 24 3a 72 74 24 | 28 31 29 3d 71 24 2b 69 |",q$:rt$|(1)=q$+i|
|000001f0| 24 0d 01 18 15 f2 69 6e | 74 3a 74 6d 25 28 33 29 |$.....in|t:tm%(3)|
|00000200| 3d 64 25 2a 64 25 0d 01 | 22 20 74 6d 25 28 32 29 |=d%*d%..|" tm%(2)|
|00000210| 3d 2d 32 2a 6e 25 2a 64 | 25 3a 74 6d 25 28 31 29 |=-2*n%*d|%:tm%(1)|
|00000220| 3d 6e 25 2a 6e 25 0d 01 | 2c 1e 6e 69 25 3d 6e 69 |=n%*n%..|,.ni%=ni|
|00000230| 25 2a 6e 69 25 2a 74 6d | 25 28 33 29 3a e3 6a 25 |%*ni%*tm|%(3):.j%|
|00000240| 3d 31 b8 33 0d 01 36 1d | 74 6d 25 28 6a 25 29 3d |=1.3..6.|tm%(j%)=|
|00000250| 74 6d 25 28 6a 25 29 2a | 64 69 25 2a 64 69 25 3a |tm%(j%)*|di%*di%:|
|00000260| ed 0d 01 40 1a 74 6d 25 | 28 31 29 3d 74 6d 25 28 |...@.tm%|(1)=tm%(|
|00000270| 31 29 2b 6e 69 25 3a 66 | 25 3d 34 0d 01 4a 1a 67 |1)+ni%:f|%=4..J.g|
|00000280| 25 3d a4 68 63 66 28 74 | 6d 25 28 31 29 2c 74 6d |%=.hcf(t|m%(1),tm|
|00000290| 25 28 32 29 29 0d 01 54 | 1b 67 25 3d 94 28 a4 68 |%(2))..T|.g%=.(.h|
|000002a0| 63 66 28 67 25 2c 74 6d | 25 28 33 29 29 29 3a db |cf(g%,tm|%(3))):.|
|000002b0| 0d 01 5e 12 e3 20 6a 25 | 3d 33 20 b8 20 31 20 88 |..^.. j%|=3 . 1 .|
|000002c0| 2d 31 0d 01 68 16 74 6d | 25 28 6a 25 29 3d 74 6d |-1..h.tm|%(j%)=tm|
|000002d0| 25 28 6a 25 29 81 67 25 | 0d 01 72 17 f1 74 6d 25 |%(j%).g%|..r..tm%|
|000002e0| 28 6a 25 29 22 20 58 5e | 22 3b 6a 25 2d 31 3b 0d |(j%)" X^|";j%-1;.|
|000002f0| 01 7c 11 f1 3b 8a 32 32 | 29 72 74 24 28 6a 25 29 |.|..;.22|)rt$(j%)|
|00000300| 0d 01 86 07 ed 3a e1 0d | 01 90 05 3a 0d 01 9a 0f |.....:..|...:....|
|00000310| dd f2 69 6e 74 3a 7a 3d | a0 71 24 0d 01 a4 1b 6e |..int:z=|.q$....n|
|00000320| 25 3d 31 3a 66 64 25 3d | 30 3a 64 25 3d 30 3a 66 |%=1:fd%=|0:d%=0:f|
|00000330| 63 25 3d 31 3a f5 0d 01 | ae 22 69 25 3d a8 28 2e |c%=1:...|."i%=.(.|
|00000340| 35 2b 28 66 64 25 2d 66 | 63 25 2a 7a 29 2f 28 64 |5+(fd%-f|c%*z)/(d|
|00000350| 25 2a 7a 2d 6e 25 29 29 | 0d 01 b8 1f 74 70 25 3d |%*z-n%))|....tp%=|
|00000360| 66 64 25 3a 66 64 25 3d | 6e 25 3a 6e 25 3d 6e 25 |fd%:fd%=|n%:n%=n%|
|00000370| 2a 69 25 2b 74 70 25 0d | 01 c2 1f 74 70 25 3d 66 |*i%+tp%.|...tp%=f|
|00000380| 63 25 3a 66 63 25 3d 64 | 25 3a 64 25 3d 64 25 2a |c%:fc%=d|%:d%=d%*|
|00000390| 69 25 2b 74 70 25 0d 01 | cc 14 fd 94 28 7a 2d 6e |i%+tp%..|....(z-n|
|000003a0| 25 2f 64 25 29 3c 31 45 | 2d 36 0d 01 d6 16 64 25 |%/d%)<1E|-6....d%|
|000003b0| 3d 94 64 25 3a 6e 25 3d | b4 7a 2a 94 6e 25 3a e1 |=.d%:n%=|.z*.n%:.|
|000003c0| 0d 01 e0 05 3a 0d 01 ea | 1a dd a4 68 63 66 28 6e |....:...|...hcf(n|
|000003d0| 25 2c 64 25 29 3a e7 6e | 25 3d 30 20 3d 64 25 0d |%,d%):.n|%=0 =d%.|
|000003e0| 01 f4 13 3d a4 68 63 66 | 28 64 25 83 6e 25 2c 6e |...=.hcf|(d%.n%,n|
|000003f0| 25 29 0d 01 fe 05 3a 0d | 02 08 18 dd f2 70 72 69 |%)....:.|.....pri|
|00000400| 6e 74 3a ea 20 71 25 3a | 2a 46 58 33 2c 31 30 0d |nt:. q%:|*FX3,10.|
|00000410| 02 12 1a f1 22 59 3d 22 | 3b 3a e3 20 71 25 3d 78 |...."Y="|;:. q%=x|
|00000420| 25 2d 31 b8 31 20 88 2d | 31 0d 02 1c 16 e7 20 74 |%-1.1 .-|1..... t|
|00000430| 6d 25 28 71 25 29 3d 30 | 20 8c 20 8d 44 58 42 0d |m%(q%)=0| . .DXB.|
|00000440| 02 26 21 e7 20 71 25 3c | 78 25 2d 31 20 80 20 74 |.&!. q%<|x%-1 . t|
|00000450| 6d 25 28 71 25 29 3e 30 | 20 8c 20 f1 22 2b 22 3b |m%(q%)>0| . ."+";|
|00000460| 0d 02 30 27 e7 20 94 28 | 74 6d 25 28 71 25 29 29 |..0'. .(|tm%(q%))|
|00000470| 3c 3e 31 20 84 20 71 25 | 3d 31 20 8c 20 f1 3b 74 |<>1 . q%|=1 . .;t|
|00000480| 6d 25 28 71 25 29 3b 0d | 02 3a 18 e7 20 74 6d 25 |m%(q%);.|.:.. tm%|
|00000490| 28 71 25 29 3d 2d 31 20 | 8c 20 f1 22 2d 22 3b 0d |(q%)=-1 |. ."-";.|
|000004a0| 02 44 12 e7 20 71 25 3e | 31 20 8c 20 f1 22 78 22 |.D.. q%>|1 . ."x"|
|000004b0| 3b 0d 02 4e 22 e7 20 71 | 25 3e 32 20 8c 20 f1 bd |;..N". q|%>2 . ..|
|000004c0| 32 37 22 53 30 22 3b 71 | 25 2d 31 3b bd 32 37 22 |27"S0";q|%-1;.27"|
|000004d0| 54 22 3b 0d 02 58 0d ed | 3a f1 27 3a 2a 46 58 33 |T";..X..|:.':*FX3|
|000004e0| 0d 02 62 0e e8 22 58 3d | 22 2c 71 24 3a e1 0d ff |..b.."X=|",q$:...|
+--------+-------------------------+-------------------------+--------+--------+