.MCAD 304020000 1 74 499 0
.CMD PLOTFORMAT
0 0 1 1 1 0 0 1 1 
0 0 1 1 1 0 0 1 1 
0 1 0 0 1 1 NO-TRACE-STRING
0 2 1 0 1 1 NO-TRACE-STRING
0 3 2 0 1 1 NO-TRACE-STRING
0 4 3 0 1 1 NO-TRACE-STRING
0 1 4 0 1 1 NO-TRACE-STRING
0 2 5 0 1 1 NO-TRACE-STRING
0 3 6 0 1 1 NO-TRACE-STRING
0 4 0 0 1 1 NO-TRACE-STRING
0 1 1 0 1 1 NO-TRACE-STRING
0 2 2 0 1 1 NO-TRACE-STRING
0 3 3 0 1 1 NO-TRACE-STRING
0 4 4 0 1 1 NO-TRACE-STRING
0 1 5 0 1 1 NO-TRACE-STRING
0 2 6 0 1 1 NO-TRACE-STRING
0 3 0 0 1 1 NO-TRACE-STRING
0 4 1 0 1 1 NO-TRACE-STRING
0 1 1 21 15 0 0 3 
.CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge temperature tr=0 vm=0
.CMD SET ORIGIN 0
.CMD SET TOL 0.001000000000000
.CMD SET PRNCOLWIDTH 8
.CMD SET PRNPRECISION 4
.CMD PRINT_SETUP 1.200000 1.218750 1.200000 1.200000 0
.CMD HEADER_FOOTER 1 1 *empty* *empty* *empty* 0 1 *empty* *empty* *empty*
.CMD HEADER_FOOTER_FONT fontID=14 family=Arial points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD HEADER_FOOTER_FONT fontID=15 family=Arial points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFAULT_TEXT_PARPROPS 0 0 0
.CMD DEFINE_FONTSTYLE_NAME fontID=0 name=Variables
.CMD DEFINE_FONTSTYLE_NAME fontID=1 name=Constants
.CMD DEFINE_FONTSTYLE_NAME fontID=2 name=Text
.CMD DEFINE_FONTSTYLE_NAME fontID=4 name=User^1
.CMD DEFINE_FONTSTYLE_NAME fontID=5 name=User^2
.CMD DEFINE_FONTSTYLE_NAME fontID=6 name=User^3
.CMD DEFINE_FONTSTYLE_NAME fontID=7 name=User^4
.CMD DEFINE_FONTSTYLE_NAME fontID=8 name=User^5
.CMD DEFINE_FONTSTYLE_NAME fontID=9 name=User^6
.CMD DEFINE_FONTSTYLE_NAME fontID=10 name=User^7
.CMD DEFINE_FONTSTYLE fontID=0 family=Times^New^Roman points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=1 family=Times^New^Roman points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=2 family=Arial points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=4 family=Arial points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=5 family=Courier^New points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=6 family=System points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=7 family=Script points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=8 family=Roman points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=9 family=Modern points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD DEFINE_FONTSTYLE fontID=10 family=Times^New^Roman points=10 bold=0 italic=0 underline=0 colrid=-1
.CMD UNITS U=1
.CMD DIMENSIONS_ANALYSIS 0 0
.CMD COLORTAB_ENTRY 0 0 0
.CMD COLORTAB_ENTRY 128 0 0
.CMD COLORTAB_ENTRY 0 128 0
.CMD COLORTAB_ENTRY 128 128 0
.CMD COLORTAB_ENTRY 0 0 128
.CMD COLORTAB_ENTRY 128 0 128
.CMD COLORTAB_ENTRY 0 128 128
.CMD COLORTAB_ENTRY 128 128 128
.CMD COLORTAB_ENTRY 192 192 192
.CMD COLORTAB_ENTRY 255 0 0
.CMD COLORTAB_ENTRY 0 255 0
.CMD COLORTAB_ENTRY 255 255 0
.CMD COLORTAB_ENTRY 0 0 255
.CMD COLORTAB_ENTRY 255 0 255
.CMD COLORTAB_ENTRY 0 255 255
.CMD COLORTAB_ENTRY 255 255 255
.TXT 6 1 2 0 0
Cg a73.000000,73.000000,29
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 
Mathcad File Name: firwin.mcd}}
.TXT 4 0 4 0 0
Cg a73.000000,73.000000,104
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 
Copyright 1995\par This program is written by Professor James S. Kang 
of ECE Department at Cal Poly, Pomona.}}
.TXT 4 0 481 0 0
Cg a73.000000,73.000000,36
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 
Designing FIR filters using windows.}}
.TXT 9 0 6 0 0
Cg a73.000000,73.000000,23
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2\b 
ENTERING SPECIFICATIONS}}
.EQN 5 0 10 0 0
{0:type}NAME:2
.TXT 0 9 11 0 0
Cg a64.000000,64.000000,99
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 type 
1: lowpass filter, type 2: highpass filter, type 3: bandpass filter, 
\par type 4: bandstop filter.}}
.EQN 6 -9 8 0 0
{0:window}NAME:4
.TXT 0 14 9 0 0
Cg a59.000000,59.000000,343
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 window 
=1: rectangular window,  window = 2: Bartlett window (Fejer, Cesaro)  
\par window = 3: Hanning window (von Hann),  window = 4: Hamming 
window,  \par window = 5: Blackman window,  window = 6: Lanczos 
window,  \par window = 7: Tukey window,  window = 8: Kaiser window,  
\par window = 9: Dolph-Chebyshev window,  window = 10: Papoulis\par 
window = 11: Parzen }}
.EQN 15 -14 20 0 0
{0:N}NAME:11
.TXT 0 12 21 0 0
Cg a61.000000,61.000000,65
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 N is 
the order of the filter. Used for all filters except Kaiser.}}
.EQN 4 -12 22 0 0
{0:fs}NAME:10000
.TXT 0 12 23 0 0
Cg a61.000000,61.000000,30
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 fs is 
the sampling rate in Hz.}}
.EQN 4 -12 238 0 0
{0:L}NAME:5
.TXT 0 12 239 0 0
Cg a61.000000,61.000000,51
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 L is 
the parameter for Lanczos window (window = 6).}}
.EQN 4 -12 240 0 0
{0:a}NAME:0.5
.TXT 0 12 241 0 0
Cg a61.000000,61.000000,50
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 a is 
the parameter for Tukey window (window = 7). }}
.EQN 4 -12 246 0 0
{0:r}NAME:0.1
.TXT 0 12 247 0 0
Cg a61.000000,61.000000,63
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 r is 
the ripple ratio for Dolph-Chebyshev window (window = 9). }}
.EQN 5 -12 154 0 0
{0:case}NAME:2
.TXT 0 12 155 0 0
Cg a61.000000,61.000000,145
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}{\f1\fcharset2\fnil Symbol;}}\plain
\cf1\fs20 \pard {\cf2 case 1: specifications for Kaiser window is 
given in terms of }{\cf2\f1 d}{\cf2 1 and }{\cf2\f1 d2}{\cf2 .\par 
case 2: specifications for Kaiser window is given in terms of ap and aa.}}
.EQN 6 -12 152 0 0
{0:\d1}NAME:0.01
.TXT 0 12 153 0 0
Cg a58.500000,58.500000,76
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}{\f1\fcharset2\fnil Symbol;}}\plain
\cf1\fs20 \pard {\cf2\f1 d1}{\cf2  is fractional ripple above and 
below 1 in the passband.  Used for case 1.}}
.EQN 3 -12 159 0 0
{0:\d2}NAME:0.01
.TXT 0 12 160 0 0
Cg a58.500000,58.500000,51
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}{\f1\fcharset2\fnil Symbol;}}\plain
\cf1\fs20 \pard {\cf2\f1 d2}{\cf2  is the ripple in the stopband.  
Used for case 1.}}
.EQN 4 -12 148 0 0
{0:ap}NAME:0.5
.TXT 0 12 149 0 0
Cg a61.000000,61.000000,94
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}{\f1\fcharset2\fnil Symbol;}}\plain
\cf1\fs20 \pard {\cf2 ap is the passband ripple in dB for Kaiser 
window.  ap = 20 log[(1+}{\cf2\f1 d}{\cf2 )/(1-}{\cf2\f1 d}{\cf2 )].
\par Used for case 2.}}
.EQN 6 -12 150 0 0
{0:aa}NAME:30
.TXT 0 12 151 0 0
Cg a61.000000,61.000000,92
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}{\f1\fcharset2\fnil Symbol;}}\plain
\cf1\fs20 \pard {\cf2 aa is the stop band attenuation in dB for Kaiser 
window.  aa = - 20 log(}{\cf2\f1 d}{\cf2 ).\par Used for case 2.}}
.EQN 6 -12 24 0 0
{0:Ts}NAME:(1)/({0:fs}NAME)
.TXT 0 12 147 0 0
Cg a61.000000,61.000000,28
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 Ts is 
the sampling interval.}}
.EQN 5 -12 424 0 0
{0:\d1}NAME:{0:if}NAME({0:case}NAME÷2,(10)^(-0.05*{0:aa}NAME),{0:\d1}NAME)
.EQN 11 0 162 0 0
{0:\d2}NAME:{0:if}NAME({0:case}NAME÷2,((10)^(0.05*{0:ap}NAME)-1)/((10)^(0.05*{0:ap}NAME)+1),{0:\d2}NAME)
.EQN 6 0 163 0 0
{0:\dm}NAME:{0:if}NAME({0:\d1}NAMEó{0:\d2}NAME,{0:\d1}NAME,{0:\d2}NAME)
.EQN 4 0 164 0 0
{0:aa}NAME:-20*{0:log}NAME({0:\dm}NAME)
.EQN 4 0 165 0 0
{0:\b}NAME:{0:if}NAME({0:aa}NAMEó21,0,{0:if}NAME(({0:aa}NAME>21)*({0:aa}NAMEó50),0.5842*(({0:aa}NAME-21))^(0.4)+0.07886*({0:aa}NAME-21),0.1102*({0:aa}NAME-8.7)))
.EQN 6 0 166 0 0
{0:D}NAME:{0:if}NAME({0:aa}NAMEó21,0.9222,({0:aa}NAME-7.95)/(14.36))
.EQN 0 31 479 0 0
{0:\b}NAME={0}?_n_u_l_l_
.EQN 0 12 480 0 0
{0:D}NAME={0}?_n_u_l_l_
.TXT 7 -43 25 0 0
Cg a73.000000,73.000000,34
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 
Specifications for lowpass filter.}}
.EQN 4 0 26 0 0
{0:fclpf}NAME:2000
.TXT 0 14 27 0 0
Cg a61.000000,61.000000,80
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 fclpf 
is the cutoff frequency in Hz.  Used for all windows except Kaiser window.}}
.EQN 5 -14 28 0 0
{0:fplpf}NAME:1000
.TXT 0 14 29 0 0
Cg a59.000000,59.000000,64
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 fplpf 
is the pass band cutoff frequency in Hz for Kaiser window.}}
.EQN 5 -14 30 0 0
{0:fslpf}NAME:2000
.TXT 0 14 31 0 0
Cg a59.000000,59.000000,74
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 fslpf 
is the stop band cutoff frequency in Hz (fs > fp) for Kaiser window.}}
.EQN 5 -14 167 0 0
{0:fclpf}NAME:{0:if}NAME({0:window}NAME÷8,({0:fplpf}NAME+{0:fslpf}NAME)/(2),{0:fclpf}NAME)
.EQN 5 0 32 0 0
{0:\qclpf}NAME:2*{0:\p}NAME*{0:fclpf}NAME*{0:Ts}NAME
.EQN 0 17 33 0 0
{0:\qplpf}NAME:2*{0:\p}NAME*{0:fplpf}NAME*{0:Ts}NAME
.EQN 0 18 34 0 0
{0:\qslpf}NAME:2*{0:\p}NAME*{0:fslpf}NAME*{0:Ts}NAME
.EQN 0 18 484 0 0
{0:\qclpf}NAME={0}?_n_u_l_l_
.EQN 5 -53 168 0 0
{0:N}NAME:{0:if}NAME(({0:window}NAME÷8)*({0:type}NAME÷1),{0:ceil}NAME(({0:fs}NAME*{0:D}NAME)/({0:fslpf}NAME-{0:fplpf}NAME)+1),{0:N}NAME)
.TXT 7 0 38 0 0
Cg a73.000000,73.000000,35
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 
Specifications for highpass filter.}}
.EQN 3 0 39 0 0
{0:fchpf}NAME:2000
.TXT 0 14 40 0 0
Cg a61.000000,61.000000,80
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 fchpf 
is the cutoff frequency in Hz.  Used for all windows except Kaiser window.}}
.EQN 3 -14 41 0 0
{0:fphpf}NAME:2500
.TXT 0 14 42 0 0
Cg a59.000000,59.000000,64
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 fphpf 
is the pass band cutoff frequency in Hz for Kaiser window.}}
.EQN 4 -14 43 0 0
{0:fshpf}NAME:1500
.TXT 0 14 44 0 0
Cg a59.000000,59.000000,74
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 fshpf 
is the stop band cutoff frequency in Hz (fs < fp) for Kaiser window.}}
.EQN 5 -14 170 0 0
{0:fchpf}NAME:{0:if}NAME({0:window}NAME÷8,({0:fphpf}NAME+{0:fshpf}NAME)/(2),{0:fchpf}NAME)
.EQN 5 0 45 0 0
{0:\qchpf}NAME:2*{0:\p}NAME*{0:fchpf}NAME*{0:Ts}NAME
.EQN 0 17 46 0 0
{0:\qphpf}NAME:2*{0:\p}NAME*{0:fphpf}NAME*{0:Ts}NAME
.EQN 0 18 47 0 0
{0:\qshpf}NAME:2*{0:\p}NAME*{0:fshpf}NAME*{0:Ts}NAME
.EQN 9 -35 171 0 0
{0:N}NAME:{0:if}NAME(({0:window}NAME÷8)*({0:type}NAME÷2),{0:ceil}NAME(({0:fs}NAME*{0:D}NAME)/({0:fphpf}NAME-{0:fshpf}NAME)+1),{0:N}NAME)
.TXT 6 0 425 0 0
Cg a73.000000,73.000000,35
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 
Specifications for bandpass filter.}}
.EQN 3 0 52 0 0
{0:fcbpf}NAME:2500
.TXT 0 14 53 0 0
Cg a61.000000,61.000000,96
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 fcbpf 
is the center frequency in Hz in the passband.  Used for all windows
\par except Kaiser window.}}
.EQN 6 -14 54 0 0
{0:bwbpf}NAME:1000
.TXT 0 14 55 0 0
Cg a61.000000,61.000000,76
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 bwbpf 
is the bandwidth of the passband.  Used for all windows except Kaiser.}}
.EQN 5 -14 56 0 0
{0:f1bpf}NAME:2000
.TXT 0 14 57 0 0
Cg a59.000000,59.000000,95
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 f1bpf 
is the lower pass band cutoff frequency in Hz (f3bpf < f1bpf < f2bpf)
\par  for Kaiser window.}}
.EQN 6 -14 58 0 0
{0:f2bpf}NAME:3000
.TXT 0 14 59 0 0
Cg a59.000000,59.000000,95
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 f2bpf 
is the upper pass band cutoff frequency in Hz (f1bpf < f2bpf < f4bpf) 
\par for Kaiser window.}}
.EQN 6 -14 60 0 0
{0:f3bpf}NAME:1000
.TXT 0 14 61 0 0
Cg a59.000000,59.000000,79
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 f3bpf 
is the lower stop band cutoff frequency in Hz (f3bpf < f1bpf) for Kaiser.}}
.EQN 5 -14 62 0 0
{0:f4bpf}NAME:4000
.TXT 0 14 63 0 0
Cg a59.000000,59.000000,79
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 f4bpf 
is the upper stop band cutoff frequency in Hz (f2bpf < f4bpf) for Kaiser.}}
.EQN 4 -14 275 0 0
{0:bt}NAME:{0:if}NAME({0:f1bpf}NAME-{0:f3bpf}NAMEó{0:f4bpf}NAME-{0:f2bpf}NAME,{0:f1bpf}NAME-{0:f3bpf}NAME,{0:f4bpf}NAME-{0:f2bpf}NAME)
.EQN 6 0 181 0 0
{0:N}NAME:{0:if}NAME(({0:window}NAME÷8)*({0:type}NAME÷3),{0:ceil}NAME(({0:fs}NAME*{0:D}NAME)/({0:bt}NAME)+1),{0:N}NAME)
.EQN 7 0 64 0 0
{0:f1bpf}NAME:{0:if}NAME({0:window}NAME{56}8,{0:fcbpf}NAME-({0:bwbpf}NAME)/(2),{0:f1bpf}NAME-({0:bt}NAME)/(2))
.EQN 7 0 65 0 0
{0:f2bpf}NAME:{0:if}NAME({0:window}NAME{56}8,{0:fcbpf}NAME+({0:bwbpf}NAME)/(2),{0:f2bpf}NAME+({0:bt}NAME)/(2))
.EQN 6 0 66 0 0
{0:\q1bpf}NAME:2*{0:\p}NAME*{0:f1bpf}NAME*{0:Ts}NAME
.EQN 0 17 67 0 0
{0:\q2bpf}NAME:2*{0:\p}NAME*{0:f2bpf}NAME*{0:Ts}NAME
.EQN 0 18 68 0 0
{0:\q3bpf}NAME:2*{0:\p}NAME*{0:f3bpf}NAME*{0:Ts}NAME
.EQN 0 18 69 0 0
{0:\q4bpf}NAME:2*{0:\p}NAME*{0:f4bpf}NAME*{0:Ts}NAME
.EQN 3 -53 487 0 0
{0:\q1bpf}NAME={0}?_n_u_l_l_
.EQN 0 14 488 0 0
{0:\q2bpf}NAME={0}?_n_u_l_l_
.EQN 0 14 489 0 0
{0:\q3bpf}NAME={0}?_n_u_l_l_
.EQN 0 15 490 0 0
{0:\q4bpf}NAME={0}?_n_u_l_l_
.TXT 4 -43 76 0 0
Cg a73.000000,73.000000,35
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 
Specifications for bandstop filter.}}
.EQN 5 0 77 0 0
{0:fcbsf}NAME:2500
.TXT 0 14 158 0 0
Cg a59.000000,59.000000,98
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 fcbsf 
is the center frequency in Hz in the stop band.  Used for all windows 
\par except Kaiser window.}}
.EQN 6 -14 79 0 0
{0:bwbsf}NAME:1000
.TXT 0 14 80 0 0
Cg a61.000000,61.000000,90
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 bwbsf 
is the bandwidth of the stopband in Hz.  Used for all windows except 
\par Kaiser window.}}
.EQN 6 -14 81 0 0
{0:f1bsf}NAME:100
.TXT 0 14 82 0 0
Cg a59.000000,59.000000,80
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 f1bsf 
is the lower pass band cutoff frequency in Hz (f1bpf < f3bpf)  for Kaiser.}}
.EQN 8 -14 83 0 0
{0:f2bsf}NAME:350
.TXT 0 14 84 0 0
Cg a59.000000,59.000000,79
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 f2bsf 
is the upper pass band cutoff frequency in Hz (f4bsf < f2bsf) for Kaiser.}}
.EQN 4 -14 85 0 0
{0:f3bsf}NAME:200
.TXT 0 14 86 0 0
Cg a59.000000,59.000000,88
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 f3bsf 
is the lower stop band cutoff frequency in Hz (f1bsf < f3bsf < f4bsf) 
\par for Kaiser.}}
.EQN 10 -14 87 0 0
{0:f4bsf}NAME:300
.TXT 0 14 88 0 0
Cg a59.000000,59.000000,88
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 f4bsf 
is the upper stop band cutoff frequency in Hz (f3bpf < f4bpf < f2bsf) 
\par for Kaiser.}}
.EQN 6 -14 276 0 0
{0:bt}NAME:{0:if}NAME({0:f3bsf}NAME-{0:f1bsf}NAMEó{0:f2bsf}NAME-{0:f4bsf}NAME,{0:f3bsf}NAME-{0:f1bsf}NAME,{0:f2bsf}NAME-{0:f4bsf}NAME)
.EQN 5 0 186 0 0
{0:N}NAME:{0:if}NAME(({0:window}NAME÷8)*({0:type}NAME÷4),{0:ceil}NAME(({0:fs}NAME*{0:D}NAME)/({0:bt}NAME)+1),{0:N}NAME)
.EQN 0 40 491 0 0
{0:N}NAME={0}?_n_u_l_l_
.EQN 7 -40 188 0 0
{0:f1bsf}NAME:{0:if}NAME({0:window}NAME{56}8,{0:fcbsf}NAME-({0:bwbsf}NAME)/(2),{0:f1bsf}NAME+({0:bt}NAME)/(2))
.EQN 8 0 189 0 0
{0:f2bsf}NAME:{0:if}NAME({0:window}NAME{56}8,{0:fcbsf}NAME+({0:bwbsf}NAME)/(2),{0:f2bsf}NAME-({0:bt}NAME)/(2))
.EQN 7 0 190 0 0
{0:\q1bsf}NAME:2*{0:\p}NAME*{0:f1bsf}NAME*{0:Ts}NAME
.EQN 0 17 191 0 0
{0:\q2bsf}NAME:2*{0:\p}NAME*{0:f2bsf}NAME*{0:Ts}NAME
.EQN 0 18 192 0 0
{0:\q3bsf}NAME:2*{0:\p}NAME*{0:f3bsf}NAME*{0:Ts}NAME
.EQN 0 18 193 0 0
{0:\q4bsf}NAME:2*{0:\p}NAME*{0:f4bsf}NAME*{0:Ts}NAME
.TXT 7 -53 202 0 0
Cg a73.000000,73.000000,40
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2\b 
CALCULATING THE DESIRED SHIFTED RESPONSE}}
.EQN 5 0 200 0 0
{0:N}NAME:{0:if}NAME({0:mod}NAME({0:N}NAME,2)÷0,{0:N}NAME+1,{0:N}NAME)
.EQN 0 27 201 0 0
{0:N}NAME={0}?_n_u_l_l_
.EQN 5 -27 204 0 0
{0:sinc}NAME({0:x}NAME):{0:if}NAME({0:x}NAME÷0,1,({0:sin}NAME({0:\p}NAME*{0:x}NAME))/({0:\p}NAME*{0:x}NAME))
.EQN 6 0 205 0 0
{0:k}NAME:0;{0:N}NAME-1
.EQN 6 0 206 0 0
({0:hds}NAME)[({0:k}NAME):({0:\qclpf}NAME)/({0:\p}NAME)*{0:sinc}NAME(({0:\qclpf}NAME*({0:k}NAME-({0:N}NAME-1)/(2)))/({0:\p}NAME))
.EQN 8 0 207 0 0
({0:hds}NAME)[({0:k}NAME):{0:if}NAME({0:type}NAME÷2,{0:\d}NAME({0:k}NAME,({0:N}NAME-1)/(2))-({0:\qchpf}NAME)/({0:\p}NAME)*{0:sinc}NAME(({0:\qchpf}NAME*({0:k}NAME-({0:N}NAME-1)/(2)))/({0:\p}NAME)),({0:hds}NAME)[({0:k}NAME))
.EQN 9 0 210 0 0
({0:hds}NAME)[({0:k}NAME):{0:if}NAME({0:type}NAME÷3,({0:\q2bpf}NAME)/({0:\p}NAME)*{0:sinc}NAME(({0:\q2bpf}NAME*({0:k}NAME-({0:N}NAME-1)/(2)))/({0:\p}NAME))-({0:\q1bpf}NAME)/({0:\p}NAME)*{0:sinc}NAME(({0:\q1bpf}NAME*({0:k}NAME-({0:N}NAME-1)/(2)))/(
{0:\p}NAME)),({0:hds}NAME)[({0:k}NAME))
.EQN 14 0 215 0 0
({0:hds}NAME)[({0:k}NAME):{0:if}NAME({0:type}NAME÷4,{0:\d}NAME({0:k}NAME,({0:N}NAME-1)/(2))-({0:\q2bsf}NAME)/({0:\p}NAME)*{0:sinc}NAME(({0:\q2bsf}NAME*({0:k}NAME-({0:N}NAME-1)/(2)))/({0:\p}NAME))+({0:\q1bsf}NAME)/({0:\p}NAME)*{0:sinc}NAME(({0:\q1bsf}NAME*
({0:k}NAME-({0:N}NAME-1)/(2)))/({0:\p}NAME)),({0:hds}NAME)[({0:k}NAME))
.TXT 7 0 426 0 0
Cg a73.000000,73.000000,31
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2\b 
CALCULATING THE WINDOW FUNCTION}}
.EQN 3 0 233 0 0
({0:w}NAME)[({0:k}NAME):1
.EQN 4 0 234 0 0
({0:w}NAME)[({0:k}NAME):{0:if}NAME({0:window}NAME÷2,{0:if}NAME({0:k}NAMEó({0:N}NAME-1)/(2),(2*{0:k}NAME)/({0:N}NAME-1),2-(2*{0:k}NAME)/({0:N}NAME-1)),({0:w}NAME)[({0:k}NAME))
.EQN 6 0 235 0 0
({0:w}NAME)[({0:k}NAME):{0:if}NAME({0:window}NAME÷3,(1)/(2)*(1-{0:cos}NAME((2*{0:\p}NAME*{0:k}NAME)/({0:N}NAME-1))),({0:w}NAME)[({0:k}NAME))
.EQN 6 0 236 0 0
({0:w}NAME)[({0:k}NAME):{0:if}NAME({0:window}NAME÷4,0.54-0.46*{0:cos}NAME((2*{0:\p}NAME*{0:k}NAME)/({0:N}NAME-1)),({0:w}NAME)[({0:k}NAME))
.EQN 6 0 237 0 0
({0:w}NAME)[({0:k}NAME):{0:if}NAME({0:window}NAME÷5,0.42-0.5*{0:cos}NAME((2*{0:\p}NAME*{0:k}NAME)/({0:N}NAME-1))+0.08*{0:cos}NAME((4*{0:\p}NAME*{0:k}NAME)/({0:N}NAME-1)),({0:w}NAME)[({0:k}NAME))
.EQN 9 0 242 0 0
({0:w}NAME)[({0:k}NAME):{0:if}NAME({0:window}NAME÷6,({0:sinc}NAME((2*({0:k}NAME-({0:N}NAME-1)/(2)))/({0:N}NAME-1)))^(2),({0:w}NAME)[({0:k}NAME))
.EQN 10 0 243 0 0
({0:w}NAME)[({0:k}NAME):{0:if}NAME({0:window}NAME÷7,{0:if}NAME(({0:k}NAMEň(1-{0:a}NAME)*({0:N}NAME-1)/(2))*({0:k}NAMEó(1+{0:a}NAME)*({0:N}NAME-1)/(2)),1,(1)/(2)*(1+{0:cos}NAME(({0:k}NAME-((1+{0:a}NAME)*({0:N}NAME-1))/(2))/(((1-{0:a}NAME)*({0:N}NAME-1))/(2
))*{0:\p}NAME))),({0:w}NAME)[({0:k}NAME))
.EQN 14 0 256 0 0
({0:w}NAME)[({0:k}NAME):{0:if}NAME({0:window}NAME÷8,({0:I0}NAME({0:\b}NAME*\(1-((1-(2*{0:k}NAME)/({0:N}NAME-1)))^(2))))/({0:I0}NAME({0:\b}NAME)),({0:w}NAME)[({0:k}NAME))
.EQN 6 0 248 0 0
{0:T}NAME({0:m}NAME,{0:x}NAME):{0:if}NAME(({0:x}NAMEó1)*({0:x}NAMEň-1),{0:cos}NAME({0:m}NAME*{0:acos}NAME({0:x}NAME)),{0:cosh}NAME({0:acosh}NAME({0:x}NAME)))
.EQN 4 0 249 0 0
{0:x0}NAME:{0:if}NAME({0:N}NAME>1,{0:cosh}NAME((1)/({0:N}NAME-1)*{0:acosh}NAME((1)/({0:r}NAME))),0)
.EQN 11 0 250 0 0
({0:w}NAME)[({0:k}NAME):{0:if}NAME({0:window}NAME÷9,(1)/({0:N}NAME)*((1)/({0:r}NAME)+2*((1,({0:N}NAME-1)/(2),{0:i}NAME,{0:T}NAME({0:N}NAME-1,{0:x0}NAME*{0:cos}NAME(({0:i}NAME*{0:\p}NAME)/({0:N}NAME)))*{0:cos}NAME((2*({0:k}NAME-({0:N}NAME-1)/(2))*
{0:\p}NAME*{0:i}NAME)/({0:N}NAME))){64})),({0:w}NAME)[({0:k}NAME))
.EQN 9 0 429 0 0
({0:w}NAME)[({0:k}NAME):{0:if}NAME({0:window}NAME÷10,(1)/({0:\p}NAME)*|({0:sin}NAME((2*{0:\p}NAME*({0:k}NAME-({0:N}NAME-1)/(2)))/({0:N}NAME-1)))+(1-(2*|({0:k}NAME-({0:N}NAME-1)/(2)))/({0:N}NAME-1))*{0:cos}NAME((2*{0:\p}NAME*({0:k}NAME-({0:N}NAME-1)/(2)))/
({0:N}NAME-1)),({0:w}NAME)[({0:k}NAME))
.EQN 8 0 430 0 0
({0:wa}NAME)[({0:k}NAME):1-24*((({0:k}NAME-({0:N}NAME-1)/(2))/({0:N}NAME-1)))^(2)+48*((|(({0:k}NAME-({0:N}NAME-1)/(2))/({0:N}NAME-1))))^(3)
.EQN 15 0 252 0 0
({0:w}NAME)[({0:k}NAME):{0:if}NAME({0:window}NAME÷11,{0:if}NAME(({0:k}NAMEň({0:N}NAME-1)/(4))*({0:k}NAMEó3*({0:N}NAME-1)/(4)),({0:wa}NAME)[({0:k}NAME),(1)/(2)*(1-(2*|({0:k}NAME-({0:N}NAME-1)/(2)))/({0:N}NAME-1))),({0:w}NAME)[({0:k}NAME))
.TXT 6 0 257 0 0
Cg a73.000000,73.000000,63
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2\b 
CALCULATING AND PLOTTING THE IMPULSE RESPONSE OF THE FIR FILTER}}
.EQN 3 0 258 0 0
({0:h}NAME)[({0:k}NAME):({0:hds}NAME)[({0:k}NAME)*({0:w}NAME)[({0:k}NAME)
.EQN 4 1 261 0 0
&&(_n_u_l_l_&_n_u_l_l_)&({0:hds}NAME)[({0:k}NAME),0@&&(_n_u_l_l_&_n_u_l_l_)&{0:k}NAME
0 1 1 1 1 0 0 1 1 
0 1 1 1 1 0 0 1 1 
0 1 0 2 1 1 NO-TRACE-STRING
0 1 1 2 1 1 NO-TRACE-STRING
0 3 2 0 1 1 NO-TRACE-STRING
0 4 3 0 1 1 NO-TRACE-STRING
0 1 4 0 1 1 NO-TRACE-STRING
0 2 5 0 1 1 NO-TRACE-STRING
0 3 6 0 1 1 NO-TRACE-STRING
0 4 0 0 1 1 NO-TRACE-STRING
0 1 1 0 1 1 NO-TRACE-STRING
0 2 2 0 1 1 NO-TRACE-STRING
0 3 3 0 1 1 NO-TRACE-STRING
0 4 4 0 1 1 NO-TRACE-STRING
0 1 5 0 1 1 NO-TRACE-STRING
0 2 6 0 1 1 NO-TRACE-STRING
0 3 0 0 1 1 NO-TRACE-STRING
0 4 1 0 1 1 NO-TRACE-STRING
0 1 1 54 15 10 0 3 
.EQN 23 4 262 0 0
2&&(_n_u_l_l_&_n_u_l_l_)&({0:w}NAME)[({0:k}NAME),0@&&(_n_u_l_l_&_n_u_l_l_)&{0:k}NAME
0 0 1 1 1 0 0 1 1 
0 0 1 1 1 0 0 1 1 
0 1 0 2 1 1 NO-TRACE-STRING
0 1 1 2 1 1 NO-TRACE-STRING
0 3 2 0 1 1 NO-TRACE-STRING
0 4 3 0 1 1 NO-TRACE-STRING
0 1 4 0 1 1 NO-TRACE-STRING
0 2 5 0 1 1 NO-TRACE-STRING
0 3 6 0 1 1 NO-TRACE-STRING
0 4 0 0 1 1 NO-TRACE-STRING
0 1 1 0 1 1 NO-TRACE-STRING
0 2 2 0 1 1 NO-TRACE-STRING
0 3 3 0 1 1 NO-TRACE-STRING
0 4 4 0 1 1 NO-TRACE-STRING
0 1 5 0 1 1 NO-TRACE-STRING
0 2 6 0 1 1 NO-TRACE-STRING
0 3 0 0 1 1 NO-TRACE-STRING
0 4 1 0 1 1 NO-TRACE-STRING
0 1 1 54 15 10 0 3 
.EQN 33 -5 431 0 0
&&(_n_u_l_l_&_n_u_l_l_)&({0:h}NAME)[({0:k}NAME),0@&&(_n_u_l_l_&_n_u_l_l_)&{0:k}NAME
0 0 1 1 1 0 0 1 1 
0 0 1 1 1 0 0 1 1 
0 1 0 2 1 1 NO-TRACE-STRING
0 1 1 2 1 1 NO-TRACE-STRING
0 3 2 0 1 1 NO-TRACE-STRING
0 4 3 0 1 1 NO-TRACE-STRING
0 1 4 0 1 1 NO-TRACE-STRING
0 2 5 0 1 1 NO-TRACE-STRING
0 3 6 0 1 1 NO-TRACE-STRING
0 4 0 0 1 1 NO-TRACE-STRING
0 1 1 0 1 1 NO-TRACE-STRING
0 2 2 0 1 1 NO-TRACE-STRING
0 3 3 0 1 1 NO-TRACE-STRING
0 4 4 0 1 1 NO-TRACE-STRING
0 1 5 0 1 1 NO-TRACE-STRING
0 2 6 0 1 1 NO-TRACE-STRING
0 3 0 0 1 1 NO-TRACE-STRING
0 4 1 0 1 1 NO-TRACE-STRING
0 1 1 54 15 10 0 3 
.EQN 26 17 497 0 0
({0:hs}NAME)[({0:k}NAME):32768*({0:h}NAME)[({0:k}NAME)
.EQN 5 -16 469 0 0
({0:hds}NAME)[({0:k}NAME){18999}=
.EQN 0 15 495 0 0
({0:w}NAME)[({0:k}NAME){18999}=
.EQN 0 14 496 0 0
({0:h}NAME)[({0:k}NAME){19007}=
.EQN 0 25 499 0 0
({0:hs}NAME)[({0:k}NAME)=
.EQN 64 -54 343 0 0
{0:WRITE}NAME({0:hk1}NAME):({0:h}NAME)[({0:k}NAME)
.TXT 10 -1 438 0 0
Cg a70.000000,70.000000,47
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2\b 
CALCULATING AND PLOTTING THE FREQUENCY RESPONSE}}
.EQN 5 0 439 0 0
{0:\q}NAME:0,0.01;2*{0:\p}NAME
.EQN 10 0 440 0 0
{0:H}NAME({0:\q}NAME):({0:e}NAME)^(-1j*{0:\q}NAME*({0:N}NAME-1)/(2))*(({0:h}NAME)[(({0:N}NAME-1)/(2))+((0,({0:N}NAME-1)/(2)-1,{0:k}NAME,2*({0:h}NAME)[({0:k}NAME)*{0:cos}NAME({0:\q}NAME*({0:k}NAME-({0:N}NAME-1)/(2)))){64}))
.EQN 12 2 269 0 0
&&(_n_u_l_l_&_n_u_l_l_)&|({0:H}NAME({0:\q}NAME))@&&(_n_u_l_l_&_n_u_l_l_)&({0:\q}NAME)/(2*{0:\p}NAME)
0 0 1 1 1 0 0 1 1 
0 0 1 1 1 0 0 1 1 
0 1 0 0 1 1 NO-TRACE-STRING
0 2 1 0 1 1 NO-TRACE-STRING
0 3 2 0 1 1 NO-TRACE-STRING
0 4 3 0 1 1 NO-TRACE-STRING
0 1 4 0 1 1 NO-TRACE-STRING
0 2 5 0 1 1 NO-TRACE-STRING
0 3 6 0 1 1 NO-TRACE-STRING
0 4 0 0 1 1 NO-TRACE-STRING
0 1 1 0 1 1 NO-TRACE-STRING
0 2 2 0 1 1 NO-TRACE-STRING
0 3 3 0 1 1 NO-TRACE-STRING
0 4 4 0 1 1 NO-TRACE-STRING
0 1 5 0 1 1 NO-TRACE-STRING
0 2 6 0 1 1 NO-TRACE-STRING
0 3 0 0 1 1 NO-TRACE-STRING
0 4 1 0 1 1 NO-TRACE-STRING
0 1 1 55 20 10 0 3 
.EQN 30 -2 270 0 0
&&(_n_u_l_l_&_n_u_l_l_)&20*{0:log}NAME(|({0:H}NAME({0:\q}NAME)))@&&(_n_u_l_l_&_n_u_l_l_)&({0:\q}NAME)/(2*{0:\p}NAME)
0 0 1 1 1 0 0 1 1 
0 0 1 1 1 0 0 1 1 
0 1 0 0 1 1 NO-TRACE-STRING
0 2 1 0 1 1 NO-TRACE-STRING
0 3 2 0 1 1 NO-TRACE-STRING
0 4 3 0 1 1 NO-TRACE-STRING
0 1 4 0 1 1 NO-TRACE-STRING
0 2 5 0 1 1 NO-TRACE-STRING
0 3 6 0 1 1 NO-TRACE-STRING
0 4 0 0 1 1 NO-TRACE-STRING
0 1 1 0 1 1 NO-TRACE-STRING
0 2 2 0 1 1 NO-TRACE-STRING
0 3 3 0 1 1 NO-TRACE-STRING
0 4 4 0 1 1 NO-TRACE-STRING
0 1 5 0 1 1 NO-TRACE-STRING
0 2 6 0 1 1 NO-TRACE-STRING
0 3 0 0 1 1 NO-TRACE-STRING
0 4 1 0 1 1 NO-TRACE-STRING
0 1 1 55 20 10 0 3 
.EQN 37 0 441 0 0
&&(_n_u_l_l_&_n_u_l_l_)&{0:arg}NAME({0:H}NAME({0:\q}NAME))@&&(_n_u_l_l_&_n_u_l_l_)&({0:\q}NAME)/(2*{0:\p}NAME)
0 0 1 1 1 0 0 1 1 
0 0 1 1 1 0 0 1 1 
0 1 0 0 1 1 NO-TRACE-STRING
0 2 1 0 1 1 NO-TRACE-STRING
0 3 2 0 1 1 NO-TRACE-STRING
0 4 3 0 1 1 NO-TRACE-STRING
0 1 4 0 1 1 NO-TRACE-STRING
0 2 5 0 1 1 NO-TRACE-STRING
0 3 6 0 1 1 NO-TRACE-STRING
0 4 0 0 1 1 NO-TRACE-STRING
0 1 1 0 1 1 NO-TRACE-STRING
0 2 2 0 1 1 NO-TRACE-STRING
0 3 3 0 1 1 NO-TRACE-STRING
0 4 4 0 1 1 NO-TRACE-STRING
0 1 5 0 1 1 NO-TRACE-STRING
0 2 6 0 1 1 NO-TRACE-STRING
0 3 0 0 1 1 NO-TRACE-STRING
0 4 1 0 1 1 NO-TRACE-STRING
0 1 1 55 20 10 0 3 
.TXT 36 0 448 0 0
Cg a72.000000,72.000000,42
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2\b 
CALCULATING AND PLOTTING POLE-ZERO DIAGRAM}}
.EQN 19 0 447 0 0
{0:polyroots}NAME({0:h}NAME)={150067}?_n_u_l_l_
.EQN 52 1 347 0 0
{0:z}NAME:{0:polyroots}NAME({0:h}NAME)
.EQN 0 16 348 0 0
{0:m}NAME:1;{0:N}NAME-2
.EQN 4 -16 349 0 0
({0:p}NAME)[({0:m}NAME):0
.EQN 5 7 443 0 0
{0:x}NAME:-1,-0.99;1
.EQN 0 13 444 0 0
{0:ty}NAME({0:x}NAME):\(1-({0:x}NAME)^(2))
.EQN 0 14 445 0 0
{0:by}NAME({0:x}NAME):-\(1-({0:x}NAME)^(2))
.EQN 20 -35 451 0 0
2&-2&(_n_u_l_l_&_n_u_l_l_)&{0:Im}NAME(({0:p}NAME)[({0:m}NAME)),{0:Im}NAME(({0:z}NAME)[({0:m}NAME)),{0:ty}NAME({0:x}NAME),{0:by}NAME({0:x}NAME)@&&(_n_u_l_l_&_n_u_l_l_)&{0:Re}NAME(({0:p}NAME)[({0:m}NAME)),{0:Re}NAME(({0:z}NAME)[({0:m}NAME)),{0:x}NAME
0 1 1 1 1 0 0 1 1 
0 1 1 1 1 0 0 1 1 
1 0 0 0 1 1 NO-TRACE-STRING
5 0 1 0 1 1 NO-TRACE-STRING
0 1 3 0 1 1 NO-TRACE-STRING
0 1 3 0 1 1 NO-TRACE-STRING
0 1 4 0 1 1 NO-TRACE-STRING
0 2 5 0 1 1 NO-TRACE-STRING
0 3 6 0 1 1 NO-TRACE-STRING
0 4 0 0 1 1 NO-TRACE-STRING
0 1 1 0 1 1 NO-TRACE-STRING
0 2 2 0 1 1 NO-TRACE-STRING
0 3 3 0 1 1 NO-TRACE-STRING
0 4 4 0 1 1 NO-TRACE-STRING
0 1 5 0 1 1 NO-TRACE-STRING
0 2 6 0 1 1 NO-TRACE-STRING
0 3 0 0 1 1 NO-TRACE-STRING
0 4 1 0 1 1 NO-TRACE-STRING
0 1 1 55 19 10 0 3