|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 769 (0x301)
Types: TextFile
Names: »RUMF1 «
└─⟦3d9d2c4f1⟧ Bits:30001780 SG0000 Floppy
└─ ⟦this⟧ »/RUMF1 «
«ff» 0010 REM BEREGNING AF ISOTERMT RUMFANGSARBEJDE 0020 REM 700 FN 0030 INPUT "BEGYNDELSESTRYK ",P1 0040 INPUT "BEGYNDELSESRUMFANG ",V1 0050 INPUT "SLUTRUMFANG ",V2 0060 PRINT "P1=";P1,"V1=";V1,"V2=";V2 0070 PRINT 0080 PRINT "OVERARBEJDE","UNDERARBEJDE","MIDDELVÆRDI","TEORI","ANTAL TRIN" 0090 PRINT 0100 PRINT 0110 INPUT "ANTAL TRIN BEGYND ",ATR," ANTAL TRIN SLUT ",SLUT 0120 FOR J=ATR TO SLUT STEP 1 0130 LET K=P1*V1; AOV=0; AU=0 0140 LET DV=(V2-V1)/J 0150 LET N=0 0160 FOR V=V1 TO V2-DV+.0001 STEP DV 0170 LET N=N+1 0180 LET POV=K/V; AOV=AOV+POV*DV 0190 LET PU=K/(V+DV); AU=AU+PU*DV 0200 NEXT V 0210 PRINT AOV,AU,(AOV+AU)/2,P1*V1*LOG(V2/V1),J 0220 NEXT J 0230 GOTO 0080