'----- schnipp -----ahp3.bas-- Alles oberhalb dieser Linie Loeschen --------
nochmal:
aa = 8         'Hintergrund 4rot 5lila 6dunkelorange 7grau 8sw,
COLOR 14, aa
CLS
COLOR 3, aa
PRINT
PRINT " BERECHNUNG EINES AKTIVEN HOCHPASSES 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 untere Grenzfrequenz fo"; fo
caendern:
INPUT "             Wie groá ist C (C=C1=C2=C3  C4=C/2)"; c

       pipi = 6.2831853#      'zwei mal pi
         oc = pipi * fo * c * 1E-09   'Kreisfrequenz OMEGA * c in nF
      
        r1 = (.41 / oc) * .001
        r2 = (.47 / oc) * .001
        r3 = (5.18 / oc) * .001
        r4 = r3
        
        c1 = c
        c2 = c
        c3 = c
        c4 = c / 2
   
      
PRINT
COLOR 3, aa
PRINT " ********************************************************************"
COLOR 15, aa
PRINT
PRINT "     R1................................:"; r1
PRINT "     R2................................:"; r2
PRINT "     R3................................:"; r3
PRINT "     R4................................:"; r4
PRINT
PRINT "     C1................................:"; c1
PRINT "     C2................................:"; c2
PRINT "     C3................................:"; c3
PRINT "     C4................................:"; c4
COLOR 3, aa
PRINT
INPUT "    M”chten Sie nochmal (j), beenden (n), nur c „ndern (c)"; weiter$
IF weiter$ = "n" THEN GOTO beenden
IF weiter$ = "c" THEN GOTO caendern
GOTO nochmal
beenden:
COLOR 7, 0
CLS
SYSTEM
'------------------------ Alles unterhalb dieser Linie Loeschen -- schnipp --

