|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1984 (0x7c0)
Types: TextFile
Notes: Mikados TextFile, Mikados_K
Names: »SETRATE«
└─⟦98735d749⟧ Bits:30007443 8" floppy ( TEXT ) vedr. matematik i skibsindustrien
└─ ⟦this⟧ »SETRATE«
0100 DIM NAVNH$(20),NAVNU$(20),FIL$(10) 0110 DIM SV$(1) 0120 FIL$="DDE:TEAMS" 0130 OPEN FIL$,W 0140 REPEAT 0150 CLEAR 0160 REPEAT 0170 CURSOR 1,1 0180 INPUT "HJEMMEHOLD ",HH 0185 IF HH>0 THEN 0190 GET FIL$,HH:NAVNH$,RH,AKH,HJKH,HJDH,UDDH 0200 PRINT NAVNH$ 0210 INPUT "RIGTIGT ",SV$ 0212 ELSE 0213 SV$="J" 0214 ENDIF 0220 UNTIL SV$="J" 0230 IF HH>0 THEN 0240 REPEAT 0250 CURSOR 1,5 0260 INPUT "UDEHOLD ",UH 0270 GET FIL$,UH:NAVNU$,RU,AKU,HJKU,HJDU,UDDU 0280 PRINT NAVNU$ 0290 INPUT "RIGTIGT ",SV$ 0300 UNTIL SV$="J" 0310 REPEAT 0312 CURSOR 1,9 0320 INPUT "HJEMMEMÅL, UDEMÅL ",WH,WU 0330 INPUT "RIGTIGT ",SV$ 0340 UNTIL SV$="J" 0341 H=0 0342 IF HJKH>0 THEN H=H+HJDH/HJKH 0343 IF AKU-1-HJKU>0 THEN H=H-UDDU/(AKU-1-HJKU) 0344 H=H/2 0350 AKH=AKH+1 0360 AKU=AKU+1 0370 HJKH=HJKH+1 0380 HJDH=HJDH+WH-WU 0390 UDDU=UDDU+WU-WH 0410 RHO=RH 0420 RH=RH+(AKU-1)/(AKH*AKU-1)*((WH-WU)-H-RH+RU) 0430 RU=RU+(AKH-1)/(AKU*AKH-1)*((WU-WH)+H+RHO-RU) 0440 PUT FIL$,HH:NAVNH$,RH,AKH,HJKH,HJDH,UDDH 0450 PUT FIL$,UH:NAVNU$,RU,AKU,HJKU,HJDU,UDDU 0460 ENDIF 0470 UNTIL HH=0 0480 CLOSE FIL$ 0490 END
'0100 DIM NAVNH$(20),NAVNU$(20),FIL$(10)'▶0f◀0110 DIM SV$(1)▶0f◀▶15◀0120 FIL$="DDE:TEAMS"▶15◀▶10◀0130 OPEN FIL$,W▶10◀\f 0140 REPEAT \f ▶0b◀0150 CLEAR ▶0b◀\f 0160 REPEAT \f ▶0f◀0170 CURSOR 1,1▶0f◀▶1b◀0180 INPUT "HJEMMEHOLD ",HH▶1b◀▶12◀0185 IF HH>0 THEN ▶12◀-0190 GET FIL$,HH:NAVNH$,RH,AKH,HJKH,HJDH,UDDH-▶11◀0200 PRINT NAVNH$▶11◀▶19◀0210 INPUT "RIGTIGT ",SV$▶19◀ 0212 ELSE \f 0213 SV$="J"\f ▶0b◀0214 ENDIF ▶0b◀▶12◀0220 UNTIL SV$="J"▶12◀▶12◀0230 IF HH>0 THEN ▶12◀\f 0240 REPEAT \f ▶0f◀0250 CURSOR 1,5▶0f◀▶18◀0260 INPUT "UDEHOLD ",UH▶18◀-0270 GET FIL$,UH:NAVNU$,RU,AKU,HJKU,HJDU,UDDU-▶11◀0280 PRINT NAVNU$▶11◀▶19◀0290 INPUT "RIGTIGT ",SV$▶19◀▶12◀0300 UNTIL SV$="J"▶12◀\f 0310 REPEAT \f ▶0f◀0312 CURSOR 1,9▶0f◀%0320 INPUT "HJEMMEMÅL, UDEMÅL ",WH,WU%▶19◀0330 INPUT "RIGTIGT ",SV$▶19◀▶12◀0340 UNTIL SV$="J"▶12◀▶08◀0341 H=0▶08◀!0342 IF HJKH>0 THEN H=H+HJDH/HJKH!/0343 IF AKU-1-HJKU>0 THEN H=H-UDDU/(AKU-1-HJKU)/ 0344 H=H/2 ▶0e◀0350 AKH=AKH+1▶0e◀▶0e◀0360 AKU=AKU+1▶0e◀▶10◀0370 HJKH=HJKH+1▶10◀▶14◀0380 HJDH=HJDH+WH-WU▶14◀▶14◀0390 UDDU=UDDU+WU-WH▶14◀▶0b◀0410 RHO=RH▶0b◀00420 RH=RH+(AKU-1)/(AKH*AKU-1)*((WH-WU)-H-RH+RU)010430 RU=RU+(AKH-1)/(AKU*AKH-1)*((WU-WH)+H+RHO-RU)1-0440 PUT FIL$,HH:NAVNH$,RH,AKH,HJKH,HJDH,UDDH--0450 PUT FIL$,UH:NAVNU$,RU,AKU,HJKU,HJDU,UDDU-▶0b◀0460 ENDIF ▶0b◀▶0f◀0470 UNTIL HH=0▶0f◀▶0f◀0480 CLOSE FIL$▶0f◀ 0490 END ▶00◀▶00◀0170 CURSOR 1,1▶0f◀▶1b◀0180 INPUT "HJEMMEHOLD ",HH▶1b◀-0190 GET FIL$,HH:NAVNH$,RH,AKH,HJKH,Hcccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc