home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / programs / Maths2 / Brian / Poly_Real < prev    next >
Unknown  |  1990-04-08  |  1.8 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
10% dexvert Truevision Targa Graphic (image/tga) magic Supported
100% file data default
100% xdgMime image/x-tga default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 20 3e | 50 6f 6c 79 5f 52 65 61 |.....  >|Poly_Rea|
|00000010| 6c 0d 00 14 06 f4 3a 0d | 00 1e 40 f4 20 20 20 20 |l.....:.|..@.    |
|00000020| 20 20 20 20 20 53 6f 6c | 76 65 73 20 73 65 63 6f |     Sol|ves seco|
|00000030| 6e 64 2d 2c 20 74 68 69 | 72 64 2d 20 61 6e 64 20 |nd-, thi|rd- and |
|00000040| 66 6f 75 72 74 68 2d 20 | 6f 72 64 65 72 20 61 6c |fourth- |order al|
|00000050| 67 65 62 72 61 69 63 0d | 00 28 32 f4 20 20 20 20 |gebraic.|.(2.    |
|00000060| 20 20 20 20 20 65 71 75 | 61 74 69 6f 6e 73 20 62 |     equ|ations b|
|00000070| 79 20 66 6f 72 6d 75 6c | 61 20 66 6f 72 20 72 65 |y formul|a for re|
|00000080| 61 6c 20 72 6f 6f 74 73 | 2e 0d 00 32 06 f4 3a 0d |al roots|...2..:.|
|00000090| 00 3c 4d f4 3a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.<M.:---|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 00 46 06 |--------|----..F.|
|000000e0| f4 3a 0d 00 50 05 f5 0d | 00 5a 40 e8 20 22 20 20 |.:..P...|.Z@. "  |
|000000f0| 20 4f 72 64 65 72 20 6f | 66 20 65 71 75 61 74 69 | Order o|f equati|
|00000100| 6f 6e 20 74 6f 20 62 65 | 20 73 6f 6c 76 65 64 3f |on to be| solved?|
|00000110| 20 20 28 32 2c 20 33 20 | 6f 72 20 34 29 20 20 22 |  (2, 3 |or 4)  "|
|00000120| 20 4f 72 64 65 72 25 0d | 00 64 21 fd 20 28 4f 72 | Order%.|.d!. (Or|
|00000130| 64 65 72 25 20 3c 20 35 | 29 20 80 20 28 4f 72 64 |der% < 5|) . (Ord|
|00000140| 65 72 25 20 3e 20 31 29 | 0d 00 6e 45 e7 20 4f 72 |er% > 1)|..nE. Or|
|00000150| 64 65 72 25 20 3d 20 34 | 20 8c 20 f1 20 22 53 6f |der% = 4| . . "So|
|00000160| 72 72 79 2c 20 71 75 61 | 72 74 69 63 20 73 6f 6c |rry, qua|rtic sol|
|00000170| 75 74 69 6f 6e 20 6e 6f | 74 20 69 6d 70 6c 65 6d |ution no|t implem|
|00000180| 65 6e 74 65 64 20 79 65 | 74 22 3a 20 e0 0d 00 78 |ented ye|t": ...x|
|00000190| 06 f4 3a 0d 00 82 4d f4 | 3a 2d 2d 2d 2d 2d 2d 2d |..:...M.|:-------|
|000001a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001e0| 0d 00 8c 06 f4 3a 0d 00 | 96 0f c8 8e 20 4f 72 64 |.....:..|.... Ord|
|000001f0| 65 72 25 20 ca 0d 00 a0 | 13 c9 20 32 3a 20 f2 71 |er% ....|.. 2: .q|
|00000200| 75 61 64 72 61 74 69 63 | 0d 00 aa 0f c9 20 33 3a |uadratic|..... 3:|
|00000210| 20 f2 63 75 62 69 63 0d | 00 b4 11 c9 20 34 3a 20 | .cubic.|.... 4: |
|00000220| f2 71 75 61 72 74 69 63 | 0d 00 be 07 7f 20 e0 0d |.quartic|..... ..|
|00000230| 00 c8 05 cb 0d 00 d2 05 | e0 0d 00 dc 06 f4 3a 0d |........|......:.|
|00000240| 00 e6 4d f4 3a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..M.:---|--------|
|00000250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 00 f0 0f |--------|----....|
|00000290| f4 3a 20 20 20 20 20 20 | 20 20 20 0d 00 fa 10 dd |.:      |   .....|
|000002a0| 20 f2 71 75 61 64 72 61 | 74 69 63 0d 01 04 1e e8 | .quadra|tic.....|
|000002b0| 20 22 43 4f 45 46 46 49 | 43 49 45 4e 54 20 4f 46 | "COEFFI|CIENT OF|
|000002c0| 20 58 5e 32 20 20 22 20 | 41 0d 01 0e 2d e7 20 41 | X^2  " |A...-. A|
|000002d0| 3d 30 20 8c 20 f1 20 22 | 20 4e 4f 54 20 41 20 51 |=0 . . "| NOT A Q|
|000002e0| 55 41 44 52 41 54 49 43 | 20 45 51 55 41 54 49 4f |UADRATIC| EQUATIO|
|000002f0| 4e 20 22 3a 20 e1 0d 01 | 18 26 e8 20 22 43 4f 45 |N ": ...|.&. "COE|
|00000300| 46 46 49 43 49 45 4e 54 | 20 4f 46 20 58 20 20 20 |FFICIENT| OF X   |
|00000310| 20 22 20 42 3a 20 20 42 | 3d 42 2f 41 0d 01 22 26 | " B:  B|=B/A.."&|
|00000320| e8 20 22 43 4f 4e 53 54 | 41 4e 54 20 54 45 52 4d |. "CONST|ANT TERM|
|00000330| 20 20 20 20 20 20 20 22 | 20 43 3a 20 20 43 3d 43 |       "| C:  C=C|
|00000340| 2f 41 0d 01 2c 2b f4 3a | 20 20 20 20 20 20 20 20 |/A..,+.:|        |
|00000350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 0d 01 36 |        |     ..6|
|00000370| 28 e7 20 42 2a 42 20 3c | 20 34 2a 43 20 8c 20 f1 |(. B*B <| 4*C . .|
|00000380| 20 22 52 6f 6f 74 73 20 | 63 6f 6d 70 6c 65 78 20 | "Roots |complex |
|00000390| 20 22 3a 20 e1 0d 01 40 | 25 52 6f 6f 74 5f 31 20 | ": ...@|%Root_1 |
|000003a0| 3d 20 2d 28 42 20 2b 20 | b4 28 42 29 2a b6 28 42 |= -(B + |.(B)*.(B|
|000003b0| 2a 42 2d 34 2a 43 29 29 | 2f 32 0d 01 4a 15 52 6f |*B-4*C))|/2..J.Ro|
|000003c0| 6f 74 5f 32 20 3d 20 43 | 2f 52 6f 6f 74 5f 31 0d |ot_2 = C|/Root_1.|
|000003d0| 01 54 06 f4 3a 0d 01 5e | 1d f1 20 22 20 20 20 52 |.T..:..^|.. "   R|
|000003e0| 6f 6f 74 73 20 61 72 65 | 20 20 22 3b 52 6f 6f 74 |oots are|  ";Root|
|000003f0| 5f 31 0d 01 68 1d f1 20 | 22 20 20 20 20 20 20 20 |_1..h.. |"       |
|00000400| 20 20 61 6e 64 20 20 22 | 3b 52 6f 6f 74 5f 32 0d |  and  "|;Root_2.|
|00000410| 01 72 06 f4 3a 0d 01 7c | 05 e1 0d 01 86 06 f4 3a |.r..:..||.......:|
|00000420| 0d 01 90 4d f4 3a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...M.:--|--------|
|00000430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 01 9a |--------|-----...|
|00000470| 05 f4 0d 01 a4 0c dd 20 | f2 63 75 62 69 63 0d 01 |....... |.cubic..|
|00000480| ae 1e e8 20 22 43 4f 45 | 46 46 49 43 49 45 4e 54 |... "COE|FFICIENT|
|00000490| 20 4f 46 20 58 5e 33 20 | 20 22 20 41 0d 01 b8 29 | OF X^3 | " A...)|
|000004a0| e7 20 41 3d 30 20 8c 20 | f1 20 22 20 4e 4f 54 20 |. A=0 . |. " NOT |
|000004b0| 41 20 43 55 42 49 43 20 | 45 51 55 41 54 49 4f 4e |A CUBIC |EQUATION|
|000004c0| 20 22 3a 20 e1 0d 01 c2 | 29 e8 20 22 43 4f 45 46 | ": ....|). "COEF|
|000004d0| 46 49 43 49 45 4e 54 20 | 4f 46 20 58 5e 32 20 20 |FICIENT |OF X^2  |
|000004e0| 22 20 41 31 3a 20 20 41 | 31 3d 41 31 2f 41 0d 01 |" A1:  A|1=A1/A..|
|000004f0| cc 29 e8 20 22 43 4f 45 | 46 46 49 43 49 45 4e 54 |.). "COE|FFICIENT|
|00000500| 20 4f 46 20 58 5e 32 20 | 20 22 20 41 32 3a 20 20 | OF X^2 | " A2:  |
|00000510| 41 32 3d 41 32 2f 41 0d | 01 d6 29 e8 20 22 43 4f |A2=A2/A.|..). "CO|
|00000520| 4e 53 54 41 4e 54 20 54 | 45 52 4d 20 20 20 20 20 |NSTANT T|ERM     |
|00000530| 20 20 22 20 41 33 3a 20 | 20 41 33 3d 41 33 2f 41 |  " A3: | A3=A3/A|
|00000540| 0d 01 e0 06 f4 3a 0d 01 | ea 16 51 20 3d 20 28 41 |.....:..|..Q = (A|
|00000550| 31 2a 41 31 2d 33 2a 41 | 32 29 2f 39 0d 01 f4 25 |1*A1-3*A|2)/9...%|
|00000560| 52 20 3d 20 28 32 2a 41 | 31 2a 41 31 2a 41 31 2d |R = (2*A|1*A1*A1-|
|00000570| 39 2a 41 31 2a 41 32 2b | 32 37 2a 41 33 29 2f 35 |9*A1*A2+|27*A3)/5|
|00000580| 34 0d 01 fe 06 f4 3a 0d | 02 08 18 e7 20 51 2a 51 |4.....:.|.... Q*Q|
|00000590| 2a 51 20 2d 20 52 2a 52 | 20 3e 3d 20 30 20 8c 0d |*Q - R*R| >= 0 ..|
|000005a0| 02 12 1d f1 20 20 22 20 | 20 54 68 72 65 65 20 72 |....  " | Three r|
|000005b0| 65 61 6c 20 72 6f 6f 74 | 73 3a 20 22 0d 02 1c 19 |eal root|s: "....|
|000005c0| 54 68 65 74 61 20 3d 20 | 95 28 52 2f b6 28 51 2a |Theta = |.(R/.(Q*|
|000005d0| 51 2a 51 29 29 0d 02 26 | 06 f4 3a 0d 02 30 2b 52 |Q*Q))..&|..:..0+R|
|000005e0| 6f 6f 74 5f 31 20 3d 20 | 2d 32 2a b6 28 51 29 2a |oot_1 = |-2*.(Q)*|
|000005f0| 9b 28 54 68 65 74 61 2f | 33 29 20 20 20 20 20 20 |.(Theta/|3)      |
|00000600| 20 2d 41 31 2f 33 0d 02 | 3a 2a 52 6f 6f 74 5f 32 | -A1/3..|:*Root_2|
|00000610| 20 3d 20 2d 32 2a b6 28 | 51 29 2a 9b 28 28 54 68 | = -2*.(|Q)*.((Th|
|00000620| 65 74 61 2b 32 2a af 29 | 2f 33 29 2d 41 31 2f 33 |eta+2*.)|/3)-A1/3|
|00000630| 0d 02 44 2a 52 6f 6f 74 | 5f 33 20 3d 20 2d 32 2a |..D*Root|_3 = -2*|
|00000640| b6 28 51 29 2a 9b 28 28 | 54 68 65 74 61 2b 34 2a |.(Q)*.((|Theta+4*|
|00000650| af 29 2f 33 29 2d 41 31 | 2f 33 0d 02 4e 06 f4 3a |.)/3)-A1|/3..N..:|
|00000660| 0d 02 58 1d f1 20 22 20 | 20 20 52 6f 6f 74 73 20 |..X.. " |  Roots |
|00000670| 61 72 65 20 20 22 3b 52 | 6f 6f 74 5f 31 0d 02 62 |are  ";R|oot_1..b|
|00000680| 1d f1 20 22 20 20 20 20 | 20 20 20 20 20 61 6e 64 |.. "    |     and|
|00000690| 20 20 22 3b 52 6f 6f 74 | 5f 32 0d 02 6c 1d f1 20 |  ";Root|_2..l.. |
|000006a0| 22 20 20 20 20 20 20 20 | 20 20 61 6e 64 20 20 22 |"       |  and  "|
|000006b0| 3b 52 6f 6f 74 5f 33 0d | 02 76 06 f4 3a 0d 02 80 |;Root_3.|.v..:...|
|000006c0| 06 f4 3a 0d 02 8a 05 cc | 0d 02 94 1b f1 20 20 22 |..:.....|.....  "|
|000006d0| 20 20 4f 6e 65 20 72 65 | 61 6c 20 72 6f 6f 74 3a |  One re|al root:|
|000006e0| 20 20 22 0d 02 9e 25 43 | 42 52 20 3d 20 28 b6 28 |  "...%C|BR = (.(|
|000006f0| 52 2a 52 2d 51 2a 51 2a | 51 29 20 2b 20 94 28 52 |R*R-Q*Q*|Q) + .(R|
|00000700| 29 29 5e 28 31 2f 33 29 | 0d 02 a8 25 52 6f 6f 74 |))^(1/3)|...%Root|
|00000710| 20 3d 20 2d b4 28 52 29 | 2a 28 43 42 52 20 2b 20 | = -.(R)|*(CBR + |
|00000720| 51 2f 43 42 52 29 20 2d | 20 41 31 2f 33 0d 02 b2 |Q/CBR) -| A1/3...|
|00000730| 06 f4 3a 0d 02 bc 1b f1 | 20 20 22 53 6f 6c 65 20 |..:.....|  "Sole |
|00000740| 72 6f 6f 74 20 69 73 20 | 22 3b 52 6f 6f 74 0d 02 |root is |";Root..|
|00000750| c6 06 f4 3a 0d 02 d0 05 | cd 0d 02 da 06 f4 3a 0d |...:....|......:.|
|00000760| 02 e4 05 e1 0d ff       |                         |......  |        |
+--------+-------------------------+-------------------------+--------+--------+