|
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: 1920 (0x780)
Names: »CARDANO«
└─⟦f94993941⟧ Bits:30003267 COMAL 80 opgaver - Piccolo - CP/M
└─ ⟦this⟧ »CARDANO«
0x000…020 02 83 71 c7 23 36 f9 07 84 07 31 2f 53 41 56 45 2e 24 24 24 20 20 20 20 20 20 0a 00 d3 1c 01 01 ┆ q #6 1/SAVE.$$$ ┆ 0x020…040 20 54 6f 6d 6d 79 20 42 6f 72 63 68 20 2e 20 20 4d 61 72 74 73 20 31 39 38 33 20 20 2e 20 20 43 ┆ Tommy Borch . Marts 1983 . C┆ 0x040…060 41 52 44 41 4e 4f 27 73 20 66 6f 72 6d 6c 65 72 2e 00 0f 00 d3 20 01 01 20 4c 69 74 74 65 72 61 ┆ARDANO's formler. Littera┆ 0x060…080 74 75 72 3a 20 4a 65 6e 73 20 43 61 72 73 74 65 6e 73 65 6e 3a 20 4e 55 4d 45 52 49 53 4b 45 20 ┆tur: Jens Carstensen: NUMERISKE ┆ 0x080…0a0 4d 45 54 4f 44 45 52 20 20 28 53 59 53 54 49 4d 45 29 14 00 67 07 81 f1 04 00 02 a0 2d 00 01 00 ┆METODER (SYSTIME) g - ┆ 0x0a0…0c0 1e 00 86 27 08 d0 01 20 00 00 00 00 00 82 55 00 36 c0 34 00 43 61 72 64 61 6e 6f 73 20 66 6f 72 ┆ ' U 6 4 Cardanos for┆ 0x0c0…0e0 6d 6c 65 72 20 74 69 6c 20 6c 7c 73 6e 69 6e 67 20 61 66 20 74 72 65 64 6a 65 67 72 61 64 73 6c ┆mler til løsning af tredjegradsl┆ 0x0e0…100 69 67 6e 69 6e 67 65 6e 15 00 07 00 01 00 28 00 86 0f 14 c0 12 00 61 78 5e 33 2b 62 78 5e 32 2b ┆igningen ( ax^3+bx^2+┆ 0x100…120 63 78 2b 64 20 3d 20 30 07 00 01 00 32 00 d1 09 09 80 81 f4 81 f1 54 00 21 00 1d 00 01 00 3c 00 ┆cx+d = 0 2 T ! < ┆ 0x120…140 83 04 00 00 01 00 46 00 87 17 14 c0 12 00 49 6e 64 74 61 73 74 20 61 2c 62 2c 63 2c 64 20 3a 20 ┆ F Indtast a,b,c,d : ┆ 0x140…160 12 3a 0e 80 05 2c 12 80 05 2c 16 80 05 2c 1a 80 05 00 01 00 50 00 86 1f 06 c0 04 00 61 20 3d 20 ┆ : , , , P a = ┆ 0x160…180 07 3b 0e 80 07 3b 06 c0 04 00 62 20 3d 20 07 3b 12 80 07 3b 06 c0 04 00 63 20 3d 20 07 3b 16 80 ┆ ; ; b = ; ; c = ; ┆ 0x180…1a0 07 3b 06 c0 04 00 64 20 3d 20 07 3b 1a 80 07 00 01 00 5a 00 3e 08 0e 80 00 f0 28 00 2d 71 6a 00 ┆ ; d = ; Z > ( -qj ┆ 0x1a0…1c0 01 00 64 00 d1 12 1e 80 12 80 0e 80 22 00 1d 1b 23 80 16 80 0e 80 22 00 1d 1b 28 80 1a 80 0e 80 ┆ d " # " ( ┆ 0x1c0…1e0 22 00 1d 00 01 00 6e 00 d1 26 2d 80 1e 80 1e 80 21 00 14 00 2b 00 81 f3 22 00 23 80 24 00 1d 1b ┆" n &- ! + " # $ ┆ 0x1e0…200 31 80 81 f2 1e 80 21 00 1e 80 21 00 1e 80 21 00 08 d0 02 70 00 00 00 00 00 82 22 00 23 80 1e 80 ┆1 ! ! ! p " # ┆ 0x200…220 21 00 14 00 81 f3 22 00 23 00 28 80 24 00 1d 00 01 00 78 00 d1 09 35 80 1e 80 2b 00 81 f3 22 00 ┆! " # ( $ x 5 + " ┆ 0x220…240 1d 00 01 00 82 00 d1 18 39 80 31 80 31 80 21 00 14 00 81 f4 22 00 2d 80 2d 80 21 00 2d 80 21 00 ┆ 9 1 1 ! " - - ! - ! ┆ 0x240…260 14 00 08 d0 02 70 00 00 00 00 00 82 22 00 24 00 1d 00 01 00 8c 00 d1 0d 39 80 39 80 8b f1 21 00 ┆ p " $ 9 9 ! ┆ 0x260…280 80 f5 24 00 4c 00 8b f1 22 00 1d 00 01 00 96 00 3f 09 00 00 00 00 39 80 00 f0 2a 00 2d 72 01 00 ┆ $ L " ? 9 * -r ┆ 0x280…2a0 a0 00 d1 15 41 80 31 80 2b 00 81 f2 22 00 39 80 50 00 24 00 1d 1b 45 80 31 80 2b 00 81 f2 22 00 ┆ A 1 + " 9 P $ E 1 + " ┆ 0x2a0…2c0 39 80 50 00 23 00 1d 00 01 00 aa 00 3f 0b 00 00 00 00 41 80 45 80 21 00 00 f0 25 00 2d 72 01 00 ┆9 P # ? A E ! % -r ┆ 0x2c0…2e0 b4 00 d1 1c 49 80 41 80 4d 00 41 80 4b 00 81 f1 81 f3 22 00 14 00 20 00 14 00 21 00 45 80 4d 00 ┆ I A M A K " ! E M ┆ 0x2e0…300 45 80 4b 00 81 f1 81 f3 22 00 14 00 20 00 14 00 21 00 24 00 1d 00 01 00 be 00 5d 04 00 00 01 00 ┆E K " ! $ Å ┆ 0x300…320 c8 00 3f 0d 00 00 00 00 41 80 00 f0 28 00 45 80 00 f0 25 00 49 00 2d 72 01 00 d2 00 d1 10 49 80 ┆ ? A ( E % I -r I ┆ 0x320…340 45 80 4d 00 45 80 4b 00 81 f1 81 f3 22 00 14 00 20 00 14 00 21 00 1d 00 01 00 dc 00 5d 04 00 00 ┆E M E K " ! Å ┆ 0x340…360 01 00 e6 00 3f 0d 00 00 00 00 41 80 00 f0 25 00 45 80 00 f0 28 00 49 00 2d 72 01 00 f0 00 d1 10 ┆ ? A % E ( I -r ┆ 0x360…380 49 80 41 80 4d 00 41 80 4b 00 81 f1 81 f3 22 00 14 00 20 00 14 00 21 00 1d 00 01 00 fa 00 5d 04 ┆I A M A K " ! Å ┆ 0x380…3a0 00 00 01 00 04 01 d1 06 49 80 00 f0 1d 00 01 00 0e 01 80 03 01 00 18 01 80 03 01 00 22 01 80 03 ┆ I " ┆ 0x3a0…3c0 01 00 2c 01 86 1a 1e c0 1c 00 4c 69 67 6e 69 6e 67 65 6e 20 68 61 72 20 65 65 6e 20 72 6f 64 3a ┆ , Ligningen har een rod:┆ 0x3c0…3e0 20 20 78 20 3d 20 07 3b 49 80 35 80 24 00 02 01 4d 80 07 00 01 00 36 01 5d 04 00 00 01 00 40 01 ┆ x = ;I 5 $ M 6 Å @ ┆ 0x3e0…400 3f 09 00 00 00 00 39 80 00 f0 28 00 2d 72 01 00 4a 01 3f 09 00 00 00 00 31 80 00 f0 28 00 2d 72 ┆? 9 ( -r J ? 1 ( -r┆ 0x400…420 01 00 54 01 86 11 10 c0 0d 00 52 6f 64 65 6e 20 65 72 20 78 20 3d 20 00 07 3b 35 80 02 01 4d 80 ┆ T Roden er x = ;5 M ┆ 0x420…440 07 00 01 00 5e 01 5d 04 00 00 01 00 68 01 d1 0e 41 80 31 80 2b 00 81 f2 22 00 1d 1b 45 80 31 80 ┆ ^ Å h A 1 + " E 1 ┆ 0x440…460 81 f2 22 00 1d 00 01 00 72 01 d1 1f 53 80 81 f2 41 80 4d 00 21 00 41 80 4b 00 81 f1 81 f3 22 00 ┆ " r S A M ! A K " ┆ 0x460…480 14 00 20 00 14 00 21 00 1d 1b 58 80 45 80 4d 00 45 80 4b 00 81 f1 81 f3 22 00 14 00 20 00 14 00 ┆ ! X E M E K " ┆ 0x480…4a0 21 00 1d 00 01 00 7c 01 86 1b 20 c0 1e 00 4c 69 67 6e 69 6e 67 65 6e 20 68 61 72 20 74 6f 20 72 ┆! ø Ligningen har to r┆ 0x4a0…4c0 7c 64 64 65 72 3a 20 78 31 20 3d 20 07 3b 53 80 35 80 24 00 02 01 4d 80 07 3b 01 00 86 01 86 11 ┆ødder: x1 = ;S 5 $ M ; ┆ 0x4c0…4e0 0c c0 09 00 20 6f 67 20 78 32 20 3d 20 00 07 3b 58 80 35 80 24 00 02 01 4d 80 07 00 01 00 90 01 ┆ og x2 = ;X 5 $ M ┆ 0x4e0…500 80 03 01 00 9a 01 5d 04 00 00 01 00 a4 01 3f 09 00 00 00 00 31 80 00 f0 28 00 2d 72 01 00 ae 01 ┆ Å ? 1 ( -r ┆ 0x500…520 d1 08 5d 80 09 80 81 f2 22 00 1d 00 01 00 b8 01 5d 04 00 00 01 00 c2 01 d1 0f 5d 80 39 80 2b 00 ┆ Å " Å Å 9 + ┆ 0x520…540 50 00 31 80 2b 00 81 f2 22 00 14 00 22 00 54 00 1d 00 01 00 cc 01 80 03 01 00 d6 01 3e 0d 5d 80 ┆P 1 + " " T > Å ┆ 0x540…560 00 f0 27 00 2d 71 d1 00 5d 80 5d 80 09 80 24 00 1d 00 01 00 e0 01 d1 0a 61 80 2d 80 2b 00 81 f3 ┆ ' -q Å Å $ a - + ┆ 0x560…580 22 00 50 00 1d 00 01 00 ea 01 d1 0d 53 80 81 f2 61 80 21 00 5d 80 81 f3 22 00 52 00 21 00 1d 00 ┆" P S a ! Å " R ! ┆ 0x580…5a0 01 00 f4 01 d1 13 58 80 81 f2 61 80 21 00 5d 80 81 f3 22 00 81 f2 09 80 21 00 81 f3 22 00 24 00 ┆ X a ! Å " ! " $ ┆ 0x5a0…5c0 52 00 21 00 1d 00 01 00 fe 01 d1 13 6a 80 81 f2 61 80 21 00 5d 80 81 f3 22 00 81 f4 09 80 21 00 ┆R ! j a ! Å " ! ┆ 0x5c0…5e0 81 f3 22 00 24 00 52 00 21 00 1d 00 01 00 08 02 86 13 1c c0 1a 00 4c 69 67 6e 69 6e 67 65 6e 20 ┆ " $ R ! Ligningen ┆ 0x5e0…600 68 61 72 20 74 72 65 20 72 7c 64 64 65 72 3a 20 07 00 01 00 12 02 86 27 08 c0 05 00 78 31 20 3d ┆har tre rødder: ' x1 =┆ 0x600…620 20 00 07 3b 53 80 35 80 24 00 02 01 4d 80 07 3b 08 c0 06 00 20 78 32 20 3d 20 07 3b 58 80 35 80 ┆ ;S 5 $ M ; x2 = ;X 5 ┆ 0x620…640 24 00 02 01 4d 80 07 3b 08 c0 06 00 20 78 33 20 3d 20 07 3b 6a 80 35 80 24 00 02 01 4d 80 07 00 ┆$ M ; x3 = ;j 5 $ M ┆ 0x640…660 01 00 1c 02 80 03 01 00 26 02 80 03 01 00 30 02 86 04 08 00 01 00 3a 02 87 17 20 c0 1e 00 48 61 ┆ & 0 : Ha┆ 0x660…680 72 20 64 75 20 66 6c 65 72 65 20 6c 69 67 6e 69 6e 67 65 72 3f 20 28 6a 2f 6e 29 20 12 3a 02 a0 ┆r du flere ligninger? (j/n) : ┆ 0x680…6a0 05 00 01 00 44 02 84 0a 00 00 02 a0 04 c0 01 00 6a 00 16 00 2d 0a 01 00 4e 02 d3 03 01 01 58 02 ┆ D j - N X ┆ 0x6a0…6c0 78 0f 00 00 00 01 4d 80 6f 80 00 00 2d 00 01 01 20 61 66 72 75 6e 64 65 72 20 78 00 62 02 99 0c ┆x M o - afrunder x b ┆ 0x6c0…6e0 6f 80 85 f1 21 00 80 f5 24 00 4c 00 85 f1 22 00 2d 0e 01 00 6c 02 aa 04 4d 80 01 00 76 02 6b 03 ┆o ! $ L " - l M v k ┆ 0x6e0…700 01 00 10 27 d6 00 00 00 05 53 56 41 52 00 00 03 50 49 00 00 02 41 00 00 02 42 00 00 02 43 00 00 ┆ ' SVAR PI A B C ┆ 0x700…720 02 44 00 00 03 42 31 00 00 03 43 31 00 00 03 44 31 00 00 02 50 00 00 02 51 00 00 02 4e 00 00 06 ┆ D B1 C1 D1 P Q N ┆ 0x720…740 44 49 53 4b 52 00 00 02 49 00 00 02 4a 00 00 02 5a 00 00 04 41 46 52 00 00 03 5a 31 00 00 03 5a ┆DISKR I J Z AFR Z1 Z┆ 0x740…760 32 00 00 02 56 00 00 07 46 41 4b 54 4f 52 00 00 03 5a 33 00 00 02 58 00 00 00 00 1a 00 00 00 00 ┆2 V FAKTOR Z3 X ┆ 0x760…780 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 ┆ ┆