.MCAD 304020000 1 74 64 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 2 1 1 0 0
Cg a73.000000,73.000000,150
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 File 
Name:pzplot.mcd\par This program plots poles and zeros, and unit 
circle.\par Also, the magnitude response (linear and dB) and phase 
response are plotted.}}
.EQN 9 0 35 0 0
{0:x}NAME:-1,-0.99;1
.EQN 0 14 36 0 0
{0:ty}NAME({0:x}NAME):\(1-({0:x}NAME)^(2))
.EQN 0 20 37 0 0
{0:by}NAME({0:x}NAME):-{0:ty}NAME({0:x}NAME)
.EQN 3 -34 44 0 0
{0:N}NAME:4
.EQN 0 8 45 0 0
{0:m}NAME:0;{0:N}NAME-1
.TXT 0 15 46 0 0
Cg a50.000000,50.000000,35
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 N is 
the number of poles and zeros.}}
.EQN 5 -23 39 0 0
({0:p}NAME)[({0:m}NAME):0.5+1j*0.5,0.5-1j*0.5,-0.5+1j*0.5,-0.5-1j*0.5
.EQN 0 15 40 0 0
({0:z}NAME)[({0:m}NAME):0.8,1j*0.8,-0.8,-1j*0.8
.EQN 15 -15 41 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)@2&-2&(_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 21 19 10 0 3 Digital Pole-Zero Diagram
.EQN 38 0 47 0 0
{0:H}NAME({0:\q}NAME):(((0,{0:N}NAME-1,{0:m}NAME,(({0:e}NAME)^(1j*{0:\q}NAME)-({0:z}NAME)[({0:m}NAME))){65}))/(((0,{0:N}NAME-1,{0:m}NAME,(({0:e}NAME)^(1j*{0:\q}NAME)-({0:p}NAME)[({0:m}NAME))){65}))
.EQN 0 25 50 0 0
{0:pha}NAME({0:\q}NAME):{0:if}NAME({0:H}NAME({0:\q}NAME)÷0,0,{0:arg}NAME({0:H}NAME({0:\q}NAME)))
.EQN 12 -25 57 0 0
{0:dB}NAME({0:\q}NAME):20*{0:log}NAME(|({0:H}NAME({0:\q}NAME)))
.EQN 5 0 58 0 0
{0:\q}NAME:0,0.01;2*{0:\p}NAME
.EQN 20 0 59 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 54 17 10 0 3 
.EQN 27 0 61 0 0
&&(_n_u_l_l_&_n_u_l_l_)&{0:dB}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 54 17 10 0 3 
.EQN 29 0 64 0 0
&&(_n_u_l_l_&_n_u_l_l_)&{0:pha}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 54 17 10 0 3