|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC700 "Piccolo" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC700 "Piccolo" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3200 (0xc80)
Names: »HORNER«
└─⟦f94993941⟧ Bits:30003267 COMAL 80 opgaver - Piccolo - CP/M
└─ ⟦this⟧ »HORNER«
0x000…020 02 83 71 c7 23 36 ea 0c 70 0c 31 2f 53 41 56 45 2e 24 24 24 20 20 20 20 20 20 0a 00 d3 25 01 01 ┆ q #6 p 1/SAVE.$$$ % ┆ 0x020…040 20 48 6f 72 6e 65 72 73 20 73 6b 65 6d 61 20 66 6f 72 20 70 6f 6c 79 6e 6f 6d 69 65 72 2e 20 20 ┆ Horners skema for polynomier. ┆ 0x040…060 54 42 20 20 6d 61 72 74 73 20 31 39 38 33 20 20 2e 20 43 4f 4d 41 4c 20 38 30 20 72 65 76 2e 31 ┆TB marts 1983 . COMAL 80 rev.1┆ 0x060…080 2e 30 37 00 0f 00 d3 20 01 01 20 4c 69 74 74 65 72 61 74 75 72 3a 20 4a 65 6e 73 20 43 61 72 73 ┆.07 Litteratur: Jens Cars┆ 0x080…0a0 74 65 6e 73 65 6e 3a 20 4e 55 4d 45 52 49 53 4b 45 20 4d 45 54 4f 44 45 52 2e 20 28 53 59 53 54 ┆tensen: NUMERISKE METODER. (SYST┆ 0x0a0…0c0 49 4d 45 29 14 00 86 0a 08 d0 01 20 00 00 00 00 00 82 55 00 07 00 01 00 1e 00 67 0b 81 f1 04 00 ┆IME) U g ┆ 0x0c0…0e0 02 a0 2d 2c 81 f1 04 00 09 a0 2d 00 01 00 28 00 67 22 08 d0 01 10 00 00 00 00 00 82 03 01 11 80 ┆ -, - ( g" ┆ 0x0e0…100 2d 2c 08 d0 01 10 00 00 00 00 00 82 03 01 15 80 2d 00 01 01 20 73 6b 61 6c 20 7b 6e 64 72 65 73 ┆-, - skal ændres┆ 0x100…120 20 76 65 64 20 67 72 61 64 20 6f 76 65 72 20 31 30 00 32 00 6c 05 82 f2 2d 00 01 00 3c 00 89 09 ┆ ved grad over 10 2 l - < ┆ 0x120…140 08 d0 01 20 00 00 00 00 00 83 2d 00 01 00 46 00 d1 06 19 80 88 f1 1d 00 01 00 50 00 86 21 38 c0 ┆ - F P !8 ┆ 0x140…160 36 00 50 6f 6c 79 6e 6f 6d 69 65 74 20 50 28 58 29 20 3d 20 61 28 31 29 58 5e 6e 2b 61 28 32 29 ┆6 Polynomiet P(X) = a(1)X^n+a(2)┆ 0x160…180 58 5e 28 6e 2d 31 29 2b 2e 2e 2e 2b 61 28 6e 29 58 2b 61 28 6e 2b 31 29 07 00 01 00 5a 00 86 1d ┆X^(n-1)+...+a(n)X+a(n+1) Z ┆ 0x180…1a0 30 c0 2d 00 75 6e 64 65 72 73 7c 67 65 73 20 66 6f 72 20 72 7c 64 64 65 72 2c 20 76 2e 68 2e 61 ┆0 - undersøges for rødder, v.h.a┆ 0x1a0…1c0 2e 20 4e 65 77 74 6f 6e 73 20 6d 65 74 6f 64 65 2c 00 07 00 01 00 64 00 86 1f 34 c0 32 00 6f 67 ┆. Newtons metode, d 4 2 og┆ 0x1c0…1e0 20 64 65 72 20 75 64 66 7c 72 65 73 20 70 6f 6c 79 6e 6f 6d 69 65 72 73 20 64 69 76 69 73 69 6f ┆ der udføres polynomiers divisio┆ 0x1e0…200 6e 20 6d 65 64 20 28 78 2d 72 6f 64 65 6e 29 2e 07 00 01 00 6e 00 86 04 08 00 01 00 78 00 86 23 ┆n med (x-roden). n x #┆ 0x200…220 3c c0 3a 00 4b 6f 65 66 66 69 63 69 65 6e 74 65 72 6e 65 20 69 6e 64 74 61 73 74 65 73 20 62 65 ┆< : Koefficienterne indtastes be┆ 0x220…240 67 79 6e 64 65 6e 64 65 20 76 65 64 20 64 65 6e 20 68 7c 6a 65 73 74 65 20 67 72 61 64 2e 07 00 ┆gyndende ved den højeste grad. ┆ 0x240…260 01 00 82 00 86 20 36 c0 34 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 6 4 ┆ 0x260…280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 3d 3d 3d 3d 3d 3d 07 00 ┆ ======= ┆ 0x280…2a0 01 00 8c 00 83 04 00 00 01 00 96 00 86 04 08 00 01 00 a0 00 83 04 00 00 01 00 aa 00 87 13 18 c0 ┆ ┆ 0x2a0…2c0 16 00 47 72 61 64 65 6e 20 61 66 20 70 6f 6c 79 6e 6f 6d 69 65 74 3f 20 12 3a 1f 80 05 00 01 00 ┆ Graden af polynomiet? : ┆ 0x2c0…2e0 b4 00 84 0d 00 00 1f 80 4c 00 1f 80 28 00 1f 80 81 f1 29 00 49 00 2d 0a 01 00 be 00 86 13 1c c0 ┆ L ( ) I - ┆ 0x2e0…300 19 00 49 6e 64 74 61 73 74 20 6b 6f 65 66 66 69 63 69 65 6e 74 65 72 6e 65 3a 20 00 07 00 01 00 ┆ Indtast koefficienterne: ┆ 0x300…320 c8 00 5f 0d 00 00 00 00 23 80 81 f1 1d 00 1f 80 81 f1 24 00 3b 00 11 3d 01 00 d2 00 86 0f 06 c0 ┆ _ # $ ; = ┆ 0x320…340 03 00 61 28 20 00 07 3b 23 80 07 3b 06 c0 04 00 29 20 3d 20 07 3b 01 00 dc 00 87 08 13 00 23 80 ┆ a( ;# ; ) = ; # ┆ 0x340…360 02 01 11 80 05 00 01 00 e6 00 60 05 00 00 23 80 01 00 f0 00 d1 0a 81 f1 02 01 15 80 81 f1 02 01 ┆ ` # ┆ 0x360…380 11 80 1d 00 01 00 fa 00 87 1a 26 c0 23 00 5c 6e 73 6b 65 73 20 75 64 73 6b 72 69 66 74 20 70 7d ┆ & # Ønskes udskrift på┆ 0x380…3a0 20 70 72 69 6e 74 65 72 3f 20 28 6a 2f 6e 29 20 3a 00 12 3a 09 a0 05 00 01 00 04 01 3e 11 09 a0 ┆ printer? (j/n) : : > ┆ 0x3a0…3c0 04 c0 01 00 6a 00 19 00 2d 71 c6 00 0a c0 07 00 70 72 69 6e 74 65 72 00 2d 70 01 00 0e 01 3e 11 ┆ j -q printer -p > ┆ 0x3c0…3e0 1f 80 81 f1 28 00 2d 71 65 00 81 f1 02 01 11 80 81 f2 02 01 11 80 02 02 27 80 2d 0d 01 00 18 01 ┆ ( -qe ' - ┆ 0x3e0…400 3e 14 1f 80 81 f2 28 00 2d 71 65 00 81 f1 02 01 11 80 81 f2 02 01 11 80 81 f3 02 01 11 80 02 03 ┆> ( -qe ┆ 0x400…420 34 80 2d 0d 01 00 22 01 82 0f 00 00 00 00 1f 80 81 f2 2a 00 02 a0 04 c0 01 00 6e 00 16 00 49 00 ┆4 - " * n I ┆ 0x420…440 2d 3d 01 00 2c 01 d1 06 40 80 00 f0 1d 00 01 00 36 01 86 04 08 00 01 00 40 01 87 11 14 c0 11 00 ┆-= , @ 6 @ ┆ 0x440…460 47 7b 74 20 70 7d 20 72 6f 64 65 6e 20 65 72 3f 20 00 12 3a 44 80 05 00 01 00 4a 01 86 04 08 00 ┆Gæt på roden er? :D J ┆ 0x460…480 01 00 54 01 86 0a 0a c0 07 00 50 28 58 29 20 3d 20 00 07 3b 01 00 5e 01 5f 0b 00 00 00 00 23 80 ┆ T P(X) = ; ^ _ # ┆ 0x480…4a0 81 f1 1d 00 1f 80 3b 00 11 3d 01 00 68 01 86 17 23 80 02 01 11 80 07 3b 06 c0 03 00 58 5e 20 00 ┆ ; = h # ; X^ ┆ 0x4a0…4c0 07 3b 1f 80 23 80 23 00 81 f1 24 00 07 3b 06 c0 03 00 20 2b 20 00 07 3b 01 00 72 01 60 05 00 00 ┆ ; # # $ ; + ; r ` ┆ 0x4c0…4e0 23 80 01 00 7c 01 86 13 1f 80 81 f1 24 00 02 01 11 80 07 2c 0c c0 09 00 52 6f 64 67 7b 74 20 3d ┆# ø $ , Rodgæt =┆ 0x4e0…500 20 00 07 3b 44 80 07 00 01 00 86 01 86 04 08 00 01 00 90 01 86 1a 04 c0 01 00 6d 00 07 2c 06 c0 ┆ ;D m , ┆ 0x500…520 04 00 61 6c 66 61 07 2c 0a c0 07 00 50 28 61 6c 66 61 29 00 07 2c 0a c0 08 00 50 27 28 61 6c 66 ┆ alfa , P(alfa) , P'(alf┆ 0x520…540 61 29 07 00 01 00 9a 01 83 04 00 00 01 00 a4 01 5e 1b 23 80 81 f2 1d 00 1f 80 81 f1 24 00 3b 00 ┆a) ^ # $ ; ┆ 0x540…560 11 3c d1 00 23 80 02 01 15 80 23 80 02 01 11 80 44 80 23 80 81 f1 23 00 02 01 15 80 21 00 24 00 ┆ < # # D # # ! $ ┆ 0x560…580 1d 00 01 00 ae 01 d1 0a 4b 80 1f 80 81 f1 24 00 02 01 15 80 1d 00 01 00 b8 01 d1 08 53 80 81 f1 ┆ K $ S ┆ 0x580…5a0 02 01 15 80 1d 00 01 00 c2 01 5e 13 23 80 81 f2 1d 00 1f 80 3b 00 11 3c d1 00 53 80 23 80 02 01 ┆ ^ # ; < S # ┆ 0x5a0…5c0 15 80 44 80 53 80 21 00 24 00 1d 00 01 00 cc 01 86 0b 40 80 07 2c 44 80 07 2c 4b 80 07 2c 53 80 ┆ D S ! $ @ ,D ,K ,S ┆ 0x5c0…5e0 07 00 01 00 d6 01 3f 09 00 00 00 00 53 80 00 f0 28 00 2d 72 01 00 e0 01 3e 13 4b 80 00 f0 25 00 ┆ ? S ( -r > K % ┆ 0x5e0…600 2d 71 d1 00 44 80 44 80 81 f1 24 00 1d 00 01 01 20 6e 79 74 20 72 6f 64 67 7b 74 00 ea 01 5d 04 ┆-q D D $ nyt rodgæt Å ┆ 0x600…620 00 00 01 00 f4 01 d1 0a 44 80 44 80 4b 80 53 80 22 00 23 00 1d 00 01 00 fe 01 80 03 01 00 08 02 ┆ D D K S " # ┆ 0x620…640 d1 08 40 80 40 80 81 f1 24 00 1d 00 01 00 12 02 84 11 00 00 4b 80 4b 00 78 f1 27 00 40 80 08 d0 ┆ @ @ $ K K x ' @ ┆ 0x640…660 02 50 00 00 00 00 00 82 2a 00 38 00 2d 0a 01 00 1c 02 3f 0a 00 00 00 00 4b 80 4b 00 78 f1 29 00 ┆ P * 8 - ? K K x ) ┆ 0x660…680 2d 72 01 00 26 02 87 1e 2e c0 2b 00 52 6f 64 65 6e 20 69 6b 6b 65 20 66 75 6e 64 65 74 2e 20 4e ┆-r & . + Roden ikke fundet. N┆ 0x680…6a0 79 74 20 67 7b 74 20 70 7d 20 72 6f 64 65 6e 3f 20 28 6a 2f 6e 29 20 00 12 3a 02 a0 05 00 01 00 ┆yt gæt på roden? (j/n) : ┆ 0x6a0…6c0 30 02 5d 04 00 00 01 00 3a 02 d1 08 44 80 44 80 02 01 57 80 1d 00 01 00 44 02 86 04 08 00 01 00 ┆0 Å : D D W D ┆ 0x6c0…6e0 4e 02 5e 15 23 80 81 f2 1d 00 1f 80 81 f1 24 00 3b 00 11 3c d1 00 23 80 02 01 15 80 23 80 02 01 ┆N ^ # $ ; < # # ┆ 0x6e0…700 15 80 02 01 57 80 1d 00 01 00 58 02 86 12 16 c0 13 00 52 6f 64 65 6e 20 66 75 6e 64 65 74 20 74 ┆ W X Roden fundet t┆ 0x700…720 69 6c 3a 20 20 00 07 3b 44 80 07 00 01 00 62 02 86 04 08 00 01 00 6c 02 86 1e 32 c0 2f 00 4b 76 ┆il: ;D b l 2 / Kv┆ 0x720…740 6f 74 69 65 6e 74 2d 70 6f 6c 79 6e 6f 6d 69 65 74 20 76 65 64 20 64 69 76 69 73 69 6f 6e 20 61 ┆otient-polynomiet ved division a┆ 0x740…760 66 20 50 28 58 29 20 6d 65 64 20 58 20 00 07 3b 01 00 76 02 3f 09 00 00 00 00 44 80 00 f0 29 00 ┆f P(X) med X ; v ? D ) ┆ 0x760…780 2d 72 01 00 80 02 86 0e 04 c0 02 00 2d 20 07 3b 44 80 07 3b 06 c0 04 00 20 65 72 3a 07 00 01 00 ┆-r - ;D ; er: ┆ 0x780…7a0 8a 02 5d 04 00 00 01 00 94 02 86 0f 04 c0 02 00 2b 20 07 3b 44 80 2b 00 07 3b 06 c0 04 00 20 65 ┆ Å + ;D + ; e┆ 0x7a0…7c0 72 3a 07 00 01 00 9e 02 80 03 01 00 a8 02 86 04 08 00 01 00 b2 02 5e 1e 23 80 81 f1 1d 00 1f 80 ┆r: ^ # ┆ 0x7c0…7e0 81 f1 23 00 3b 00 11 3c 86 00 23 80 02 01 15 80 07 3b 06 c0 03 00 58 5e 20 00 07 3b 1f 80 23 80 ┆ # ; < # ; X^ ; # ┆ 0x7e0…800 23 00 07 3b 06 c0 03 00 20 2b 20 00 07 3b 01 00 bc 02 86 07 1f 80 02 01 15 80 07 00 01 00 c6 02 ┆# ; + ; ┆ 0x800…820 86 04 08 00 01 00 d0 02 5e 11 23 80 81 f2 1d 00 1f 80 3b 00 11 3c d1 00 23 80 02 01 11 80 23 80 ┆ ^ # ; < # # ┆ 0x820…840 02 01 15 80 1d 00 01 00 da 02 d1 08 1f 80 1f 80 81 f1 23 00 1d 00 01 00 e4 02 3e 14 1f 80 81 f2 ┆ # > ┆ 0x840…860 28 00 2d 71 65 00 81 f1 02 01 11 80 81 f2 02 01 11 80 81 f3 02 01 11 80 02 03 34 80 2d 0d 01 00 ┆( -qe 4 - ┆ 0x860…880 ee 02 80 03 01 00 f8 02 a1 04 00 00 01 00 02 03 c6 0a 0a c0 07 00 63 6f 6e 73 6f 6c 65 00 2d 70 ┆ console -p┆ 0x880…8a0 01 00 0c 03 86 04 08 00 01 00 16 03 87 13 18 c0 16 00 4e 79 74 20 70 6f 6c 79 6e 6f 6d 69 75 6d ┆ Nyt polynomium┆ 0x8a0…8c0 3f 20 28 6a 2f 6e 29 20 12 3a 02 a0 05 00 01 00 20 03 84 0a 00 00 02 a0 04 c0 01 00 6e 00 19 00 ┆? (j/n) : n ┆ 0x8c0…8e0 2d 0a 01 00 2a 03 6a 03 01 00 34 03 d3 03 01 01 3e 03 63 0d 00 00 00 03 34 80 11 80 00 00 15 80 ┆- * j 4 > c 4 ┆ 0x8e0…900 00 00 53 80 00 00 2d 00 01 00 48 03 86 04 08 00 01 00 52 03 86 17 24 c0 22 00 44 65 74 74 65 20 ┆ S - H R $ " Dette ┆ 0x900…920 65 72 20 65 74 20 61 6e 64 65 6e 67 72 61 64 73 2d 70 6f 6c 79 6e 6f 6d 69 75 6d 2e 07 00 01 00 ┆er et andengrads-polynomium. ┆ 0x920…940 5c 03 86 04 08 00 01 00 66 03 d1 0e 60 80 15 80 81 f2 20 00 81 f4 11 80 21 00 53 80 21 00 23 00 ┆Ø f ` ! S ! # ┆ 0x940…960 1d 00 01 00 70 03 3f 09 00 00 00 00 60 80 00 f0 27 00 2d 72 01 00 7a 03 86 13 1c c0 1a 00 44 3c ┆ p ? ` ' -r z D<┆ 0x960…980 30 2e 20 20 49 6e 67 65 6e 20 72 65 65 6c 6c 65 20 72 7c 64 64 65 72 2e 07 00 01 00 84 03 5d 04 ┆0. Ingen reelle rødder. Å ┆ 0x980…9a0 00 00 01 00 8e 03 3f 09 00 00 00 00 60 80 00 f0 28 00 2d 72 01 00 98 03 86 18 12 c0 10 00 44 3d ┆ ? ` ( -r D=┆ 0x9a0…9c0 30 2e 20 20 52 6f 64 65 6e 20 65 72 3a 20 07 3b 15 80 2b 00 81 f2 11 80 21 00 14 00 22 00 02 01 ┆0. Roden er: ; + ! " ┆ 0x9c0…9e0 57 80 07 00 01 00 a2 03 5d 04 00 00 01 00 ac 03 d1 12 64 80 15 80 2b 00 60 80 50 00 23 00 14 00 ┆W Å d + ` P # ┆ 0x9e0…a00 81 f2 11 80 21 00 14 00 22 00 02 01 57 80 1d 00 01 00 b6 03 d1 12 6b 80 15 80 2b 00 60 80 50 00 ┆ ! " W k + ` P ┆ 0xa00…a20 24 00 14 00 81 f2 11 80 21 00 14 00 22 00 02 01 57 80 1d 00 01 00 c0 03 86 1b 16 c0 13 00 44 3e ┆$ ! " W D>┆ 0xa20…a40 30 2e 20 20 52 7c 64 64 65 72 6e 65 20 65 72 3a 20 00 07 3b 64 80 07 3b 0a c0 07 00 20 20 20 6f ┆0. Rødderne er: ;d ; o┆ 0xa40…a60 67 20 20 00 07 3b 6b 80 07 00 01 00 ca 03 80 03 01 00 d4 03 80 03 01 00 de 03 86 04 08 00 01 00 ┆g ;k ┆ 0xa60…a80 e8 03 a3 04 34 80 01 00 f2 03 d3 18 01 01 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 4 *****************┆ 0xa80…aa0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a fc 03 63 0b 00 00 00 02 ┆************************ c ┆ 0xaa0…ac0 27 80 11 80 00 00 15 80 00 00 2d 00 01 00 06 04 86 04 08 00 01 00 10 04 86 18 26 c0 23 00 44 65 ┆' - & # De┆ 0xac0…ae0 74 74 65 20 65 72 20 65 74 20 66 7c 72 73 74 65 67 72 61 64 73 2d 70 6f 6c 79 6e 6f 6d 69 75 6d ┆tte er et førstegrads-polynomium┆ 0xae0…b00 2e 00 07 00 01 00 1a 04 3f 09 00 00 00 00 11 80 00 f0 28 00 2d 72 01 00 24 04 86 16 1e c0 1c 00 ┆. ? ( -r $ ┆ 0xb00…b20 50 6f 6c 79 6e 6f 6d 69 65 74 20 65 72 20 65 6e 20 6b 6f 6e 73 74 61 6e 74 3a 20 20 07 3b 15 80 ┆Polynomiet er en konstant: ; ┆ 0xb20…b40 07 00 01 00 2e 04 5d 04 00 00 01 00 38 04 86 12 0c c0 0a 00 52 6f 64 65 6e 20 65 72 20 20 07 3b ┆ . Å 8 Roden er ;┆ 0xb40…b60 15 80 2b 00 11 80 22 00 02 01 57 80 07 00 01 00 42 04 80 03 01 00 4c 04 86 04 08 00 01 00 56 04 ┆ + " W B L V ┆ 0xb60…b80 a3 04 27 80 01 00 60 04 d3 18 01 01 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ' ` *******************┆ 0xb80…ba0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 6a 04 78 09 00 00 00 01 57 80 ┆**********************j x W ┆ 0xba0…bc0 72 80 00 00 2d 00 01 00 74 04 99 0c 72 80 19 80 21 00 80 f5 24 00 4c 00 19 80 22 00 2d 0e 01 00 ┆r - t r ! $ L " - ┆ 0xbc0…be0 7e 04 aa 04 57 80 01 00 88 04 6b 03 01 00 10 27 d6 00 00 00 05 53 56 41 52 00 00 06 53 56 41 52 ┆ü W k ' SVAR SVAR┆ 0xbe0…c00 31 00 00 02 41 00 00 02 42 00 00 04 44 45 43 00 00 02 4e 00 00 02 49 00 00 0b 46 5c 52 53 54 45 ┆1 A B DEC N I FØRSTE┆ 0xc00…c20 47 52 41 44 00 00 0a 41 4e 44 45 4e 47 52 41 44 00 00 02 4d 00 00 05 41 4c 46 41 00 00 06 50 41 ┆GRAD ANDENGRAD M ALFA PA┆ 0xc20…c40 4c 46 41 00 00 02 43 00 00 07 41 46 52 55 4e 44 00 00 02 44 00 00 05 52 4f 44 31 00 00 05 52 4f ┆LFA C AFRUND D ROD1 RO┆ 0xc40…c60 44 32 00 00 04 54 41 4c 00 00 00 00 1a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆D2 TAL ┆ 0xc60…c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆