dsp1.txt

关于EDA编程的一些程序

       dwre=wre[21];dwim=wim[21];
       re51[20]=dre10[5];re51[52]=dre11[5];
       im51[20]=dim10[5];im51[52]=dim11[5];
     end
  23:begin
       dre00[0]=re00[44];dre01[0]=re00[45];
       dim00[0]=im00[44];dim01[0]=im00[45];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[42]=dre10[0];re01[43]=dre11[0];
       im01[42]=dim10[0];im01[43]=dim11[0];
       dre00[1]=re10[44];dre01[1]=re10[46];
       dim00[1]=im10[44];dim01[1]=im10[46];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[41]=dre10[1];re11[43]=dre11[1];
       im11[41]=dim10[1];im11[43]=dim11[1];
       dre00[2]=re20[42];dre01[2]=re20[46];
       dim00[2]=im20[42];dim01[2]=im20[46];
       dwre=wre[16];dwim=wim[16];
       re21[41]=dre10[2];re21[45]=dre11[2];
       im21[41]=dim10[2];im21[45]=dim11[2];
       dre00[3]=re30[38];dre01[3]=re30[46];
       dim00[3]=im30[38];dim01[3]=im30[46];
       dwre=wre[24];dwim=wim[24];
       re31[37]=dre10[3];re31[45]=dre11[3];
       im31[37]=dim10[3];im31[45]=dim11[3];
       dre00[4]=re40[38];dre01[4]=re40[54];
       dim00[4]=im40[38];dim01[4]=im40[54];
       dwre=wre[12];dwim=wim[12];
       re41[37]=dre10[4];re41[53]=dre11[4];
       im41[37]=dim10[4];im41[53]=dim11[4];
       dre00[5]=re50[22];dre01[5]=re50[54];
       dim00[5]=im50[22];dim01[5]=im50[54];
       dwre=wre[22];dwim=wim[22];
       re51[21]=dre10[5];re51[53]=dre11[5];
       im51[21]=dim10[5];im51[53]=dim11[5];
     end
  24:begin
       dre00[0]=re00[46];dre01[0]=re00[47];
       dim00[0]=im00[46];dim01[0]=im00[47];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[44]=dre10[0];re01[45]=dre11[0];
       im01[44]=dim10[0];im01[45]=dim11[0];
       dre00[1]=re10[45];dre01[1]=re10[47];
       dim00[1]=im10[45];dim01[1]=im10[47];
       dwre=wre[16];dwim=wim[16];
       re11[44]=dre10[1];re11[46]=dre11[1];
       im11[44]=dim10[1];im11[46]=dim11[1];
       dre00[2]=re20[43];dre01[2]=re20[47];
       dim00[2]=im20[43];dim01[2]=im20[47];
       dwre=wre[24];dwim=wim[24];
       re21[42]=dre10[2];re21[46]=dre11[2];
       im21[42]=dim10[2];im21[46]=dim11[2];
       dre00[3]=re30[39];dre01[3]=re30[47];
       dim00[3]=im30[39];dim01[3]=im30[47];
       dwre=wre[28];dwim=wim[28];
       re31[38]=dre10[3];re31[46]=dre11[3];
       im31[38]=dim10[3];im31[46]=dim11[3];
       dre00[4]=re40[39];dre01[4]=re40[55];
       dim00[4]=im40[39];dim01[4]=im40[55];
       dwre=wre[14];dwim=wim[14];
       re41[38]=dre10[4];re41[54]=dre11[4];
       im41[38]=dim10[4];im41[54]=dim11[4];
       dre00[5]=re50[23];dre01[5]=re50[55];
       dim00[5]=im50[23];dim01[5]=im50[55];
       dwre=wre[23];dwim=wim[23];
       re51[22]=dre10[5];re51[54]=dre11[5];
       im51[22]=dim10[5];im51[54]=dim11[5];
     end
  25:begin
       dre00[0]=re00[48];dre01[0]=re00[49];
       dim00[0]=im00[48];dim01[0]=im00[49];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[46]=dre10[0];re01[47]=dre11[0];
       im01[46]=dim10[0];im01[47]=dim11[0];
       dre00[1]=re10[48];dre01[1]=re10[50];
       dim00[1]=im10[48];dim01[1]=im10[50];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[45]=dre10[1];re11[47]=dre11[1];
       im11[45]=dim10[1];im11[47]=dim11[1];
       dre00[2]=re20[48];dre01[2]=re20[52];
       dim00[2]=im20[48];dim01[2]=im20[52];
       dwre=wre[ 0];dwim=wim[ 0];
       re21[43]=dre10[2];re21[47]=dre11[2];
       im21[43]=dim10[2];im21[47]=dim11[2];
       dre00[3]=re30[48];dre01[3]=re30[56];
       dim00[3]=im30[48];dim01[3]=im30[56];
       dwre=wre[ 0];dwim=wim[ 0];
       re31[39]=dre10[3];re31[47]=dre11[3];
       im31[39]=dim10[3];im31[47]=dim11[3];
       dre00[4]=re40[40];dre01[4]=re40[56];
       dim00[4]=im40[40];dim01[4]=im40[56];
       dwre=wre[16];dwim=wim[16];
       re41[39]=dre10[4];re41[55]=dre11[4];
       im41[39]=dim10[4];im41[55]=dim11[4];
       dre00[5]=re50[24];dre01[5]=re50[56];
       dim00[5]=im50[24];dim01[5]=im50[56];
       dwre=wre[24];dwim=wim[24];
       re51[23]=dre10[5];re51[55]=dre11[5];
       im51[23]=dim10[5];im51[55]=dim11[5];
     end
  26:begin
       dre00[0]=re00[50];dre01[0]=re00[51];
       dim00[0]=im00[50];dim01[0]=im00[51];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[48]=dre10[0];re01[49]=dre11[0];
       im01[48]=dim10[0];im01[49]=dim11[0];
       dre00[1]=re10[49];dre01[1]=re10[51];
       dim00[1]=im10[49];dim01[1]=im10[51];
       dwre=wre[16];dwim=wim[16];
       re11[48]=dre10[1];re11[50]=dre11[1];
       im11[48]=dim10[1];im11[50]=dim11[1];
       dre00[2]=re20[49];dre01[2]=re20[53];
       dim00[2]=im20[49];dim01[2]=im20[53];
       dwre=wre[ 8];dwim=wim[ 8];
       re21[48]=dre10[2];re21[52]=dre11[2];
       im21[48]=dim10[2];im21[52]=dim11[2];
       dre00[3]=re30[49];dre01[3]=re30[57];
       dim00[3]=im30[49];dim01[3]=im30[57];
       dwre=wre[ 4];dwim=wim[ 4];
       re31[48]=dre10[3];re31[56]=dre11[3];
       im31[48]=dim10[3];im31[56]=dim11[3];
       dre00[4]=re40[41];dre01[4]=re40[57];
       dim00[4]=im40[41];dim01[4]=im40[57];
       dwre=wre[18];dwim=wim[18];
       re41[40]=dre10[4];re41[56]=dre11[4];
       im41[40]=dim10[4];im41[56]=dim11[4];
       dre00[5]=re50[25];dre01[5]=re50[57];
       dim00[5]=im50[25];dim01[5]=im50[57];
       dwre=wre[25];dwim=wim[25];
       re51[24]=dre10[5];re51[56]=dre11[5];
       im51[24]=dim10[5];im51[56]=dim11[5];
     end
  27:begin
       dre00[0]=re00[52];dre01[0]=re00[53];
       dim00[0]=im00[52];dim01[0]=im00[53];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[50]=dre10[0];re01[51]=dre11[0];
       im01[50]=dim10[0];im01[51]=dim11[0];
       dre00[1]=re10[52];dre01[1]=re10[54];
       dim00[1]=im10[52];dim01[1]=im10[54];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[49]=dre10[1];re11[51]=dre11[1];
       im11[49]=dim10[1];im11[51]=dim11[1];
       dre00[2]=re20[50];dre01[2]=re20[54];
       dim00[2]=im20[50];dim01[2]=im20[54];
       dwre=wre[16];dwim=wim[16];
       re21[49]=dre10[2];re21[53]=dre11[2];
       im21[49]=dim10[2];im21[53]=dim11[2];
       dre00[3]=re30[50];dre01[3]=re30[58];
       dim00[3]=im30[50];dim01[3]=im30[58];
       dwre=wre[ 8];dwim=wim[ 8];
       re31[49]=dre10[3];re31[57]=dre11[3];
       im31[49]=dim10[3];im31[57]=dim11[3];
       dre00[4]=re40[42];dre01[4]=re40[58];
       dim00[4]=im40[42];dim01[4]=im40[58];
       dwre=wre[20];dwim=wim[20];
       re41[41]=dre10[4];re41[57]=dre11[4];
       im41[41]=dim10[4];im41[57]=dim11[4];
       dre00[5]=re50[26];dre01[5]=re50[58];
       dim00[5]=im50[26];dim01[5]=im50[58];
       dwre=wre[26];dwim=wim[26];
       re51[25]=dre10[5];re51[57]=dre11[5];
       im51[25]=dim10[5];im51[57]=dim11[5];
     end
  28:begin
       dre00[0]=re00[54];dre01[0]=re00[55];
       dim00[0]=im00[54];dim01[0]=im00[55];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[52]=dre10[0];re01[53]=dre11[0];
       im01[52]=dim10[0];im01[53]=dim11[0];
       dre00[1]=re10[53];dre01[1]=re10[55];
       dim00[1]=im10[53];dim01[1]=im10[55];
       dwre=wre[16];dwim=wim[16];
       re11[52]=dre10[1];re11[54]=dre11[1];
       im11[52]=dim10[1];im11[54]=dim11[1];
       dre00[2]=re20[51];dre01[2]=re20[55];
       dim00[2]=im20[51];dim01[2]=im20[55];
       dwre=wre[24];dwim=wim[24];
       re21[50]=dre10[2];re21[54]=dre11[2];
       im21[50]=dim10[2];im21[54]=dim11[2];
       dre00[3]=re30[51];dre01[3]=re30[59];
       dim00[3]=im30[51];dim01[3]=im30[59];
       dwre=wre[12];dwim=wim[12];
       re31[50]=dre10[3];re31[58]=dre11[3];
       im31[50]=dim10[3];im31[58]=dim11[3];
       dre00[4]=re40[43];dre01[4]=re40[59];
       dim00[4]=im40[43];dim01[4]=im40[59];
       dwre=wre[22];dwim=wim[22];
       re41[42]=dre10[4];re41[58]=dre11[4];
       im41[42]=dim10[4];im41[58]=dim11[4];
       dre00[5]=re50[27];dre01[5]=re50[59];
       dim00[5]=im50[27];dim01[5]=im50[59];
       dwre=wre[27];dwim=wim[27];
       re51[26]=dre10[5];re51[58]=dre11[5];
       im51[26]=dim10[5];im51[58]=dim11[5];
     end
  29:begin
       dre00[0]=re00[56];dre01[0]=re00[57];
       dim00[0]=im00[56];dim01[0]=im00[57];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[54]=dre10[0];re01[55]=dre11[0];
       im01[54]=dim10[0];im01[55]=dim11[0];
       dre00[1]=re10[56];dre01[1]=re10[58];
       dim00[1]=im10[56];dim01[1]=im10[58];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[53]=dre10[1];re11[55]=dre11[1];
       im11[53]=dim10[1];im11[55]=dim11[1];
       dre00[2]=re20[56];dre01[2]=re20[60];
       dim00[2]=im20[56];dim01[2]=im20[60];
       dwre=wre[ 0];dwim=wim[ 0];
       re21[51]=dre10[2];re21[55]=dre11[2];
       im21[51]=dim10[2];im21[55]=dim11[2];
       dre00[3]=re30[52];dre01[3]=re30[60];
       dim00[3]=im30[52];dim01[3]=im30[60];
       dwre=wre[16];dwim=wim[16];
       re31[51]=dre10[3];re31[59]=dre11[3];
       im31[51]=dim10[3];im31[59]=dim11[3];
       dre00[4]=re40[44];dre01[4]=re40[60];
       dim00[4]=im40[44];dim01[4]=im40[60];
       dwre=wre[24];dwim=wim[24];
       re41[43]=dre10[4];re41[59]=dre11[4];
       im41[43]=dim10[4];im41[59]=dim11[4];
       dre00[5]=re50[28];dre01[5]=re50[60];
       dim00[5]=im50[28];dim01[5]=im50[60];
       dwre=wre[28];dwim=wim[28];
       re51[27]=dre10[5];re51[59]=dre11[5];
       im51[27]=dim10[5];im51[59]=dim11[5];
     end
  30:begin
       dre00[0]=re00[58];dre01[0]=re00[59];
       dim00[0]=im00[58];dim01[0]=im00[59];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[56]=dre10[0];re01[57]=dre11[0];
       im01[56]=dim10[0];im01[57]=dim11[0];
       dre00[1]=re10[57];dre01[1]=re10[59];
       dim00[1]=im10[57];dim01[1]=im10[59];
       dwre=wre[16];dwim=wim[16];
       re11[56]=dre10[1];re11[58]=dre11[1];
       im11[56]=dim10[1];im11[58]=dim11[1];
       dre00[2]=re20[57];dre01[2]=re20[61];
       dim00[2]=im20[57];dim01[2]=im20[61];
       dwre=wre[ 8];dwim=wim[ 8];
       re21[56]=dre10[2];re21[60]=dre11[2];
       im21[56]=dim10[2];im21[60]=dim11[2];
       dre00[3]=re30[53];dre01[3]=re30[61];
       dim00[3]=im30[53];dim01[3]=im30[61];
       dwre=wre[20];dwim=wim[20];
       re31[52]=dre10[3];re31[60]=dre11[3];
       im31[52]=dim10[3];im31[60]=dim11[3];
       dre00[4]=re40[45];dre01[4]=re40[61];
       dim00[4]=im40[45];dim01[4]=im40[61];
       dwre=wre[26];dwim=wim[26];
       re41[44]=dre10[4];re41[60]=dre11[4];
       im41[44]=dim10[4];im41[60]=dim11[4];
       dre00[5]=re50[29];dre01[5]=re50[61];
       dim00[5]=im50[29];dim01[5]=im50[61];
       dwre=wre[29];dwim=wim[29];
       re51[28]=dre10[5];re51[60]=dre11[5];
       im51[28]=dim10[5];im51[60]=dim11[5];
     end
  31:begin
       dre00[0]=re00[60];dre01[0]=re00[61];
       dim00[0]=im00[60];dim01[0]=im00[61];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[58]=dre10[0];re01[59]=dre11[0];
       im01[58]=dim10[0];im01[59]=dim11[0];
       dre00[1]=re10[60];dre01[1]=re10[62];
       dim00[1]=im10[60];dim01[1]=im10[62];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[57]=dre10[1];re11[59]=dre11[1];
       im11[57]=dim10[1];im11[59]=dim11[1];
       dre00[2]=re20[58];dre01[2]=re20[62];
       dim00[2]=im20[58];dim01[2]=im20[62];
       dwre=wre[16];dwim=wim[16];
       re21[57]=dre10[2];re21[61]=dre11[2];
       im21[57]=dim10[2];im21[61]=dim11[2];
       dre00[3]=re30[54];dre01[3]=re30[62];
       dim00[3]=im30[54];dim01[3]=im30[62];
       dwre=wre[24];dwim=wim[24];
       re31[53]=dre10[3];re31[61]=dre11[3];
       im31[53]=dim10[3];im31[61]=dim11[3];
       dre00[4]=re40[46];dre01[4]=re40[62];
       dim00[4]=im40[46];dim01[4]=im40[62];
       dwre=wre[28];dwim=wim[28];
       re41[45]=dre10[4];re41[61]=dre11[4];
       im41[45]=dim10[4];im41[61]=dim11[4];
       dre00[5]=re50[30];dre01[5]=re50[62];
       dim00[5]=im50[30];dim01[5]=im50[62];
       dwre=wre[30];dwim=wim[30];
       re51[29]=dre10[5];re51[61]=dre11[5];
       im51[29]=dim10[5];im51[61]=dim11[5];
     end
  32:begin
       dre00[0]=re00[62];dre01[0]=re00[63];
       dim00[0]=im00[62];dim01[0]=im00[63];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[60]=dre10[0];re01[61]=dre11[0];
       im01[60]=dim10[0];im01[61]=dim11[0];
       dre00[1]=re10[61];dre01[1]=re10[63];
       dim00[1]=im10[61];dim01[1]=im10[63];
       dwre=wre[16];dwim=wim[16];
       re11[60]=dre10[1];re11[62]=dre11[1];
       im11[60]=dim10[1];im11[62]=dim11[1];
       dre00[2]=re20[59];dre01[2]=re20[63];
       dim00[2]=im20[59];dim01[2]=im20[63];
       dwre=wre[24];dwim=wim[24];
       re21[58]=dre10[2];re21[62]=dre11[2];
       im21[58]=dim10[2];im21[62]=dim11[2];
       dre00[3]=re30[55];dre01[3]=re30[63];
       dim00[3]=im30[55];dim01[3]=im30[63];
       dwre=wre[28];dwim=wim[28];
       re31[54]=dre10[3];re31[62]=dre11[3];
       im31[54]=dim10[3];im31[62]=dim11[3];
       dre00[4]=re40[47];dre01[4]=re40[63];
       dim00[4]=im40[47];dim01[4]=im40[63];
       dwre=wre[30];dwim=wim[30];
       re41[46]=dre10[4];re41[62]=dre11[4];
       im41[46]=dim10[4];im41[62]=dim11[4];
       dre00[5]=re50[31];dre01[5]=re50[63];
       dim00[5]=im50[31];dim01[5]=im50[63];
       dwre=wre[31];dwim=wim[31];
       re51[30]=dre10[5];re51[62]=dre11[5];
       im51[30]=dim10[5];im51[62]=dim11[5];
     end
  33:begin

       dwre=wre[ 0];dwim=wim[ 0];
       re01[62]=dre10[0];re01[63]=dre11[0];
       im01[62]=dim10[0];im01[63]=dim11[0];

       dwre=wre[ 0];dwim=wim[ 0];
       re11[61]=dre10[1];re11[63]=dre11[1];
       im11[61]=dim10[1];im11[63]=dim11[1];

       dwre=wre[ 0];dwim=wim[ 0];
       re21[59]=dre10[2];re21[63]=dre11[2];
       im21[59]=dim10[2];im21[63]=dim11[2];

       dwre=wre[ 0];dwim=wim[ 0];
       re31[55]=dre10[3];re31[63]=dre11[3];
       im31[55]=dim10[3];im31[63]=dim11[3];

       dwre=wre[ 0];dwim=wim[ 0];
       re41[47]=dre10[4];re41[63]=dre11[4];
       im41[47]=dim10[4];im41[63]=dim11[4];

       dwre=wre[ 0];dwim=wim[ 0];
       re51[31]=dre10[5];re51[63]=dre11[5];
       im51[31]=dim10[5];im51[63]=dim11[5];
     end
  endcase
end

always 
begin
  for(i=0;i<6;i=i+1)
  begin
    re_bc[i]=mul(dre01[i],dwre[i])-mul(dim01[i],dwim[i]);
    im_bc[i]=mul(dre01[i],dwim[i])+mul(dim01[i],dwre[i]);
    dre10[i]=dre00[i]+dre_bc[i];
    dre11[i]=dre00[i]-dre_bc[i];
    dim10[i]=dim00[i]+dim_bc[i];
    dim11[i]=dim00[i]-dim_bc[i];
  end
end

endmodule