|
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: 7808 (0x1e80)
Names: »FUNKTION«
└─⟦f94993941⟧ Bits:30003267 COMAL 80 opgaver - Piccolo - CP/M
└─ ⟦this⟧ »FUNKTION«
0x0000…0020 02 83 71 c7 23 36 fb 1e c6 1d 31 2f 66 75 6e 6b 74 69 6f 6e 20 20 20 20 20 20 0a 00 d3 1b 01 01 ┆ q #6 1/funktion ┆
0x0020…0040 20 63 61 72 6c 20 68 65 6d 6d 69 6e 67 73 65 6e 2c 20 6f 6b 74 2e 20 31 39 38 32 2c 20 63 6f 6d ┆ carl hemmingsen, okt. 1982, com┆
0x0040…0060 61 6c 20 38 30 20 74 69 6c 20 52 43 37 30 30 00 0f 00 89 05 82 f8 2d 00 01 00 14 00 78 09 d6 70 ┆al 80 til RC700 - x p┆
0x0060…0080 00 01 02 80 06 80 00 00 2d 00 01 00 1e 00 99 0a 80 f5 06 80 21 00 06 80 51 00 21 00 2d 0e 01 00 ┆ - ! Q ! - ┆
0x0080…00a0 28 00 99 05 7a 00 2d 0e 01 00 32 00 aa 04 02 80 01 00 3c 00 d3 27 01 01 2d 2d 2d 2d 2d 2d 2d 2d ┆( z - 2 < ' --------┆
0x00a0…00c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x00e0…0100 46 00 63 07 7c 71 7d 00 0a 80 2d 7d 01 00 50 00 3f 15 d7 8d 74 71 7a 00 08 d0 01 01 00 00 00 00 ┆F c øqå -å P ? tqz ┆
0x0100…0120 00 83 2a 00 7a 00 08 d0 01 07 00 00 00 00 00 83 27 00 49 00 2d 72 01 00 5a 00 d1 06 11 80 01 e0 ┆ * z ' I -r Z ┆
0x0120…0140 1d 00 01 00 64 00 a7 03 01 00 6e 00 80 03 01 00 78 00 a3 04 0a 80 01 00 82 00 d3 27 01 01 2d 2d ┆ d n x ' --┆
0x0140…0160 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x0180…01a0 2d 2d 2d 2d 2d 2d 8c 00 78 0b 82 72 00 02 18 80 06 80 00 00 1e 80 00 00 2d 00 01 00 96 00 3e 11 ┆------ x r - > ┆
0x01a0…01c0 06 80 4b 00 80 f5 82 f1 1e 80 2b 00 14 00 20 00 21 00 27 00 2d 71 99 00 00 f0 2d 0e 01 00 a0 00 ┆ K + ! ' -q - ┆
0x01c0…01e0 d1 15 22 80 81 f1 06 80 4b 00 4e 00 82 f1 4e 00 22 00 4c 00 24 00 1d 1b 06 80 06 80 82 f1 22 80 ┆ " K N N " L $ " ┆
0x01e0…0200 20 00 22 00 1d 00 01 00 aa 00 d1 18 06 80 06 80 80 f5 82 f1 1e 80 2b 00 14 00 20 00 21 00 24 00 ┆ " + ! $ ┆
0x0200…0220 14 00 82 f1 1e 80 20 00 21 00 4c 00 82 f1 1e 80 20 00 22 00 1d 00 01 00 b4 00 d1 0a 06 80 06 80 ┆ ! L " ┆
0x0220…0240 82 f1 22 80 20 00 21 00 1d 00 01 00 be 00 99 05 06 80 2d 0e 01 00 c8 00 aa 04 18 80 01 00 d2 00 ┆ " ! - ┆
0x0240…0260 d3 27 01 01 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ' ----------------------------┆
0x0260…0280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0280…02a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d dc 00 65 05 26 80 2d 0d 01 00 e6 00 6b 03 01 00 f0 00 d3 27 ┆------------ e & - k '┆
0x02a0…02c0 01 01 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ------------------------------┆
0x02c0…02e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x02e0…0300 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d fa 00 63 07 fe 78 00 00 26 80 2d 00 01 00 04 01 67 0f 81 f1 04 00 ┆---------- c x & - g ┆
0x0300…0320 35 a0 2d 2c 82 f4 04 00 3c a0 2d 2c 81 f7 04 00 43 a0 2d 00 01 00 0e 01 c6 0a 0a c0 07 00 63 6f ┆5 -, < -, C - co┆
0x0320…0340 6e 73 6f 6c 65 00 2d 70 01 00 0f 01 86 0a 08 d0 01 20 00 00 00 00 00 82 55 00 07 00 01 00 10 01 ┆nsole -p U ┆
0x0340…0360 86 21 38 c0 35 00 46 75 6e 6b 74 69 6f 6e 73 66 6f 72 73 6b 72 69 66 74 65 6e 20 73 74 7d 72 20 ┆ !8 5 Funktionsforskriften står ┆
0x0360…0380 69 20 6c 69 6e 69 65 20 33 30 2c 20 64 75 20 6b 61 6e 20 73 65 20 64 65 6e 6e 65 00 07 00 01 00 ┆i linie 30, du kan se denne ┆
0x0380…03a0 11 01 86 15 20 c0 1d 00 76 2e 68 2e 61 2e 20 45 53 43 20 6f 67 20 4c 49 53 54 20 33 30 20 20 52 ┆ v.h.a. ESC og LIST 30 R┆
0x03a0…03c0 45 54 55 52 4e 00 07 00 01 00 12 01 86 21 38 c0 36 00 64 75 20 6b 61 6e 20 7b 6e 64 72 65 20 66 ┆ETURN !8 6 du kan ændre f┆
0x03c0…03e0 6f 72 73 6b 72 69 66 74 65 6e 20 76 2e 68 2e 61 2e 20 45 53 43 20 6f 67 20 45 44 49 54 20 33 30 ┆orskriften v.h.a. ESC og EDIT 30┆
0x03e0…0400 20 20 52 45 54 55 52 4e 07 00 01 00 13 01 86 04 08 00 01 00 18 01 87 1c 2a c0 27 00 73 6b 72 69 ┆ RETURN * ' skri┆
0x0400…0420 76 20 66 75 6e 6b 74 69 6f 6e 73 66 6f 72 73 6b 72 69 66 74 65 6e 20 69 67 65 6e 20 66 28 78 29 ┆v funktionsforskriften igen f(x)┆
0x0420…0440 20 3d 20 00 12 3a 3c a0 05 00 01 00 22 01 d1 10 3c a0 10 c0 0e 00 20 20 66 6f 72 20 20 66 28 78 ┆ = :< " < for f(x┆
0x0440…0460 29 20 3d 20 3c a0 15 00 1e 00 01 00 2c 01 86 0a 08 d0 01 20 00 00 00 00 00 82 55 00 07 00 01 00 ┆) = < , U ┆
0x0460…0480 36 01 83 04 d7 8d 01 00 40 01 c6 0a 0a c0 07 00 63 6f 6e 73 6f 6c 65 00 2d 70 01 00 4a 01 86 1b ┆6 @ console -p J ┆
0x0480…04a0 82 f1 81 f3 3a 02 07 3b 24 c0 22 00 20 50 52 4f 47 52 41 4d 20 74 69 6c 20 46 55 4e 4b 54 49 4f ┆ : ;$ " PROGRAM til FUNKTIO┆
0x04a0…04c0 4e 53 55 4e 44 45 52 53 5c 47 45 4c 53 45 07 00 01 00 54 01 86 1b 82 f1 81 f5 3a 02 07 3b 24 c0 ┆NSUNDERSØGELSE T : ;$ ┆
0x04c0…04e0 22 00 31 3a 20 54 41 42 45 4c 20 6f 76 65 72 20 66 75 6e 6b 74 69 6f 6e 65 6e 20 20 69 20 20 28 ┆" 1: TABEL over funktionen i (┆
0x04e0…0500 61 2c 62 29 07 3b 01 00 5e 01 86 1d 08 d0 04 40 00 00 00 00 00 82 81 f5 3a 02 07 3b 20 c0 1d 00 ┆a,b) ; ^ @ : ; ┆
0x0500…0520 20 20 20 42 45 47 59 4e 44 20 4d 45 44 20 44 45 4e 4e 45 20 50 52 4f 43 45 44 55 52 45 00 07 00 ┆ BEGYND MED DENNE PROCEDURE ┆
0x0520…0540 01 00 68 01 86 1b 82 f1 81 f7 3a 02 07 3b 24 c0 22 00 32 3a 20 52 4f 44 20 76 65 64 20 62 69 73 ┆ h : ;$ " 2: ROD ved bis┆
0x0540…0560 65 6b 74 69 6f 6e 20 20 20 20 20 20 69 20 20 28 61 2c 62 29 07 00 01 00 72 01 86 17 08 d0 04 40 ┆ektion i (a,b) r @┆
0x0560…0580 00 00 00 00 00 82 81 f7 3a 02 07 3b 14 c0 11 00 20 20 20 66 28 61 29 2a 66 28 62 29 20 3c 20 30 ┆ : ; f(a)*f(b) < 0┆
0x0580…05a0 20 00 07 00 01 00 7c 01 86 1b 82 f1 81 f9 3a 02 07 3b 24 c0 22 00 33 3a 20 52 4f 44 20 76 65 64 ┆ ø : ;$ " 3: ROD ved┆
0x05a0…05c0 20 73 65 6b 61 6e 74 6d 65 74 6f 64 65 6e 20 20 69 20 20 28 61 2c 62 29 07 00 01 00 86 01 86 1f ┆ sekantmetoden i (a,b) ┆
0x05c0…05e0 82 f1 08 d0 01 10 00 00 00 00 00 82 3a 02 07 3b 24 c0 22 00 34 3a 20 4d 49 4e 49 4d 55 4d 20 20 ┆ : ;$ " 4: MINIMUM ┆
0x05e0…0600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 20 20 28 61 2c 62 29 07 00 01 00 90 01 86 1f 82 f1 ┆ i (a,b) ┆
0x0600…0620 08 d0 01 30 00 00 00 00 00 82 3a 02 07 3b 24 c0 22 00 35 3a 20 4d 41 58 49 4d 55 4d 20 20 20 20 ┆ 0 : ;$ " 5: MAXIMUM ┆
0x0620…0640 20 20 20 20 20 20 20 20 20 20 20 20 69 20 20 28 61 2c 62 29 07 00 01 00 9a 01 86 1f 82 f1 08 d0 ┆ i (a,b) ┆
0x0640…0660 01 50 00 00 00 00 00 82 3a 02 07 3b 24 c0 22 00 36 3a 20 4d 41 58 2e 2c 4d 49 4e 20 6f 67 20 52 ┆ P : ;$ " 6: MAX.,MIN og R┆
0x0660…0680 4f 44 20 20 20 20 20 20 20 20 69 20 20 28 61 2c 62 29 07 00 01 00 a4 01 86 1f 82 f1 08 d0 01 70 ┆OD i (a,b) p┆
0x0680…06a0 00 00 00 00 00 82 3a 02 07 3b 24 c0 22 00 37 3a 20 49 4e 54 45 47 52 41 4c 20 20 20 20 20 20 20 ┆ : ;$ " 7: INTEGRAL ┆
0x06a0…06c0 20 20 20 20 20 20 20 20 69 20 20 28 61 2c 62 29 07 00 01 00 ae 01 86 18 82 f1 08 d0 01 90 00 00 ┆ i (a,b) ┆
0x06c0…06e0 00 00 00 82 3a 02 07 3b 16 c0 14 00 38 3a 20 7c 6e 73 6b 65 72 20 61 74 20 73 74 6f 70 70 65 20 ┆ : ; 8: ønsker at stoppe ┆
0x06e0…0700 07 00 01 00 b8 01 d3 03 01 01 c2 01 87 22 82 f1 08 d0 02 20 00 00 00 00 00 82 3a 02 2d 2c 26 c0 ┆ " : -,& ┆
0x0700…0720 24 00 4e 75 6d 6d 65 72 65 74 20 70 7d 20 64 65 6e 20 7c 6e 73 6b 65 64 65 20 70 72 6f 63 65 64 ┆$ Nummeret på den ønskede proced┆
0x0720…0740 75 72 65 20 3a 20 12 3a 4e 80 05 00 01 00 cc 01 3e 08 4e 80 81 f8 29 00 2d 71 99 00 01 00 d6 01 ┆ure : :N > N ) -q ┆
0x0740…0760 87 1b 82 f1 08 d0 02 30 00 00 00 00 00 82 3a 02 2d 2c 14 c0 12 00 47 72 7b 6e 73 65 72 6e 65 20 ┆ 0 : -, Grænserne ┆
0x0760…0780 61 20 2c 20 62 20 3a 20 12 3a 53 80 05 2c 57 80 05 00 01 00 e0 01 87 27 82 f1 08 d0 02 40 00 00 ┆a , b : :S ,W ' @ ┆
0x0780…07a0 00 00 00 82 3a 02 2d 2c 30 c0 2d 00 5c 6e 73 6b 65 73 20 75 64 73 6b 72 69 66 74 20 70 7d 20 70 ┆ : -,0 - Ønskes udskrift på p┆
0x07a0…07c0 72 69 6e 74 65 72 20 65 6c 6c 65 72 20 73 6b 7b 72 6d 20 28 70 2f 73 29 20 00 12 3a 35 a0 05 00 ┆rinter eller skærm (p/s) :5 ┆
0x07c0…07e0 01 00 ea 01 3f 0b dc 73 70 77 35 a0 04 c0 02 00 70 50 39 00 2d 72 01 00 f4 01 d1 0b 43 a0 0a c0 ┆ ? spw5 pP9 -r C ┆
0x07e0…0800 07 00 70 72 69 6e 74 65 72 00 1e 00 01 00 fe 01 5d 04 8c 77 01 00 08 02 d1 0b 43 a0 0a c0 07 00 ┆ printer Å w C ┆
0x0800…0820 63 6f 6e 73 6f 6c 65 00 1e 00 01 00 12 02 80 03 01 00 1c 02 c6 05 43 a0 2d 70 01 00 26 02 d3 03 ┆console C -p & ┆
0x0820…0840 01 01 30 02 61 07 dc 73 aa 77 4e 80 2d 40 01 00 3a 02 62 06 c6 77 81 f1 2d 0b 01 00 44 02 65 08 ┆ 0 a s wN -@ : b w - D e ┆
0x0840…0860 53 80 57 80 02 02 5b 80 2d 0d 01 00 4e 02 62 06 e2 77 81 f2 2d 0b 01 00 58 02 65 08 53 80 57 80 ┆S W Æ - N b w - X e S W ┆
0x0860…0880 02 02 63 80 2d 0d 01 00 62 02 62 06 fe 77 81 f3 2d 0b 01 00 6c 02 65 08 53 80 57 80 02 02 6a 80 ┆ c - b b w - l e S W j ┆
0x0880…08a0 2d 0d 01 00 76 02 62 06 1a 78 81 f4 2d 0b 01 00 80 02 65 08 53 80 57 80 02 02 71 80 2d 0d 01 00 ┆- v b x - e S W q - ┆
0x08a0…08c0 8a 02 62 06 36 78 81 f5 2d 0b 01 00 94 02 65 08 53 80 57 80 02 02 7b 80 2d 0d 01 00 9e 02 62 06 ┆ b 6x - e S W æ - b ┆
0x08c0…08e0 52 78 81 f6 2d 0b 01 00 a8 02 65 08 53 80 57 80 02 02 85 80 2d 0d 01 00 b2 02 62 06 6e 78 81 f7 ┆Rx - e S W - b nx ┆
0x08e0…0900 2d 0b 01 00 bc 02 65 08 53 80 57 80 02 02 91 80 2d 0d 01 00 c6 02 a2 03 01 00 d0 02 d3 03 01 01 ┆- e S W - ┆
0x0900…0920 da 02 c6 0a 0a c0 07 00 63 6f 6e 73 6f 6c 65 00 2d 70 01 00 e4 02 86 0e 82 f7 5a 00 07 3b 0c c0 ┆ console -p Z ; ┆
0x0920…0940 09 00 74 61 73 74 20 63 6f 6e 20 00 07 00 01 00 ee 02 c6 05 43 a0 2d 70 01 00 f8 02 6a 03 01 00 ┆ tast con C -p j ┆
0x0940…0960 02 03 86 0a 08 d0 01 20 00 00 00 00 00 82 55 00 07 00 01 00 0c 03 84 14 e2 73 00 e0 2d 0a 01 01 ┆ U s - ┆
0x0960…0980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 65 6e 64 65 6c 69 67 20 6c 7c 6b 6b 65 16 03 a3 04 ┆ uendelig løkke ┆
0x0980…09a0 26 80 01 00 20 03 d3 27 01 01 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆& ' ----------------------┆
0x09a0…09c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x09c0…09e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 03 63 0b 94 7b 00 02 5b 80 53 80 00 00 ┆------------------* c æ Æ S ┆
0x09e0…0a00 57 80 00 00 2d 00 01 00 34 03 96 04 0a 80 01 00 3e 03 86 0a 08 d0 01 20 00 00 00 00 00 82 55 00 ┆W - 4 > U ┆
0x0a00…0a20 07 00 01 00 48 03 86 18 0a c0 08 00 20 20 54 41 42 45 4c 28 07 3b 53 80 07 3b 04 c0 01 00 2c 00 ┆ H TABEL( ;S ; , ┆
0x0a20…0a40 07 3b 57 80 07 3b 04 c0 01 00 29 00 07 3b 3c a0 07 00 01 00 52 03 d1 11 9c 80 57 80 53 80 23 00 ┆ ;W ; ) ;< R W S # ┆
0x0a40…0a60 14 00 82 f5 22 00 1d 1b a0 80 00 f0 1d 1b 11 80 00 e0 1d 00 01 00 5c 03 86 04 08 00 01 00 66 03 ┆ " Ø f ┆
0x0a60…0a80 86 0e 08 d0 01 80 00 00 00 00 00 82 5a 00 07 3b 04 c0 01 00 49 00 07 3b 01 00 70 03 5e 1a a4 80 ┆ Z ; I ; p ^ ┆
0x0a80…0aa0 81 f1 1d 00 81 f5 3b 00 11 3c 86 00 0e c0 0b 00 23 23 23 23 23 23 2e 23 23 23 23 00 2d 04 a4 80 ┆ ; < ######.#### - ┆
0x0aa0…0ac0 81 f1 23 00 14 00 9c 80 21 00 09 3b 01 00 7a 03 86 04 08 00 01 00 84 03 86 0e 08 d0 01 80 00 00 ┆ # ! ; z ┆
0x0ac0…0ae0 00 00 00 82 5a 00 07 3b 04 c0 01 00 49 00 07 00 01 00 8e 03 5e 0e a4 80 81 f1 1d 00 82 f8 3b 00 ┆ Z ; I ^ ; ┆
0x0ae0…0b00 11 3c 86 00 04 c0 01 00 2d 00 07 3b 01 00 98 03 86 0e 08 d0 01 80 00 00 00 00 00 82 5a 00 07 3b ┆ < - ; Z ;┆
0x0b00…0b20 04 c0 01 00 49 00 07 00 01 00 a2 03 5f 0b d7 8d 7e 7b a8 80 81 f1 1d 00 82 f1 3b 00 11 3d 01 00 ┆ I _ üæ ; = ┆
0x0b20…0b40 ac 03 86 14 53 80 9c 80 a0 80 21 00 24 00 07 3b 08 d0 01 80 00 00 00 00 00 82 5a 00 07 3b 04 c0 ┆ S ! $ ; Z ; ┆
0x0b40…0b60 01 00 49 00 07 3b 01 00 b6 03 5f 0b 86 7a 6c 7b a4 80 81 f1 1d 00 81 f5 3b 00 11 3d 01 00 c0 03 ┆ I ; _ zlæ ; = ┆
0x0b60…0b80 d1 0c ac 80 53 80 9c 80 a0 80 21 00 24 00 02 01 02 80 1d 00 01 00 ca 03 3f 08 c4 7a 24 7b 11 80 ┆ S ! $ ? z$æ ┆
0x0b80…0ba0 48 00 2d 72 01 00 d4 03 86 0e 0e c0 0b 00 23 23 23 23 23 23 2e 23 23 23 23 00 2d 04 ac 80 09 3b ┆H -r ######.#### - ;┆
0x0ba0…0bc0 01 00 de 03 5d 04 52 7b 01 00 e8 03 86 0e 0e c0 0b 00 20 45 52 52 20 3d 20 23 23 23 20 00 2d 04 ┆ Å Ræ ERR = ### - ┆
0x0bc0…0be0 7a 00 09 3b 01 00 f2 03 d1 06 11 80 00 e0 1d 00 01 00 fc 03 80 03 01 00 06 04 d1 08 a0 80 a0 80 ┆z ; ┆
0x0be0…0c00 81 f1 24 00 1d 00 01 00 10 04 60 05 d8 7a a4 80 01 00 1a 04 86 04 08 00 01 00 24 04 60 05 9a 7a ┆ $ ` z $ ` z┆
0x0c00…0c20 a8 80 01 00 2e 04 86 04 08 00 01 00 38 04 a6 03 01 00 42 04 a3 04 5b 80 01 00 4c 04 d3 27 01 01 ┆ . 8 B Æ L ' ┆
0x0c20…0c40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x0c60…0c80 2d 2d 2d 2d 2d 2d 2d 2d 56 04 63 28 b8 7f 00 02 63 80 53 80 00 00 57 80 00 00 2d 00 01 01 20 20 ┆--------V c( c S W - ┆
0x0c80…0ca0 20 20 20 20 20 20 6d 65 74 6f 64 65 6e 20 65 72 20 73 69 6b 6b 65 72 2c 20 6d 65 6e 20 6c 61 6e ┆ metoden er sikker, men lan┆
0x0ca0…0cc0 67 73 6f 6d 20 28 63 61 2e 20 35 30 20 67 65 6e 6e 65 6d 6c 7c 62 29 00 60 04 c6 0a 0a c0 07 00 ┆gsom (ca. 50 gennemløb) ` ┆
0x0cc0…0ce0 63 6f 6e 73 6f 6c 65 00 2d 70 01 00 6a 04 3f 0f d7 8d da 7c 53 80 02 01 02 80 57 80 02 01 02 80 ┆console -p j ? øS W ┆
0x0ce0…0d00 21 00 00 f0 2a 00 2d 72 01 00 74 04 86 23 3c c0 3a 00 66 28 61 29 20 6f 67 20 66 28 62 29 20 68 ┆! * -r t #< : f(a) og f(b) h┆
0x0d00…0d20 61 72 20 73 61 6d 6d 65 20 66 6f 72 74 65 67 6e 2c 20 64 65 20 73 6b 75 6c 6c 65 20 76 7b 72 65 ┆ar samme fortegn, de skulle være┆
0x0d20…0d40 20 66 6f 72 73 6b 65 6c 6c 69 67 65 07 00 01 00 7e 04 86 12 1a c0 18 00 70 72 7c 76 20 70 72 6f ┆ forskellige ü prøv pro┆
0x0d40…0d60 63 65 64 75 72 65 20 31 3a 20 54 41 42 45 4c 20 07 00 01 00 88 04 99 03 01 00 92 04 80 03 01 00 ┆cedure 1: TABEL ┆
0x0d60…0d80 9c 04 86 06 81 f8 55 00 07 3b 01 00 a6 04 d1 22 b0 80 53 80 57 80 24 00 14 00 81 f2 22 00 02 01 ┆ U ; " S W $ " ┆
0x0d80…0da0 02 80 1d 1b a0 80 00 f0 1d 1b b5 80 76 f1 1d 00 01 01 20 20 20 20 20 20 20 20 20 20 20 20 20 66 ┆ v f┆
0x0da0…0dc0 27 28 78 29 20 3c 20 65 70 73 2f 31 45 2d 31 33 b0 04 82 23 d7 8d 4c 7e b0 80 4b 00 b5 80 2a 00 ┆'(x) < eps/1E-13 # Lü K * ┆
0x0dc0…0de0 a0 80 82 f6 27 00 49 00 2d 3d 01 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ' I -= ┆
0x0de0…0e00 20 20 20 28 31 30 5e 36 2f 32 5e 36 30 20 3c 20 65 70 73 20 29 00 ba 04 86 0c 81 f8 55 00 07 3b ┆ (10^6/2^60 < eps ) U ;┆
0x0e00…0e20 81 f8 55 00 07 3b 81 f8 55 00 07 3b 01 00 c4 04 86 0a 06 c0 03 00 23 23 20 00 2d 04 a0 80 09 3b ┆ U ; U ; ## - ;┆
0x0e20…0e40 01 00 ce 04 3f 0d 2c 7d e8 7d 53 80 02 01 02 80 b0 80 21 00 00 f0 2a 00 2d 72 01 00 d8 04 d1 15 ┆ ? ,å åS ! * -r ┆
0x0e40…0e60 53 80 53 80 57 80 24 00 14 00 81 f2 22 00 1d 00 01 01 20 20 20 20 20 20 20 20 67 7d 20 74 69 6c ┆S S W $ " gå til┆
0x0e60…0e80 20 68 7c 6a 72 65 e2 04 5d 04 1a 7e 01 00 ec 04 d1 16 57 80 53 80 57 80 24 00 14 00 81 f2 22 00 ┆ højre Å ü W S W $ " ┆
0x0e80…0ea0 1d 00 01 01 20 20 20 20 20 20 20 20 67 7d 20 74 69 6c 20 76 65 6e 73 74 72 65 f6 04 80 03 01 00 ┆ gå til venstre ┆
0x0ea0…0ec0 00 05 d1 08 a0 80 a0 80 81 f1 24 00 1d 00 01 00 0a 05 d1 0d b0 80 53 80 57 80 24 00 14 00 81 f2 ┆ $ S W $ ┆
0x0ec0…0ee0 22 00 02 01 02 80 1d 00 01 00 14 05 a1 04 2a 7d 01 00 1e 05 c6 05 43 a0 2d 70 01 00 28 05 86 04 ┆" *å C -p ( ┆
0x0ee0…0f00 08 00 01 00 32 05 3f 16 d7 8d 26 7f a0 80 82 f6 29 00 2d 72 01 01 20 20 20 20 20 72 6f 64 65 6e ┆ 2 ? & ) -r roden┆
0x0f00…0f20 20 65 72 20 69 6b 6b 65 20 66 75 6e 64 65 74 00 3c 05 6c 05 82 f2 2d 00 01 00 46 05 86 15 04 c0 ┆ er ikke fundet < l - F ┆
0x0f20…0f40 01 00 61 00 07 2c 06 c0 04 00 66 28 61 29 07 2c 04 c0 01 00 62 00 07 2c 06 c0 04 00 66 28 62 29 ┆ a , f(a) , b , f(b)┆
0x0f40…0f60 07 00 01 00 50 05 86 0f 53 80 07 2c 53 80 02 01 02 80 07 2c 57 80 07 2c 57 80 02 01 02 80 07 00 ┆ P S ,S ,W ,W ┆
0x0f60…0f80 01 00 5a 05 86 04 08 00 01 00 64 05 86 1b 2c c0 2a 00 55 6e 64 65 72 73 7c 67 2c 20 6f 6d 20 64 ┆ Z d , * Undersøg, om d┆
0x0f80…0fa0 69 6e 20 66 75 6e 6b 74 69 6f 6e 20 65 72 20 6b 6f 6e 74 69 6e 75 65 72 74 20 21 20 07 00 01 00 ┆in funktion er kontinuert ! ┆
0x0fa0…0fc0 6e 05 99 03 01 00 78 05 80 03 01 00 82 05 86 1c 0c c0 0a 00 52 4f 44 20 20 20 20 20 3d 20 07 3b ┆n x ROD = ;┆
0x0fc0…0fe0 53 80 57 80 24 00 14 00 81 f2 22 00 08 d0 01 20 00 00 00 00 00 82 02 02 18 80 07 3b 82 f4 5a 00 ┆S W $ " ; Z ┆
0x0fe0…1000 07 3b 01 00 8c 05 86 21 18 c0 16 00 66 75 6e 6b 74 69 6f 6e 73 76 7b 72 64 69 20 3d 20 23 23 23 ┆ ; ! funktionsværdi = ###┆
0x1000…1020 2e 23 2d 04 53 80 57 80 24 00 14 00 81 f2 22 00 02 01 02 80 8d f1 21 00 09 3b 06 c0 04 00 45 2d ┆.#- S W $ " ! ; E-┆
0x1020…1040 31 32 09 00 01 00 96 05 86 04 08 00 01 00 a0 05 86 04 08 00 01 00 aa 05 a3 04 63 80 01 00 b4 05 ┆12 c ┆
0x1040…1060 d3 27 01 01 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ' ----------------------------┆
0x1060…1080 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1080…10a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d be 05 63 28 78 82 00 02 6a 80 53 80 00 00 57 80 00 00 2d 00 ┆------------ c(x j S W - ┆
0x10a0…10c0 01 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 74 6f 64 65 6e 20 ┆ metoden ┆
0x10c0…10e0 65 72 20 68 75 72 74 69 67 20 2c 20 6d 65 6e 20 69 6b 6b 65 20 73 69 6b 6b 65 72 00 c8 05 d1 09 ┆er hurtig , men ikke sikker ┆
0x10e0…1100 a0 80 00 f0 1d 1b b5 80 78 f1 1d 00 01 00 d2 05 86 0a 08 d0 01 20 00 00 00 00 00 82 55 00 07 00 ┆ x U ┆
0x1100…1120 01 00 dc 05 6c 05 82 f2 2d 00 01 00 e6 05 86 14 1a c0 17 00 20 20 72 6f 64 20 76 65 64 20 73 65 ┆ l - rod ved se┆
0x1120…1140 6b 61 6e 74 6d 65 74 6f 64 65 6e 00 07 3b 3c a0 07 00 01 00 f0 05 86 04 08 00 01 00 fa 05 86 10 ┆kantmetoden ;< ┆
0x1140…1160 04 c0 01 00 6e 00 07 2c 04 c0 01 00 78 00 07 2c 06 c0 04 00 66 28 78 29 07 00 01 00 04 06 86 04 ┆ n , x , f(x) ┆
0x1160…1180 08 00 01 00 0e 06 d1 0d bb 80 57 80 02 01 02 80 1d 1b c0 80 53 80 02 01 02 80 1d 00 01 00 18 06 ┆ W S ┆
0x1180…11a0 86 09 a0 80 07 2c 57 80 07 2c bb 80 07 00 01 00 22 06 82 23 d7 8d 8e 81 c0 80 bb 80 28 00 a0 80 ┆ ,W , " # ( ┆
0x11a0…11c0 81 f2 27 00 49 00 2d 3d 01 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6b 61 6e 74 65 ┆ ' I -= sekante┆
0x11c0…11e0 6e 20 73 6b 7b 72 65 72 20 69 6b 6b 65 20 78 2d 61 6b 73 65 6e 00 2c 06 d1 12 a0 80 a0 80 81 f1 ┆n skærer ikke x-aksen , ┆
0x11e0…1200 24 00 1d 1b 57 80 57 80 81 f1 24 00 1d 1b bb 80 57 80 02 01 02 80 1d 00 01 00 36 06 86 09 a0 80 ┆$ W W $ W 6 ┆
0x1200…1220 07 2c 57 80 07 2c bb 80 07 00 01 00 40 06 a1 04 0a 81 01 00 4a 06 82 15 d7 8d 68 82 c0 80 4b 00 ┆ ,W , @ J h K ┆
0x1220…1240 b5 80 2a 00 bb 80 c0 80 23 00 4b 00 00 f0 2a 00 49 00 a0 80 82 f2 27 00 49 00 2d 3d 01 00 54 06 ┆ * # K * I ' I -= T ┆
0x1240…1260 d1 08 a0 80 a0 80 81 f1 24 00 1d 00 01 00 5e 06 d1 29 c5 80 bb 80 53 80 21 00 c0 80 57 80 21 00 ┆ $ ^ ) S ! W ! ┆
0x1260…1280 23 00 14 00 bb 80 c0 80 23 00 14 00 22 00 1d 00 01 01 20 20 20 20 20 20 20 20 20 20 20 73 65 6b ┆# # " sek┆
0x1280…12a0 61 6e 74 65 6e 73 20 73 6b 7b 72 69 6e 67 73 70 75 6e 6b 74 20 6d 65 64 20 78 2d 61 6b 73 65 6e ┆antens skæringspunkt med x-aksen┆
0x12a0…12c0 68 06 d1 1a 53 80 57 80 1d 1b 57 80 c5 80 1d 1b c0 80 bb 80 1d 1b bb 80 57 80 02 01 02 80 1d 00 ┆h S W W W ┆
0x12c0…12e0 01 01 20 20 20 20 20 20 20 20 20 6e 79 20 73 65 6b 61 6e 74 72 06 86 09 a0 80 07 2c 57 80 07 2c ┆ ny sekantr ,W ,┆
0x12e0…1300 bb 80 07 00 01 00 7c 06 a1 04 8e 81 01 00 86 06 86 04 08 00 01 00 90 06 a3 04 6a 80 01 00 9a 06 ┆ ø j ┆
0x1300…1320 d3 27 01 01 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ' ----------------------------┆
0x1320…1340 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1340…1360 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d a4 06 63 26 90 84 00 02 7b 80 53 80 00 00 57 80 00 00 2d 00 ┆------------ c& æ S W - ┆
0x1360…1380 01 01 20 20 20 20 20 20 20 20 20 20 20 20 66 75 6e 6b 74 69 6f 6e 65 6e 20 62 65 68 7c 76 65 72 ┆ funktionen behøver┆
0x1380…13a0 20 69 6b 6b 65 20 61 74 20 76 7b 72 65 20 6b 6f 6e 74 69 6e 75 65 72 74 ae 06 d1 06 b5 80 79 f1 ┆ ikke at være kontinuert y ┆
0x13a0…13c0 1d 00 01 00 b8 06 d1 13 c9 80 53 80 57 80 24 00 14 00 81 f2 22 00 1d 1b 9c 80 57 80 53 80 23 00 ┆ S W $ " W S # ┆
0x13c0…13e0 14 00 81 f2 22 00 1d 00 01 00 c2 06 82 19 d7 8d 0c 84 9c 80 4b 00 b5 80 2a 00 2d 3d 01 01 20 20 ┆ " K * -= ┆
0x13e0…1400 20 20 20 20 20 20 20 20 20 68 7c 6a 73 74 20 32 37 20 67 65 6e 6e 65 6d 6c 7c 62 00 cc 06 d1 08 ┆ højst 27 gennemløb ┆
0x1400…1420 b0 80 c9 80 02 01 02 80 1d 00 01 00 d6 06 3e 22 c9 80 9c 80 81 f2 22 00 23 00 02 01 02 80 b0 80 ┆ >" " # ┆
0x1420…1440 2a 00 2d 71 d1 00 c9 80 c9 80 9c 80 81 f2 22 00 23 00 1d 00 01 01 20 20 31 2f 34 20 69 6e 74 65 ┆* -q " # 1/4 inte┆
0x1440…1460 72 76 61 6c 20 74 69 6c 20 76 65 6e 73 74 72 65 e0 06 3e 15 c9 80 9c 80 81 f2 22 00 24 00 02 01 ┆rval til venstre > " $ ┆
0x1460…1480 02 80 b0 80 2a 00 2d 71 d1 00 c9 80 c9 80 9c 80 81 f2 22 00 24 00 1d 00 01 00 ea 06 d1 08 9c 80 ┆ * -q " $ ┆
0x1480…14a0 9c 80 81 f2 22 00 1d 00 01 00 f4 06 a1 04 44 83 01 00 fe 06 86 21 0e c0 0c 00 4d 41 58 49 4d 55 ┆ " D ! MAXIMU┆
0x14a0…14c0 4d 20 3d 20 66 28 07 3b c9 80 81 f6 02 02 18 80 07 3b 06 c0 04 00 29 20 3d 20 07 3b c9 80 02 01 ┆M = f( ; ; ) = ; ┆
0x14c0…14e0 02 80 08 d0 01 20 00 00 00 00 00 82 02 02 18 80 07 00 01 00 08 07 86 04 08 00 01 00 12 07 a3 1d ┆ ┆
0x14e0…1500 7b 80 01 01 20 6d 61 78 69 6d 75 6d 73 76 7b 72 64 69 65 6e 20 65 72 20 6e 7c 6a 61 67 74 69 67 ┆æ maximumsværdien er nøjagtig┆
0x1500…1520 65 72 65 20 62 65 73 74 65 6d 74 20 65 6e 64 20 73 74 65 64 65 74 1c 07 d3 27 01 01 2d 2d 2d 2d ┆ere bestemt end stedet ' ----┆
0x1520…1540 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x1560…1580 2d 2d 2d 2d 26 07 63 0b 08 86 00 02 71 80 53 80 00 00 57 80 00 00 2d 00 01 00 30 07 d1 06 b5 80 ┆----& c q S W - 0 ┆
0x1580…15a0 79 f1 1d 00 01 00 3a 07 d1 13 c9 80 53 80 57 80 24 00 14 00 81 f2 22 00 1d 1b 9c 80 57 80 53 80 ┆y : S W $ " W S ┆
0x15a0…15c0 23 00 14 00 81 f2 22 00 1d 00 01 00 44 07 82 0a d7 8d b6 85 9c 80 4b 00 b5 80 2a 00 2d 3d 01 00 ┆# " D K * -= ┆
0x15c0…15e0 4e 07 d1 08 b0 80 c9 80 02 01 02 80 1d 00 01 00 58 07 3e 15 c9 80 9c 80 81 f2 22 00 23 00 02 01 ┆N X > " # ┆
0x15e0…1600 02 80 b0 80 27 00 2d 71 d1 00 c9 80 c9 80 9c 80 81 f2 22 00 23 00 1d 00 01 00 62 07 3e 15 c9 80 ┆ ' -q " # b > ┆
0x1600…1620 9c 80 81 f2 22 00 24 00 02 01 02 80 b0 80 27 00 2d 71 d1 00 c9 80 c9 80 9c 80 81 f2 22 00 24 00 ┆ " $ ' -q " $ ┆
0x1620…1640 1d 00 01 00 6c 07 d1 08 9c 80 9c 80 81 f2 22 00 1d 00 01 00 76 07 a1 04 26 85 01 00 80 07 86 21 ┆ l " v & !┆
0x1640…1660 0e c0 0c 00 4d 49 4e 49 4d 55 4d 20 3d 20 66 28 07 3b c9 80 81 f6 02 02 18 80 07 3b 06 c0 04 00 ┆ MINIMUM = f( ; ; ┆
0x1660…1680 29 20 3d 20 07 3b c9 80 02 01 02 80 08 d0 01 20 00 00 00 00 00 82 02 02 18 80 07 00 01 00 8a 07 ┆) = ; ┆
0x1680…16a0 86 04 08 00 01 00 94 07 a3 04 71 80 01 00 9e 07 d3 27 01 01 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ q ' ------------┆
0x16a0…16c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x16c0…16e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d a8 07 63 0b ┆---------------------------- c ┆
0x16e0…1700 6c 88 00 02 91 80 53 80 00 00 57 80 00 00 2d 00 01 00 b2 07 86 0a 08 d0 01 20 00 00 00 00 00 82 ┆l S W - ┆
0x1700…1720 55 00 07 00 01 00 bc 07 86 19 10 c0 0e 00 20 49 6e 74 65 67 72 61 6c 20 66 72 61 20 07 3b 53 80 ┆U Integral fra ;S ┆
0x1720…1740 07 3b 08 c0 05 00 20 74 69 6c 20 00 07 3b 57 80 07 3b 3c a0 07 00 01 00 c6 07 86 04 08 00 01 00 ┆ ; til ;W ;< ┆
0x1740…1760 d0 07 6c 05 82 f2 2d 00 01 00 da 07 86 1d 08 c0 06 00 20 20 20 20 20 4e 07 2c 08 c0 06 00 54 52 ┆ l - N , TR┆
0x1760…1780 41 50 45 5a 07 2c 0a c0 07 00 4d 49 44 54 53 55 4d 00 07 2c 0a c0 07 00 53 49 4d 50 53 4f 4e 00 ┆APEZ , MIDTSUM , SIMPSON ┆
0x1780…17a0 07 00 01 00 e4 07 86 04 08 00 01 00 ee 07 d1 1d a0 80 81 f1 1d 1b b5 80 7b f1 1d 1b cd 80 53 80 ┆ æ S ┆
0x17a0…17c0 02 01 02 80 57 80 02 01 02 80 24 00 14 00 81 f2 22 00 1d 1b d4 80 57 80 53 80 23 00 1d 1b d9 80 ┆ W $ " W S # ┆
0x17c0…17e0 cd 80 1d 00 01 00 f8 07 86 0f 81 f5 5a 00 07 3b a0 80 07 2c cd 80 d4 80 21 00 81 f6 02 02 18 80 ┆ Z ; , ! ┆
0x17e0…1800 07 2c 01 00 02 08 83 04 d7 8d 01 00 0c 08 d1 13 e0 80 00 f0 1d 1b a0 80 a0 80 81 f2 21 00 1d 1b ┆ , ! ┆
0x1800…1820 9c 80 d4 80 a0 80 22 00 1d 1b e7 80 d9 80 1d 00 01 00 16 08 5e 16 a8 80 81 f1 1d 00 a0 80 3b 00 ┆ " ^ ; ┆
0x1820…1840 81 f2 5c 3c d1 00 e0 80 e0 80 53 80 9c 80 a8 80 21 00 24 00 02 01 02 80 24 00 1d 00 01 00 20 08 ┆ Ø< S ! $ $ ┆
0x1840…1860 d1 1c e0 80 81 f2 e0 80 21 00 a0 80 22 00 1d 1b d9 80 cd 80 81 f2 e0 80 21 00 24 00 14 00 81 f3 ┆ ! " ! $ ┆
0x1860…1880 22 00 1d 1b cd 80 cd 80 e0 80 24 00 14 00 81 f2 22 00 1d 00 01 00 2a 08 86 11 e0 80 d4 80 21 00 ┆" $ " * ! ┆
0x1880…18a0 81 f6 02 02 18 80 07 2c d9 80 d4 80 21 00 81 f6 02 02 18 80 07 00 01 00 34 08 86 0f 81 f5 5a 00 ┆ , ! 4 Z ┆
0x18a0…18c0 07 3b a0 80 07 2c cd 80 d4 80 21 00 81 f6 02 02 18 80 07 2c 01 00 3e 08 84 12 66 87 e7 80 d9 80 ┆ ; , ! , > f ┆
0x18c0…18e0 23 00 4b 00 b5 80 d9 80 4b 00 21 00 27 00 a0 80 84 f1 2a 00 38 00 2d 0a 01 00 48 08 86 04 08 00 ┆# K K ! ' * 8 - H ┆
0x18e0…1900 01 00 52 08 86 04 08 00 01 00 5c 08 a3 04 91 80 01 00 66 08 d3 27 01 01 2d 2d 2d 2d 2d 2d 2d 2d ┆ R Ø f ' --------┆
0x1900…1920 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…truncated at 200 lines…]