DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦2799910b4⟧ TextFile

    Length: 992 (0x3e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »KOEF.K«

Derivation

└─⟦d110b5765⟧ Bits:30005308 Eksamensopgave i dynamiske systemer med FFT
    └─⟦this⟧ »KOEF.K«

Mikados K File

0100 INPUT "GAMMA =",GA
0105 G1=1
0110 INPUT "D2 =",D2
0120 G2=.5-GA
0130 G3=1/6-GA*(1-GA)
0140 G4=1/6+G3
0150 G5=1/24-GA*(.5-GA*(3/2-GA))
0160 G6=1/12-GA*(2/3-GA*(3/2-GA))
0170 G7=-1/24+GA*(2/3-3/2*GA)
0180 G8=1/12+GA*(.5-1.5*GA)
0190 PRINT "G1=",G1,"G2=",G2,"G3=",G3
0200 PRINT "G4=",G4,"G5=",G5,"G6=",G6
0205 D4=2*G2
0210 PRINT "G7=",G7,"G8=",G8
0220 PRINT "D3=",G2,"D4=",2*G2
0230 B4=1/12/G2/G2
0240 B3=G3/G2/G2
0250 B2=(.25-GA*(.5+GA*(1-2*GA)))/(G2-D2)/(2*G2-D2)/D2
0260 B1=1-B2-B3-B4
0270 PRINT "B1=",B1,"B2=",B2,"B3=",B3,"B4=",B4
0280 A31=G2*(1-G5/D2/G3)
0290 A32=G2*G5/D2/G3
0300 PRINT "A31=",A31,"A32=",A32
0310 A21=GA-D2
0320 PRINT "A21=",A21
0330 A42=-B3*G5/D2/G3/2
0340 A43=12*G2*G3
0350 A41=D4-GA-A42-A43
0360 PRINT "A41=",A41,"A42=",A42,"A43=",A43
0370 GO TO 0110
0380 STOP

Mikados K File

0x000…019 Line {l1=0x17, l2=»0100 INPUT "GAMMA =",GA«, l3=0x17}
0x019…024 Line {l1=0x09, l2=»0105 G1=1«, l3=0x09}
0x024…03a Line {l1=0x14, l2=»0110 INPUT "D2 =",D2«, l3=0x14}
0x03a…049 Line {l1=0x0d, l2=»0120 G2=.5-GA«, l3=0x0d}
0x049…060 Line {l1=0x15, l2=»0130 G3=1/6-GA*(1-GA)«, l3=0x15}
0x060…070 Line {l1=0x0e, l2=»0140 G4=1/6+G3«, l3=0x0e}
0x070…092 Line {l1=0x20, l2=»0150 G5=1/24-GA*(.5-GA*(3/2-GA))«, l3=0x20}
0x092…0b5 Line {l1=0x21, l2=»0160 G6=1/12-GA*(2/3-GA*(3/2-GA))«, l3=0x21}
0x0b5…0d4 Line {l1=0x1d, l2=»0170 G7=-1/24+GA*(2/3-3/2*GA)«, l3=0x1d}
0x0d4…0f1 Line {l1=0x1b, l2=»0180 G8=1/12+GA*(.5-1.5*GA)«, l3=0x1b}
0x0f1…118 Line {l1=0x25, l2=»0190 PRINT "G1=",G1,"G2=",G2,"G3=",G3«, l3=0x25}
0x118…13f Line {l1=0x25, l2=»0200 PRINT "G4=",G4,"G5=",G5,"G6=",G6«, l3=0x25}
0x13f…14d Line {l1=0x0c, l2=»0205 D4=2*G2«, l3=0x0c}
0x14d…16b Line {l1=0x1c, l2=»0210 PRINT "G7=",G7,"G8=",G8«, l3=0x1c}
0x16b…18b Line {l1=0x1e, l2=»0220 PRINT "D3=",G2,"D4=",2*G2«, l3=0x1e}
0x18b…19f Line {l1=0x12, l2=»0230 B4=1/12/G2/G2«, l3=0x12}
0x19f…1b1 Line {l1=0x10, l2=»0240 B3=G3/G2/G2«, l3=0x10}
0x1b1…1e9 Line {l1=0x36, l2=»0250 B2=(.25-GA*(.5+GA*(1-2*GA)))/(G2-D2)/(2*G2-D2)/D2«, l3=0x36}
0x1e9…1fd Line {l1=0x12, l2=»0260 B1=1-B2-B3-B4«, l3=0x12}
0x1fd…22d Line {l1=0x2e, l2=»0270 PRINT "B1=",B1,"B2=",B2,"B3=",B3,"B4=",B4«, l3=0x2e}
0x22d…247 Line {l1=0x18, l2=»0280 A31=G2*(1-G5/D2/G3)«, l3=0x18}
0x247…25d Line {l1=0x14, l2=»0290 A32=G2*G5/D2/G3«, l3=0x14}
0x25d…27f Line {l1=0x20, l2=»0300 PRINT "A31=",A31,"A32=",A32«, l3=0x20}
0x27f…28f Line {l1=0x0e, l2=»0310 A21=GA-D2«, l3=0x0e}
0x28f…2a6 Line {l1=0x15, l2=»0320 PRINT "A21=",A21«, l3=0x15}
0x2a6…2bf Line {l1=0x17, l2=»0330 A42=-B3*G5/D2/G3/2«, l3=0x17}
0x2bf…2d2 Line {l1=0x11, l2=»0340 A43=12*G2*G3«, l3=0x11}
0x2d2…2ea Line {l1=0x16, l2=»0350 A41=D4-GA-A42-A43«, l3=0x16}
0x2ea…317 Line {l1=0x2b, l2=»0360 PRINT "A41=",A41,"A42=",A42,"A43=",A43«, l3=0x2b}
0x317…328 Line {l1=0x0f, l2=»0370 GO TO 0110«, l3=0x0f}
0x328…334 Line {l1=0x0a, l2=»0380 STOP «, l3=0x0a}
0x334…340 00 00 63 63 63 63 63 63 63 63 63 63                                                               ┆  cccccccccc┆
0x340…360 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x4…]

TextFile

▶17◀0100 INPUT "GAMMA =",GA▶17◀	0105 G1=1	▶14◀0110 INPUT "D2 =",D2▶14◀\r0120 G2=.5-GA\r▶15◀0130 G3=1/6-GA*(1-GA)▶15◀▶0e◀0140 G4=1/6+G3▶0e◀ 0150 G5=1/24-GA*(.5-GA*(3/2-GA)) !0160 G6=1/12-GA*(2/3-GA*(3/2-GA))!▶1d◀0170 G7=-1/24+GA*(2/3-3/2*GA)▶1d◀▶1b◀0180 G8=1/12+GA*(.5-1.5*GA)▶1b◀%0190 PRINT "G1=",G1,"G2=",G2,"G3=",G3%%0200 PRINT "G4=",G4,"G5=",G5,"G6=",G6%\f

0205 D4=2*G2\f

▶1c◀0210 PRINT "G7=",G7,"G8=",G8▶1c◀▶1e◀0220 PRINT "D3=",G2,"D4=",2*G2▶1e◀▶12◀0230 B4=1/12/G2/G2▶12◀▶10◀0240 B3=G3/G2/G2▶10◀60250 B2=(.25-GA*(.5+GA*(1-2*GA)))/(G2-D2)/(2*G2-D2)/D26▶12◀0260 B1=1-B2-B3-B4▶12◀.0270 PRINT "B1=",B1,"B2=",B2,"B3=",B3,"B4=",B4.▶18◀0280 A31=G2*(1-G5/D2/G3)▶18◀▶14◀0290 A32=G2*G5/D2/G3▶14◀ 0300 PRINT "A31=",A31,"A32=",A32 ▶0e◀0310 A21=GA-D2▶0e◀▶15◀0320 PRINT "A21=",A21▶15◀▶17◀0330 A42=-B3*G5/D2/G3/2▶17◀▶11◀0340 A43=12*G2*G3▶11◀▶16◀0350 A41=D4-GA-A42-A43▶16◀+0360 PRINT "A41=",A41,"A42=",A42,"A43=",A43+▶0f◀0370 GO TO 0110▶0f◀
0380 STOP 
▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Reduced view