80-Bus Journal |
Februar 1983 · Ausgabe 2 |
1 REM Aktive Filter 2 REM Ruediger Maurer 01.10.82 10 PI=3.14 100 CLS:PRINT"Aktive Filter 3 Ordnung":PRINT 110 PRINT"Tiefpass Mehrfach-Gegenkopplung = TG" 120 PRINT"Tiefpass Einfach -Mittkopplung = TM" 130 PRINT"Hochpass Mehrfach-Gegenkopplung = HG" 140 INPUT"Hochpass Einfach -Mittkopplung = HM";A$ 150 IFA$<>"TG"ANDA$<>"TM"ANDA$<>"HG"ANDA$<>"HM"GOTO100 160 IFA$="TG"THENP=1 170 IFA$="TM"THENP=2 180 IFA$="HG"THENP=3 190 IFA$="HM"THENP=4 200 CLS 210 ONPGOSUB15000,16000,17000,18000 220 PRINT:PRINT"Filtertyp:" 230 PRINT"Bessel .......................... 1" 240 PRINT"Butterworth ..................... 2" 250 PRINT"Tschebyscheff 0.5 dB ............ 3" 260 PRINT"Tschebyscheff 1.0 dB ............ 4" 270 PRINT"Tschebyscheff 2.0 dB ............ 5" 280 INPUT"Tschebyscheff 3.0 dB ............ 6";FT 290 IFFT<1ORFT>6GOTO220 300 : 310 PRINT:INPUT"3-dB Eckfrequenz (Hz) ";FC 315 FC=2*PI*FC 320 IFFC<=0GOTO310 330 INPUT"C1 (Farad) ";C1:C=C1:PRINT 340 IFA$="HG"THENC=(C/2) 350 IFC<=0GOTO200 500 ONFTGOTO2000,3000,4000,5000,6000,7000 1999 REM * BESSEL * 2000 IFLEFT$(A$,1)="H"GOTO2200 2010 IFRIGHT$(A$,1)="G"THENFK=2.3186:Z=1:GOTO2500 2020 IFRIGHT$(A$,1)="M"THENFK=0.9914:Z=2:GOTO2500 2200 IFRIGHT$(A$,1)="G"THENFK=0.2156:Z=3 2210 IFRIGHT$(A$,1)="M"THENFK=1.0087:Z=4 2500 K1=1.7556:K2=1.2329:K3=0.3608 2700 ONZGOSUB10000,11000,12000,13000 2800 GOTO20000 2999 REM * BUTTERWORTH * 3000 IFLEFT$(A$,1)="H"GOTO3200 3010 IFRIGHT$(A$,1)="G"THENFK=2.5747:Z=1:GOTO3500 3020 IFRIGHT$(A$,1)="M"THENFK=1.3926:Z=2:GOTO3500 3200 IFRIGHT$(A$,1)="G"THENFK=0.1942:Z=3 3210 IFRIGHT$(A$,1)="M"THENFK=0.7181:Z=4 3500 K1=2:K2=2:K3=1 3700 ONZGOSUB10000,11000,12000,13000 3800 GOTO20000 3999 REM TSCHEBYSCHEFF 0.5 dB * 4000 IFLEFT$(A$,1)="H"GOTO4200 4010 IFRIGHT$(A$,1)="G"THENFK=4.0535:Z=1:GOTO4500
4020 IFRIGHT$(A$,1)="M"THENFK=2.2368:Z=2:GOTO4500 4200 IFRIGHT$(A$,1)="G"THENFK=0.1233:Z=3 4210 IFRIGHT$(A$,1)="M"THENFK=0.4471:Z=4 4500 K1=2.5038:K2=2.3862 :K3=2.2235 4700 ONZGOSUB10000,11000,12000,13000 4800 GOTO20000 4999 REM TSCHEBYSCHEFF 1.0 dB * 5000 IFLEFT$(A$,1)="H"GOTO5200 5010 IFRIGHT$(A$,1)="G"THENFK=4.7061:Z=1:GOTO5500 5020 IFRIGHT$(A$,1)="M"THENFK=2.5669:Z=2:GOTO5500 5200 IFRIGHT$(A$,1)="G"THENFK=0.1062:Z=3 5210 IFRIGHT$(A$,1)="M"THENFK=0.3896:Z=4 5500 K1=2.7598:K2=2.4114 :K3=2.6713 5700 ONZGOSUB10000,11000,12000,13000 5800 GOTO20000 5999 REM TSCHEBYSCHEFF 2.0 dB * 6000 IFLEFT$(A$,1)="H"GOTO6200 6010 IFRIGHT$(A$,1)="G"THENFK=5.8147:Z=1:GOTO6500 6020 IFRIGHT$(A$,1)="M"THENFK=3.1126:Z=2:GOTO6500 6200 IFRIGHT$(A$,1)="G"THENFK=0.0860:Z=3 6210 IFRIGHT$(A$,1)="M"THENFK=0.3213:Z=4 6500 K1=3.2294:K2=2.4073 :K3=3.3694 6700 ONZGOSUB10000,11000,12000,13000 6800 GOTO20000 6999 REM TSCHEBYSCHEFF 3.0 dB * 7000 IFLEFT$(A$,1)="H"GOTO7200 7010 IFRIGHT$(A$,1)="G"THENFK=6.8775:Z=1:GOTO7500 7020 IFRIGHT$(A$,1)="M"THENFK=3.6296:Z=2:GOTO7500 7200 IFRIGHT$(A$,1)="G"THENFK=0.0727:Z=3 7210 IFRIGHT$(A$,1)="M"THENFK=0.2755:Z=4 7500 K1=3.7055:K2=2.3844 :K3=3.9937 7700 ONZGOSUB10000,11000,12000,13000 7800 GOTO20000 9999 REM * BERECHNUNG TG * 10000 R=FK/(FC*C1):R1=R:R2=R:R3=2*R:R4=2*R 10100 C2=(6*K3*C1)/(FK*FK*(2*K1-FK)) 10200 C3=C1*((2*K1-FK)/(12*FK)) 10500 RETURN 10999 REM * BERECHNUNG TM * 11000 R=FK/(FC*C1):R1=R:R2=R:R3=R 11100 C2=(C1*3*K3)/(FK*FK*(K1-FK)) 11200 C3=C1*(K1-FK)/(3*FK) 11500 RETURN 11999 REM * RERECHNUNG HG * 12000 R1=FK/(FC*C):C1=2*C:C2=2*C:C3=C:C4=C 12100 R2=(4*K1*FK-1)/(48*F3*FK*FK*FC*C) 12200 R3=(12*FK)/((4*K1*FK-1)*FC*C) 12500 RETURN
|
|
|
Seite 8 von 28 |
|
|
|
---|
Download des Programms von der Nascom Home Page.