80-Bus Journal

12999 REM * BRECHNUNG HM *
13000 R1=FK/(FC*C):C1=C:C2=C:C3=C
13100 R2=(K1*FK-1)/(3*K3*FK*FK*FC*C)
13200 R3=(3*FK)/(C*FC*(K1*FK-1))
13500 RETURN
15000 REM
15110 PRINT"               KIIIIIKIIIIIIIII"
15120 PRINT"              R3    C3  VRd"
15130 PRINT"      RR1RVR2RR×RR4RRSRRG-Hb"
15140 PRINT"          C    C     VRRG+ TIII"
15150 PRINT"         C1   C2     G  GdJ"
15160 PRINT"      ddddGddddGdddddGddddddddd"
15170 RETURN
16000 REM
16110 PRINT"               KIIIIIOIIIIIIIII"
16120 PRINT"              C2     G  VRd"
16130 PRINT"               G     SRRG-Hb"
16140 PRINT"     RRR1RVR2RRSRR3 RVRRG+ TIII"
16145 PRINT"          C          C  GdJ"
16150 PRINT"         C1         C3"
16160 PRINT"     dddddGddddddddddGddddddddd"
16170 RETURN
17000 REM
17110 PRINT"               KIIIIIKIIIIIIIII"
17120 PRINT"              C3    R3  VRd"
17130 PRINT"      RC1RVC2RR×RC4RRSRRG-Hb"
17140 PRINT"          C    C     VRRG+ TIII"
17150 PRINT"         R1   R2     G  GdJ"
17160 PRINT"     dddddGddddGdddddGddddddddd"
17170 RETURN
18000 REM
18110 PRINT"            KIIIIIOIIIIIIIII"
18120 PRINT"           R2     G  VRd"
18130 PRINT"            G     SRRG-Hb"
18140 PRINT"  RRC1RVC2RRSRC3 RVRRG+ TIII"
18150 PRINT"       C          C  GdJ"
18160 PRINT"      R1         R3"
18170 PRINT"  dddddGddddddddddGddddddddd"
18180 RETURN
20000 CLS
20100 ONPGOSUB15000,16000,17000,18000
20200 PRINT:PRINT"R1 =";R1;TAB(24)"R2=";R2
20220 PRINT"R3 =";R3;
20250 IFR4>0THENPRINTTAB(24)"R4 =";R4
20300 PRINT:PRINT"C1 =";C1;TAB(24)"C2 =";C2
20320 PRINT"C3 =";C3;
20350 IFC4>0THENPRINTTAB(24)"C4 =";C4;
20360 PRINT:PRINT
30000 B$="":INPUT"Neue Berechnung (N) ";B$
30010 IFB$="N"GOTO100
30030 END
Ok