REM Kondensatorberechnung Version 1.1 vom Mai 2004
REM c by winklerantennenbau
pi = 3.1416: e0 = 8.85

10 SCREEN 12: CLS
12 INPUT "Endkapazit„t (pF) 0pF = Ende"; ek
14 IF ek = 0 THEN END
20 INPUT "Plattenabstand mind. 1mm (mm)"; pa: IF pa < 1 THEN GOTO 20
21 pam = pa
30 INPUT "Plattenform rund(1),quatrat(2)"; pf: pf = INT(pf)
35 IF pf < 1 OR pf > 2 THEN GOTO 30
40 INPUT "PlattengrӇe des Stators mind. 50mm(in mm)"; pg
41 IF pg < 50 THEN GOTO 40
42 pdu = pg: produ = pg
43 IF pf = 1 THEN pg = pg - 16 - (2 * pa)
45 INPUT "Platten einseitig(1),zweiseitig(2) verteilt "; pls
pls = INT(pls): IF pls < 1 OR pls > 2 THEN GOTO 45
50 INPUT "ohne Anschlag(1), mit 180øAnschlag(2)       "; sloa
sloa = INT(sloa): IF sloa < 1 OR sloa > 2 THEN GOTO 50
51 IF sloa = 1 THEN pls = 2: pam = pam * 4
pr = pg / 2
a1 = (pi * (pr * pr)) / 2: a2 = 3 * pg: a3 = 365.3: a4 = 91.5
ag1 = a1 - a2 - a3 + a4
al = (ek - 8673.3) / -6883.3
IF al < 1 THEN al = 1
ag1 = ag1 * al
ag = ((pam * ek) / e0) * 1000
180 REM
190 sa = ag / ag1
IF sa = INT(sa) THEN GOTO 200
sa = INT(sa) + 1
200 REM
207 IF pls = 1 THEN plz = (sa + 1) / 2: GOTO 212
210 plz = (sa + 2) / 2
212 plz = INT(plz) + 1: IF pls = 1 THEN GOTO 240
220 IF plz / 2 = INT(plz / 2) THEN GOTO 240
230 plz = plz + 1
240 REM
250 REM
IF pls = 1 THEN GOTO 260
ak = (.056 * ek) + 1.72: GOTO 270
260 REM
ak = (.008 * ek) + 11
270 REM
290 REM
IF sloa = 2 AND pls = 2 THEN GOTO 400: REM 180 Anschlag,Platten 2-seitig
IF sloa = 2 AND pls = 1 THEN GOTO 500: REM 180 Anschlag, Platten 1-seitig
300 REM
PRINT "Kondensator ohne Anschlag, Platten 2-seitig verteilt"
GOSUB 1300: GOSUB 6000: GOTO 12
400 REM
PRINT "Kondensator mit 180ø-Anschlag, Platten 2-seitig verteilt"
GOSUB 1300: h2 = h2 + 18: la = la + 18: ka = ka + 18
ma = ma + 18: h4 = h4 + 18: GOSUB 6000: GOTO 12
500 REM
PRINT "Kondensator mit 180ø.Anschlag, Platten 1-seitig"
GOSUB 2200: GOSUB 6000: GOTO 12
1300 REM
1305 h1 = (pa * 2) + 1
1310 lw = 14 + plz + 25 + 11 + (h1 * (plz - 2))
1320 h0 = 14 - pa - 1
1340 h4 = lw - h0 - (plz / 2) - (h1 * ((plz / 2) - 1)) - 5
1350 h2 = 11 - pa - 1 - 5
1360 h3 = lw - h2 - 5 - (plz / 2) - (h1 * ((plz / 2) - 1))
1370 ka = lw + 6 + 15
1380 la = ka + 25
1390 ma = lw - 4 - .5 + 6
1400 REM
1410 hanz = (plz * 3) - 6
2000 REM
2100 RETURN
2200 REM
2210 h1 = (pa * 2) + 1
2220 lw = 14 + plz + (h1 * (plz - 1)) + 29
2230 h0 = 14 - pa - 1
2240 h4 = lw - h0 - plz - (h1 * (plz - 1)) - 5
2250 ka = lw + 6 + 15
2260 la = ka + 15
2270 ma = lw - 4 - .5 + 6
2280 hanz = (3 * plz) - 4
2300 RETURN
3000 REM
4000 REM
6000 REM
6001 PRINT " Folgender Kondensator wurde bestimmt:": PRINT
6002 PRINT "Kapazit„t                             "; ak; " - "; ek; "pF"
     PRINT "ben”tigte Fl„che                      "; ag; " mm2"
6003 PRINT "Plattenabstand                        "; pa; "mm"
     a$(1) = "                        ohne Anschlag"
     a$(2) = "                        mit 180øAnschlag"
     PRINT "Bauform        "; : IF sloa = 1 THEN PRINT a$(1) ELSE PRINT a$(2)
6004 PRINT "Plattenform des Stators                "; : IF pf = 1 THEN PRINT "rund" ELSE PRINT "quadratisch"
6005 IF pf = 2 THEN GOTO 6007
6006 PRINT "Plattendurchmesser des Stators        "; pdu; "mm": GOTO 6009
6007 PRINT "Plattenabmessung des Stators          "; pdu; "x"; pdu; "mm"

6009 PRINT "Plattendurchmesser des Rotors         "; pg; "mm"
6010 PRINT "Anordnung der Statorplatten           "; pls; " seitig"
6012 REM Preis ausrechnen und auf BS
     GOSUB 7000
     PRINT "Gesamtpreis (EUR inkl. MwSt.)         "; preis; "EUR"
6019 PRINT
6020 PRINT "lichte Weite des Kondensators    lw = "; lw; " mm"
6030 PRINT "ben”tigte Platten:               "; pls; "x "; plz / pls
6200 RETURN
7000 REM
     grpr = 40.4: plpr = 1.43
     IF pdu > 100 THEN grpr = 45.5: plpr = 1.95
     preis = grpr + (plpr * plz)
7020 RETURN