drawapdf.m

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

Clear[x0,y0,dx,ds,F]
Clear[x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16]
Clear[y1,y2,y3,y4,y5,y6,y7,y8,y9,y10,y11,y12,y13,y14,y15,y16]
Clear[DrawAPA1a,DrawAPA1b,DrawAPA1c,DrawAPA2a,DrawAPA2b,DrawAPA2c,Draw3rd]

DrawAPA1c[x0_,y0_,dx_,ds_,F_:8] := Module[{
x1 = x0+dx/4,   x2 = x0+2*dx/4, x3 = x0+3*dx/4, x4 = x0+4*dx/4,
x5 = x0+5*dx/4, x6 = x0+6*dx/4, x7 = x0+7*dx/4, x8 = x0+8*dx/4, 
x9 = x0+9*dx/4, x10= x0+10*dx/4,x11= x0+11*dx/4,x12 =x0+12*dx/4, 
x13= x0+13*dx/4,x14= x0+14*dx/4,x15= x0+15*dx/4,x16 =x0+16*dx/4, 
x17= x0+17*dx/4,x18= x0+18*dx/4,x19= x0+19*dx/4,x20 =x0+20*dx/4, 
y1 = y0-dx/4,   y2 = y0-2*dx/4, y3 = y0-3*dx/4, y4 = y0-4*dx/4,
y5 = y0-5*dx/4, y6 = y0-6*dx/4, y7 = y0-7*dx/4, y8 = y0-8*dx/4, 
y9 = y0-9*dx/4, y10= y0-10*dx/4,y11= y0-11*dx/4,y12 =y0-12*dx/4, },
Show[{DrawInput[x0,y0,"X",6,ds,12] 
  , DrawOutput[x17,y0,"Y",4,ds,12] 
  , DrawSum[x0, y0, 2, 0, 1, 1,"S1",2,ds,F]
  , DrawSum[x11, y0, 2, 0, 1, 3,"S2",2,ds,F]
  , DrawDelay[x6,y0,x11,"D1","-1", 0,0.9*ds,F]
  , DrawDelay[x3,y8,y3,"D2","-1", 1,0.9*ds,F]
  , DrawAmp[x6,y8,y0,"-c","A1",3,0.9*ds,F+2]
 ,DrawJ[x3,y8,x14,y3,0]
 ,DrawJunction[x0 ,y0,"1",2,1,F]
 ,DrawJunction[x6 ,y0,"2",2,1,F]
 ,DrawJunction[x11,y0,"3",2,1,F]
 ,DrawJunction[x17,y0,"4",2,1,F]
 ,DrawJunction[x3 ,y3,"5",4,1,F]
 ,DrawJunction[x6 ,y8,"6",6,1,F]  }
,AspectRatio -> Automatic,Axes -> False, PlotRange -> All]];

DrawAPA2a[x0_,y0_,dx_,ds_,F_:8] := Module[{
x1 = x0+dx/4,   x2 = x0+2*dx/4, x3 = x0+3*dx/4, x4 = x0+4*dx/4,
x5 = x0+5*dx/4, x6 = x0+6*dx/4, x7 = x0+7*dx/4, x8 = x0+8*dx/4, 
x9 = x0+9*dx/4, x10= x0+10*dx/4,x11= x0+11*dx/4,x12 =x0+12*dx/4, 
x13= x0+13*dx/4,x14= x0+14*dx/4,x15= x0+15*dx/4,x16 =x0+16*dx/4, 
x17= x0+17*dx/4,x18= x0+18*dx/4,x19= x0+19*dx/4,x20 =x0+20*dx/4, 
y1 = y0-dx/4,   y2 = y0-2*dx/4, y3 = y0-3*dx/4, y4 = y0-4*dx/4,
y5 = y0-5*dx/4, y6 = y0-6*dx/4, y7 = y0-7*dx/4, y8 = y0-8*dx/4, 
y9 = y0-9*dx/4, y10= y0-10*dx/4,y11= y0-11*dx/4,y12 =y0-12*dx/4, 
y13 = y0-13*dx/4, y14= y0-14*dx/4,y15= y0-15*dx/4,y16 =y0-16*dx/4, 
y17 = y0-17*dx/4, y18= y0-18*dx/4,y19= y0-19*dx/4,y20 =y0-20*dx/4, 
y21 = y0-21*dx/4, y22= y0-22*dx/4,y23= y0-23*dx/4,y24 =y0-24*dx/4, 
y25 = y0-25*dx/4, y26= y0-26*dx/4,y27= y0-27*dx/4,y28 =y0-28*dx/4, },
Show[{
    DrawInput[x0,y0,"X",2,ds,F+2] 
  , DrawOutput[x16,y3,"Y",4,ds,F+2] 
  , DrawSum[x0, y0, 2, 0, 3, 1,"S1",2,ds,F]
  , DrawSum[x10, y3, 2, 1, 0, 1,"S2",4,ds,F]
  , DrawSum[x0, y7, 0, 1, 1, 2,"S3",0,ds,F]
  , DrawSum[x0, y16, 2, 0, 3, 1,"S4",5,ds,F]
  , DrawSum[x10, y19, 2, 1, 0, 1,"S5",4,ds,F]
  , DrawSum[x0, y23, 2, 1, 1, 0,"S6",5,ds,F]
  , DrawAmp[x6,y0 ,x13,"-a","A1", 0,0.9*ds,F]
  , DrawAmp[x6,y16,x13,"-b","A2", 0,0.9*ds,F]
  , DrawDelay[x0,y16,y10,"D1","-1", 5,ds,F]
  , DrawDelay[x6,y23,x12,"D2","-1", 14,ds,F]
  , DrawLine[x13,y6,x3,y3]
  , DrawLine[x13,y0,x3,y4]
  , DrawLine[x13,y22,x3,y19]
  , DrawLine[x13,y16,x3,y20]
  , DrawJ[x0,y0,x0,y7,0]
  , DrawJ[x0,y16,x0,y23,0]
  , DrawJ[x0,y10,x3,y10,0]
  , DrawJ[x16,y19,x13,y6,1]
  , DrawJ[x12,y23,x13,y22,0]
  , DrawJunction[x0 ,y0 ,"1",2,1,F]
  , DrawJunction[x6 ,y0 ,"2",2,1,F]
  , DrawJunction[x13,y0 ,"3",2,1,F]
  , DrawJunction[x16,y3 ,"4",2,1,F]
  , DrawJunction[x13,y6 ,"5",6,1,F]
  , DrawJunction[x3 ,y10,"6",0,1,F]
  , DrawJunction[x0 ,y16,"7",4,1,F]
  , DrawJunction[x6 ,y16,"8",2,1,F]
  , DrawJunction[x13,y16,"9",2,1,F]
  , DrawJunction[x13,y22,"10",0,1,F]
  , DrawJunction[x6 ,y23,"11",2,1,F] }
,AspectRatio -> Automatic,Axes -> False, PlotRange -> All]];

DrawAPA2b[x0_,y0_,dx_,ds_,F_:8] := Module[{
x1 = x0+dx/4,   x2 = x0+2*dx/4, x3 = x0+3*dx/4, x4 = x0+4*dx/4,
x5 = x0+5*dx/4, x6 = x0+6*dx/4, x7 = x0+7*dx/4, x8 = x0+8*dx/4, 
x9 = x0+9*dx/4, x10= x0+10*dx/4,x11= x0+11*dx/4,x12 =x0+12*dx/4, 
x13= x0+13*dx/4,x14= x0+14*dx/4,x15= x0+15*dx/4,x16 =x0+16*dx/4, 
x17= x0+17*dx/4,x18= x0+18*dx/4,x19= x0+19*dx/4,x20 =x0+20*dx/4, 
y1 = y0-dx/4,   y2 = y0-2*dx/4, y3 = y0-3*dx/4, y4 = y0-4*dx/4,
y5 = y0-5*dx/4, y6 = y0-6*dx/4, y7 = y0-7*dx/4, y8 = y0-8*dx/4, 
y9 = y0-9*dx/4, y10= y0-10*dx/4,y11= y0-11*dx/4,y12 =y0-12*dx/4, 
y13 = y0-13*dx/4, y14= y0-14*dx/4,y15= y0-15*dx/4,y16 =y0-16*dx/4, 
y17 = y0-17*dx/4, y18= y0-18*dx/4,y19= y0-19*dx/4,y20 =y0-20*dx/4, 
y21 = y0-21*dx/4, y22= y0-22*dx/4,y23= y0-23*dx/4,y24 =y0-24*dx/4, 
y25 = y0-25*dx/4, y26= y0-26*dx/4,y27= y0-27*dx/4,y28 =y0-28*dx/4, },
Show[{
    DrawInput[x0,y0,"X",2,ds,F+2] 
  , DrawOutput[x16,y3,"Y",4,ds,F+2] 
  , DrawSum[x0, y0, 2, 0, 3, 1,"S1",2,ds,F]
  , DrawSum[x10, y3, 2, 1, 0, 1,"S2",4,ds,F]
  , DrawSum[x0, y7, 0, 1, 1, 2,"S3",0,ds,F]
  , DrawSum[x0, y16, 2, 0, 1, 1,"S4",5,ds,F]
  , DrawSum[x10, y19, 2, 3, 0, 1,"S5",4,ds,F]
  , DrawSum[x0, y23, 2, 1, 1, 0,"S6",5,ds,F]
  , DrawAmp[x6,y0 ,x13,"-a","A1", 0,0.9*ds,F]
  , DrawAmp[x6,y16,x13,"-b","A2", 0,0.9*ds,F]
  , DrawDelay[x0,y16,y10,"D1","-1", 5,ds,F]
  , DrawDelay[x6,y23,x12,"D2","-1", 14,ds,F]
  , DrawLine[x13,y6,x3,y3]
  , DrawLine[x13,y0,x3,y4]
  , DrawLine[x13,y22,x3,y19]
  , DrawLine[x13,y16,x3,y20]
  , DrawJ[x0,y0,x0,y7,0]
  , DrawJ[x0,y16,x0,y23,0]
  , DrawJ[x0,y10,x3,y10,0]
  , DrawJ[x16,y19,x13,y6,1]
  , DrawJ[x12,y23,x13,y22,0]
  , DrawJunction[x0 ,y0 ,"1",2,1,F]
  , DrawJunction[x6 ,y0 ,"2",2,1,F]
  , DrawJunction[x13,y0 ,"3",2,1,F]
  , DrawJunction[x16,y3 ,"4",2,1,F]
  , DrawJunction[x13,y6 ,"5",6,1,F]
  , DrawJunction[x3 ,y10,"6",0,1,F]
  , DrawJunction[x0 ,y16,"7",4,1,F]
  , DrawJunction[x6 ,y16,"8",2,1,F]
  , DrawJunction[x13,y16,"9",2,1,F]
  , DrawJunction[x13,y22,"10",0,1,F]
  , DrawJunction[x6 ,y23,"11",2,1,F] }
,AspectRatio -> Automatic,Axes -> False, PlotRange -> All]];

DrawAPA2c[x0_,y0_,dx_,ds_,F_:8] := Module[{
xm1 = x0-dx/4, xm2 = x0-2*dx/4,xm5 = x0-5*dx/4, xm4 = x0-4*dx/4,
x1 = x0+dx/4,   x2 = x0+2*dx/4, x3 = x0+3*dx/4, x4 = x0+4*dx/4,
x5 = x0+5*dx/4, x6 = x0+6*dx/4, x7 = x0+7*dx/4, x8 = x0+8*dx/4, 
x9 = x0+9*dx/4, x10= x0+10*dx/4,x11= x0+11*dx/4,x12 =x0+12*dx/4, 
x13= x0+13*dx/4,x14= x0+14*dx/4,x15= x0+15*dx/4,x16 =x0+16*dx/4, 
x17= x0+17*dx/4,x18= x0+18*dx/4,x19= x0+19*dx/4,x20 =x0+20*dx/4, 
y1 = y0-dx/4,   y2 = y0-2*dx/4, y3 = y0-3*dx/4, y4 = y0-4*dx/4,
y5 = y0-5*dx/4, y6 = y0-6*dx/4, y7 = y0-7*dx/4, y8 = y0-8*dx/4, 
y9 = y0-9*dx/4, y10= y0-10*dx/4,y11= y0-11*dx/4,y12 =y0-12*dx/4, 
y13 = y0-13*dx/4, y14= y0-14*dx/4,y15= y0-15*dx/4,y16 =y0-16*dx/4, 
y17 = y0-17*dx/4, y18= y0-18*dx/4,y19= y0-19*dx/4,y20 =y0-20*dx/4, 
y21 = y0-21*dx/4, y22= y0-22*dx/4,y23= y0-23*dx/4,y24 =y0-24*dx/4, 
y25 = y0-25*dx/4, y26= y0-26*dx/4,y27= y0-27*dx/4,y28 =y0-28*dx/4, },
Show[{
    DrawInput[x0,y0,"X",2,ds,F+2] 
  , DrawOutput[x16,y3,"Y",4,ds,F+2] 
  , DrawSum[x0, y0, 2, 0, 3, 1,"S1",2,ds,F]
  , DrawSum[x10, y3, 2, 1, 0, 1,"S2",4,ds,F]
  , DrawSum[x0, y7, 0, 1, 1, 2,"S3",0,ds,F]
  , DrawSum[xm5, y16, 2, 1, 0, 3,"S4",3,ds,F]
  , DrawSum[x13, y16, 0, 2, 1, 1,"S5",1,ds,F]
  , DrawAmp[x6,y0 ,x13,"-a","A1", 0,0.9*ds,F]
  , DrawAmp[x7,y23,y16,"b","A2", 3,0.9*ds,F]
  , DrawDelay[x1,y16,x7,"D1","-1", 8,ds,F]
  , DrawDelay[x7,y16,x13,"D2","-1", 0,ds,F]
  , DrawLine[x13,y6,x3,y3]
  , DrawLine[x13,y0,x3,y4]
  , DrawJ[x0,y0,x0,y7,0]
  , DrawJ[xm2,y19,x7,y23,1]
  , DrawJ[xm2,y13,x3,y10,1]
  , DrawJ[x16,y13,x13,y6,1]
  , DrawJ[x7,y23,x16,y19,0]
  , DrawJunction[x0 ,y0 ,"1",2,1,F]
  , DrawJunction[x6 ,y0 ,"2",2,1,F]
  , DrawJunction[x13,y0 ,"3",2,1,F]
  , DrawJunction[x16,y3 ,"4",2,1,F]
  , DrawJunction[x13,y6 ,"5",6,1,F]
  , DrawJunction[x3 ,y10,"6",0,1,F]
  , DrawJunction[x1 ,y16,"7",2,1,F]
  , DrawJunction[x7 ,y16,"8",2,1,F]
  , DrawJunction[x13,y16,"9",2,1,F]
  , DrawJunction[x7 ,y23,"10",3,1,F] }
,AspectRatio -> Automatic,Axes -> False, PlotRange -> All]];

DrawAPA1a[x0_,y0_,dx_,ds_,F_:8] := Module[{
xm1 = x0-dx/4, xm2 = x0-2*dx/4,xm5 = x0-5*dx/4, xm4 = x0-4*dx/4,
x1 = x0+dx/4,   x2 = x0+2*dx/4, x3 = x0+3*dx/4, x4 = x0+4*dx/4,
x5 = x0+5*dx/4, x6 = x0+6*dx/4, x7 = x0+7*dx/4, x8 = x0+8*dx/4, 
x9 = x0+9*dx/4, x10= x0+10*dx/4,x11= x0+11*dx/4,x12 =x0+12*dx/4, 
x13= x0+13*dx/4,x14= x0+14*dx/4,x15= x0+15*dx/4,x16 =x0+16*dx/4, 
x17= x0+17*dx/4,x18= x0+18*dx/4,x19= x0+19*dx/4,x20 =x0+20*dx/4, 
y1 = y0-dx/4,   y2 = y0-2*dx/4, y3 = y0-3*dx/4, y4 = y0-4*dx/4,
y5 = y0-5*dx/4, y6 = y0-6*dx/4, y7 = y0-7*dx/4, y8 = y0-8*dx/4, 
y9 = y0-9*dx/4, y10= y0-10*dx/4,y11= y0-11*dx/4,y12 =y0-12*dx/4, 
y13 = y0-13*dx/4, y14= y0-14*dx/4,y15= y0-15*dx/4,y16 =y0-16*dx/4, 
y17 = y0-17*dx/4, y18= y0-18*dx/4,y19= y0-19*dx/4,y20 =y0-20*dx/4, 
y21 = y0-21*dx/4, y22= y0-22*dx/4,y23= y0-23*dx/4,y24 =y0-24*dx/4, 
y25 = y0-25*dx/4, y26= y0-26*dx/4,y27= y0-27*dx/4,y28 =y0-28*dx/4, },
Show[{
    DrawInput[x0,y0,"X",2,ds,F+2] 
  , DrawOutput[x16,y3,"Y",4,ds,F+2] 
  , DrawSum[x0, y0, 2, 0, 3, 1,"S1",2,ds,F]
  , DrawSum[x10, y3, 2, 1, 0, 1,"S2",4,ds,F]
  , DrawSum[x0, y7, 2, 1, 1, 0,"S3",6,ds,F]
  , DrawAmp[x6,y0 ,x13,"-a","A1", 0,0.9*ds,F]
  , DrawDelay[x6,y7,x11,"D1","-1", 14,ds,F]
  , DrawLine[x13,y6,x3,y3]
  , DrawLine[x13,y0,x3,y4]
  , DrawJ[x0,y0,x0,y7,0]
  , DrawJ[x11,y7,x13,y6,0]
  , DrawJunction[x0 ,y0 ,"1",2,1,F]
  , DrawJunction[x6 ,y0 ,"2",2,1,F]
  , DrawJunction[x13,y0 ,"3",2,1,F]
  , DrawJunction[x16,y3 ,"4",2,1,F]
  , DrawJunction[x13,y6 ,"5",0,1,F]
  , DrawJunction[x6 ,y7,"6",2,1,F]    }
,AspectRatio -> Automatic,Axes -> False, PlotRange -> All]];

DrawAPA1b[x0_,y0_,dx_,ds_,F_:8] := Module[{
xm1 = x0-dx/4, xm2 = x0-2*dx/4,xm5 = x0-5*dx/4, xm4 = x0-4*dx/4,
x1 = x0+dx/4,   x2 = x0+2*dx/4, x3 = x0+3*dx/4, x4 = x0+4*dx/4,
x5 = x0+5*dx/4, x6 = x0+6*dx/4, x7 = x0+7*dx/4, x8 = x0+8*dx/4, 
x9 = x0+9*dx/4, x10= x0+10*dx/4,x11= x0+11*dx/4,x12 =x0+12*dx/4, 
x13= x0+13*dx/4,x14= x0+14*dx/4,x15= x0+15*dx/4,x16 =x0+16*dx/4, 
x17= x0+17*dx/4,x18= x0+18*dx/4,x19= x0+19*dx/4,x20 =x0+20*dx/4, 
y1 = y0-dx/4,   y2 = y0-2*dx/4, y3 = y0-3*dx/4, y4 = y0-4*dx/4,
y5 = y0-5*dx/4, y6 = y0-6*dx/4, y7 = y0-7*dx/4, y8 = y0-8*dx/4, 
y9 = y0-9*dx/4, y10= y0-10*dx/4,y11= y0-11*dx/4,y12 =y0-12*dx/4, 
y13 = y0-13*dx/4, y14= y0-14*dx/4,y15= y0-15*dx/4,y16 =y0-16*dx/4, 
y17 = y0-17*dx/4, y18= y0-18*dx/4,y19= y0-19*dx/4,y20 =y0-20*dx/4, 
y21 = y0-21*dx/4, y22= y0-22*dx/4,y23= y0-23*dx/4,y24 =y0-24*dx/4, 
y25 = y0-25*dx/4, y26= y0-26*dx/4,y27= y0-27*dx/4,y28 =y0-28*dx/4, },
Show[{ DrawInput[x0,y0,"X",2,ds,F+2] 
  , DrawOutput[x16,y3,"Y",4,ds,F+2] 
  , DrawSum[x0, y0, 2, 0, 1, 1,"S1",2,ds,F]
  , DrawSum[x10, y3, 2, 3, 0, 1,"S2",4,ds,F]
  , DrawSum[x0, y7, 2, 1, 1, 0,"S3",6,ds,F]
  , DrawAmp[x6,y0 ,x13,"-a","A1", 0,0.9*ds,F]
  , DrawDelay[x6,y7,x11,"D1","-1", 14,ds,F]
  , DrawLine[x13,y6,x3,y3]
  , DrawLine[x13,y0,x3,y4]
  , DrawJ[x0,y0,x0,y7,0]
  , DrawJ[x11,y7,x13,y6,0]
  , DrawJunction[x0 ,y0 ,"1",2,1,F]
  , DrawJunction[x6 ,y0 ,"2",2,1,F]
  , DrawJunction[x13,y0 ,"3",2,1,F]
  , DrawJunction[x16,y3 ,"4",2,1,F]
  , DrawJunction[x13,y6 ,"5",0,1,F]
  , DrawJunction[x6 ,y7,"6",2,1,F]    }
,AspectRatio -> Automatic,Axes -> False, PlotRange -> All]];

Draw3rd[x0_,y0_,dx_,ds_,F_:8] := Module[{
x1 = x0+dx/4,   x2 = x0+2*dx/4, x3 = x0+3*dx/4, x4 = x0+4*dx/4,
x5 = x0+5*dx/4, x6 = x0+6*dx/4, x7 = x0+7*dx/4, x8 = x0+8*dx/4, 
x9 = x0+9*dx/4, x10= x0+10*dx/4,x11= x0+11*dx/4,x12 =x0+12*dx/4, 
x13= x0+13*dx/4,x14= x0+14*dx/4,x15= x0+15*dx/4,x16 =x0+16*dx/4, 
x17= x0+17*dx/4,x18= x0+18*dx/4,x19= x0+19*dx/4,x20 =x0+20*dx/4, 
x21= x0+21*dx/4,x22= x0+22*dx/4,x23= x0+23*dx/4,x24 =x0+24*dx/4, 
x25= x0+25*dx/4,x26= x0+26*dx/4,x27= x0+27*dx/4,x28 =x0+28*dx/4, 
yp1= y0+2*dx/4, yp2= y0+4*dx/4, yp3= y0+6*dx/4, yp4 = y0+8*dx/4,
y1 = y0-dx/4,   y2 = y0-2*dx/4, y3 = y0-3*dx/4, y4 = y0-4*dx/4,
y5 = y0-5*dx/4, y6 = y0-6*dx/4, y7 = y0-7*dx/4, y8 = y0-8*dx/4, 
y9 = y0-9*dx/4, y10= y0-10*dx/4,y11= y0-11*dx/4,y12 =y0-12*dx/4, 
y13 = y0-13*dx/4, y14= y0-14*dx/4,y15= y0-15*dx/4,y16 =y0-16*dx/4, },
Show[{
    DrawInput[x0,y0,"X",2,ds,F+2] 
  , DrawOutput[x26,y3,"Y",0,ds,F+2] 
  , DrawSum[x0 , y0, 2, 0, 1, 3,"S1",2,ds,F]
  , DrawSum[x10, y3, 2, 1, 0, 1,"S2",4,ds,F]
  , DrawSum[x0 , y7, 2, 1, 1, 0,"S3",6,ds,F]
  , DrawSum[x16, y3, 2, 1, 1, 0,"S4",6,ds,F]
  , DrawAmp[x6 , y0,x13,"a","", 0,0.9*ds,F]
  , DrawAmp[x22, y3,x26,"b","", 0,0.9*ds,F]
  , DrawDelay[x0,yp3,x19,"D1","-1",8,ds,F]
  , DrawDelay[x6,y7,x12,"D2","-2", 14,ds,F]
  , DrawLine[x13,y6,x3,y3]
  , DrawLine[x13,y0,x3,y4]
  , DrawJ[x0,y0,x0,y7,0]
  , DrawJ[x12,y7,x13,y6,0]
  , DrawJ[x19,yp3,x19,y0,0]
  , DrawJ[x0,y0,x0,yp3,0]
  , DrawJunction[x0 ,y0 ,"1",1,1,F]
  , DrawJunction[x6 ,y0 ,"2",2,1,F]
  , DrawJunction[x13,y0 ,"3",2,1,F]
  , DrawJunction[x16,y3 ,"4",2,1,F]
  , DrawJunction[x13,y6 ,"5",0,1,F]
  , DrawJunction[x6 ,y7 ,"6",2,1,F]
  , DrawJunction[x19 ,y0 ,"7",0,1,F]
  , DrawJunction[x22 ,y3 ,"8",2,1,F]
  , DrawJunction[x26 ,y3 ,"9",2,1,F] }
,AspectRatio -> Automatic,Axes -> False, PlotRange -> All]];