home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / programs / Maths2 / Brian / PolyRoots1 < prev    next >
Unknown  |  1990-03-24  |  1.2 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 05 13 20 f4 20 20 | 3e 50 6f 6c 79 52 6f 6f |.... .  |>PolyRoo|
|00000010| 74 73 31 0d 00 0a 36 20 | f4 20 42 41 49 52 53 54 |ts1...6 |. BAIRST|
|00000020| 4f 57 27 53 20 4d 45 54 | 48 4f 44 20 46 4f 52 20 |OW'S MET|HOD FOR |
|00000030| 54 48 45 20 52 4f 4f 54 | 53 20 4f 46 20 41 20 50 |THE ROOT|S OF A P|
|00000040| 4f 4c 59 4e 4f 4d 49 41 | 4c 0d 00 14 31 20 f4 20 |OLYNOMIA|L...1 . |
|00000050| 4f 46 20 54 48 45 20 46 | 4f 52 4d 20 41 28 30 29 |OF THE F|ORM A(0)|
|00000060| 2a 58 5e 4e 2b 41 28 31 | 29 2a 58 5e 28 4e 2d 31 |*X^N+A(1|)*X^(N-1|
|00000070| 29 2e 2e 2e 2e 2b 41 28 | 4e 29 0d 00 1e 28 20 f4 |)....+A(|N)...( .|
|00000080| 20 47 49 56 45 53 20 41 | 4c 4c 20 52 4f 4f 54 53 | GIVES A|LL ROOTS|
|00000090| 2c 20 52 45 41 4c 20 41 | 4e 44 20 43 4f 4d 50 4c |, REAL A|ND COMPL|
|000000a0| 45 58 0d 00 28 14 20 f4 | 20 42 59 20 4c 2e 45 2e |EX..(. .| BY L.E.|
|000000b0| 57 45 41 56 45 52 0d 00 | 32 27 20 e8 20 22 50 52 |WEAVER..|2' . "PR|
|000000c0| 49 4e 54 20 4f 55 54 20 | 52 45 53 55 4c 54 53 3f |INT OUT |RESULTS?|
|000000d0| 20 3a 20 59 2f 4e 20 20 | 22 2c 20 41 24 0d 00 3c | : Y/N  |", A$..<|
|000000e0| 1b 20 e7 20 41 24 3d 22 | 59 22 20 84 20 41 24 3d |. . A$="|Y" . A$=|
|000000f0| 22 79 22 20 8c 20 ef 32 | 0d 00 46 09 20 2a 46 58 |"y" . .2|..F. *FX|
|00000100| 36 0d 00 50 22 20 e8 20 | 22 20 4f 52 44 45 52 20 |6..P" . |" ORDER |
|00000110| 4f 46 20 50 4f 4c 59 4e | 4f 4d 49 41 4c 3f 20 20 |OF POLYN|OMIAL?  |
|00000120| 22 20 4e 0d 00 5a 15 20 | de 20 41 28 4e 29 2c 42 |" N..Z. |. A(N),B|
|00000130| 28 4e 29 2c 43 28 4e 29 | 0d 00 64 39 20 e3 20 49 |(N),C(N)|..d9 . I|
|00000140| 20 3d 20 30 20 b8 20 4e | 3a 20 f1 20 22 43 4f 45 | = 0 . N|: . "COE|
|00000150| 46 46 49 43 49 45 4e 54 | 20 4f 46 20 50 4f 57 45 |FFICIENT| OF POWE|
|00000160| 52 20 20 22 3b 4e 2d 49 | 3b 20 20 22 20 3d 20 22 |R  ";N-I|;  " = "|
|00000170| 3b 0d 00 6e 15 20 e8 20 | 22 20 20 22 20 41 28 49 |;..n. . |"  " A(I|
|00000180| 29 3a 20 ed 20 49 0d 00 | 78 11 20 56 3d 31 3a 20 |): . I..|x. V=1: |
|00000190| 41 5a 3d 41 28 30 29 0d | 00 82 20 20 e3 20 49 3d |AZ=A(0).|..  . I=|
|000001a0| 30 20 b8 20 4e 3a 20 41 | 28 49 29 3d 41 28 49 29 |0 . N: A|(I)=A(I)|
|000001b0| 2f 41 5a 3a ed 20 49 0d | 00 8c 11 20 f2 66 69 6e |/AZ:. I.|... .fin|
|000001c0| 64 28 41 28 29 2c 4e 29 | 0d 00 a0 10 20 4e 3d 4e |d(A(),N)|.... N=N|
|000001d0| 2d 32 3a 56 3d 56 2b 31 | 0d 00 aa 0b 20 c8 8e 20 |-2:V=V+1|.... .. |
|000001e0| 4e 20 ca 0d 00 b4 2d 20 | c9 20 31 20 3a 20 50 3d |N ....- |. 1 : P=|
|000001f0| 42 28 31 29 3a 20 f1 20 | 22 52 4f 4f 54 20 22 3b |B(1): . |"ROOT ";|
|00000200| 56 3b 22 20 20 49 53 20 | 20 22 3b 2d 42 28 31 29 |V;"  IS | ";-B(1)|
|00000210| 0d 00 be 24 20 c9 20 32 | 20 3a 20 50 3d 42 28 31 |...$ . 2| : P=B(1|
|00000220| 29 3a 51 3d 42 28 32 29 | 3a f2 70 72 69 6e 74 28 |):Q=B(2)|:.print(|
|00000230| 50 2c 51 29 0d 00 c8 23 | 20 7f 20 e3 20 49 3d 30 |P,Q)...#| . . I=0|
|00000240| 20 b8 20 4e 3a 41 28 49 | 29 3d 42 28 49 29 3a ed | . N:A(I|)=B(I):.|
|00000250| 3a e5 20 8d 74 4c 40 0d | 00 d2 06 20 cb 0d 00 dc |:. .tL@.|... ....|
|00000260| 07 20 ef 33 0d 00 e6 06 | 20 e0 0d 00 f0 12 20 dd |. .3....| ..... .|
|00000270| 20 f2 70 72 69 6e 74 28 | 50 2c 51 29 0d 00 fa 1f | .print(|P,Q)....|
|00000280| 20 48 31 3d 2d 50 2f 32 | 3a 48 32 3d b6 28 94 28 | H1=-P/2|:H2=.(.(|
|00000290| 50 2a 50 2d 34 2a 51 29 | 29 2f 32 0d 01 04 30 20 |P*P-4*Q)|)/2...0 |
|000002a0| e7 20 50 2a 50 3e 34 2a | 51 20 8c 20 f1 22 52 4f |. P*P>4*|Q . ."RO|
|000002b0| 4f 54 20 20 22 3b 56 3b | 22 20 20 49 53 20 20 22 |OT  ";V;|"  IS  "|
|000002c0| 3b 48 31 3b 22 2b 2d 22 | 3b 48 32 0d 01 0e 33 20 |;H1;"+-"|;H2...3 |
|000002d0| e7 20 50 2a 50 3c 34 2a | 51 20 8c 20 f1 22 52 4f |. P*P<4*|Q . ."RO|
|000002e0| 4f 54 20 20 22 3b 56 3b | 22 20 20 49 53 20 20 22 |OT  ";V;|"  IS  "|
|000002f0| 3b 48 31 3b 22 2b 2d 20 | 6a 2a 22 3b 48 32 0d 01 |;H1;"+- |j*";H2..|
|00000300| 18 06 20 e1 0d 01 40 13 | 20 dd 20 f2 66 69 6e 64 |.. ...@.| . .find|
|00000310| 28 41 28 29 2c 4e 29 0d | 01 54 12 20 ea 20 42 28 |(A(),N).|.T. . B(|
|00000320| 4e 29 2c 43 28 4e 29 2c | 49 0d 01 5e 0c 20 50 3d |N),C(N),|I..^. P=|
|00000330| 30 3a 51 3d 30 0d 01 68 | 06 20 f5 0d 01 72 47 20 |0:Q=0..h|. ...rG |
|00000340| 42 28 30 29 3d 41 28 30 | 29 3a 42 28 31 29 3d 41 |B(0)=A(0|):B(1)=A|
|00000350| 28 31 29 2d 50 2a 42 28 | 30 29 3a e3 20 49 3d 32 |(1)-P*B(|0):. I=2|
|00000360| 20 b8 20 4e 3a 42 28 49 | 29 3d 41 28 49 29 2d 50 | . N:B(I|)=A(I)-P|
|00000370| 2a 42 28 49 2d 31 29 2d | 51 2a 42 28 49 2d 32 29 |*B(I-1)-|Q*B(I-2)|
|00000380| 3a ed 0d 01 7c 1f 20 43 | 28 30 29 3d 42 28 30 29 |:...|. C|(0)=B(0)|
|00000390| 3a 43 28 31 29 3d 42 28 | 31 29 2d 50 2a 43 28 30 |:C(1)=B(|1)-P*C(0|
|000003a0| 29 0d 01 86 48 20 e3 20 | 49 3d 32 20 b8 20 4e 2d |)...H . |I=2 . N-|
|000003b0| 32 3a 43 28 49 29 3d 42 | 28 49 29 2d 50 2a 43 28 |2:C(I)=B|(I)-P*C(|
|000003c0| 49 2d 31 29 2d 51 2a 43 | 28 49 2d 32 29 3a ed 3a |I-1)-Q*C|(I-2):.:|
|000003d0| 43 28 4e 2d 31 29 3d 2d | 50 2a 43 28 4e 2d 32 29 |C(N-1)=-|P*C(N-2)|
|000003e0| 2d 51 2a 43 28 4e 2d 33 | 29 0d 01 90 22 20 44 3d |-Q*C(N-3|)..." D=|
|000003f0| 43 28 4e 2d 32 29 2a 43 | 28 4e 2d 32 29 2d 43 28 |C(N-2)*C|(N-2)-C(|
|00000400| 4e 2d 31 29 2a 43 28 4e | 2d 33 29 0d 01 9a 16 20 |N-1)*C(N|-3).... |
|00000410| e7 20 44 3c 31 45 2d 35 | 20 8c 20 44 3d 2e 30 30 |. D<1E-5| . D=.00|
|00000420| 35 0d 01 a4 2e 20 44 50 | 3d 20 28 42 28 4e 2d 31 |5.... DP|= (B(N-1|
|00000430| 29 2a 43 28 4e 2d 32 29 | 2d 42 28 4e 29 2a 43 28 |)*C(N-2)|-B(N)*C(|
|00000440| 4e 2d 33 29 29 2f 44 3a | 20 50 3d 50 2b 44 50 0d |N-3))/D:| P=P+DP.|
|00000450| 01 ae 2e 20 44 51 3d 2d | 28 42 28 4e 2d 31 29 2a |... DQ=-|(B(N-1)*|
|00000460| 43 28 4e 2d 31 29 2d 42 | 28 4e 29 2a 43 28 4e 2d |C(N-1)-B|(N)*C(N-|
|00000470| 32 29 29 2f 44 3a 20 51 | 3d 51 2b 44 51 0d 01 b8 |2))/D: Q|=Q+DQ...|
|00000480| 19 20 fd 20 94 28 28 44 | 50 29 2b 94 28 44 51 29 |. . .((D|P)+.(DQ)|
|00000490| 29 3c 31 45 2d 38 0d 01 | bd 10 20 f2 70 72 69 6e |)<1E-8..|.. .prin|
|000004a0| 74 28 50 2c 51 29 0d 01 | c2 06 20 e1 0d ff       |t(P,Q)..|.. ...  |
+--------+-------------------------+-------------------------+--------+--------+