|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top
Length: 1228800 (0x12c000)
Description: Bits:30003051 Dymos II - Modeller
Types: 5¼" Floppy Disk
Dumping the first 0x40 bytes of each record
0x000000…000200 (0, 0, 1) e9 2a 90 52 63 20 44 6f 73 20 58 00 02 01 01 00 02 e0 00 60 09 f9 07 00 0f 00 02 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 00 00 00 00 00 ┆ * Rc Dos X ` ┆
0x000200…000400 (0, 0, 2) f9 ff ff 11 f0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2f 02 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 36 f0 ff ff ff ff ff 8f 02 29 a0 02 ff ┆ / 6 ) ┆
0x000400…000600 (0, 0, 3) ff ff ff ff 59 a1 15 5b c1 15 5d e1 15 5f 01 16 61 21 16 63 41 16 65 61 16 67 81 16 69 a1 16 6b c1 16 6d e1 16 6f 01 17 71 21 17 73 41 17 75 61 17 77 81 17 79 a1 17 7b c1 17 7d e1 17 7f 01 18 ┆ Y Æ Å _ a! cA ea g i k m o q! sA ua w y æ å ┆
0x000600…000800 (0, 0, 4) 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 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 ┆ ┆
[…0x4…]
0x001000…001200 (0, 0, 9) f9 ff ff 11 f0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 2f 02 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 36 f0 ff ff ff ff ff 8f 02 29 a0 02 ff ┆ / 6 ) ┆
0x001200…001400 (0, 0, 10) ff ff ff ff 59 a1 15 5b c1 15 5d e1 15 5f 01 16 61 21 16 63 41 16 65 61 16 67 81 16 69 a1 16 6b c1 16 6d e1 16 6f 01 17 71 21 17 73 41 17 75 61 17 77 81 17 79 a1 17 7b c1 17 7d e1 17 7f 01 18 ┆ Y Æ Å _ a! cA ea g i k m o q! sA ua w y æ å ┆
0x001400…001600 (0, 0, 11) 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 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 ┆ ┆
[…0x4…]
0x001e00…002000 (0, 1, 1) 64 79 6d 6f 73 2e 65 6b 73 20 20 08 00 00 00 00 00 00 00 00 00 00 a1 55 00 60 00 00 00 00 00 00 4d 4f 44 45 4c 31 20 20 20 20 20 10 00 00 00 00 00 00 00 00 00 00 68 56 57 61 02 00 00 00 00 00 ┆dymos.eks U ` MODEL1 hVWa ┆
0x002000…002200 (0, 1, 2) 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 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 ┆ ┆
[…0x5…]
0x002c00…002e00 (0, 1, 8) 00 ff ff 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 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 ┆ ┆
0x002e00…003000 (0, 1, 9) 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 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 ┆ ┆
[…0x5…]
0x003a00…003c00 (0, 1, 15) 2e 20 20 20 20 20 20 20 20 20 20 10 00 00 00 00 00 00 00 00 00 00 68 56 57 61 02 00 00 00 00 00 2e 2e 20 20 20 20 20 20 20 20 20 10 00 00 00 00 00 00 00 00 00 00 68 56 57 61 00 00 00 00 00 00 ┆. hVWa .. hVWa ┆
0x003c00…003e00 (1, 0, 1) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 4c 69 6e 46 6b 74 0d 0a 0d 0a 64 79 20 3a 3d 20 61 20 2a 20 64 78 0d 0a 79 20 20 3a 3d 20 79 20 2b 20 64 79 0d 0a 78 20 20 3a 3d 20 78 20 2b 20 64 78 0d 0a 0d ┆// Model : LinFkt dy := a * dx y := y + dy x := x + dx ┆
0x003e00…004000 (1, 0, 2) 4b 6f 6e 73 74 20 3a 3d 20 31 2e 33 0d 0a 79 20 3a 3d 20 31 0d 0a 78 20 3a 3d 20 30 0d 0a 61 20 3a 3d 20 4b 6f 6e 73 74 0d 0a 64 78 20 3a 3d 20 30 2e 31 0d 0a 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a ┆Konst := 1.3 y := 1 x := 0 a := Konst dx := 0.1 ┆
0x004000…004200 (1, 0, 3) 01 78 b2 01 26 8a 0e 04 00 32 ed 26 80 4d 36 02 01 79 2d 06 00 33 d2 f7 f1 a3 e1 0b 26 8b 75 2a 00 fe ff 74 18 8e 06 a8 01 26 03 36 14 00 80 3e 00 04 01 75 05 b0 2f e8 0e 02 e8 51 0d e8 db fd ┆ x & 2 & M6 y- 3 & u* t & 6 > u / Q ┆
0x004200…004400 (1, 0, 4) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 52 65 6e 74 65 72 0d 0a 0d 0a 8f 72 6c 69 67 52 65 6e 74 65 20 3a 3d 20 42 65 6c 9b 62 20 2a 20 52 65 6e 74 65 73 61 74 73 0d 0a 52 65 6e 74 65 20 3a 3d 20 8f ┆// Model : Renter rligRente := Bel b * Rentesats Rente := ┆
0x004400…004600 (1, 0, 5) 52 65 6e 74 65 73 61 74 73 20 3a 3d 20 30 2e 31 32 20 20 20 20 20 2f 2f 20 31 2f 86 72 0d 0a 53 74 61 72 74 20 20 20 20 20 3a 3d 20 31 30 30 20 20 20 20 20 20 2f 2f 20 6b 72 0d 0a 42 65 6c 9b ┆Rentesats := 0.12 // 1/ r Start := 100 // kr Bel ┆
0x004600…004800 (1, 0, 6) 01 74 53 51 56 55 8b ec 57 be 41 3a c6 44 02 03 05 42 65 6c 9b 62 b9 9a c6 04 00 b9 50 00 9a 1c 00 ad 43 7d 73 e3 71 be b9 9a b8 92 a3 8a 16 12 00 32 f6 03 c2 8b f8 57 47 32 c9 ac 3c 00 74 3d ┆ tSQVU W A: D Bel b P Cås q 2 WG2 < t=┆
0x004800…004a00 (1, 0, 7) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 4f 70 73 70 61 72 0d 0a 0d 0a 8f 72 6c 69 67 52 65 6e 74 65 20 3a 3d 20 42 65 6c 9b 62 20 2a 20 52 65 6e 74 65 73 61 74 73 0d 0a 52 65 6e 74 65 20 3a 3d 20 8f ┆// Model : Opspar rligRente := Bel b * Rentesats Rente := ┆
0x004a00…004c00 (1, 0, 8) 52 65 6e 74 65 73 61 74 73 20 3a 3d 20 30 2e 31 32 20 20 20 20 20 2f 2f 20 31 2f 86 72 0d 0a 53 74 61 72 74 20 20 20 20 20 3a 3d 20 31 30 30 20 20 20 20 20 20 2f 2f 20 6b 72 0d 0a 42 65 6c 9b ┆Rentesats := 0.12 // 1/ r Start := 100 // kr Bel ┆
0x004c00…004e00 (1, 0, 9) 01 74 53 51 56 55 8b ec 57 be 41 3a c6 44 02 03 05 42 65 6c 9b 62 b9 9a c6 04 00 b9 50 00 9a 1c 00 ad 43 7d 73 e3 71 be b9 9a b8 92 a3 8a 16 12 00 32 f6 03 c2 8b f8 57 47 32 c9 ac 3c 00 74 3d ┆ tSQVU W A: D Bel b P Cås q 2 WG2 < t=┆
0x004e00…005000 (1, 0, 10) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 4b 61 6e 69 6e 31 0d 0a 0d 0a 46 9b 64 74 65 20 3a 3d 20 41 6e 74 61 6c 20 2a 20 46 9b 64 73 65 6c 73 66 72 65 6b 76 65 6e 73 20 2a 20 64 74 0d 0a 41 6e 74 61 ┆// Model : Kanin1 F dte := Antal * F dselsfrekvens * dt Anta┆
0x005000…005200 (1, 0, 11) 46 9b 64 73 65 6c 73 66 72 65 6b 76 65 6e 73 20 3a 3d 20 30 2e 30 35 20 20 20 20 20 2f 2f 20 31 2f 6d 86 6e 65 64 0d 0a 41 6e 74 61 6c 20 20 3a 3d 20 31 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆F dselsfrekvens := 0.05 // 1/m ned Antal := 10 ┆
0x005200…005400 (1, 0, 12) 01 74 b2 01 26 8a 0e 04 00 32 ed 26 80 4d 36 02 05 41 6e 74 61 6c d2 f7 f1 a3 e1 0b 26 8b 75 2a 00 62 65 6c 9b 62 5f 75 65 6e 64 65 6c 69 67 3e 00 04 01 75 05 b0 2f e8 0e 02 e8 51 0d e8 db fd ┆ t & 2 & M6 Antal & u* bel b_uendelig> u / Q ┆
0x005400…005600 (1, 0, 13) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 4b 61 6e 69 6e 32 0d 0a 0d 0a 41 6e 74 61 6c 20 3a 3d 20 41 6e 74 61 6c 20 2b 20 55 6e 67 65 34 0d 0a 55 6e 67 65 34 20 3a 3d 20 55 6e 67 65 33 0d 0a 55 6e 67 ┆// Model : Kanin2 Antal := Antal + Unge4 Unge4 := Unge3 Ung┆
0x005600…005800 (1, 0, 14) 46 9b 64 73 65 6c 73 66 72 65 6b 76 65 6e 73 20 3a 3d 20 30 2e 30 35 20 20 20 20 20 2f 2f 20 31 2f 6d 86 6e 65 64 0d 0a 41 6e 74 61 6c 20 20 3a 3d 20 31 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆F dselsfrekvens := 0.05 // 1/m ned Antal := 10 ┆
0x005800…005a00 (1, 0, 15) 4b 41 4e 49 4e 32 20 20 50 41 52 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 12 00 70 00 00 00 4b 41 4e 49 4e 33 20 20 4d 4f 44 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 13 00 a3 00 00 00 ┆KANIN2 PAR ! p KANIN3 MOD ! ┆
0x005a00…005c00 (1, 1, 1) 01 74 b2 01 26 8a 0e 04 00 32 ed 26 80 4d 36 02 05 41 6e 74 61 6c d2 f7 f1 a3 e1 0b 26 8b 75 2a 00 62 65 6c 9b 62 5f 75 65 6e 64 65 6c 69 67 3e 00 04 01 75 05 b0 2f e8 0e 02 e8 51 0d e8 db fd ┆ t & 2 & M6 Antal & u* bel b_uendelig> u / Q ┆
0x005c00…005e00 (1, 1, 2) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 4b 61 6e 69 6e 33 0d 0a 0d 0a 41 6e 74 61 6c 20 20 20 3a 3d 20 41 6e 74 61 6c 20 2b 20 55 6e 67 65 5b 6e 30 5d 0d 0a 46 6f 72 20 69 3a 3d 20 6e 30 20 74 6f 20 ┆// Model : Kanin3 Antal := Antal + UngeÆn0Å For i:= n0 to ┆
0x005e00…006000 (1, 1, 3) 55 6e 67 65 20 20 20 3a 3d 20 61 72 72 61 79 5b 34 30 5d 20 20 20 20 20 20 20 20 20 2f 2f 20 34 30 20 67 72 75 70 70 65 72 20 6d 61 78 0d 0a 46 6f 72 20 69 3a 3d 31 20 74 6f 20 73 69 7a 65 28 ┆Unge := arrayÆ40Å // 40 grupper max For i:=1 to size(┆
0x006000…006200 (1, 1, 4) 01 74 b2 01 26 8a 0e 04 00 32 ed 26 80 4d 36 02 05 41 6e 74 61 6c d2 f7 f1 a3 e1 0b 26 8b 75 2a 00 75 6e 67 65 62 5f 75 65 6e 64 65 6c 69 67 3e 00 04 01 75 05 b0 2f e8 0e 02 e8 51 0d e8 db fd ┆ t & 2 & M6 Antal & u* ungeb_uendelig> u / Q ┆
0x006200…006400 (1, 1, 5) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 4b 61 6e 69 6e 34 0d 0a 0d 0a 46 9b 64 74 65 20 3a 3d 20 41 6e 74 61 6c 20 2a 20 46 9b 64 73 65 6c 73 66 72 65 6b 76 65 6e 73 28 41 72 65 61 6c 2f 41 6e 74 61 ┆// Model : Kanin4 F dte := Antal * F dselsfrekvens(Areal/Anta┆
0x006400…006600 (1, 1, 6) 41 6e 74 61 6c 20 20 3a 3d 20 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6b 61 6e 69 6e 65 72 0d 0a 64 74 20 20 20 20 20 3a 3d 20 30 2e 32 20 20 20 20 20 20 20 20 20 20 20 ┆Antal := 10 // kaniner dt := 0.2 ┆
0x006600…006800 (1, 1, 7) 01 74 b2 01 26 8a 0e 04 00 32 ed 26 80 4d 36 02 05 41 6e 74 61 6c d2 f7 f1 a3 e1 0b 26 8b 75 2a 00 6d 6e 67 65 62 5f 75 65 6e 64 65 6c 69 67 3e 00 6e 01 75 05 b0 2f e8 0e 02 e8 51 0d e8 db fd ┆ t & 2 & M6 Antal & u* mngeb_uendelig> n u / Q ┆
0x006800…006a00 (1, 1, 8) 2f 2f 20 6d 6f 64 65 6c 20 3a 20 52 6f 76 2d 42 79 74 31 0d 0a 0d 0a 64 42 20 3a 3d 20 28 6b 31 2d 6b 32 2a 52 29 20 2a 20 42 20 2a 20 64 74 20 20 2f 2f 20 91 6e 64 72 69 6e 67 20 69 20 61 6e ┆// model : Rov-Byt1 dB := (k1-k2*R) * B * dt // ndring i an┆
0x006a00…006c00 (1, 1, 9) 6b 31 20 3a 3d 20 30 2e 33 20 20 20 20 20 2f 2f 20 62 79 74 74 65 64 79 72 73 20 66 6f 72 6d 65 72 69 6e 67 73 65 76 6e 65 20 0d 0a 0d 0a 6b 32 20 3a 3d 20 30 2e 30 30 30 34 20 20 2f 2f 20 72 ┆k1 := 0.3 // byttedyrs formeringsevne k2 := 0.0004 // r┆
0x006c00…006e00 (1, 1, 10) 01 52 20 00 75 b2 ff 76 a8 56 57 8d 46 ae 50 e8 01 42 4c 4e fb 33 c0 a3 65 73 a3 75 7b a3 77 7b 00 77 7b 50 b8 02 00 50 e8 bb fb b8 75 7b 50 b8 00 00 50 e8 b0 fb b8 65 73 50 b8 01 00 50 e8 a5 ┆ R u v VW F P BLN 3 es uæ wæ wæP P uæP P esP P ┆
0x006e00…007000 (1, 1, 11) 2f 2f 20 6d 6f 64 65 6c 20 3a 20 52 6f 76 2d 42 79 74 32 0d 0a 20 0d 0a 42 2c 52 20 3a 3d 20 69 6e 74 65 67 72 61 74 65 28 28 6b 31 2d 6b 32 2a 52 29 2a 42 2c 28 6b 34 2a 42 2d 6b 33 29 2a 52 ┆// model : Rov-Byt2 B,R := integrate((k1-k2*R)*B,(k4*B-k3)*R┆
0x007000…007200 (1, 1, 12) 6b 31 20 3a 3d 20 30 2e 33 20 20 20 20 20 2f 2f 20 62 79 74 74 65 64 79 72 73 20 66 6f 72 6d 65 72 69 6e 67 73 65 76 6e 65 20 0d 0a 0d 0a 6b 32 20 3a 3d 20 30 2e 30 30 30 34 20 20 2f 2f 20 72 ┆k1 := 0.3 // byttedyrs formeringsevne k2 := 0.0004 // r┆
0x007200…007400 (1, 1, 13) 01 52 20 00 75 b2 ff 76 a8 56 57 8d 46 ae 50 e8 01 42 4c 4e fb 33 c0 a3 65 73 a3 75 7b a3 77 7b 00 77 7b 50 b8 02 00 50 e8 bb fb b8 75 7b 50 b8 00 00 50 e8 b0 fb b8 65 73 50 b8 01 00 50 e8 a5 ┆ R u v VW F P BLN 3 es uæ wæ wæP P uæP P esP P ┆
0x007400…007600 (1, 1, 14) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 57 72 69 74 65 0d 0a 0d 0a 74 3a 3d 74 2b 64 74 0d 0a 78 3a 3d 31 2f 32 2a 61 2a 74 5e 32 2b 76 30 2a 74 2b 78 30 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d ┆// Model : Write t:=t+dt x:=1/2*a*t^2+v0*t+x0 ┆
0x007600…007800 (1, 1, 15) 77 72 69 74 65 20 27 77 72 54 61 62 65 6c 27 3a 20 78 2c 74 0d 0a 0d 0a 64 74 20 3a 3d 20 30 2e 35 20 20 20 20 20 2f 2f 20 73 65 6b 0d 0a 78 30 20 3a 3d 20 32 2e 32 20 20 20 20 20 2f 2f 20 6d ┆write 'wrTabel': x,t dt := 0.5 // sek x0 := 2.2 // m┆
0x007800…007a00 (2, 0, 1) 01 74 e8 7f 0c 58 1f 07 c3 06 1e 50 b8 72 42 8e 01 78 06 a8 01 b8 20 00 e8 97 2a e8 66 0c 58 1f 00 c3 06 1e 50 b8 72 42 8e d8 8e 06 a8 01 b8 26 00 e8 7e 2a e8 4d 0c 58 1f 07 c3 06 1e 50 b8 72 ┆ t X P rB x * f X P rB & ü* M X P r┆
0x007a00…007c00 (2, 0, 2) 52 45 41 44 20 20 20 20 4d 4f 44 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 23 00 19 00 00 00 52 45 41 44 20 20 20 20 56 52 44 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 24 00 2e 00 00 00 ┆READ MOD ! # READ VRD ! $ . ┆
0x007c00…007e00 (2, 0, 3) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 52 65 61 64 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆// Model : Read ┆
0x007e00…008000 (2, 0, 4) 72 65 61 64 20 27 77 72 54 61 62 65 6c 27 3a 20 78 54 61 62 65 6c 2c 78 2c 20 74 54 61 62 65 6c 2c 74 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆read 'wrTabel': xTabel,x, tTabel,t ┆
0x008000…008200 (2, 0, 5) 06 74 54 61 62 65 6c 07 c3 06 1e 50 b8 72 42 8e 06 78 54 61 62 65 6c 00 e8 97 2a e8 66 0c 58 1f 00 c3 06 1e 50 b8 72 42 8e d8 8e 06 a8 01 b8 26 00 e8 7e 2a e8 4d 0c 58 1f 07 c3 06 1e 50 b8 72 ┆ tTabel P rB xTabel * f X P rB & ü* M X P r┆
0x008200…008400 (2, 0, 6) 50 6f 69 6e 74 73 20 20 20 20 31 32 39 0d 0a 56 61 72 69 61 62 6c 65 73 20 20 54 2c 58 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆Points 129 Variables T,X ┆
0x008400…008600 (2, 0, 7) 80 e7 33 a0 de 74 83 b5 f7 a9 aa 6a 80 7e a9 9f 37 3d 82 6b ef 53 55 55 81 00 00 00 00 00 83 00 00 00 00 40 81 ac fb c7 42 16 83 99 99 99 99 59 81 65 dd 3f 16 32 83 b0 6e bc bb 6b 81 9a 22 c0 ┆ 3 t j ü 7= k SUU @ B Y e ? 2 n k " ┆
0x008600…008800 (2, 0, 8) 00 00 00 00 82 23 0f 44 16 72 82 c7 43 df dd 1d 83 00 00 00 00 00 82 d1 55 ba bb 3b 83 6e f8 dd f4 06 82 6b ef 53 55 55 83 bb 09 be e9 0d 82 94 10 ac aa 6a 83 29 02 9c de 14 82 61 dd 78 77 77 ┆ # D r C U ; n k SUU j ) a xww┆
0x008800…008a00 (2, 0, 9) 90 65 82 6b ef 53 55 55 83 a6 08 70 7a 63 82 00 00 00 00 40 83 68 05 86 2c 64 82 61 dd 78 77 37 83 eb fe b1 90 65 82 e6 c8 ca 2f 36 83 d0 0a 0c 59 68 82 dc f1 26 bf 38 83 49 d3 a0 68 6b 82 00 ┆ e k SUU pzc @ h ,d a xw7 e /6 Yh & 8 I hk ┆
0x008a00…008c00 (2, 0, 10) 84 60 fe 0a 59 00 82 75 8b c0 58 52 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ` Y u XR ┆
0x008c00…008e00 (2, 0, 11) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 4c 6f 67 6f 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆// Model : Logo ┆
0x008e00…009000 (2, 0, 12) 72 65 61 64 20 27 6c 6f 67 6f 27 3a 20 78 54 61 62 65 6c 2c 78 2c 20 74 54 61 62 65 6c 2c 74 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆read 'logo': xTabel,x, tTabel,t ┆
0x009000…009200 (2, 0, 13) 06 74 54 61 62 65 6c 07 c3 06 1e 50 b8 72 42 8e 06 78 54 61 62 65 6c 00 e8 97 2a e8 66 0c 58 1f 00 c3 06 1e 50 b8 72 42 8e d8 8e 06 a8 01 b8 26 00 e8 7e 2a e8 4d 0c 58 1f 07 c3 06 1e 50 b8 72 ┆ tTabel P rB xTabel * f X P rB & ü* M X P r┆
0x009200…009400 (2, 0, 14) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 46 69 74 0d 0a 0d 0a 74 4d 6f 64 65 6c 20 3a 3d 74 4d 6f 64 65 6c 2b 64 74 0d 0a 76 65 6a 66 69 74 20 3a 3d 66 69 74 28 74 4d 6f 64 65 6c 2c 74 54 61 62 65 6c ┆// Model : Fit tModel :=tModel+dt vejfit :=fit(tModel,tTabel┆
0x009400…009600 (2, 0, 15) 72 65 61 64 20 27 77 72 54 61 62 65 6c 27 3a 20 78 54 61 62 65 6c 2c 78 2c 20 74 54 61 62 65 6c 2c 74 0d 0a 64 74 3a 3d 30 2e 30 35 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 1a 1a 1a 1a ┆read 'wrTabel': xTabel,x, tTabel,t dt:=0.05 ┆
0x009600…009800 (2, 1, 1) 06 74 4d 6f 64 65 6c 07 c3 06 1e 50 b8 72 42 8e 06 76 65 6a 66 69 74 00 e8 97 2a e8 66 0c 58 1f 07 76 65 6a 69 6e 74 70 8e d8 8e 06 a8 01 b8 26 00 e8 7e 2a e8 4d 0c 58 1f 07 c3 06 1e 50 b8 72 ┆ tModel P rB vejfit * f X vejintp & ü* M X P r┆
0x009800…009a00 (2, 1, 2) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 43 6f 65 66 66 0d 0a 0d 0a 74 4d 6f 64 65 6c 20 3a 3d 74 4d 6f 64 65 6c 2b 64 74 0d 0a 76 65 6a 66 69 74 20 3a 3d 66 69 74 28 74 4d 6f 64 65 6c 2c 74 54 61 62 ┆// Model : Coeff tModel :=tModel+dt vejfit :=fit(tModel,tTab┆
0x009a00…009c00 (2, 1, 3) 72 65 61 64 20 27 77 72 54 61 62 65 6c 27 3a 20 78 54 61 62 65 6c 2c 78 2c 20 74 54 61 62 65 6c 2c 74 0d 0a 64 74 3a 3d 20 30 2e 30 35 0d 0a 63 20 3a 3d 20 63 6f 65 66 66 28 74 54 61 62 65 6c ┆read 'wrTabel': xTabel,x, tTabel,t dt:= 0.05 c := coeff(tTabel┆
0x009c00…009e00 (2, 1, 4) 06 74 4d 6f 64 65 6c 07 c3 06 1e 50 b8 72 42 8e 06 76 65 6a 66 69 74 00 e8 97 2a e8 66 0c 58 1f 07 76 65 6a 69 6e 74 70 8e d8 8e 06 a8 01 b8 26 01 63 7e 2a e8 4d 0c 58 1f 07 c3 06 1e 50 b8 72 ┆ tModel P rB vejfit * f X vejintp & cü* M X P r┆
0x009e00…00a000 (2, 1, 5) 50 6f 69 6e 74 73 20 31 38 0d 0a 56 61 72 69 61 62 6c 65 73 20 58 2c 54 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆Points 18 Variables X,T ┆
0x00a000…00a200 (2, 1, 6) 81 fe ff ff ff 5f 80 00 00 00 00 00 81 32 33 33 33 33 81 00 00 00 00 00 81 32 33 33 33 13 81 00 00 00 00 40 80 fc ff ff ff 7f 82 00 00 00 00 00 80 2c 33 33 33 73 82 00 00 00 00 20 80 f4 ff ff ┆ _ 23333 2333 @ ,333s ┆
0x00a200…00a400 (2, 1, 7) 56 45 4a 54 49 44 31 20 4d 4f 44 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 37 00 53 00 00 00 56 45 4a 54 49 44 31 20 56 52 44 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 38 00 40 00 00 00 ┆VEJTID1 MOD ! 7 S VEJTID1 VRD ! 8 @ ┆
0x00a400…00a600 (2, 1, 8) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 56 65 6a 54 69 64 31 0d 0a 0d 0a 76 65 6a 3a 3d 66 69 74 28 74 2c 74 2c 79 2c 32 29 0d 0a 68 61 73 74 69 67 68 65 64 3a 3d 63 5b 32 5d 2b 32 2a 63 5b 33 5d 2a ┆// Model : VejTid1 vej:=fit(t,t,y,2) hastighed:=cÆ2Å+2*cÆ3Å*┆
0x00a600…00a800 (2, 1, 9) 72 65 61 64 20 27 76 65 6a 74 69 64 27 3a 74 2c 74 2c 79 2c 79 0d 0a 63 20 3a 3d 20 63 6f 65 66 66 28 74 2c 79 2c 32 29 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a ┆read 'vejtid':t,t,y,y c := coeff(t,y,2) ┆
0x00a800…00aa00 (2, 1, 10) 01 74 20 00 75 b2 ff 76 a8 56 57 8d 46 ae 50 e8 01 79 4c 4e fb 33 c0 a3 65 73 a3 75 7b a3 77 7b 03 76 65 6a b8 02 00 50 e8 bb fb b8 75 7b 50 b8 09 68 61 73 74 69 67 68 65 64 b8 01 00 50 e8 a5 ┆ t u v VW F P yLN 3 es uæ wæ vej P uæP hastighed P ┆
0x00aa00…00ac00 (2, 1, 11) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 56 65 6a 54 69 64 32 0d 0a 0d 0a 76 65 6a 3a 3d 66 69 74 28 74 2c 74 2c 79 2c 32 29 0d 0a 68 61 73 74 69 67 68 65 64 3a 3d 6b 6f 65 66 31 2b 32 2a 6b 6f 65 66 ┆// Model : VejTid2 vej:=fit(t,t,y,2) hastighed:=koef1+2*koef┆
0x00ac00…00ae00 (2, 1, 12) 72 65 61 64 20 27 76 65 6a 74 69 64 27 3a 74 2c 74 2c 79 2c 79 0d 0a 6b 6f 65 66 31 3a 3d 63 6f 65 66 66 28 74 2c 79 2c 32 2c 31 29 0d 0a 6b 6f 65 66 32 3a 3d 63 6f 65 66 66 28 74 2c 79 2c 32 ┆read 'vejtid':t,t,y,y koef1:=coeff(t,y,2,1) koef2:=coeff(t,y,2┆
0x00ae00…00b000 (2, 1, 13) 01 74 20 00 75 b2 ff 76 a8 56 57 8d 46 ae 50 e8 01 79 4c 4e fb 33 c0 a3 65 73 a3 75 7b a3 77 7b 03 76 65 6a b8 02 00 50 e8 bb fb b8 75 7b 50 b8 09 68 61 73 74 69 67 68 65 64 b8 01 00 50 e8 a5 ┆ t u v VW F P yLN 3 es uæ wæ vej P uæP hastighed P ┆
0x00b000…00b200 (2, 1, 14) 50 6f 69 6e 74 73 20 34 30 0d 0a 56 61 72 69 61 62 6c 65 73 20 54 2c 59 52 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆Points 40 Variables T,YR ┆
0x00b200…00b400 (2, 1, 15) 7c cc cc cc cc 4c 81 36 e6 4e d2 0a 7d cc cc cc cc 4c 81 de eb 3b 47 0c 7e 99 99 99 99 19 81 f6 e5 c0 a9 45 7e cc cc cc cc 4c 82 40 4a 22 7f 05 7e ff ff ff ff 7f 82 bd db 67 40 25 7f 99 99 99 ┆ø L 6 N å L ;G ü Eü L @J" ü g@% ┆
0x00b400…00b600 (3, 0, 1) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 54 69 6c 70 61 73 31 0d 0a 0d 0a 74 6c 20 20 20 20 20 3a 3d 20 74 6c 20 2b 20 64 74 6c 0d 0a 76 65 6a 66 69 74 20 3a 3d 20 66 69 74 28 74 6c 2c 74 2c 78 2c 32 ┆// Model : Tilpas1 tl := tl + dtl vejfit := fit(tl,t,x,2┆
0x00b600…00b800 (3, 0, 2) 78 20 3a 3d 20 61 72 72 61 79 5b 36 5d 28 30 2e 31 32 2c 30 2e 32 30 2c 30 2e 33 32 2c 30 2e 34 35 2c 30 2e 36 37 2c 30 2e 39 36 29 0d 0a 74 20 3a 3d 20 61 72 72 61 79 5b 36 5d 28 30 2e 31 35 ┆x := arrayÆ6Å(0.12,0.20,0.32,0.45,0.67,0.96) t := arrayÆ6Å(0.15┆
0x00b800…00ba00 (3, 0, 3) 02 74 6c 62 fe ff 01 02 4e 0f 23 00 c9 1e 62 43 06 76 65 6a 69 6e 74 2c 35 30 39 2c 71 1e 62 43 06 76 65 6a 66 69 74 00 83 03 2e 62 7a fc fd 1d 01 63 94 21 62 43 00 00 00 00 00 00 2c 00 2e 62 ┆ tlb N # bC vejint,509,q bC vejfit .bz c !bC , .b┆
0x00ba00…00bc00 (3, 0, 4) 78 20 20 2c 20 74 0d 0a 30 2e 31 32 20 30 2e 31 35 0d 0a 30 2e 32 30 20 30 2e 32 31 0d 0a 30 2e 33 32 20 30 2e 32 35 0d 0a 30 2e 34 35 20 30 2e 33 30 0d 0a 30 2e 36 37 20 30 2e 33 37 0d 0a 30 ┆x , t 0.12 0.15 0.20 0.21 0.32 0.25 0.45 0.30 0.67 0.37 0┆
0x00bc00…00be00 (3, 0, 5) 50 6f 69 6e 74 73 20 20 20 20 20 20 36 0d 0a 56 61 72 69 61 62 6c 65 73 20 58 20 20 2c 20 54 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆Points 6 Variables X , T ┆
0x00be00…00c000 (3, 0, 6) 7d 28 5c 8f c2 75 7e 99 99 99 99 19 7e cc cc cc cc 4c 7e a3 70 3d 0a 57 7f 70 3d 0a d7 23 7f 00 00 00 00 00 7f 66 66 66 66 66 7f 99 99 99 99 19 80 51 b8 1e 85 2b 7f 0a d7 a3 70 3d 80 28 5c 8f ┆å(Ø uü ü Lü p= W p= # fffff Q + p= (Ø ┆
0x00c000…00c200 (3, 0, 7) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 54 69 6c 70 61 73 32 0d 0a 0d 0a 74 6c 20 20 20 20 20 3a 3d 20 74 6c 20 2b 20 64 74 6c 0d 0a 76 65 6a 66 69 74 20 3a 3d 20 66 69 74 28 74 6c 2c 74 2c 78 2c 32 ┆// Model : Tilpas2 tl := tl + dtl vejfit := fit(tl,t,x,2┆
0x00c200…00c400 (3, 0, 8) 72 65 61 64 20 27 74 69 6c 70 61 73 27 3a 20 78 2c 78 2c 20 74 2c 74 0d 0a 64 74 6c 20 3a 3d 20 30 2e 30 31 0d 0a 63 20 20 20 3a 3d 20 63 6f 65 66 66 28 74 2c 78 2c 32 29 0d 0a 0d 0a 0d 0a 0d ┆read 'tilpas': x,x, t,t dtl := 0.01 c := coeff(t,x,2) ┆
0x00c400…00c600 (3, 0, 9) 54 49 4c 50 41 53 32 20 50 41 52 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 48 00 70 00 00 00 42 4f 59 4c 45 46 49 54 4d 4f 44 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 49 00 53 00 00 00 ┆TILPAS2 PAR ! H p BOYLEFITMOD ! I S ┆
0x00c600…00c800 (3, 0, 10) 02 74 6c 62 fe ff 01 02 4e 0f 23 00 c9 1e 62 43 06 76 65 6a 69 6e 74 2c 35 30 39 2c 71 1e 62 43 06 76 65 6a 66 69 74 00 83 03 2e 62 7a fc fd 1d 01 63 94 21 62 43 00 00 00 00 00 00 2c 00 2e 62 ┆ tlb N # bC vejint,509,q bC vejfit .bz c !bC , .b┆
0x00c800…00ca00 (3, 0, 11) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 42 6f 79 6c 65 66 69 74 0d 0a 0d 0a 69 6e 76 50 66 69 74 20 3a 3d 20 66 69 74 28 6c 2c 6c 2c 69 6e 76 50 2c 31 29 0d 0a 70 46 69 74 20 20 20 20 3a 3d 20 31 2f ┆// Model : Boylefit invPfit := fit(l,l,invP,1) pFit := 1/┆
0x00ca00…00cc00 (3, 0, 12) 72 65 61 64 20 27 62 6f 79 6c 65 27 3a 20 6c 2c 6c 2c 20 70 2c 61 0d 0a 69 6e 76 70 3a 3d 20 61 72 72 61 79 5b 73 69 7a 65 28 70 29 5d 20 20 2f 2f 20 73 61 6d 6d 65 20 6c 91 6e 67 64 65 20 73 ┆read 'boyle': l,l, p,a invp:= arrayÆsize(p)Å // samme l ngde s┆
0x00cc00…00ce00 (3, 0, 13) 01 6c 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 04 70 46 69 74 00 00 00 00 00 00 00 00 00 00 00 01 70 49 6e 74 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 ┆ lm pFit pInt ┆
0x00ce00…00d000 (3, 0, 14) 20 4c 2c 20 20 20 20 20 20 41 0d 0a 20 20 20 20 20 30 2e 31 35 33 30 30 20 20 20 20 2d 30 2e 37 30 30 30 30 0d 0a 20 20 20 20 20 30 2e 31 33 36 30 30 20 20 20 20 2d 30 2e 36 30 30 30 30 0d 0a ┆ L, A 0.15300 -0.70000 0.13600 -0.60000 ┆
0x00d000…00d200 (3, 0, 15) 50 6f 69 6e 74 73 20 20 20 20 20 31 35 0d 0a 56 61 72 69 61 62 6c 65 73 20 4c 2c 20 20 20 20 20 20 41 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆Points 15 Variables L, A ┆
0x00d200…00d400 (3, 1, 1) 7e 26 31 08 ac 1c 80 33 33 33 33 b3 7e 06 81 95 43 0b 80 99 99 99 99 99 7d 43 8b 6c e7 7b 80 00 00 00 00 80 7d d9 ce f7 53 63 7f cc cc cc cc cc 7d 89 41 60 e5 50 7f 99 99 99 99 99 7d 6e 12 83 ┆ü&1 3333 ü C åC l æ å Sc å A` P ån ┆
0x00d400…00d600 (3, 1, 2) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 52 61 64 69 6f 66 69 74 0d 0a 0d 0a 6c 6e 66 69 74 20 3a 3d 20 66 69 74 28 74 2c 74 2c 6c 6e 6e 2c 31 29 0d 0a 6e 66 69 74 20 3a 3d 20 65 78 70 28 6c 6e 66 69 ┆// Model : Radiofit lnfit := fit(t,t,lnn,1) nfit := exp(lnfi┆
0x00d600…00d800 (3, 1, 3) 52 65 61 64 20 27 68 65 6e 66 61 6c 64 27 3a 20 6e 2c 61 2c 20 74 2c 74 0d 0a 6c 6e 6e 20 3a 3d 20 61 72 72 61 79 5b 73 69 7a 65 28 6e 29 5d 0d 0a 46 6f 72 20 69 3a 3d 31 20 74 6f 20 73 69 7a ┆Read 'henfald': n,a, t,t lnn := arrayÆsize(n)Å For i:=1 to siz┆
0x00d800…00da00 (3, 1, 4) 01 74 74 00 00 00 00 00 00 00 00 00 00 00 00 00 01 6e 6e 6e 00 00 00 00 00 00 00 00 00 00 00 00 04 6e 66 69 74 69 74 00 00 00 00 00 00 00 00 00 00 63 6e 6e 6e 65 00 00 00 00 00 00 00 00 00 00 ┆ tt nnn nfitit cnnne ┆
0x00da00…00dc00 (3, 1, 5) 50 6f 69 6e 74 73 20 34 35 0d 0a 56 61 72 69 61 62 6c 65 73 20 4e 2c 41 2c 54 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆Points 45 Variables N,A,T ┆
0x00dc00…00de00 (3, 1, 6) 8a 00 00 00 40 68 87 00 00 00 00 0e 7f 99 99 99 99 19 8a 00 00 00 80 51 87 00 00 00 00 36 80 99 99 99 99 19 8a 00 00 00 c0 44 86 00 00 00 00 4c 80 65 66 66 66 66 8a 00 00 00 40 35 86 00 00 00 ┆ @h Q 6 D L effff @5 ┆
0x00de00…00e000 (3, 1, 7) 00 00 00 50 84 2d 33 33 33 0b 87 00 00 00 00 1e 84 00 00 00 00 00 84 f9 ff ff ff 0f 87 00 00 00 00 10 83 00 00 00 00 60 84 c5 cc cc cc 14 87 00 00 00 00 04 83 00 00 00 00 40 84 91 99 99 99 19 ┆ P -333 ` @ ┆
0x00e000…00e200 (3, 1, 8) 2f 2f 20 6d 6f 64 65 6c 3a 20 6d 61 73 66 69 74 32 0d 0a 0d 0a 78 20 20 3a 3d 20 78 20 2b 20 64 7a 0d 0a 79 31 20 3a 3d 20 69 6e 74 65 72 70 6f 6c 61 74 65 28 78 2c 20 7a 2c 20 6d 61 73 73 2c ┆// model: masfit2 x := x + dz y1 := interpolate(x, z, mass,┆
0x00e200…00e400 (3, 1, 9) 0d 0a 7a 20 20 20 3a 3d 20 61 72 72 61 79 5b 37 5d 28 33 30 2c 33 31 2c 33 32 2c 33 33 2c 33 34 2c 33 35 2c 33 36 29 0d 0a 6d 61 73 73 3a 3d 20 61 72 72 61 79 5b 37 5d 28 2d 36 35 2e 30 33 2c ┆ z := arrayÆ7Å(30,31,32,33,34,35,36) mass:= arrayÆ7Å(-65.03,┆
0x00e400…00e600 (3, 1, 10) 01 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 79 31 00 00 00 00 00 00 00 00 00 00 00 00 00 02 79 32 00 00 00 00 00 00 00 00 00 00 00 00 00 00 64 78 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ x y1 y2 dx ┆
0x00e600…00e800 (3, 1, 11) 2e 20 20 20 20 20 20 20 20 20 20 10 00 00 00 00 00 00 00 00 00 00 31 57 57 61 58 00 00 00 00 00 2e 2e 20 20 20 20 20 20 20 20 20 10 00 00 00 00 00 00 00 00 00 00 31 57 57 61 00 00 00 00 00 00 ┆. 1WWaX .. 1WWa ┆
0x00e800…00ea00 (3, 1, 12) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 41 63 63 65 6c 65 72 61 0d 0a 0d 0a 64 76 20 3a 3d 20 61 20 2a 20 64 74 0d 0a 76 20 20 3a 3d 20 76 20 2b 20 64 76 0d 0a 64 78 20 3a 3d 20 76 20 2a 20 64 74 0d ┆// Model : Accelera dv := a * dt v := v + dv dx := v * dt ┆
0x00ea00…00ec00 (3, 1, 13) 61 20 20 3a 3d 20 32 20 20 20 20 20 20 20 20 2f 2f 20 6d 65 74 65 72 2f 73 65 6b 5e 32 0d 0a 76 20 20 3a 3d 20 33 20 20 20 20 20 20 20 20 2f 2f 20 6d 65 74 65 72 2f 73 65 6b 0d 0a 78 20 20 3a ┆a := 2 // meter/sek^2 v := 3 // meter/sek x :┆
0x00ec00…00ee00 (3, 1, 14) 01 74 6c 6f 6b 61 6c 76 a8 56 57 8d 46 ae 50 e8 01 78 6c 6f 6b 61 6c a3 65 73 a3 75 7b a3 77 7b 01 76 65 6a b8 02 00 50 e8 bb fb b8 75 7b 50 b8 00 68 61 73 74 69 67 68 65 64 b8 01 00 50 e8 a5 ┆ tlokalv VW F P xlokal es uæ wæ vej P uæP hastighed P ┆
0x00ee00…00f000 (3, 1, 15) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 46 6a 65 64 65 72 0d 0a 0d 0a 61 3a 3d 2d 6b 2a 78 2f 6d 0d 0a 64 76 3a 3d 61 2a 64 74 0d 0a 76 3a 3d 76 2b 64 76 0d 0a 64 78 3a 3d 76 2a 64 74 0d 0a 78 3a 3d ┆// Model : Fjeder a:=-k*x/m dv:=a*dt v:=v+dv dx:=v*dt x:=┆
0x00f000…00f200 (4, 0, 1) 6b 3a 3d 35 30 20 20 20 20 20 20 20 20 20 2f 2f 20 6e 65 77 74 6f 6e 2f 6d 65 74 65 72 0d 0a 6d 3a 3d 30 2e 31 20 20 20 20 20 20 20 20 2f 2f 20 6b 69 6c 6f 67 72 61 6d 0d 0a 78 3a 3d 30 2e 33 ┆k:=50 // newton/meter m:=0.1 // kilogram x:=0.3┆
0x00f200…00f400 (4, 0, 2) 01 74 21 55 e8 3c ff 8b 7e 04 36 8b 7d 04 36 8b 01 78 36 8b 7d 04 36 8b 7d 04 36 8b 7d 04 36 8a 01 76 50 8d 7e df 16 57 9a af 08 41 16 b0 0c 50 00 be 08 41 16 b0 0b 50 9a be 08 41 16 9a 33 09 ┆ t!U < ü 6 å 6 x6 å 6 å 6 å 6 vP ü W A P A P A 3 ┆
0x00f400…00f600 (4, 0, 3) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 46 61 6c 64 0d 0a 0d 0a 64 76 20 3a 3d 20 2d 67 20 2a 20 64 74 0d 0a 76 20 20 3a 3d 20 76 20 2b 20 64 76 0d 0a 64 78 20 3a 3d 20 76 20 2a 20 64 74 0d 0a 78 20 ┆// Model : Fald dv := -g * dt v := v + dv dx := v * dt x ┆
0x00f600…00f800 (4, 0, 4) 6d 20 20 3a 3d 20 31 30 30 20 20 20 20 20 20 2f 2f 20 6b 69 6c 6f 67 72 61 6d 0d 0a 67 20 20 3a 3d 20 39 2e 38 32 20 20 20 20 20 2f 2f 20 6d 65 74 65 72 2f 73 65 6b 5e 32 0d 0a 76 20 20 3a 3d ┆m := 100 // kilogram g := 9.82 // meter/sek^2 v :=┆
0x00f800…00fa00 (4, 0, 5) 01 74 6c 6f 6b 61 6c 76 a8 56 57 8d 46 ae 50 e8 01 78 6c 6f 6b 61 6c a3 65 73 a3 75 7b a3 77 7b 04 45 6b 69 6e 02 00 50 e8 bb fb b8 75 7b 50 b8 04 45 6d 65 6b 69 67 68 65 64 b8 01 00 50 e8 a5 ┆ tlokalv VW F P xlokal es uæ wæ Ekin P uæP Emekighed P ┆
0x00fa00…00fc00 (4, 0, 6) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 4b 61 73 74 31 0d 0a 0d 0a 76 20 20 20 3a 3d 20 73 71 72 28 76 78 2a 76 78 2b 76 79 2a 76 79 29 0d 0a 46 78 20 20 3a 3d 20 2d 66 72 2a 76 78 2a 76 0d 0a 46 79 ┆// Model : Kast1 v := sqr(vx*vx+vy*vy) Fx := -fr*vx*v Fy┆
0x00fc00…00fe00 (4, 0, 7) 6d 20 20 3a 3d 20 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6b 69 6c 6f 67 72 61 6d 0d 0a 67 20 20 3a 3d 20 39 2e 38 32 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6d 65 ┆m := 2 // kilogram g := 9.82 // me┆
0x00fe00…010000 (4, 0, 8) 01 78 2e 62 fe ff 01 02 4e 0f 23 00 c9 1e 62 43 01 79 62 43 16 30 39 2c 35 30 39 2c 71 1e 62 43 00 63 39 2c 00 00 00 00 83 03 2e 62 7a fc fd 1d 00 75 94 21 62 43 00 00 00 00 00 00 2c 00 2e 62 ┆ x.b N # bC ybC 09,509,q bC c9, .bz u !bC , .b┆
0x010000…010200 (4, 0, 9) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 4b 61 73 74 32 0d 0a 0d 0a 46 78 20 20 3a 3d 20 30 0d 0a 46 79 20 20 3a 3d 20 2d 6d 2a 67 20 0d 0a 61 78 20 20 3a 3d 20 46 78 20 2f 20 6d 0d 0a 61 79 20 20 3a ┆// Model : Kast2 Fx := 0 Fy := -m*g ax := Fx / m ay :┆
0x010200…010400 (4, 0, 10) 6d 20 20 3a 3d 20 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6b 69 6c 6f 67 72 61 6d 0d 0a 67 20 20 3a 3d 20 39 2e 38 32 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6d 65 ┆m := 2 // kilogram g := 9.82 // me┆
0x010400…010600 (4, 0, 11) 4b 41 53 54 32 20 20 20 50 41 52 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 68 00 70 00 00 00 4b 41 53 54 33 20 20 20 4d 4f 44 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 69 00 d5 00 00 00 ┆KAST2 PAR ! h p KAST3 MOD ! i ┆
0x010600…010800 (4, 0, 12) 01 78 2e 62 fe ff 01 02 4e 0f 23 00 c9 1e 62 43 01 79 62 43 16 30 39 2c 35 30 39 2c 71 1e 62 43 00 63 39 2c 00 00 00 00 83 03 2e 62 7a fc fd 1d 00 75 94 21 62 43 00 00 00 00 00 00 2c 00 2e 62 ┆ x.b N # bC ybC 09,509,q bC c9, .bz u !bC , .b┆
0x010800…010a00 (4, 0, 13) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 4b 61 73 74 33 0d 0a 0d 0a 66 75 6e 63 20 61 78 0d 0a 20 20 76 3a 3d 20 73 71 72 28 76 78 2a 76 78 2b 76 79 2a 76 79 29 0d 0a 20 20 72 65 74 75 72 6e 20 20 2d ┆// Model : Kast3 func ax v:= sqr(vx*vx+vy*vy) return -┆
0x010a00…010c00 (4, 0, 14) 6d 20 20 3a 3d 20 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6b 69 6c 6f 67 72 61 6d 0d 0a 67 20 20 3a 3d 20 39 2e 38 32 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6d 65 ┆m := 2 // kilogram g := 9.82 // me┆
0x010c00…010e00 (4, 0, 15) 01 78 2e 62 fe ff 01 02 4e 0f 23 00 c9 1e 62 43 01 79 62 43 16 30 39 2c 35 30 39 2c 71 1e 62 43 00 63 39 2c 00 00 00 00 83 03 2e 62 7a fc fd 1d 00 75 94 21 62 43 00 00 00 00 00 00 2c 00 2e 62 ┆ x.b N # bC ybC 09,509,q bC c9, .bz u !bC , .b┆
0x010e00…011000 (4, 1, 1) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 4b 61 73 74 34 0d 0a 0d 0a 78 2c 79 2c 76 78 2c 76 79 3a 3d 20 72 6b 34 28 76 78 2c 76 79 2c 30 2c 2d 67 2c 74 29 0d 0a 74 20 20 3a 3d 20 74 20 2b 20 64 74 0d ┆// Model : Kast4 x,y,vx,vy:= rk4(vx,vy,0,-g,t) t := t + dt ┆
0x011000…011200 (4, 1, 2) 6d 20 20 3a 3d 20 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6b 69 6c 6f 67 72 61 6d 0d 0a 67 20 20 3a 3d 20 39 2e 38 32 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6d 65 ┆m := 2 // kilogram g := 9.82 // me┆
0x011200…011400 (4, 1, 3) 01 78 2e 62 fe ff 01 02 4e 0f 23 00 c9 1e 62 43 01 79 62 43 16 30 39 2c 35 30 39 2c 71 1e 62 43 00 63 39 2c 00 00 00 00 83 03 2e 62 7a fc fd 1d 00 75 94 21 62 43 00 00 00 00 00 00 2c 00 2e 62 ┆ x.b N # bC ybC 09,509,q bC c9, .bz u !bC , .b┆
0x011400…011600 (4, 1, 4) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 47 72 61 76 69 74 61 31 0d 0a 0d 0a 72 61 20 20 3a 3d 20 78 2a 78 2b 79 2a 79 0d 0a 61 78 20 20 3a 3d 20 2d 28 47 2a 4d 2a 78 29 2f 72 61 2f 73 71 72 28 72 61 ┆// Model : Gravita1 ra := x*x+y*y ax := -(G*M*x)/ra/sqr(ra┆
0x011600…011800 (4, 1, 5) 4d 20 3a 3d 20 35 2e 39 37 65 32 34 20 20 20 20 2f 2f 20 6b 67 0d 0a 47 20 3a 3d 20 36 2e 36 37 65 2d 31 31 20 20 20 2f 2f 20 53 69 20 65 6e 68 65 64 0d 0a 52 30 3a 3d 20 32 2e 32 65 37 20 20 ┆M := 5.97e24 // kg G := 6.67e-11 // Si enhed R0:= 2.2e7 ┆
0x011800…011a00 (4, 1, 6) 01 78 20 00 75 b2 ff 76 a8 56 57 8d 46 ae 50 e8 01 79 61 6e fb 33 c0 a3 65 73 a3 75 7b a3 77 7b 00 66 35 50 b8 02 00 50 e8 bb fb b8 75 7b 50 b8 00 00 50 e8 b0 fb b8 65 73 50 b8 01 00 50 e8 a5 ┆ x u v VW F P yan 3 es uæ wæ f5P P uæP P esP P ┆
0x011a00…011c00 (4, 1, 7) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 47 72 61 76 69 74 61 32 0d 0a 0d 0a 66 75 6e 63 20 61 28 78 2c 79 29 0d 0a 20 20 72 61 20 3a 3d 20 78 2a 78 2b 79 2a 79 0d 0a 20 20 72 65 74 75 72 6e 20 2d 28 ┆// Model : Gravita2 func a(x,y) ra := x*x+y*y return -(┆
0x011c00…011e00 (4, 1, 8) 4d 20 3a 3d 20 35 2e 39 37 65 32 34 20 20 20 20 2f 2f 20 6b 67 0d 0a 47 20 3a 3d 20 36 2e 36 37 65 2d 31 31 20 20 20 2f 2f 20 53 69 20 65 6e 68 65 64 0d 0a 52 30 3a 3d 20 32 2e 32 65 37 20 20 ┆M := 5.97e24 // kg G := 6.67e-11 // Si enhed R0:= 2.2e7 ┆
0x011e00…012000 (4, 1, 9) 01 78 20 00 75 b2 ff 76 a8 56 57 8d 46 ae 50 e8 01 79 61 6e fb 33 c0 a3 65 73 a3 75 7b a3 77 7b 00 66 35 50 b8 02 00 50 e8 bb fb b8 75 7b 50 b8 00 00 50 e8 b0 fb b8 65 73 50 b8 01 00 50 e8 a5 ┆ x u v VW F P yan 3 es uæ wæ f5P P uæP P esP P ┆
0x012000…012200 (4, 1, 10) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 43 6f 75 6c 6f 6d 62 31 0d 0a 0d 0a 72 20 20 3a 3d 20 73 71 72 28 78 2a 78 2b 79 2a 79 29 0d 0a 61 20 20 3a 3d 20 6b 20 2a 20 71 31 20 2a 20 71 32 20 2f 20 6d ┆// Model : Coulomb1 r := sqr(x*x+y*y) a := k * q1 * q2 / m┆
0x012200…012400 (4, 1, 11) 6d 20 3a 3d 20 36 2e 36 34 45 2d 32 37 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6b 67 0d 0a 71 31 3a 3d 20 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 65 0d 0a 71 32 3a 3d 20 ┆m := 6.64E-27 // kg q1:= 2 // e q2:= ┆
0x012400…012600 (4, 1, 12) 01 78 20 00 75 b2 ff 76 a8 56 57 8d 46 ae 50 e8 01 79 61 6e fb 33 c0 a3 65 73 a3 75 7b a3 77 7b 00 77 7b 50 b8 02 00 50 e8 bb fb b8 75 7b 50 b8 00 00 50 e8 b0 fb b8 65 73 50 b8 01 00 50 e8 a5 ┆ x u v VW F P yan 3 es uæ wæ wæP P uæP P esP P ┆
0x012600…012800 (4, 1, 13) 43 4f 55 4c 4f 4d 42 32 4d 4f 44 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 79 00 b3 00 00 00 43 4f 55 4c 4f 4d 42 32 56 52 44 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 7a 00 8d 01 00 00 ┆COULOMB2MOD ! y COULOMB2VRD ! z ┆
0x012800…012a00 (4, 1, 14) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 43 6f 75 6c 6f 6d 62 32 0d 0a 0d 0a 66 75 6e 63 20 61 28 78 2c 79 29 0d 0a 20 20 72 61 20 3a 3d 20 78 2a 78 2b 79 2a 79 0d 0a 20 20 72 65 74 75 72 6e 20 28 6b ┆// Model : Coulomb2 func a(x,y) ra := x*x+y*y return (k┆
0x012a00…012c00 (4, 1, 15) 6d 20 3a 3d 20 36 2e 36 34 45 2d 32 37 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6b 69 6c 6f 67 72 61 6d 0d 0a 71 31 3a 3d 20 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 65 0d ┆m := 6.64E-27 // kilogram q1:= 2 // e ┆
0x012c00…012e00 (5, 0, 1) 01 78 20 00 75 b2 ff 76 a8 56 57 8d 46 ae 50 e8 01 79 61 6e fb 33 c0 a3 65 73 a3 75 7b a3 77 7b 00 77 7b 50 b8 02 00 50 e8 bb fb b8 75 7b 50 b8 00 00 50 e8 b0 fb b8 65 73 50 b8 01 00 50 e8 a5 ┆ x u v VW F P yan 3 es uæ wæ wæP P uæP P esP P ┆
0x012e00…013000 (5, 0, 2) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 42 6f 6c 64 31 0d 0a 0d 0a 78 2c 79 2c 76 79 20 3a 3d 20 69 6e 74 65 67 72 61 74 65 28 76 78 2c 76 79 2c 2d 67 2c 74 29 0d 0a 0d 0a 74 20 20 3a 3d 20 74 20 2b ┆// Model : Bold1 x,y,vy := integrate(vx,vy,-g,t) t := t +┆
0x013000…013200 (5, 0, 3) 67 3a 3d 20 39 2e 38 32 20 20 20 20 20 20 20 20 2f 2f 20 6d 65 74 65 72 2f 73 65 6b 5e 32 0d 0a 61 3a 3d 20 31 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 67 72 9b 66 74 65 6e 73 20 68 91 6c 64 ┆g:= 9.82 // meter/sek^2 a:= 1 // gr ftens h ld┆
0x013200…013400 (5, 0, 4) 0a 68 31 3a 69 6e 74 65 67 72 61 74 65 20 3a 3d 20 65 75 6c 65 72 0d 0a 68 32 3a 69 6e 74 65 67 72 61 74 65 20 3a 3d 20 72 6b 32 0d 0a 68 34 3a 69 6e 74 65 67 72 61 74 65 20 3a 3d 20 72 6b 34 ┆ h1:integrate := euler h2:integrate := rk2 h4:integrate := rk4┆
0x013400…013600 (5, 0, 5) 01 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 79 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 61 78 00 00 00 00 00 00 00 00 00 00 00 00 00 04 45 6d 65 6b 00 00 00 00 00 00 00 00 00 00 00 ┆ x y ax Emek ┆
0x013600…013800 (5, 0, 6) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 42 6f 6c 64 32 0d 0a 0d 0a 79 20 3a 3d 20 79 30 2b 56 30 79 2a 74 2d 67 2a 74 2a 74 2f 32 0d 0a 78 20 3a 3d 20 78 30 2b 76 30 78 2a 74 0d 0a 0d 0a 49 66 20 79 ┆// Model : Bold2 y := y0+V0y*t-g*t*t/2 x := x0+v0x*t If y┆
0x013800…013a00 (5, 0, 7) 01 78 78 00 00 00 00 00 00 00 00 00 00 00 00 00 01 79 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 76 72 9b 66 74 00 00 00 00 00 00 00 00 00 00 01 68 74 6a 66 74 00 00 00 00 00 00 00 00 00 00 ┆ xx y vr ft htjft ┆
0x013a00…013c00 (5, 0, 8) 67 20 3a 3d 20 31 30 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6d 65 74 65 72 2f 73 65 6b 5e 32 0d 0a 61 20 3a 3d 20 31 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 67 72 9b 66 74 65 6e 73 20 68 91 ┆g := 10 // meter/sek^2 a := 1 // gr ftens h ┆
0x013c00…013e00 (5, 0, 9) 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x013e00…014000 (5, 0, 10) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 42 6f 6c 64 33 0d 0a 0d 0a 79 20 3a 3d 20 79 30 2b 56 30 79 2a 74 2d 67 2a 74 2a 74 2f 32 0d 0a 78 20 3a 3d 20 78 30 2b 76 30 78 2a 74 0d 0a 0d 0a 49 66 20 79 ┆// Model : Bold3 y := y0+V0y*t-g*t*t/2 x := x0+v0x*t If y┆
0x014000…014200 (5, 0, 11) 67 20 3a 3d 20 31 30 20 20 20 20 20 20 20 20 2f 2f 20 6d 65 74 65 72 2f 73 65 6b 5e 32 0d 0a 0d 0a 46 6f 72 20 61 20 3a 3d 20 30 2e 39 35 20 74 6f 20 31 2e 33 20 73 74 65 70 20 30 2e 30 30 35 ┆g := 10 // meter/sek^2 For a := 0.95 to 1.3 step 0.005┆
0x014200…014400 (5, 0, 12) 30 78 3a 3d 20 28 56 78 2a 28 31 2d 61 2a 61 29 2b 32 2a 61 2a 56 79 29 2f 28 31 2b 61 2a 61 29 0d 0a 56 30 79 3a 3d 20 28 32 2a 61 2a 56 78 2b 56 79 2a 28 61 2a 61 2d 31 29 29 2f 28 31 2b 61 ┆0x:= (Vx*(1-a*a)+2*a*Vy)/(1+a*a) V0y:= (2*a*Vx+Vy*(a*a-1))/(1+a┆
0x014400…014600 (5, 0, 13) 01 78 78 00 00 00 00 00 00 00 00 00 00 00 00 00 01 79 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 76 72 9b 66 74 00 00 00 00 00 00 00 00 00 00 01 68 74 6a 66 74 00 00 00 00 00 00 00 00 00 00 ┆ xx y vr ft htjft ┆
0x014600…014800 (5, 0, 14) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 48 65 6e 66 61 6c 64 30 0d 0a 0d 0a 41 20 20 3a 3d 20 4e 20 2a 20 6b 0d 0a 64 4e 20 3a 3d 20 41 20 2a 20 64 74 0d 0a 4e 20 20 3a 3d 20 4e 20 2d 64 4e 0d 0a 74 ┆// Model : Henfald0 A := N * k dN := A * dt N := N -dN t┆
0x014800…014a00 (5, 0, 15) 4e 20 20 3a 3d 20 30 2e 33 32 20 20 20 20 20 20 20 20 2f 2f 20 6d 6f 6c 20 47 61 2d 37 36 0d 0a 6b 20 20 3a 3d 20 30 2e 30 32 35 36 20 20 20 20 20 20 2f 2f 20 31 2f 73 65 6b 0d 0a 64 74 20 3a ┆N := 0.32 // mol Ga-76 k := 0.0256 // 1/sek dt :┆
0x014a00…014c00 (5, 1, 1) 01 74 20 00 75 b2 ff 76 a8 56 57 8d 46 ae 50 e8 01 4e 31 4e fb 33 c0 a3 65 73 a3 75 7b a3 77 7b 00 4e 32 50 b8 02 00 50 e8 bb fb b8 75 7b 50 b8 00 4e 33 e8 b0 fb b8 65 73 50 b8 01 00 50 e8 a5 ┆ t u v VW F P N1N 3 es uæ wæ N2P P uæP N3 esP P ┆
0x014c00…014e00 (5, 1, 2) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 48 65 6e 66 61 6c 64 31 0d 0a 0d 0a 4e 31 20 3a 3d 20 4e 31 20 2d 20 6b 31 20 2a 20 4e 31 20 2a 20 64 74 0d 0a 4e 32 20 3a 3d 20 4e 32 20 2b 20 6b 31 20 2a 20 ┆// Model : Henfald1 N1 := N1 - k1 * N1 * dt N2 := N2 + k1 * ┆
0x014e00…015000 (5, 1, 3) 48 45 4e 46 41 4c 44 31 56 52 44 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 8d 00 7c 00 00 00 48 45 4e 46 41 4c 44 31 50 41 52 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 8e 00 70 00 00 00 ┆HENFALD1VRD ! ø HENFALD1PAR ! p ┆
0x015000…015200 (5, 1, 4) 6b 31 20 3a 3d 20 30 2e 31 32 32 20 20 20 20 20 20 20 20 20 2f 2f 20 31 2f 73 65 6b 0d 0a 6b 32 20 3a 3d 20 30 2e 30 32 35 36 20 20 20 20 20 20 20 20 2f 2f 20 31 2f 73 65 6b 0d 0a 4e 31 20 3a ┆k1 := 0.122 // 1/sek k2 := 0.0256 // 1/sek N1 :┆
0x015200…015400 (5, 1, 5) 01 74 20 00 75 b2 ff 76 a8 56 57 8d 46 ae 50 e8 02 4e 31 4e fb 33 c0 a3 65 73 a3 75 7b a3 77 7b 02 4e 32 50 b8 02 00 50 e8 bb fb b8 75 7b 50 b8 02 4e 33 e8 b0 fb b8 65 73 50 b8 01 00 50 e8 a5 ┆ t u v VW F P N1N 3 es uæ wæ N2P P uæP N3 esP P ┆
0x015400…015600 (5, 1, 6) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 48 65 6e 66 61 6c 64 32 0d 0a 0d 0a 4e 31 2c 4e 32 2c 4e 33 3a 3d 69 6e 74 65 67 72 61 74 65 28 2d 6b 31 2a 4e 31 2c 6b 31 2a 4e 31 2d 6b 32 2a 4e 32 2c 6b 32 ┆// Model : Henfald2 N1,N2,N3:=integrate(-k1*N1,k1*N1-k2*N2,k2┆
0x015600…015800 (5, 1, 7) 6b 31 20 3a 3d 20 30 2e 31 32 32 20 20 20 20 20 20 20 2f 2f 20 31 2f 73 65 6b 0d 0a 6b 32 20 3a 3d 20 30 2e 30 32 35 36 20 20 20 20 20 20 2f 2f 20 31 2f 73 65 6b 0d 0a 4e 31 20 3a 3d 20 31 2e ┆k1 := 0.122 // 1/sek k2 := 0.0256 // 1/sek N1 := 1.┆
0x015800…015a00 (5, 1, 8) 01 74 20 00 75 b2 ff 76 a8 56 57 8d 46 ae 50 e8 02 4e 31 4e fb 33 c0 a3 65 73 a3 75 7b a3 77 7b 02 4e 32 50 b8 02 00 50 e8 bb fb b8 75 7b 50 b8 02 4e 33 e8 b0 fb b8 65 73 50 b8 01 00 50 e8 a5 ┆ t u v VW F P N1N 3 es uæ wæ N2P P uæP N3 esP P ┆
0x015a00…015c00 (5, 1, 9) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 48 65 6e 66 61 6c 64 33 0d 0a 0d 0a 41 20 3a 3d 20 30 0d 0a 46 6f 72 20 69 3a 3d 20 31 20 74 6f 20 4e 30 20 64 6f 20 0d 0a 20 20 49 66 20 4b 65 72 6e 65 5b 69 ┆// Model : Henfald3 A := 0 For i:= 1 to N0 do If KerneÆi┆
0x015c00…015e00 (5, 1, 10) 4b 65 72 6e 65 20 3a 3d 20 61 72 72 61 79 5b 31 30 30 30 5d 20 20 20 20 2f 2f 20 73 74 6b 0d 0a 4e 30 20 3a 3d 20 73 69 7a 65 28 6b 65 72 6e 65 29 0d 0a 46 6f 72 20 69 3a 3d 31 20 74 6f 20 4e ┆Kerne := arrayÆ1000Å // stk N0 := size(kerne) For i:=1 to N┆
0x015e00…016000 (5, 1, 11) 01 74 74 00 00 00 00 00 00 00 00 00 00 00 00 00 01 41 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 4e 65 72 6e 65 00 00 00 00 00 00 00 00 00 00 ┆ tt A N Nerne ┆
0x016000…016200 (5, 1, 12) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 48 65 6e 66 61 6c 64 34 0d 0a 0d 0a 41 20 3a 3d 20 30 0d 0a 46 6f 72 20 69 3a 3d 20 31 20 74 6f 20 4e 30 20 64 6f 20 0d 0a 20 20 49 66 20 4b 65 72 6e 65 5b 69 ┆// Model : Henfald4 A := 0 For i:= 1 to N0 do If KerneÆi┆
0x016200…016400 (5, 1, 13) 4b 65 72 6e 65 20 3a 3d 20 61 72 72 61 79 5b 31 30 30 30 5d 20 20 20 20 20 2f 2f 20 73 74 6b 0d 0a 4e 30 20 3a 3d 20 73 69 7a 65 28 6b 65 72 6e 65 29 0d 0a 46 6f 72 20 69 3a 3d 31 20 74 6f 20 ┆Kerne := arrayÆ1000Å // stk N0 := size(kerne) For i:=1 to ┆
0x016400…016600 (5, 1, 14) 01 74 74 00 00 00 00 00 00 00 00 00 00 00 00 00 01 41 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 4e 65 72 6e 65 00 00 00 00 00 00 00 00 00 00 ┆ tt A N Nerne ┆
0x016600…016800 (5, 1, 15) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 53 70 2d 4b 69 6c 64 65 0d 0a 0d 0a 74 20 20 3a 3d 20 74 20 2b 20 64 74 0d 0a 0d 0a 55 79 20 3a 3d 20 55 5f 79 64 72 65 28 74 29 0d 0a 0d 0a 0d 0a 1a 1a 1a 1a ┆// Model : Sp-Kilde t := t + dt Uy := U_ydre(t) ┆
0x016800…016a00 (6, 0, 1) 64 74 20 3a 3d 20 30 2e 30 30 31 20 20 20 20 20 20 20 20 20 20 2f 2f 20 73 65 6b 0d 0a 55 30 20 3a 3d 20 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 76 6f 6c 74 0d 0a 66 20 20 3a 3d ┆dt := 0.001 // sek U0 := 10 // volt f :=┆
0x016a00…016c00 (6, 0, 2) 75 64 74 0d 0a 65 6e 64 66 75 6e 63 0d 0a 0d 0a 68 31 3a 20 6d 20 20 3a 3d 20 6d 20 2b 20 31 3b 20 49 66 20 6d 3e 35 20 74 68 65 6e 20 6d 20 3a 3d 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆udt endfunc h1: m := m + 1; If m>5 then m := 0 ┆
0x016c00…016e00 (6, 0, 3) 01 74 52 00 00 00 00 00 00 00 00 00 00 00 00 00 02 55 79 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 43 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ tR Uy Ul UC ┆
0x016e00…017000 (6, 0, 4) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 52 4c 2d 4b 72 65 64 73 0d 0a 0d 0a 55 52 20 3a 3d 20 52 20 2a 20 49 0d 0a 55 4c 20 3a 3d 20 55 30 20 2d 20 55 52 20 0d 0a 49 20 20 3a 3d 20 49 20 2b 20 20 55 ┆// Model : RL-Kreds UR := R * I UL := U0 - UR I := I + U┆
0x017000…017200 (6, 0, 5) 52 20 20 3a 3d 20 33 30 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6f 68 6d 0d 0a 4c 20 20 3a 3d 20 31 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 68 65 6e 72 79 0d 0a 55 30 20 3a 3d 20 ┆R := 30 // ohm L := 1 // henry U0 := ┆
0x017200…017400 (6, 0, 6) 52 4c 2d 4b 52 45 44 53 50 41 52 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 9f 00 70 00 00 00 52 43 2d 4b 52 31 20 20 4d 4f 44 20 00 00 00 00 00 00 00 00 00 00 00 08 21 14 a0 00 71 00 00 00 ┆RL-KREDSPAR ! p RC-KR1 MOD ! q ┆
0x017400…017600 (6, 0, 7) 01 74 52 00 00 00 00 00 00 00 00 00 00 00 00 00 01 49 52 00 00 00 00 00 00 00 00 00 00 00 00 00 02 55 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 43 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ tR IR Ul UC ┆
0x017600…017800 (6, 0, 8) 2f 2f 20 4d 6f 64 65 6c 20 52 43 2d 4b 72 31 0d 0a 0d 0a 55 43 20 3a 3d 20 51 20 2f 20 43 0d 0a 55 52 20 3a 3d 20 55 30 20 2d 20 55 43 20 0d 0a 49 20 20 3a 3d 20 55 52 20 2f 20 52 20 0d 0a 64 ┆// Model RC-Kr1 UC := Q / C UR := U0 - UC I := UR / R d┆
0x017800…017a00 (6, 0, 9) 52 20 20 3a 3d 20 33 30 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6f 68 6d 0d 0a 43 20 20 3a 3d 20 32 2e 32 65 2d 36 20 20 20 20 20 20 20 20 2f 2f 20 66 61 72 61 64 0d 0a 55 30 20 3a 3d 20 ┆R := 30 // ohm C := 2.2e-6 // farad U0 := ┆
0x017a00…017c00 (6, 0, 10) 01 74 52 00 00 00 00 00 00 00 00 00 00 00 00 00 02 55 43 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 43 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ tR UC Ul UC ┆
0x017c00…017e00 (6, 0, 11) 2f 2f 20 4d 6f 64 65 6c 20 52 43 2d 4b 72 32 0d 0a 0d 0a 66 75 6e 63 20 49 28 51 29 0d 0a 20 20 55 43 20 3a 3d 20 51 20 2f 20 43 0d 0a 20 20 55 52 20 3a 3d 20 55 30 20 2d 20 55 43 20 0d 0a 20 ┆// Model RC-Kr2 func I(Q) UC := Q / C UR := U0 - UC ┆
0x017e00…018000 (6, 0, 12) 52 20 20 3a 3d 20 33 30 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6f 68 6d 0d 0a 43 20 20 3a 3d 20 32 2e 32 65 2d 36 20 20 20 20 20 20 20 20 2f 2f 20 66 61 72 61 64 0d 0a 55 30 20 3a 3d 20 ┆R := 30 // ohm C := 2.2e-6 // farad U0 := ┆
0x018000…018200 (6, 0, 13) 01 74 52 00 00 00 00 00 00 00 00 00 00 00 00 00 02 55 43 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 43 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ tR UC Ul UC ┆
0x018200…018400 (6, 0, 14) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 52 4c 43 2d 4b 72 31 0d 0a 0d 0a 55 43 20 3a 3d 20 51 20 2f 20 43 0d 0a 55 52 20 3a 3d 20 52 20 2a 20 49 0d 0a 55 4c 20 3a 3d 20 55 30 20 2d 20 55 43 20 2d 20 ┆// Model : RLC-Kr1 UC := Q / C UR := R * I UL := U0 - UC - ┆
0x018400…018600 (6, 0, 15) 52 20 20 3a 3d 20 33 30 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6f 68 6d 0d 0a 43 20 20 3a 3d 20 32 2e 32 65 2d 36 20 20 20 20 20 20 20 20 2f 2f 20 66 61 72 61 64 0d 0a 4c 20 20 3a 3d 20 ┆R := 30 // ohm C := 2.2e-6 // farad L := ┆
0x018600…018800 (6, 1, 1) 01 74 52 00 00 00 00 00 00 00 00 00 00 00 00 00 01 49 52 00 00 00 00 00 00 00 00 00 00 00 00 00 00 51 4c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 43 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ tR IR QL UC ┆
0x018800…018a00 (6, 1, 2) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 52 4c 43 2d 4b 72 32 0d 0a 0d 0a 66 75 6e 63 20 55 4c 28 51 2c 49 29 0d 0a 20 20 55 43 20 20 3a 3d 20 51 20 2f 20 43 0d 0a 20 20 55 52 20 20 3a 3d 20 52 20 2a ┆// Model : RLC-Kr2 func UL(Q,I) UC := Q / C UR := R *┆
0x018a00…018c00 (6, 1, 3) 52 20 20 3a 3d 20 33 30 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6f 68 6d 0d 0a 43 20 20 3a 3d 20 32 2e 32 65 2d 36 20 20 20 20 20 20 20 20 2f 2f 20 66 61 72 61 64 0d 0a 4c 20 20 3a 3d 20 ┆R := 30 // ohm C := 2.2e-6 // farad L := ┆
0x018c00…018e00 (6, 1, 4) 01 74 52 00 00 00 00 00 00 00 00 00 00 00 00 00 01 49 52 00 00 00 00 00 00 00 00 00 00 00 00 00 00 51 4c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 43 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ tR IR QL UC ┆
0x018e00…019000 (6, 1, 5) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 49 6e 64 73 76 69 6e 67 0d 0a 0d 0a 66 75 6e 63 20 55 4c 0d 0a 20 20 55 43 20 20 3a 3d 20 51 20 2f 20 43 0d 0a 20 20 55 52 20 20 3a 3d 20 52 20 2a 20 49 0d 0a ┆// Model : Indsving func UL UC := Q / C UR := R * I ┆
0x019000…019200 (6, 1, 6) 52 20 20 3a 3d 20 32 30 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6f 68 6d 0d 0a 43 20 20 3a 3d 20 32 2e 32 65 2d 36 20 20 20 20 20 20 20 20 2f 2f 20 66 61 72 61 64 0d 0a 4c 20 20 3a 3d 20 ┆R := 20 // ohm C := 2.2e-6 // farad L := ┆
0x019200…019400 (6, 1, 7) 01 74 52 00 00 00 00 00 00 00 00 00 00 00 00 00 01 49 52 00 00 00 00 00 00 00 00 00 00 00 00 00 01 55 4c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 43 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ tR IR UL UC ┆
0x019400…019600 (6, 1, 8) 2e 20 20 20 20 20 20 20 20 20 20 10 00 00 00 00 00 00 00 00 00 00 3b 58 57 61 af 00 00 00 00 00 2e 2e 20 20 20 20 20 20 20 20 20 10 00 00 00 00 00 00 00 00 00 00 3b 58 57 61 00 00 00 00 00 00 ┆. ;XWa .. ;XWa ┆
0x019600…019800 (6, 1, 9) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 42 6f 65 6c 67 65 31 0d 0a 0d 0a 78 20 20 3a 3d 20 78 20 2b 20 64 78 0d 0a 79 20 20 3a 3d 20 41 20 2a 20 73 69 6e 28 32 20 2a 20 70 69 20 2a 20 78 20 2f 20 4c ┆// Model : Boelge1 x := x + dx y := A * sin(2 * pi * x / L┆
0x019800…019a00 (6, 1, 10) 64 78 20 3a 3d 20 30 2e 30 35 0d 0a 41 20 20 3a 3d 20 32 2e 35 0d 0a 46 6f 72 20 4c 20 3a 3d 20 31 20 74 6f 20 35 20 73 74 65 70 20 30 2e 35 20 64 6f 0d 0a 20 20 78 20 3a 3d 20 30 0d 0a 0d 0a ┆dx := 0.05 A := 2.5 For L := 1 to 5 step 0.5 do x := 0 ┆
0x019a00…019c00 (6, 1, 11) 01 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 79 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ x y ┆
0x019c00…019e00 (6, 1, 12) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 42 6f 65 6c 67 65 32 0d 0a 0d 0a 78 20 3a 3d 20 78 20 2b 20 64 78 0d 0a 79 20 3a 3d 20 41 20 2a 20 73 69 6e 28 32 2a 70 69 2a 78 2f 4c 20 2d 20 32 2a 70 69 2a ┆// Model : Boelge2 x := x + dx y := A * sin(2*pi*x/L - 2*pi*┆
0x019e00…01a000 (6, 1, 13) 64 78 20 3a 3d 20 30 2e 30 35 0d 0a 41 20 20 3a 3d 20 32 0d 0a 4c 20 20 3a 3d 20 33 0d 0a 54 30 20 3a 3d 20 35 0d 0a 46 6f 72 20 74 20 3a 3d 20 30 20 74 6f 20 54 30 20 64 6f 0d 0a 20 20 78 20 ┆dx := 0.05 A := 2 L := 3 T0 := 5 For t := 0 to T0 do x ┆
0x01a000…01a200 (6, 1, 14) 01 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 79 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ x y ┆
0x01a200…01a400 (6, 1, 15) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 53 74 61 61 65 6e 64 65 0d 0a 0d 0a 78 20 20 3a 3d 20 78 20 2b 20 64 78 0d 0a 79 31 20 3a 3d 20 31 2e 35 20 2b 20 41 2a 73 69 6e 28 32 2a 70 69 2a 78 2f 4c 20 ┆// Model : Staaende x := x + dx y1 := 1.5 + A*sin(2*pi*x/L ┆
0x01a400…01a600 (7, 0, 1) 64 78 20 3a 3d 20 30 2e 30 35 20 20 20 20 20 20 20 2f 2f 20 6d 65 74 65 72 0d 0a 64 74 20 3a 3d 20 30 2e 32 34 20 20 20 20 20 20 20 2f 2f 20 73 65 6b 0d 0a 41 20 20 3a 3d 20 31 20 20 20 20 20 ┆dx := 0.05 // meter dt := 0.24 // sek A := 1 ┆
0x01a600…01a800 (7, 0, 2) 01 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 79 31 00 00 00 00 00 00 00 00 00 00 00 00 00 02 79 32 00 00 00 00 00 00 00 00 00 00 00 00 00 01 79 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ x y1 y2 y ┆
0x01a800…01aa00 (7, 0, 3) 2f 2f 20 4d 6f 64 65 6c 20 3a 20 53 76 61 65 76 6e 69 6e 0d 0a 0d 0a 79 31 20 3a 3d 20 31 2e 35 20 2b 20 41 2a 73 69 6e 28 32 2a 70 69 2a 66 31 2a 74 29 0d 0a 79 32 20 3a 3d 20 34 20 2b 20 41 ┆// Model : Svaevnin y1 := 1.5 + A*sin(2*pi*f1*t) y2 := 4 + A┆
0x01aa00…01ac00 (7, 0, 4) 64 74 20 3a 3d 20 30 2e 30 32 20 20 20 20 20 20 20 2f 2f 20 73 65 6b 0d 0a 41 20 20 3a 3d 20 31 20 20 20 20 20 20 20 20 20 20 2f 2f 20 6d 65 74 65 72 0d 0a 66 31 20 3a 3d 20 32 20 20 20 20 20 ┆dt := 0.02 // sek A := 1 // meter f1 := 2 ┆
0x01ac00…01ae00 (7, 0, 5) 01 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 79 31 00 00 00 00 00 00 00 00 00 00 00 00 00 02 79 32 00 00 00 00 00 00 00 00 00 00 00 00 00 01 79 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ t y1 y2 y ┆
[…truncated at 200 lines…]