'----- schnipp ---------------- Alles oberhalb dieser Linie Loeschen --------
nochmal:
aa = 8         'Hintergrund 4rot 5lila 6dunkelorange 7grau 8sw,
COLOR 14, aa
CLS
COLOR 6, aa
PRINT
PRINT " BERECHNUNG EINES AKTIVEN TIEFPASSES 3. ORDNUNG MIT OPAMP, V=1    "
PRINT " --------------------------------------------------------------- "
PRINT " ALLE ANGABEN IN kOhm, nF und Hz, Flankensteilheit 18 dB/Oktave."
PRINT " Die Widerst„nde sollten zwischen 1 und 50 kOhm liegen. fo ist der"
PRINT " Wert, bei dem die Ausgangsspann. um -3 dB (*0.707) gefallen ist."
COLOR 14, aa
PRINT
INPUT "        Wie hoch ist die obere Grenzfrequenz fo"; fo
raendern:
INPUT "                        Wie groá ist R=R1=R2=R3"; r

       pipi = 6.2831853#       'zwei mal pi
        orr = pipi * fo * r * 1000! 'zwei mal pi * fo * r
      
        c1 = (2.45 / orr) * 1E+09
        c2 = (2.11 / orr) * 1E+09
        c3 = (.19 / orr) * 1E+09

      
PRINT
COLOR 6, aa
PRINT " ********************************************************************"
COLOR 15, aa
PRINT
PRINT "     R1................................:"; r
PRINT "     R2................................:"; r
PRINT "     R3................................:"; r
PRINT "     R4................................:"; r * 2
PRINT "     R5................................:"; r * 3
PRINT
PRINT "     C1................................:"; c1
PRINT "     C2................................:"; c2
PRINT "     C3................................:"; c3
COLOR 6, aa
PRINT
INPUT "    M”chten Sie nochmal (j), beenden (n), nur R „ndern (r)"; weiter$
IF weiter$ = "n" THEN GOTO beenden
IF weiter$ = "r" THEN GOTO raendern
GOTO nochmal
beenden:
COLOR 7, 0
CLS
SYSTEM
'------------------------ Alles unterhalb dieser Linie Loeschen -- schnipp --

