5 CLS:PRINT"Aktives Tiefpassfilter mit Ein- fachmitkopplung (Sallen-Key)"; 7 DIMw(11):w(0)=1:w(1)=1.2:w(2)=1.5:w(3)=1.8:w(4)=2.2:w(5)=2.7:w(6)=3.3:w(7)=3.9:w(8)=4.7:w(9)=5.6:w(10)=6.8:w(11)=8.2:STOP:CLS 10 INPUT"ai["+STR$(ai)+"]=",ai 20 INPUT"bi["+STR$(bi)+"]=",bi 40 INPUT"fg["+STR$(fg)+" Hz]=",fg 41 a=4*bi/ai^2:GOSUB200:cn2=a 42 INPUT"c2["+STR$(cn2)+" nF]=",cn2 45 a=cn2*ai^2/(4*bi):GOSUB300:cn1=a 46 INPUT"c1[<="+STR$(cn1)+" nF]=",cn1 48 c1=cn1*1E-9:c2=cn2*1E-9 50 r1=(ai*c2-SQR(ai^2*c2^2-4*bi*c1*c2))/(4*PI*fg*c1*c2) 60 r2=(ai*c2+SQR(ai^2*c2^2-4*bi*c1*c2))/(4*PI*fg*c1*c2) 70 PRINT"r1="r1"Ohm 80 PRINT"r2="r2"Ohm 90 PRINT"c1="c1*1E9"nF" 100 PRINT"c2="c2*1E9"nF" 110 GOTO10 200 n=1 205 IF(a/n)>8.2;n=n*10:GOTO205 206 IF(a/n)<.82;n=n/10:GOTO206 210 FORi=0TO11:IFw(i)<(a/n);NEXT 220 a=w(i)*n:RETURN 300 n=1 305 IF(a/n)>10;n=n*10:GOTO305 306 IF(a/n)<1;n=n/10:GOTO306 310 FORi=11TO1STEP-1:IFw(i)>(a/n);NEXT 320 a=w(i)*n:RETURN