C-FOCAL,1969 01.01 TYPE %,!"CONSTANT K HI PASS FILTER."! 01.02 ASK "LOAD RESISTANCE?", R 01.03 ASK "FREQ. IN HZ?", XF 01.04 TYPE !"L ",.07962*R/XF, " HENRIES." 01.05 TYPE !"C ",.07962/(XF*R), " FARADS.", !! 01.06 QUIT 02.01 TYPE %,!"CONSTANT K LO PASS FILTER."! 02.02 ASK "LOAD RESISTANCE?", R 02.03 ASK "FREQ. IN HZ?", XF 02.04 TYPE !"L ",.318*R/XF, " HENRIES." 02.05 TYPE !"C ",.318/(R*XF), " FARADS.", !! 02.06 QUIT 03.01 TYPE %,!"BRIDGED T NOTCH FILTER."! 03.02 ASK "LOAD RESISTANCE?" R 03.03 ASK "FREQ. IN HZ?" XF 03.04 ASK "NOTCH RATIO (NR<0.5)?" RN 03.05 IF (0.5-RN) 3.06, 3.06, 3.08 03.06 TYPE " ??",! 03.07 GO 3.04 03.08 TYPE !"C1 ",.159/R/XF/FSQT(1/2/RN-1), " FARADS." 03.09 TYPE !"C2 ",.159*FSQT(1/2/RN-1)/R/XF 03.10 TYPE !"R ", R, " OHMS." !! 03.11 QUIT 04.01 TYPE %,!"PARALLEL T NOTCH FILTER."! 04.02 ASK "LOAD RESISTANCE?" R 04.03 ASK "FREQ. IN HZ?" XF 04.04 TYPE !"C ",.113/XF/R, " FARADS." 04.05 TYPE !"R ",.707*R, " OHMS.", !! 04.06 QUIT 05.01 TYPE %,!"LUMPED PARAMETER CONSTANT K DELAY LINE."! 05.02 ASK "LOAD RESISTANCE?" R 05.03 ASK "DELAY IN MICROSECONDS?" TD 05.04 ASK "RISE TIME IN MICROSECONDS?" TR 05.05 SET A=1.2*FSQT((TD/TR)^3) 05.06 TYPE !"N ",FITR(A), " SECTIONS." 05.07 SET TS=TD/A 05.08 TYPE !"L ",TS*R*.1E-5, " HENRIES." 05.09 TYPE !"C ",TS*.1E-5/R, " FARADS.", !! 05.10 QUIT *