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

C PROGRAMM BAB
C DIMENSIONIEREN EINES BUTTERWORTH-AKTIV-BANDFILTERS
C "ELEKTRONIK" 1975 / HEFT 3 / SEITE 91,92
C FORTRAN II
	DIMENSION C(12)
	WRITE(1,98)
98	FORMAT(/'BUTTERWORTH-AKTIV-BANDFILTER'/
	1'  WIDERSTAENDE IN [OHM] UND KAPAZITAETEN IN [F]')
1	WRITE(1,99)
99	FORMAT(/10('-'))
	C(1)=1.0
	C(2)=1.2
	C(3)=1.5
	C(4)=1.8
	C(5)=2.2
	C(6)=2.7
	C(7)=3.3
	C(8)=3.9
	C(9)=4.7
	C(10)=5.6
	C(11)=6.8
	C(12)=8.2
	READ(1,100)FL,FU,CF
100	FORMAT('UNTERE ECKFREQUENZ [HZ] : 'F9.1/
	1' OBERE ECKFREQUENZ [HZ] : 'F9.1/
	2'KAPAZITAETSFAKTOR : 'E15.9)
	DO 5 I=1,12
5	C(I)=CF*C(I)
	BTA=FU-FL
	F0=SQRT(FU*FL)
	DEL=BTA/F0
	DW=SQRT(16.+DEL**4)
	D=SQRT((4.+DEL**2-DW)*0.5)
	DQ=(DEL-D)*(DEL+D)
	AL=SQRT(DQ*.5)+SQRT(DQ*.25+1.)
	F01=F0*AL
	F02=F0/AL
	PI=3.1415926
	DO 15 I=1,12
	RA=1./(2.*PI*BTA*C(I))
	RB1=1./(D*PI*F01*C(I))
	RB2=1./(D*PI*F02*C(I))
	RC1=1./(RB1*((2.*PI*F01*C(I))**2-1./(RB1*RA)))
	RC2=1./(RB2*((2.*PI*F02*C(I))**2-1./(RB2*RA)))
	V1=RB1/(RA+RA)
	V2=RB2/(RA+RA)
	VG=(RB1*RB2)/(8.*RA*RA)
	WRITE(1,101)RA,RB1,RB2
101	FORMAT(/' RA = 'E12.3,2X,'RB1 = 'E12.3,2X,'RB2 = 'E12.3)
	WRITE(1,102)RC1,RC2,C(I)
102	FORMAT('RC1 = 'E12.3,2X,'RC2 = 'E12.3,2X,'  C = 'E12.3)
15	CONTINUE
	WRITE(1,103)V1
103	FORMAT(/'      VERSTAERKUNG DES ERSTEN ABSCHNITTS = 'E12.3)
	WRITE(1,104)V2
104	FORMAT('     VERSTAERKUNG DES ZWEITEN ABSCHNITTS = 'E12.3)
	WRITE(1,105)VG
105	FORMAT(22X,'GESAMTVERSTAERKUNG = 'E12.3)
	WRITE(1,106)F01
106	FORMAT('  RESONANZFREQUENZ DES ERSTEN ABSCHNITTS = 'E12.3)
	WRITE(1,107)F02
107	FORMAT(' RESONANZFREQUENZ DES ZWEITEN ABSCHNITTS = 'E12.3)
	WRITE(1,108)F0
108	FORMAT(18X,'GESAMTRESONANZFREQUENZ = 'E12.3)
	WRITE(1,109)D
109	FORMAT('RELATIVE BANDBREITE DER EINZELABSCHNITTE = 'E12.3)
	GOTO 1
	END