Directory of image this file is from
This file as a plain text file
Q6()BTC U/W-FOCAL:LOWPAS09/15/77?MB8BJA "WHICH FILTER "!!"1 BUTTERWORTH"!"2 LEGENDRE"!"3 CHEBYSHEV 1DB"?MC\BTA !"4 CHEBYSHEV 3DB"!"5 BESSEL"!"6 PAYNTER"!"7 LAPLACE"!!"NO. "NF?MC;B^D 2.1+NF/10;A !"WHICH TYPE: 2 OR 3 POLE "PN,!;Z C(3),R6?MD B(A "RESISTANCE VALUES (OHMS) "!"R2="R2,"R4="R4;I (PN-3).5;A "R6="R6?MD1B2A !"CORNER FREQUENCY (HZ) "NU?MEMB<S A1=A1/A0, A2=A2/A0, A3=A3/A0, NU=1E12/(2*PI*NU)?ME$CFS B0=R2+R4,D0=B0+R6,E0=R4+R6;I (PN-3)4.1?MFECPS P=1, Q=-A1/R6, R=A2*D0/(B0*R6^2), S=-A3*D0*E0/(B0*R4*R6^3)?MF[CZI (-F(3.1))4.1;T !"TOUGH LUCK!";G 4.3?MF)DJR 5.1;SET COEFFICIENTS?MF7DTS A0=1, 1=2,A2=2,A3=1?MGJD^S A0=0.577,A1=1.359,A2=1.31,A3=1?MG!D(S A0=0.49131,A1=1.23845,A2=0.98834,A3=1?MG;D2S A0=0.2505943,A1=0.92834805,A2=0.5972404,A3=1?MHJD<S A0=15,A1=15,A2=6,A3=1?MHZEFS A0=1,A1=3.2,A2=4,A3=3.2?MH=EPA !"ENTER LAPLACE COEFFICIENTS"!"A0="A0," 1="A1,"A2="A2,"A3="A3?MI EZC THE NEXT SECTION FINDS THE LARGEST ROOT OF THE CUBIC EQUATION?MJBFJS T=Q/3, U=(Q*T-R)/3, V=(R*T-S)/2-T^3, D=V*V-U^3, C(3)=F(.3)-T?MJ[F^I (D).5,.4;S D=FSQT(D);X F(.8,V+D)+F(.8,V-D)?MJ$F(X 2*F(.8,V)?MJ>F2S Q=FSQT(U); X 2*Q*FCOS( I/6-F(.6,V/(Q*U))/3)?MKZF<I (*-.01).7; S =2*F(.6,/(FSQT(1+)+FSQT(1-)))?MK4GFS =+^3/6+.075*^5+^7/22.4;C F(3.6)=ARCSIN?MLNGPI (),4.6;X FSGN()*FEXP(FLOG()/3);CUBE ROOT?ML0HJS C(1)=(A1-R6*C(3))/D0, C(2)=(A2-R6*B0*C(1)*C(3))/(R2*E0*C(1))?MMNHTT !; F I=1,PN;D . ; I (1E3-C(I)).5; T %4.01,C(I),"PF"!?MM,H^S I=0YES;A !"CARE TO TRY AGAIN "I,!; I (I-0YES),1.1;R?MNBH(S C(I)=NU*C(I); T "C":FOUT(175+2*I)"="?MNPH2T %0.04,C(I)/1E6,"UF"!?MN*H<REFERENCE; A. PAUL BROKOW EDN 15 DEC 1970?MOCJJT !!"COMPONENT CONFIGURATION":33"*"!:33"* *?MO\JTT !"-- R6 ----- R4 ----- R2 ---------* + *?MO/J^T :8"!":17"!":26"!":33"*":42"*?MPGJ(T !:7"C 5 C 3 C 1 *":45"*---?MP]J2T !:8"!":17"!":26"!":33"*":42"*":48"!?MP3J<T !:8"!":17"!":26"! ---* - *":48"!?MQIKFT !:7"---":17"!":25"--- ! * *":48"!?MQ\KPT !:8"-":17"!":26"- ! *":48"!?MKZT !:17 !":30"!":48"!"!:17;F I=,31;T "-";N;T !?M!?L D LOWPAS;L S LOW Note: Lines longer than 256 characters were wrapped