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
