10 REM AKTIVFILTER
20 PRINT""TAB(13)""
30 PRINTTAB(9)"
40 PRINTTAB(9)"
50 PRINTTAB(9)"
60 GETA:IFA=1THEN100
70 IFA=2THEN650
80 IFA=3THEN1260
90 GOTO60
100 PRINT"
110 PRINT"
120 GETA1:IFA1=1THENGOSUB940:GOTO150
130 IFA1=2THENGOSUB1080:GOTO310
140 GOTO120
150 R2=1/(2*π*F*(C1/1E6)):R1=R2/U:GOSUB1210:GOTO160
160 PRINT"
170 PRINT"
180 PRINT"
190 PRINT"
200 PRINT"
210 PRINT"
220 PRINT"
230 PRINT"
240 PRINT"
250 PRINT"
260 PRINT"
270 PRINT"
280 PRINT"
290 PRINT"
300 END
310 GETA$:IFA$=""THENB1=.41:A1=1.29:X=1:R3=0:GOSUB1040:GOTO360
320 IFA$=""THENB1=.62:A1=1.36:X=2
330 IFA$=""THENB1=1.93:A1=1.07:X=2
340 IFA$<>""THENGOSUB1010:GOTO360
350 GOTO310
360 R=SQR(B1)/(2*π*F*(C/1E6))
370 U=3−(A1/SQR(B1))
380 R4=(U−1)*R3:GOSUB1160:GOTO390
390 PRINT"
400 PRINT"
410 PRINT"
420 PRINT"
430 PRINT"
440 PRINT"
450 PRINT"
460 ONXGOTO590,470
470 PRINT"
480 PRINT"
490 PRINT"
500 PRINT"
510 PRINT"
520 PRINT"
530 PRINT"
540 PRINT"
550 PRINT"
560 PRINT"
570 END
580 PRINT"
590 PRINT"
600 PRINT"
610 PRINT"
620 PRINT"
630 PRINT"
640 END
650 PRINT"
660 PRINT"
670 GETH1:IFH1=1THENGOSUB940:GOTO700
680 IFH1=2THENGOSUB1080:GOTO780
690 GOTO670
700 R1=1/(2*π*F*(C1/1E6))
710 R2=R1*U:GOSUB1210:GOTO720
720 PRINT"
730 PRINT"
740 PRINT"
750 PRINT"
760 PRINT"
770 GOTO250
780 GETB$:IFB$=""THENB1=.41:A1=1.29:X=1:R3=0:GOSUB1040:GOTO830
790 IFB$=""THENB1=.62:A1=1.36:X=2
800 IFB$=""THENB1=1.93:A1=1.07:X=2
810 IFB$<>""THENGOSUB1010:GOTO830
820 GOTO780
830 U=3−(A1/SQR(B1)):R4=(U−1)*R3
840 R=1/(2*π*F*(C/1E6)*SQR(B1))
850 GOSUB1160:GOTO860
860 PRINT"
870 PRINT"
880 PRINT"
890 PRINT"
900 PRINT"
910 PRINT"
920 PRINT"
930 GOTO460
940 PRINT"
950 PRINT""
960 INPUTU
970 PRINT"
980 INPUTF
990 PRINT"
1000 INPUTC1:RETURN
1010 PRINT"
1020 PRINT""
1030 INPUTR3
1040 PRINT"
1050 INPUTF
1060 PRINT"
1070 INPUTC:RETURN
1080 PRINT"
1090 PRINT"
1100 PRINT"
1110 PRINT"":RETURN
1120 PRINT"
1130 PRINT"
1140 PRINT"
1150 PRINT"
1160 PRINT"";INT(100*R+0.5)/100;""
1170 PRINT"";INT(1000*C+0.5)/1000;""
1180 PRINT"";INT(100*R3+0.5)/100;"";INT(100*R4+0.5)/100;"
1190 PRINT"";INT(1000*U+0.5)/1000
1200 PRINT"";F;"":RETURN
1210 PRINT"":PRINT"";INT(100*R2+0.5)/100;"
1220 PRINT"";INT(100*R1+0.5)/100;"
1230 PRINT"";C1;""
1240 PRINT"";F;""
1250 PRINT"";INT(1000*U+0.5)/1000:RETURN
1260 PRINT"
1270 INPUT"";UF
1280 INPUT"";OF
1290 INPUT"";BB
1300 INPUT"";C
1310 INPUT"";EA
1320 R2=1/(π*(C/1E6)*BB)
1330 X=1/(((2*π*(C/1E6)*UF)↑2)*R2)
1340 Y=1/(((2*π*(C/1E6)*OF)↑2)*R2)
1350 U=20/EA
1360 R1=R2/(2*U)
1370 PRINT"":PRINT"";UF;"";"";OF;""
1380 PRINT"";BB;""
1390 PRINT"";EA;"
1400 PRINT"";INT(100*R1+0.5)/100;""
1410 PRINT"";INT(100*R1+0.5)/100;""
1420 PRINT"";INT(100*Y+0.5)/100;"";INT(100*X+0.5)/100;"
1430 PRINT"";C;"
1440 PRINT"
1450 PRINT"
1460 PRINT"
1470 PRINT"
1480 PRINT"
1490 PRINT"
1500 PRINT"
1510 PRINT"
1520 PRINT"
1530 PRINT"
1540 PRINT"
1550 PRINT"
1560 PRINT"
1570 PRINT"
1580 END
READY.
