drawdfax.m

AFD - Advanced Filter Design using MATLABMiroslav D. Lutovac, Dejan V. Tosicversion 1.00 released 15

 
(*  DrawDFAx  *)
(* creation date: 11-Oct-1999  time: 13:40*)
Nx = 7;
Ny = 5;
x0 = 0;
y0 = 0;
dx = 4;
x = x0+Table[i*dx/4,{i,4*Nx}];
y = y0+Table[i*dx/4,{i,4*Ny}];
DrawDFAx[x0_,y0_,dx_,ds_,F_:8] := Module[{
x = x0+Table[i*dx,{i,50}],  y = y0+Table[i*dx,{i,50}]},
Show[{
                                                             
DrawIn[x[[3]],y[[7+9]],"IN ",2,ds,F],                        
DrawNode[x[[3]],y[[7+9]]," ",1,1,F],                         
DrawAdd[x[[3]],y[[7+9]],1,0,3,2," ",1,ds/3,F],               
DrawMult[x[[4]],y[[7+8]],x[[8]],"a "," ",0,ds/3,F],          
DrawAdd[x[[8]],y[[7+8]],0,3,1,2," ",3,ds/3,F],               
DrawLVH[x[[5]],y[[7+9]],x[[9]],y[[7+9]],0],                  
DrawNode[x[[9]],y[[7+9]]," ",1,1,F],                         
DrawAdd[x[[3]],y[[7+7]],1,3,0,2," ",3,ds/3,F],               
DrawLVH[x[[9]],y[[7+7]],x[[5]],y[[7+7]],0],                  
DrawNode[x[[4]],y[[7+8]]," ",1,1,F],                         
DrawDel[x[[9]],y[[7+7]],x[[12]]," ","-1 ",14,ds/2,F],        
DrawLine[x[[9]],y[[7+9]],x[[12]],y[[7+9]]],                  
DrawText[x[[5]],y[[7+10]],"BlockdiagramofWDF ",F+2],         
DrawLine[x[[3]],y[[7+9]],x[[3]],y[[7+2]]],                   
DrawLHV[x[[4]],y[[7+6]],x[[15]],y[[7+4]],0],                 
DrawLine[x[[12]],y[[7+9]],x[[13]],y[[7+7]]],                 
DrawLine[x[[13]],y[[7+9]],x[[12]],y[[7+7]]],                 
DrawNode[x[[9]],y[[7+7]]," ",1,1,F],                         
DrawAdd[x[[10+3]],y[[7+9]],3,0,1,2," ",1,ds/3,F],            
DrawMult[x[[10+4]],y[[7+8]],x[[10+8]]," "," ",0,ds/3,F],     
DrawAdd[x[[10+8]],y[[7+8]],0,1,1,2," ",3,ds/3,F],            
DrawLVH[x[[10+5]],y[[7+9]],x[[10+9]],y[[7+9]],0],            
DrawNode[x[[10+9]],y[[7+9]]," ",1,1,F],                      
DrawAdd[x[[10+3]],y[[7+7]],1,3,2,0," ",3,ds/3,F],            
DrawLVH[x[[10+9]],y[[7+7]],x[[10+5]],y[[7+7]],0],            
DrawNode[x[[10+4]],y[[7+8]]," ",1,1,F],                      
DrawDel[x[[10+9]],y[[7+7]],x[[10+12]]," ","-1 ",14,ds/2,F],  
DrawLine[x[[10+9]],y[[7+9]],x[[10+12]],y[[7+9]]],            
DrawLine[x[[10+12]],y[[7+9]],x[[10+12]],y[[7+7]]],           
DrawNode[x[[10+9]],y[[7+7]]," ",1,1,F],                      
DrawText[x[[10+5]],y[[7+10]],"(WaveDigitalFilter) ",F+2],    
DrawAdd[x[[3]],y[[9]],3,0,1,2," ",1,ds/3,F],                 
DrawMult[x[[4]],y[[8]],x[[8]],"c "," ",0,ds/3,F],            
DrawAdd[x[[8]],y[[8]],0,1,1,2," ",3,ds/3,F],                 
DrawLVH[x[[5]],y[[9]],x[[9]],y[[9]],0],                      
DrawNode[x[[9]],y[[9]]," ",1,1,F],                           
DrawAdd[x[[3]],y[[7]],1,3,0,2," ",3,ds/3,F],                 
DrawLVH[x[[9]],y[[7]],x[[5]],y[[7]],0],                      
DrawNode[x[[4]],y[[8]]," ",1,1,F],                           
DrawDel[x[[9]],y[[7]],x[[12]]," ","-1 ",14,ds/2,F],          
DrawLine[x[[9]],y[[9]],x[[12]],y[[9]]],                      
DrawLine[x[[12]],y[[9]],x[[12]],y[[7]]],                     
DrawLHV[x[[4]],y[[6]],x[[15]],y[[9]],0],                     
DrawAdd[x[[14]],y[[10]],2,1,0,1," ",3,ds/3,F],               
DrawOut[x[[16]],y[[10]],"OUT ",0,ds,F],                      
DrawNode[x[[9]],y[[7]]," ",1,1,F],                           
{}
}
,AspectRatio -> Automatic,Axes -> False, PlotRange -> All]];