tcr2fftn.h

快速FFT,汇编原程序

w[180].re = 0xb3c1, w[180].im = 0x9931;
w[181].re = 0xb27f, w[181].im = 0x9a23;
w[182].re = 0xb141, w[182].im = 0x9b18;
w[183].re = 0xb005, w[183].im = 0x9c11;
w[184].re = 0xaecd, w[184].im = 0x9d0e;
w[185].re = 0xad97, w[185].im = 0x9e0f;
w[186].re = 0xac65, w[186].im = 0x9f14;
w[187].re = 0xab36, w[187].im = 0xa01d;
w[188].re = 0xaa0b, w[188].im = 0xa129;
w[189].re = 0xa8e3, w[189].im = 0xa239;
w[190].re = 0xa7be, w[190].im = 0xa34c;
w[191].re = 0xa69c, w[191].im = 0xa463;
w[192].re = 0xa57e, w[192].im = 0xa57e;
w[193].re = 0xa463, w[193].im = 0xa69c;
w[194].re = 0xa34c, w[194].im = 0xa7be;
w[195].re = 0xa239, w[195].im = 0xa8e3;
w[196].re = 0xa129, w[196].im = 0xaa0b;
w[197].re = 0xa01d, w[197].im = 0xab36;
w[198].re = 0x9f14, w[198].im = 0xac65;
w[199].re = 0x9e0f, w[199].im = 0xad97;
w[200].re = 0x9d0e, w[200].im = 0xaecd;
w[201].re = 0x9c11, w[201].im = 0xb005;
w[202].re = 0x9b18, w[202].im = 0xb141;
w[203].re = 0x9a23, w[203].im = 0xb27f;
w[204].re = 0x9931, w[204].im = 0xb3c1;
w[205].re = 0x9843, w[205].im = 0xb505;
w[206].re = 0x975a, w[206].im = 0xb64c;
w[207].re = 0x9674, w[207].im = 0xb797;
w[208].re = 0x9593, w[208].im = 0xb8e4;
w[209].re = 0x94b6, w[209].im = 0xba33;
w[210].re = 0x93dc, w[210].im = 0xbb86;
w[211].re = 0x9307, w[211].im = 0xbcdb;
w[212].re = 0x9236, w[212].im = 0xbe32;
w[213].re = 0x916a, w[213].im = 0xbf8d;
w[214].re = 0x90a1, w[214].im = 0xc0e9;
w[215].re = 0x8fdd, w[215].im = 0xc248;
w[216].re = 0x8f1e, w[216].im = 0xc3aa;
w[217].re = 0x8e62, w[217].im = 0xc50e;
w[218].re = 0x8dab, w[218].im = 0xc674;
w[219].re = 0x8cf9, w[219].im = 0xc7dc;
w[220].re = 0x8c4b, w[220].im = 0xc946;
w[221].re = 0x8ba1, w[221].im = 0xcab3;
w[222].re = 0x8afc, w[222].im = 0xcc22;
w[223].re = 0x8a5b, w[223].im = 0xcd92;
w[224].re = 0x89bf, w[224].im = 0xcf05;
w[225].re = 0x8927, w[225].im = 0xd079;
w[226].re = 0x8894, w[226].im = 0xd1ef;
w[227].re = 0x8806, w[227].im = 0xd368;
w[228].re = 0x877c, w[228].im = 0xd4e1;
w[229].re = 0x86f7, w[229].im = 0xd65d;
w[230].re = 0x8676, w[230].im = 0xd7da;
w[231].re = 0x85fb, w[231].im = 0xd958;
w[232].re = 0x8583, w[232].im = 0xdad8;
w[233].re = 0x8511, w[233].im = 0xdc5a;
w[234].re = 0x84a3, w[234].im = 0xdddd;
w[235].re = 0x843b, w[235].im = 0xdf61;
w[236].re = 0x83d7, w[236].im = 0xe0e7;
w[237].re = 0x8377, w[237].im = 0xe26d;
w[238].re = 0x831d, w[238].im = 0xe3f5;
w[239].re = 0x82c7, w[239].im = 0xe57e;
w[240].re = 0x8276, w[240].im = 0xe708;
w[241].re = 0x822a, w[241].im = 0xe893;
w[242].re = 0x81e3, w[242].im = 0xea1e;
w[243].re = 0x81a1, w[243].im = 0xebab;
w[244].re = 0x8163, w[244].im = 0xed38;
w[245].re = 0x812b, w[245].im = 0xeec7;
w[246].re = 0x80f7, w[246].im = 0xf055;
w[247].re = 0x80c8, w[247].im = 0xf1e5;
w[248].re = 0x809e, w[248].im = 0xf375;
w[249].re = 0x8079, w[249].im = 0xf505;
w[250].re = 0x8059, w[250].im = 0xf696;
w[251].re = 0x803e, w[251].im = 0xf827;
w[252].re = 0x8028, w[252].im = 0xf9b9;
w[253].re = 0x8017, w[253].im = 0xfb4a;
w[254].re = 0x800a, w[254].im = 0xfcdc;
w[255].re = 0x8003, w[255].im = 0xfe6e;

}

/*
complex_fract16 w[256] = {
{0x7fff, 0x0000},
{0x7ffd, 0xfe6e},{0x7ff6, 0xfcdc},{0x7fe9, 0xfb4a},{0x7fd8, 0xf9b9},
{0x7fc2, 0xf827},{0x7fa7, 0xf696},{0x7f87, 0xf505},{0x7f62, 0xf375},
{0x7f38, 0xf1e5},{0x7f09, 0xf055},{0x7ed5, 0xeec7},{0x7e9d, 0xed38},
{0x7e5f, 0xebab},{0x7e1d, 0xea1e},{0x7dd6, 0xe893},{0x7d8a, 0xe708},
{0x7d39, 0xe57e},{0x7ce3, 0xe3f5},{0x7c89, 0xe26d},{0x7c29, 0xe0e7},
{0x7bc5, 0xdf61},{0x7b5d, 0xdddd},{0x7aef, 0xdc5a},{0x7a7d, 0xdad8},
{0x7a05, 0xd958},{0x798a, 0xd7da},{0x7909, 0xd65d},{0x7884, 0xd4e1},
{0x77fa, 0xd368},{0x776c, 0xd1ef},{0x76d9, 0xd079},{0x7641, 0xcf05},
{0x75a5, 0xcd92},{0x7504, 0xcc22},{0x745f, 0xcab3},{0x73b5, 0xc946},
{0x7307, 0xc7dc},{0x7255, 0xc674},{0x719e, 0xc50e},{0x70e2, 0xc3aa},
{0x7023, 0xc248},{0x6f5f, 0xc0e9},{0x6e96, 0xbf8d},{0x6dca, 0xbe32},
{0x6cf9, 0xbcdb},{0x6c24, 0xbb86},{0x6b4a, 0xba33},{0x6a6d, 0xb8e4},
{0x698c, 0xb797},{0x68a6, 0xb64c},{0x67bd, 0xb505},{0x66cf, 0xb3c1},
{0x65dd, 0xb27f},{0x64e8, 0xb141},{0x63ef, 0xb005},{0x62f2, 0xaecd},
{0x61f1, 0xad97},{0x60ec, 0xac65},{0x5fe3, 0xab36},{0x5ed7, 0xaa0b},
{0x5dc7, 0xa8e3},{0x5cb4, 0xa7be},{0x5b9d, 0xa69c},{0x5a82, 0xa57e},
{0x5964, 0xa463},{0x5842, 0xa34c},{0x571d, 0xa239},{0x55f5, 0xa129},
{0x54ca, 0xa01d},{0x539b, 0x9f14},{0x5269, 0x9e0f},{0x5133, 0x9d0e},
{0x4ffb, 0x9c11},{0x4ebf, 0x9b18},{0x4d81, 0x9a23},{0x4c3f, 0x9931},
{0x4afb, 0x9843},{0x49b4, 0x975a},{0x4869, 0x9674},{0x471c, 0x9593},
{0x45cd, 0x94b6},{0x447a, 0x93dc},{0x4325, 0x9307},{0x41ce, 0x9236},
{0x4073, 0x916a},{0x3f17, 0x90a1},{0x3db8, 0x8fdd},{0x3c56, 0x8f1e},
{0x3af2, 0x8e62},{0x398c, 0x8dab},{0x3824, 0x8cf9},{0x36ba, 0x8c4b},
{0x354d, 0x8ba1},{0x33de, 0x8afc},{0x326e, 0x8a5b},{0x30fb, 0x89bf},
{0x2f87, 0x8927},{0x2e11, 0x8894},{0x2c98, 0x8806},{0x2b1f, 0x877c},
{0x29a3, 0x86f7},{0x2826, 0x8676},{0x26a8, 0x85fb},{0x2528, 0x8583},
{0x23a6, 0x8511},{0x2223, 0x84a3},{0x209f, 0x843b},{0x1f19, 0x83d7},
{0x1d93, 0x8377},{0x1c0b, 0x831d},{0x1a82, 0x82c7},{0x18f8, 0x8276},
{0x176d, 0x822a},{0x15e2, 0x81e3},{0x1455, 0x81a1},{0x12c8, 0x8163},
{0x1139, 0x812b},{0x0fab, 0x80f7},{0x0e1b, 0x80c8},{0x0c8b, 0x809e},
{0x0afb, 0x8079},{0x096a, 0x8059},{0x07d9, 0x803e},{0x0647, 0x8028},
{0x04b6, 0x8017},{0x0324, 0x800a},{0x0192, 0x8003},{0x0000, 0x8000},
{0xfe6e, 0x8003},{0xfcdc, 0x800a},{0xfb4a, 0x8017},{0xf9b9, 0x8028},
{0xf827, 0x803e},{0xf696, 0x8059},{0xf505, 0x8079},{0xf375, 0x809e},
{0xf1e5, 0x80c8},{0xf055, 0x80f7},{0xeec7, 0x812b},{0xed38, 0x8163},
{0xebab, 0x81a1},{0xea1e, 0x81e3},{0xe893, 0x822a},{0xe708, 0x8276},
{0xe57e, 0x82c7},{0xe3f5, 0x831d},{0xe26d, 0x8377},{0xe0e7, 0x83d7},
{0xdf61, 0x843b},{0xdddd, 0x84a3},{0xdc5a, 0x8511},{0xdad8, 0x8583},
{0xd958, 0x85fb},{0xd7da, 0x8676},{0xd65d, 0x86f7},{0xd4e1, 0x877c},
{0xd368, 0x8806},{0xd1ef, 0x8894},{0xd079, 0x8927},{0xcf05, 0x89bf},
{0xcd92, 0x8a5b},{0xcc22, 0x8afc},{0xcab3, 0x8ba1},{0xc946, 0x8c4b},
{0xc7dc, 0x8cf9},{0xc674, 0x8dab},{0xc50e, 0x8e62},{0xc3aa, 0x8f1e},
{0xc248, 0x8fdd},{0xc0e9, 0x90a1},{0xbf8d, 0x916a},{0xbe32, 0x9236},
{0xbcdb, 0x9307},{0xbb86, 0x93dc},{0xba33, 0x94b6},{0xb8e4, 0x9593},
{0xb797, 0x9674},{0xb64c, 0x975a},{0xb505, 0x9843},{0xb3c1, 0x9931},
{0xb27f, 0x9a23},{0xb141, 0x9b18},{0xb005, 0x9c11},{0xaecd, 0x9d0e},
{0xad97, 0x9e0f},{0xac65, 0x9f14},{0xab36, 0xa01d},{0xaa0b, 0xa129},
{0xa8e3, 0xa239},{0xa7be, 0xa34c},{0xa69c, 0xa463},{0xa57e, 0xa57e},
{0xa463, 0xa69c},{0xa34c, 0xa7be},{0xa239, 0xa8e3},{0xa129, 0xaa0b},
{0xa01d, 0xab36},{0x9f14, 0xac65},{0x9e0f, 0xad97},{0x9d0e, 0xaecd},
{0x9c11, 0xb005},{0x9b18, 0xb141},{0x9a23, 0xb27f},{0x9931, 0xb3c1},
{0x9843, 0xb505},{0x975a, 0xb64c},{0x9674, 0xb797},{0x9593, 0xb8e4},
{0x94b6, 0xba33},{0x93dc, 0xbb86},{0x9307, 0xbcdb},{0x9236, 0xbe32},
{0x916a, 0xbf8d},{0x90a1, 0xc0e9},{0x8fdd, 0xc248},{0x8f1e, 0xc3aa},
{0x8e62, 0xc50e},{0x8dab, 0xc674},{0x8cf9, 0xc7dc},{0x8c4b, 0xc946},
{0x8ba1, 0xcab3},{0x8afc, 0xcc22},{0x8a5b, 0xcd92},{0x89bf, 0xcf05},
{0x8927, 0xd079},{0x8894, 0xd1ef},{0x8806, 0xd368},{0x877c, 0xd4e1},
{0x86f7, 0xd65d},{0x8676, 0xd7da},{0x85fb, 0xd958},{0x8583, 0xdad8},
{0x8511, 0xdc5a},{0x84a3, 0xdddd},{0x843b, 0xdf61},{0x83d7, 0xe0e7},
{0x8377, 0xe26d},{0x831d, 0xe3f5},{0x82c7, 0xe57e},{0x8276, 0xe708},
{0x822a, 0xe893},{0x81e3, 0xea1e},{0x81a1, 0xebab},{0x8163, 0xed38},
{0x812b, 0xeec7},{0x80f7, 0xf055},{0x80c8, 0xf1e5},{0x809e, 0xf375},
{0x8079, 0xf505},{0x8059, 0xf696},{0x803e, 0xf827},{0x8028, 0xf9b9},
{0x8017, 0xfb4a},{0x800a, 0xfcdc},{0x8003, 0xfe6e}
};
*/

complex_fract16 multi_in[32] = {
{0x2000,   0x0000 },
{0x23ce,   0x0000 },
{0x22df,   0x0000 },
{0x1e05,   0x0000 },
{0x16a0,   0x0000 },
{0x0e5c,   0x0000 },
{0x06ef,   0x0000 },
{0x01d2,   0x0000 },
{0x0000,   0x0000 },
{0x01d2,   0x0000 },
{0x06ef,   0x0000 },
{0x0e5c,   0x0000 },
{0x16a0,   0x0000 },
{0x1e05,   0x0000 },
{0x22df,   0x0000 },
{0x23ce,   0x0000 },
{0x2000,   0x0000 },
{0x1752,   0x0000 },
{0x0a62,   0x0000 },
{0xfa77,   0x0000 },
{0xe95f,   0x0000 },
{0xd926,   0x0000 },
{0xcbcf,   0x0000 },
{0xc30d,   0x0000 },
{0xc000,   0x0000 },
{0xc30d,   0x0000 },
{0xcbcf,   0x0000 },
{0xd926,   0x0000 },
{0xe95f,   0x0000 },
{0xfa77,   0x0000 },
{0x0a62,   0x0000 },
{0x1752,   0x0000 }
};