File BAB.FC (FOCAL source file)

Directory of image this file is from
This file as a plain text file

C-PS/8 FOCAL, 1971
 1.01 C DIMENSIONIEREN EINES BUTTERWORTH-AKTIV-BANDFILTERS
 1.05 C NACH "ELEKTRONIK" 1975/HEFT 3/SEITE 91-92
 1.10 T !!,"DIMENSIONIEREN EINES BUTTERWORTH-AKTIV-BANDFILTER",!
 1.15 T " WIDERSTAENDE IN [OHM] - KAPAZITAETEN IN [FARAD]",!
 1.20 F I=1,49;T "-"
 1.25 T !;S C(1)=1.;S C(2)=1.2;S C(3)=1.5;S C(4)=1.8
 1.30 S C(5)=2.2;S C(6)=2.7;S C(7)=3.3;S C(8)=3.9
 1.35 S C(9)=4.7;S C(10)=5.6;S C(11)=6.8;S C(12)=8.2
 1.40 A "  UNTERE ECKFREQUENZ [HZ] : ",UE
 1.41 A "   OBERE ECKFREQUENZ [HZ] : ",OE
 1.42 A "        KAPAZITAETSFAKTOR : ",CF,!!
 1.45 F I=1,12;S C(I)=CF*C(I)
 1.50 S BT=OE-UE;S V0=FSQT(UE*OE);S DE=BT/V0
 1.55 S DW=FSQT(16.+DE^4);S D=FSQT((4.+DE^2-DW)/2.)
 1.60 S DQ=(DE-D)*(DE+D);S AL=FSQT(DQ*.5)+FSQT(DQ*.25+1.)
 1.65 S V1=V0*AL;S V2=V0/AL;S PI=3.141592654
 1.70 F I=1,12;D 2
 1.75 T "      VERSTAERKUNG DES ERSTEN ABSCHNITTS =",V3,!
 1.76 T "     VERSTAERKUNG DES ZWEITEN ABSCHNITTS =",V4,!
 1.77 T "                      GESAMTVERSTAERKUNG =",VG,!
 1.78 T "  RESONANZFREQUENZ DES ERSTEN ABSCHNITTS =",V1,!
 1.79 T " RESONANZFREQUENZ DES ZWEITEN ABSCHNITTS =",V2,!
 1.80 T "                  GESAMTRESONANZFREQUENZ =",V0,!
 1.81 T "RELATIVE BANDBREITE DER EINZELABSCHNITTE =",D,!!;Q
 2.01 S RA=1./(2.*PI*BT*C(I));S R1=1./(D*PI*V1*C(I))
 2.02 S R2=1./(D*PI*V2*C(I))
 2.03 S W1=1./(R1*((2.*PI*V1*C(I))^2-1./(R1*RA)))
 2.04 S W2=1./(R2*((2.*PI*V2*C(I))^2-1./(R2*RA)))
 2.05 S V1=R1/(RA+RA);S V2=R2/(RA+RA)
 2.06 S VG=(R1*R2)/(8.*RA^2)
 2.07 T %,"RA =",RA,"  R1 =",R1,"  R2 =",R2,!
 2.08 T "W1 ="W1,"  W2 =",W2,"   C =",C(I),!!



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search