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 TextFile, Mikados_K
    Names: »KOEF«

Derivation

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

Text

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

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