home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / programs / Maths2 / J_Selig / Poly < prev    next >
Unknown  |  1990-05-20  |  2.0 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 0a f4 3e 50 6f | 6c 79 0d 00 14 04 0d 00 |.....>Po|ly......|
|00000010| 1e 17 eb 30 3a fb 30 2c | 34 3a f2 74 65 78 74 3a |...0:.0,|4:.text:|
|00000020| 67 65 74 3d a5 0d 00 28 | 28 eb 31 3a fb 30 2c 34 |get=...(|(.1:.0,4|
|00000030| 3a de 63 66 24 28 39 29 | 2c 43 66 28 39 29 3a 40 |:.cf$(9)|,Cf(9):@|
|00000040| 25 3d 26 39 30 41 3a 2a | 46 58 34 2c 31 0d 00 32 |%=&90A:*|FX4,1..2|
|00000050| 25 f1 20 8a 36 29 22 45 | 4e 54 45 52 20 4f 52 20 |%. .6)"E|NTER OR |
|00000060| 45 44 49 54 20 43 4f 45 | 46 46 49 43 49 45 4e 54 |EDIT COE|FFICIENT|
|00000070| 53 22 0d 00 3c 10 f1 8a | 32 37 2c 32 29 22 78 5e |S"..<...|27,2)"x^|
|00000080| 6e 22 0d 00 46 24 e3 20 | 51 25 3d 31 20 b8 20 39 |n"..F$. |Q%=1 . 9|
|00000090| 3a f1 8a 32 37 29 22 78 | 5e 28 6e 2d 22 3b 51 25 |:..27)"x|^(n-";Q%|
|000000a0| 3b 22 29 22 3a ed 0d 00 | 50 21 f1 8a 33 2c 35 29 |;")":...|P!..3,5)|
|000000b0| 22 43 3d 43 6c 65 61 72 | 22 8a 33 2c 37 29 22 53 |"C=Clear|".3,7)"S|
|000000c0| 3d 53 6f 6c 76 65 22 0d | 00 5a 27 f1 8a 30 2c 31 |=Solve".|.Z'..0,1|
|000000d0| 36 29 22 52 4f 4f 54 53 | 20 41 54 3a 22 3a 68 69 |6)"ROOTS| AT:":hi|
|000000e0| 3d 31 45 32 3a 40 25 3d | 26 32 30 33 30 41 0d 00 |=1E2:@%=|&2030A..|
|000000f0| 64 2c f1 8a 32 2c 32 38 | 29 22 50 75 73 68 20 27 |d,..2,28|)"Push '|
|00000100| 2d 27 20 28 6d 69 6e 75 | 73 29 20 74 6f 20 63 68 |-' (minu|s) to ch|
|00000110| 61 6e 67 65 20 73 69 67 | 6e 22 0d 00 6e 31 f1 8a |ange sig|n"..n1..|
|00000120| 32 2c 33 30 29 22 55 70 | 2f 64 6f 77 6e 20 63 75 |2,30)"Up|/down cu|
|00000130| 72 73 6f 72 73 20 26 20 | 44 65 6c 65 74 65 20 6b |rsors & |Delete k|
|00000140| 65 79 20 74 6f 20 65 64 | 69 74 22 0d 00 78 15 c8 |ey to ed|it"..x..|
|00000150| 93 34 37 34 2c 36 33 34 | 2c 33 36 32 2c 33 33 33 |.474,634|,362,333|
|00000160| 0d 00 82 0c ee 85 87 3a | 4e 25 3d 30 0d 00 8c 27 |.......:|N%=0...'|
|00000170| ef 32 38 2c 31 35 2c 31 | 31 2c 32 35 2c 32 2c 33 |.28,15,1|1,25,2,3|
|00000180| 30 3a f1 63 66 24 28 30 | 29 3b 3a ee 85 e5 20 8d |0:.cf$(0|);:... .|
|00000190| 64 46 42 0d 00 96 0a f5 | 20 63 25 3d a5 0d 00 a0 |dFB.....| c%=....|
|000001a0| 0b c8 8e 20 63 25 20 ca | 0d 00 aa 16 c9 20 34 35 |... c% .|..... 45|
|000001b0| 3a e7 20 63 66 24 28 bc | 29 3d 22 22 20 8c 0d 00 |:. cf$(.|)="" ...|
|000001c0| b4 0e 63 66 24 28 bc 29 | 3d 22 2d 22 0d 00 be 05 |..cf$(.)|="-"....|
|000001d0| cc 0d 00 c8 18 63 66 24 | 28 bc 29 3d c3 28 2d bb |.....cf$|(.)=.(-.|
|000001e0| 28 63 66 24 28 bc 29 29 | 29 0d 00 d2 05 cd 0d 00 |(cf$(.))|).......|
|000001f0| dc 1a f1 20 8a 30 2c bc | 29 3b 63 66 24 28 bc 29 |... .0,.|);cf$(.)|
|00000200| 3b 3a ef 39 2c 31 32 37 | 0d 00 e6 16 c9 20 36 37 |;:.9,127|..... 67|
|00000210| 2c 39 39 3a 63 66 24 28 | 29 3d 22 22 3a db 0d 00 |,99:cf$(|)="":...|
|00000220| f0 24 c9 20 31 32 37 3a | e7 20 b1 3e 30 20 ef 31 |.$. 127:|. .>0 .1|
|00000230| 32 37 3a 63 66 24 28 bc | 29 3d c0 63 66 24 28 bc |27:cf$(.|)=.cf$(.|
|00000240| 29 29 0d 00 fa 1f c9 20 | 31 33 39 3a e7 20 bc 3e |))..... |139:. .>|
|00000250| 30 20 ef 31 31 2c 31 33 | 3a f1 63 66 24 28 bc 29 |0 .11,13|:.cf$(.)|
|00000260| 3b 0d 01 04 22 c9 20 31 | 33 38 2c 31 33 3a e7 20 |;...". 1|38,13:. |
|00000270| bc 3c 39 20 ef 31 30 2c | 31 33 3a f1 63 66 24 28 |.<9 .10,|13:.cf$(|
|00000280| bc 29 3b 0d 01 0e 05 7f | 0d 01 18 2a e7 20 63 25 |.);.....|...*. c%|
|00000290| 3e 34 35 20 80 20 63 25 | 3c 35 38 20 80 20 b1 3c |>45 . c%|<58 . .<|
|000002a0| 31 30 20 ef 63 25 3a 63 | 66 24 28 bc 29 2b 3d bd |10 .c%:c|f$(.)+=.|
|000002b0| 63 25 0d 01 22 05 cb 0d | 01 2c 14 fd 20 63 25 3d |c%.."...|.,.. c%=|
|000002c0| 38 33 20 84 20 63 25 3d | 31 31 35 0d 01 36 24 e3 |83 . c%=|115..6$.|
|000002d0| 20 51 25 3d 39 20 b8 20 | 30 20 88 2d 31 3a 43 66 | Q%=9 . |0 .-1:Cf|
|000002e0| 28 51 25 29 3d bb 28 63 | 66 24 28 51 25 29 29 0d |(Q%)=.(c|f$(Q%)).|
|000002f0| 01 40 1e e7 20 43 66 28 | 51 25 29 3c 3e 30 20 80 |.@.. Cf(|Q%)<>0 .|
|00000300| 20 4e 25 3d 30 20 8c 20 | 4e 25 3d 51 25 0d 01 4a | N%=0 . |N%=Q%..J|
|00000310| 05 ed 0d 01 54 16 ef 32 | 38 2c 31 30 2c 32 36 2c |....T..2|8,10,26,|
|00000320| 33 33 2c 31 36 2c 31 32 | 0d 01 5e 25 64 3d 43 66 |33,16,12|..^%d=Cf|
|00000330| 28 30 29 3a 4c 3d ab 94 | 28 64 29 3a 43 66 28 29 |(0):L=..|(d):Cf()|
|00000340| 3d 43 66 28 29 2f 64 3a | 4d 25 3d 4e 25 0d 01 68 |=Cf()/d:|M%=N%..h|
|00000350| 26 f2 6e 65 77 74 6f 6e | 28 68 69 29 3a f2 6e 65 |&.newton|(hi):.ne|
|00000360| 77 74 6f 6e 28 2d 68 69 | 29 3a e7 20 4e 25 3c 3e |wton(-hi|):. N%<>|
|00000370| 32 20 85 0d 01 72 2b f1 | 2d 43 66 28 31 29 2f 32 |2 ...r+.|-Cf(1)/2|
|00000380| 22 2b 2f 2d 22 3b b6 28 | 34 2a 43 66 28 32 29 2d |"+/-";.(|4*Cf(2)-|
|00000390| 43 66 28 31 29 5e 32 29 | 2f 32 3b 22 69 22 0d 01 |Cf(1)^2)|/2;"i"..|
|000003a0| 7c 0b 4d 25 3d 2d 32 3a | 85 0d 01 86 04 0d 01 90 ||.M%=-2:|........|
|000003b0| 16 dd f2 64 65 66 6c 28 | 72 29 3a 4e 25 2d 3d 31 |...defl(|r):N%-=1|
|000003c0| 3a f1 72 0d 01 9a 22 e3 | 20 4c 25 3d 31 20 b8 20 |:.r...".| L%=1 . |
|000003d0| 4e 25 3a 43 66 28 4c 25 | 29 2b 3d 43 66 28 4c 25 |N%:Cf(L%|)+=Cf(L%|
|000003e0| 2d 31 29 2a 72 0d 01 a4 | 16 ed 3a e7 20 4e 25 3d |-1)*r...|..:. N%=|
|000003f0| 31 20 f1 2d 43 66 28 31 | 29 3a 85 0d 01 ae 05 e1 |1 .-Cf(1|):......|
|00000400| 0d 01 b8 04 0d 01 c2 16 | dd a4 65 76 61 6c 28 6b |........|..eval(k|
|00000410| 29 3a 79 3d 31 3a 44 59 | 3d 31 0d 01 cc 1e e3 20 |):y=1:DY|=1..... |
|00000420| 51 25 3d 31 20 b8 20 4e | 25 2d 31 3a 79 3d 79 2a |Q%=1 . N|%-1:y=y*|
|00000430| 6b 2b 43 66 28 51 25 29 | 0d 01 d6 1b 44 59 3d 44 |k+Cf(Q%)|....DY=D|
|00000440| 59 2a 6b 2b 79 3a ed 3a | 3d 79 2a 6b 2b 43 66 28 |Y*k+y:.:|=y*k+Cf(|
|00000450| 4e 25 29 0d 01 e0 04 0d | 01 ea 1a dd f2 6e 65 77 |N%).....|.....new|
|00000460| 74 6f 6e 28 78 29 3a 59 | 3d a4 65 76 61 6c 28 78 |ton(x):Y|=.eval(x|
|00000470| 29 0d 01 f4 1c f5 3a 56 | 3d 94 59 3a e7 20 44 59 |).....:V|=.Y:. DY|
|00000480| 3c 3e 30 20 78 2d 3d 28 | 59 2f 44 59 29 0d 01 fe |<>0 x-=(|Y/DY)...|
|00000490| 16 e7 20 94 78 3c 68 69 | 20 59 3d a4 65 76 61 6c |.. .x<hi| Y=.eval|
|000004a0| 28 78 29 0d 02 08 0b fd | 20 94 59 3e 3d 56 0d 02 |(x).....| .Y>=V..|
|000004b0| 12 21 e7 20 94 59 3c 31 | 45 2d 33 20 f2 64 65 66 |.!. .Y<1|E-3 .def|
|000004c0| 6c 28 78 29 3a f2 6e 65 | 77 74 6f 6e 28 78 29 0d |l(x):.ne|wton(x).|
|000004d0| 02 1c 05 e1 0d 02 26 04 | 0d 02 30 0a dd f2 74 65 |......&.|..0...te|
|000004e0| 78 74 0d 02 3a 38 f1 27 | 27 27 27 22 20 20 50 6f |xt..:8.'|'''" Po|
|000004f0| 6c 79 20 73 6f 6c 76 65 | 73 20 70 6f 6c 79 6e 6f |ly solve|s polyno|
|00000500| 6d 69 61 6c 73 20 62 79 | 20 4e 45 57 54 4f 4e 27 |mials by| NEWTON'|
|00000510| 53 20 6d 65 74 68 6f 64 | 2e 22 0d 02 44 39 f1 22 |S method|."..D9."|
|00000520| 20 20 49 74 20 63 61 6e | 20 6f 6e 6c 79 20 63 6f | It can| only co|
|00000530| 70 65 20 77 69 74 68 20 | 6f 6e 65 20 70 61 69 72 |pe with |one pair|
|00000540| 20 6f 66 20 63 6f 6d 70 | 6c 65 78 20 72 6f 6f 74 | of comp|lex root|
|00000550| 73 2e 22 0d 02 4e 3c f1 | 22 20 20 49 66 20 6d 6f |s."..N<.|" If mo|
|00000560| 72 65 20 61 72 65 20 70 | 72 65 73 65 6e 74 2c 20 |re are p|resent, |
|00000570| 6f 6e 6c 79 20 72 65 61 | 6c 73 20 77 69 6c 6c 20 |only rea|ls will |
|00000580| 62 65 20 6c 6f 6f 6b 65 | 64 20 66 6f 72 2e 22 0d |be looke|d for.".|
|00000590| 02 58 3e f1 22 20 20 45 | 6e 74 65 72 20 63 6f 65 |.X>." E|nter coe|
|000005a0| 66 66 69 63 69 65 6e 74 | 73 20 75 6e 74 69 6c 20 |fficient|s until |
|000005b0| 79 6f 75 20 72 75 6e 20 | 6f 75 74 20 6f 66 20 74 |you run |out of t|
|000005c0| 68 65 6d 2c 20 6c 65 61 | 76 69 6e 67 22 0d 02 62 |hem, lea|ving"..b|
|000005d0| 29 f1 22 20 20 62 6c 61 | 6e 6b 73 20 28 6f 72 20 |)." bla|nks (or |
|000005e0| 30 29 20 66 6f 72 20 6d | 69 73 73 69 6e 67 20 74 |0) for m|issing t|
|000005f0| 65 72 6d 73 2e 22 0d 02 | 6c 3a f1 22 20 20 50 6f |erms."..|l:." Po|
|00000600| 6c 79 20 64 65 74 65 72 | 6d 69 6e 65 73 20 74 68 |ly deter|mines th|
|00000610| 65 20 64 65 67 72 65 65 | 20 6f 66 20 70 6f 6c 79 |e degree| of poly|
|00000620| 6e 6f 6d 69 61 6c 20 66 | 72 6f 6d 20 74 68 65 22 |nomial f|rom the"|
|00000630| 0d 02 76 3f f1 22 20 20 | 6e 75 6d 62 65 72 20 6f |..v?." |number o|
|00000640| 66 20 74 65 72 6d 73 2e | 20 49 66 20 74 68 65 20 |f terms.| If the |
|00000650| 6c 61 73 74 20 28 73 63 | 61 6c 61 72 29 20 74 65 |last (sc|alar) te|
|00000660| 72 6d 20 69 73 20 6d 69 | 73 73 69 6e 67 2c 22 0d |rm is mi|ssing,".|
|00000670| 02 80 40 f1 22 20 20 69 | 2e 65 2e 20 74 68 65 72 |..@." i|.e. ther|
|00000680| 65 20 69 73 20 61 20 72 | 6f 6f 74 20 61 74 20 78 |e is a r|oot at x|
|00000690| 3d 30 2c 20 50 6f 6c 79 | 20 73 6f 6c 76 65 73 20 |=0, Poly| solves |
|000006a0| 61 20 6c 6f 77 65 72 20 | 64 65 67 72 65 65 22 0d |a lower |degree".|
|000006b0| 02 8a 3e f1 22 20 20 65 | 71 75 61 74 69 6f 6e 2e |..>." e|quation.|
|000006c0| 20 54 68 69 73 20 69 73 | 20 62 6f 74 68 20 71 75 | This is| both qu|
|000006d0| 69 63 6b 65 72 20 61 6e | 64 20 6d 6f 72 65 20 61 |icker an|d more a|
|000006e0| 63 63 75 72 61 74 65 2c | 20 62 75 74 22 0d 02 94 |ccurate,| but"...|
|000006f0| 33 f1 22 20 20 30 20 6d | 75 73 74 20 74 68 65 6e |3." 0 m|ust then|
|00000700| 20 62 65 20 61 64 64 65 | 64 20 74 6f 20 74 68 65 | be adde|d to the|
|00000710| 20 6c 69 73 74 20 6f 66 | 20 72 6f 6f 74 73 2e 22 | list of| roots."|
|00000720| 0d 02 9e 2b f1 22 20 20 | 43 6f 65 66 66 69 63 69 |...+." |Coeffici|
|00000730| 65 6e 74 73 20 6e 65 65 | 64 20 6e 6f 74 20 62 65 |ents nee|d not be|
|00000740| 20 69 6e 74 65 67 65 72 | 73 2e 22 0d 02 a8 17 f1 | integer|s.".....|
|00000750| 27 27 22 20 20 50 55 53 | 48 20 41 4e 59 20 4b 45 |''" PUS|H ANY KE|
|00000760| 59 22 0d 02 b2 05 e1 0d | 02 bc 04 0d 02 c6 1c e7 |Y"......|........|
|00000770| 20 4d 25 3d 4e 25 20 f1 | 20 22 20 4e 6f 6e 65 20 | M%=N% .| " None |
|00000780| 66 6f 75 6e 64 22 27 0d | 02 d0 19 e7 20 9f 3d 32 |found"'.|.... .=2|
|00000790| 32 20 f1 22 20 52 65 74 | 79 70 65 20 78 5e 6e 22 |2 ." Ret|ype x^n"|
|000007a0| 0d 02 da 15 e7 20 9f 3c | 3e 32 36 20 80 20 9f 3c |..... .<|>26 . .<|
|000007b0| 3e 32 32 20 f6 0d 02 e4 | 11 e7 20 9f 3c 3e 31 37 |>22 ....|.. .<>17|
|000007c0| 20 e5 8d 74 42 40 0d 02 | ee 14 40 25 3d 26 39 30 | ..tB@..|..@%=&90|
|000007d0| 41 3a ef 32 36 3a 2a 46 | 58 34 0d ff |A:.26:*F|X4.. |
+--------+-------------------------+-------------------------+--------+--------+