A100:20: FILTERBERECHNUNG X(65),Y(65),CN(50),SR$(16): 100:SR$"Berechnung Selektivfilter" HO2:VE0!110:150!SR$"MENUE":VE3:HO2+!110:150>!$VE6:HO4:110e!."1 = Darstellung Filterschaltung"s!8VE8:110!B"2 = Berechnung der Werte"!LVE10:110!V"3 = Programmende":250!`VE16:HO16:110!j"Bitte waehlen Sie !"!t200 "~IN$"1" 250:2010: DARSTELLUNGG"IN$"2" 250:4010: BERECHNUNGg"IN$"3" 250:950: ENDEq"1120" *** DARSTELLUNG SCHALTUNG ***"100""Einen Moment bitte ...""I0 49:X(I),Y(I),CN(I):I:600#HOX(0):VEY(0):CN0:620#I0 491# HOX(I):VEY(I):CNCN(I):6308#IZ# I0 16:SR$(I),X(I),Y(I):Ig#*I0 16#4SR$SR$(I):HOX(I):VEY(I):650:I#>250:210::1015# BERECHNUNG UND AUSGABE#PE3.14159265: DEFINITION PI#100$SR$" Eingabe & Ausgabe ",$VE0:HO1:110:150?$VE4:HO3:110b$"Guete Q als Faktor :";Qu$HO3:VE5:110$"Resonanzfrequenz (Hertz):";V0$HO3:VE6:110$"Verst. im Resonanzfall :";VR$HO3:VE7:110%"Leerlaufverst. des OPV:";VL%"HO3:VE8:110=%,"Kapazitaet des C (Farad):";C^%6 BERECHNUNG WIDERSTAENDEq%@R2Q(PEV0C)%JR1R2(2VR)%TR3R1((4PEPECCV0V0R1R2)1)%^ TEST OB VL AUSREICHEND%hVL(5QQ) 4510%r AUSGABE DER WERTE &|VE13:HO3:110&"R1= ";R1;" Ohm"3&VE14:HO3:110I&"R2= ";R2;" Ohm"]&VE15:HO3:110x&"R3= ";R3;" Ohm":250&VE18:HO18:110&"Neuberechnung j/n ?"&200&IN$"j" 4010&IN$"n" 1015&4280' BEHANDLUNG LEERLAUFVERSTAERKUNG '100:VE10:HO0:110L'"Leerlaufverstaerkung fuer geforderte"m'"Guete nicht ausreichend !"{'Q(VL5)':"Maximal erreichbare Guete :";Q'VE18:HO30:110:""'200'IN$"" 100:1015'4560(a *** GRAFIK - PUNKTE ***A(a.025,.47,0,.1,.47,0,.1,.425,0,.1,.5,0,.2,.5,0u(a.2,.425,0,.1,.425,0,.1,.47,0,.2,.47,1,.4,.47,0(a.4,.425,0,.4,.5,0,.41,.5,1,.41,.425,0,.41,.47,0(a.55,.47,0,.55,.55,0,.7,.47,0,.55,.35,0,.55,.47,0)a.7,.47,1,.95,.47,0,.8,.47,0,.8,.13,0,.3,.13,0,.3K)a.26,0,.275,.26,0,.325,.26,0,.325,.27,1,.275,.27)a0,.3,.27,0,.3,.6,0,.275,.6,0,.325,.6,0,.325,.73,0)a.275,.73,0,.275,.6,0,.3,.73,1,.3,.9,0,.275,.9,0)b.325,.9,0,.5,.47,1,.5,.33,0,.525,.33,0,.475,.33,0#* b.475,.2,0,.525,.2,0,.525,.33,0,.5,.2,1,.5,.13,0D*b *** TEXT IN GRAFIK ***t* b"Selektives Filter mit Mehrfachgegen-",0,0**b"kopplung (Schaltskizze)",0,.04*4b"Ue",0,.5,"R1",.125,.38,"R3",.188,.65,"C",.225*>b.25,"C",.42,.42,"R2",.55,.24,"OPV",.57,.453+Hb"Ua",.965,.5,"MENUE--> bitte eine Taste!",.3,.95P+Rb"H I N W E I S",.45,.57r+\b"Alle sich beruehr-",.45,.65+fb"enden oder sich",.45,.69+pb"kreuzenden Strom-",.45,.73+zb"wege sind elektr.",.45,.77+b"verbunden !",.45,.81,} *****************************;, } * *_,} * AUTOR: P. HEBLIK (1982) *,} * *,(} * FUER BASICODE BEARBEITET *,2} * UND ERWEITERT (GRAFIK) *,<} * VON BURKHARDT PREUSS *-F} * H.-BEIMLER-STR.20 *7-P} * FRANKFURT/O. 1200 *[-Z} * AM 23.12.1989, AUF EINEM *-d} * C64. *-n} * *-x} *****************************-}-} Erstausstrahlung: Radio DDR-} 900110-n} * *-x} *****************************-}-} Erstausstrahlung: Radio DDR-} 90