DataMuseum.dk Presents historical artifacts from the history of: RegneCentralen RC759 "Piccoline"

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦17eb80bca⟧

    Length: 511 (0x1ff)
    Names: »ROV-BYT2.DVR«

Derivation

└─⟦2f3cc15d0⟧ Bits:30003050 Dymos II - Dynamisk Model System
    └─ ⟦this⟧ »ROV-BYT2.DVR« 

Hex Dump

0x000…020 6b 31 20 3a 3d 20 30 2e 33 20 20 20 20 20 20 20 2f 2f 20 6d 86 6c 20 66 6f 72 20 62 79 74 74 65   ┆k1 := 0.3       // m l for bytte┆
0x020…040 64 79 72 73 20 66 6f 72 6d 65 72 69 6e 67 73 65 76 6e 65 20 28 31 2f 86 72 29 0d 0a 0d 0a 6b 32   ┆dyrs formeringsevne (1/ r)    k2┆
0x040…060 20 3a 3d 20 34 45 2d 34 20 20 20 20 20 20 2f 2f 20 6d 86 6c 20 66 6f 72 20 72 6f 76 64 79 72 2d   ┆ := 4E-4      // m l for rovdyr-┆
0x060…080 62 79 74 74 65 64 79 72 20 76 65 6b 73 65 6c 76 69 72 6b 6e 69 6e 67 20 28 31 2f 86 72 29 0d 0a   ┆byttedyr vekselvirkning (1/ r)  ┆
0x080…0a0 0d 0a 6b 33 20 3a 3d 20 30 2e 33 20 20 20 20 20 20 20 2f 2f 20 6d 86 6c 20 66 6f 72 20 72 6f 76   ┆  k3 := 0.3       // m l for rov┆
0x0a0…0c0 64 79 72 73 20 64 9b 64 65 6c 69 67 68 65 64 20 28 31 2f 86 72 29 0d 0a 0d 0a 6b 34 20 3a 3d 20   ┆dyrs d delighed (1/ r)    k4 := ┆
0x0c0…0e0 33 45 2d 37 20 20 20 20 20 20 2f 2f 20 6d 86 6c 20 66 6f 72 20 72 6f 76 64 79 72 73 20 66 6f 72   ┆3E-7      // m l for rovdyrs for┆
0x0e0…100 6d 65 72 69 6e 67 73 65 76 6e 65 20 28 31 2f 86 72 29 0d 0a 0d 0a 20 52 20 3a 3d 20 31 45 2b 33   ┆meringsevne (1/ r)     R := 1E+3┆
0x100…120 20 20 20 20 20 20 2f 2f 20 61 6e 74 61 6c 20 72 6f 76 64 79 72 20 74 69 6c 20 74 20 3d 20 30 0d   ┆      // antal rovdyr til t = 0 ┆
0x120…140 0a 0d 0a 20 42 20 3a 3d 20 31 45 2b 36 20 20 20 20 20 20 2f 2f 20 61 6e 74 61 6c 20 62 79 74 74   ┆    B := 1E+6      // antal bytt┆
0x140…160 65 64 79 72 20 74 69 6c 20 74 20 3d 20 30 0d 0a 0d 0a 20 74 20 3a 3d 20 30 20 5b 2e 2e 33 30 30   ┆edyr til t = 0     t := 0 Æ..300┆
0x160…180 5d 20 2f 2f 20 73 74 61 72 74 74 69 64 73 70 75 6e 6b 74 0d 0a 0d 0a 64 74 20 3a 3d 20 30 2e 32   ┆Å // starttidspunkt    dt := 0.2┆
0x180…1a0 20 20 20 20 20 20 20 2f 2f 20 74 69 64 73 69 6e 74 65 72 76 61 6c 20 28 86 72 29 0d 0a 0d 0a 68   ┆       // tidsinterval ( r)    h┆
0x1a0…1c0 31 3a 20 69 6e 74 65 67 72 61 74 65 3a 3d 20 45 75 6c 65 72 0d 0a 68 32 3a 20 69 6e 74 65 67 72   ┆1: integrate:= Euler  h2: integr┆
0x1c0…1e0 61 74 65 3a 3d 20 52 4b 32 0d 0a 68 33 3a 20 69 6e 74 65 67 72 61 74 65 3a 3d 20 52 4b 34 0d 0a   ┆ate:= RK2  h3: integrate:= RK4  ┆
0x1e0…1ff 0d 0a 68 32 0d 0a 0d 0a 0d 0a 77 72 69 74 65 20 27 74 73 74 27 3a 74 2c 72 2c 62 0d 0a 0d 0a   ┆  h2      write 'tst':t,r,b    ┆