.MCAD 304010000 1 74 51 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=1243105816
.CMD HEADER_FOOTER_FONT fontID=15 family=Arial points=10 bold=0 italic=0 underline=0 colrid=1243105816
.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 3 1 11 0 0
Cg a73.000000,73.000000,81
{\rtf\ansi \deff0{\colortbl;\red0\green0\blue255;\red0\green0\blue0;}{
\fonttbl{\f0\fcharset0\fnil Arial;}}\plain\cf1\fs20 \pard {\cf2 File 
Name: 428ca7.mcd\par This program simulates FIR Wiener filter.\par Dr. 
James S. Kang}}
.EQN 9 0 1 0 0
{0:N}NAME:100
.EQN 0 10 2 0 0
{0:j}NAME:0;{0:N}NAME-1
.EQN 0 12 3 0 0
{0:sigmav}NAME:0.8
.EQN 0 12 4 0 0
{0:sigmaw}NAME:1
.EQN 4 -34 5 0 0
{0:varv}NAME:({0:sigmav}NAME)^(2)
.EQN 0 14 6 0 0
{0:varw}NAME:({0:sigmaw}NAME)^(2)
.EQN 4 -14 7 0 0
({0:a}NAME)[({0:j}NAME):{0:rnd}NAME(1)
.EQN 0 11 8 0 0
({0:b}NAME)[({0:j}NAME):{0:rnd}NAME(1)
.EQN 0 11 9 0 0
({0:c}NAME)[({0:j}NAME):{0:rnd}NAME(1)
.EQN 0 11 10 0 0
({0:d}NAME)[({0:j}NAME):{0:rnd}NAME(1)
.EQN 6 -33 12 0 0
({0:gv}NAME)[({0:j}NAME):\(2*{0:varv}NAME*{0:ln}NAME((1)/(1-({0:a}NAME)[({0:j}NAME))))*{0:cos}NAME(2*{0:\p}NAME*({0:b}NAME)[({0:j}NAME))
.EQN 0 31 13 0 0
({0:gw}NAME)[({0:j}NAME):\(2*{0:varw}NAME*{0:ln}NAME((1)/(1-({0:c}NAME)[({0:j}NAME))))*{0:cos}NAME(2*{0:\p}NAME*({0:d}NAME)[({0:j}NAME))
.EQN 6 -31 14 0 0
{0:sini}NAME:0
.EQN 0 8 15 0 0
({0:s}NAME)[(0):0.6*{0:sini}NAME+({0:gv}NAME)[(0)
.EQN 0 15 16 0 0
{0:i}NAME:1;{0:N}NAME-1
.EQN 0 11 17 0 0
({0:s}NAME)[({0:i}NAME):0.6*({0:s}NAME)[({0:i}NAME-1)+({0:gv}NAME)[({0:i}NAME)
.EQN 4 -34 20 0 0
&&(_n_u_l_l_&_n_u_l_l_)&({0:gv}NAME)[({0:j}NAME),0@&&(_n_u_l_l_&_n_u_l_l_)&{0:j}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 58 15 10 0 3 
.EQN 23 0 19 0 0
&&(_n_u_l_l_&_n_u_l_l_)&({0:s}NAME)[({0:j}NAME),0@&&(_n_u_l_l_&_n_u_l_l_)&{0:j}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 58 15 10 0 3 
.EQN 23 0 24 0 0
{0:h0}NAME:0.451
.EQN 0 11 25 0 0
{0:h1}NAME:0.165
.EQN 5 -11 22 0 0
({0:x}NAME)[({0:j}NAME):({0:s}NAME)[({0:j}NAME)+({0:gw}NAME)[({0:j}NAME)
.EQN 0 11 23 0 0
({0:y}NAME)[(0):{0:h0}NAME*({0:x}NAME)[(0)
.EQN 0 10 26 0 0
({0:y}NAME)[({0:i}NAME):{0:h0}NAME*({0:x}NAME)[({0:i}NAME)+{0:h1}NAME*({0:x}NAME)[({0:i}NAME-1)
.EQN 0 16 31 0 0
({0:e}NAME)[({0:j}NAME):({0:s}NAME)[({0:j}NAME)-({0:y}NAME)[({0:j}NAME)
.EQN 0 11 32 0 0
{0:Em}NAME:(1)/({0:N}NAME)*((0,{0:N}NAME-1,{0:j}NAME,((|(({0:e}NAME)[({0:j}NAME))))^(2)){64})
.EQN 6 -48 35 0 0
{0:Em}NAME={0}?_n_u_l_l_
.EQN 0 12 36 0 0
({0:e1}NAME)[({0:j}NAME):({0:s}NAME)[({0:j}NAME)-({0:x}NAME)[({0:j}NAME)
.EQN 0 11 37 0 0
{0:Em1}NAME:(1)/({0:N}NAME)*((0,{0:N}NAME-1,{0:j}NAME,((|(({0:e1}NAME)[({0:j}NAME))))^(2)){64})
.EQN 0 21 40 0 0
{0:Em1}NAME={0}?_n_u_l_l_
.EQN 6 -44 41 0 0
{0:vars}NAME:(1)/({0:N}NAME)*((0,{0:N}NAME-1,{0:j}NAME,((|(({0:s}NAME)[({0:j}NAME))))^(2)){64})
.EQN 0 20 45 0 0
\({0:vars}NAME)={0}?_n_u_l_l_
.EQN 0 18 44 0 0
{0:varx}NAME:(1)/({0:N}NAME)*((0,{0:N}NAME-1,{0:j}NAME,((|(({0:x}NAME)[({0:j}NAME))))^(2)){64})
.EQN 0 21 46 0 0
\({0:varx}NAME)={0}?_n_u_l_l_
.EQN 14 -59 27 0 0
&&(_n_u_l_l_&_n_u_l_l_)&({0:gw}NAME)[({0:j}NAME),0@&&(_n_u_l_l_&_n_u_l_l_)&{0:j}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 58 15 10 0 3 
.EQN 23 0 28 0 0
&&(_n_u_l_l_&_n_u_l_l_)&({0:x}NAME)[({0:j}NAME),0@&&(_n_u_l_l_&_n_u_l_l_)&{0:j}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 58 15 10 0 3 
.EQN 22 0 29 0 0
&&(_n_u_l_l_&_n_u_l_l_)&({0:y}NAME)[({0:j}NAME),0@&&(_n_u_l_l_&_n_u_l_l_)&{0:j}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 58 15 10 0 3 
.EQN 23 0 30 0 0
&&(_n_u_l_l_&_n_u_l_l_)&({0:e}NAME)[({0:j}NAME),0@&&(_n_u_l_l_&_n_u_l_l_)&{0:j}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 58 15 10 0 3 
.EQN 33 2 51 0 0
&&(_n_u_l_l_&_n_u_l_l_)&({0:s}NAME)[({0:j}NAME),({0:y}NAME)[({0:j}NAME),({0:e}NAME)[({0:j}NAME)@&&(_n_u_l_l_&_n_u_l_l_)&{0:j}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 57 50 10 0 3