|
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 - metrics - download
Length: 1035 (0x40b)
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