thetable.c

speech signal process tools

static char *thetable_sccs = "@(#)thetable.c	1.2 12/7/89 ATT, ESI";
 int fft_tablesize = 2048;


/* sine table for arguments from 0 to PI; increments of PI/2048  */

static double	sine[2048] = {
    0.0000000000000000, 0.0015339802089460, 0.0030679568082882, 0.0046019261884316, 
    0.0061358847397977, 0.0076698288528339, 0.0092037549180215, 0.0107376593258840, 
    0.0122715384669961, 0.0138053887319921, 0.0153392065115738, 0.0168729881965198, 
    0.0184067301776936, 0.0199404288460519, 0.0214740805926536, 0.0230076818086679, 
    0.0245412288853828, 0.0260747182142139, 0.0276081461867125, 0.0291415091945743, 
    0.0306748036296480, 0.0322080258839436, 0.0337411723496409, 0.0352742394190980, 
    0.0368072234848599, 0.0383401209396670, 0.0398729281764633, 0.0414056415884053, 
    0.0429382575688702, 0.0444707725114643, 0.0460031828100319, 0.0475354848586634, 
    0.0490676750517040, 0.0505997497837620, 0.0521317054497176, 0.0536635384447308, 
    0.0551952451642507, 0.0567268220040233, 0.0582582653601001, 0.0597895716288469, 
    0.0613207372069521, 0.0628517584914350, 0.0643826318796546, 0.0659133537693178, 
    0.0674439205584880, 0.0689743286455936, 0.0705045744294365, 0.0720346543092004, 
    0.0735645646844594, 0.0750943019551865, 0.0766238625217621, 0.0781532427849822, 
    0.0796824391460674, 0.0812114480066706, 0.0827402657688864, 0.0842688888352587, 
    0.0857973136087896, 0.0873255364929479, 0.0888535538916775, 0.0903813622094057, 
    0.0919089578510518, 0.0934363372220357, 0.0949634967282860, 0.0964904327762487, 
    0.0980171417728959, 0.0995436201257335, 0.1010698642428106, 0.1025958705327270, 
    0.1041216354046427, 0.1056471552682852, 0.1071724265339589, 0.1086974456125531, 
    0.1102222089155504, 0.1117467128550355, 0.1132709538437031, 0.1147949282948670, 
    0.1163186326224678, 0.1178420632410820, 0.1193652165659302, 0.1208880890128852, 
    0.1224106769984811, 0.1239329769399210, 0.1254549852550862, 0.1269766983625439, 
    0.1284981126815559, 0.1300192246320876, 0.1315400306348152, 0.1330605271111354, 
    0.1345807104831729, 0.1361005771737893, 0.1376201236065913, 0.1391393462059393, 
    0.1406582413969558, 0.1421768056055333, 0.1436950352583437, 0.1452129267828457, 
    0.1467304766072939, 0.1482476811607469, 0.1497645368730756, 0.1512810401749719, 
    0.1527971874979570, 0.1543129752743897, 0.1558283999374748, 0.1573434579212716, 
    0.1588581456607021, 0.1603724595915598, 0.1618863961505176, 0.1633999517751364, 
    0.1649131229038734, 0.1664259059760909, 0.1679382974320638, 0.1694502937129891, 
    0.1709618912609932, 0.1724730865191410, 0.1739838759314440, 0.1754942559428687, 
    0.1770042229993449, 0.1785137735477741, 0.1800229040360380, 0.1815316109130066, 
    0.1830398906285469, 0.1845477396335309, 0.1860551543798441, 0.1875621313203938, 
    0.1890686669091178, 0.1905747576009920, 0.1920803998520396, 0.1935855901193387, 
    0.1950903248610312, 0.1965946005363308, 0.1980984136055313, 0.1996017605300153, 
    0.2011046377722621, 0.2026070417958564, 0.2041089690654961, 0.2056104160470013, 
    0.2071113792073220, 0.2086118550145470, 0.2101118399379114, 0.2116113304478058, 
    0.2131103230157842, 0.2146088141145720, 0.2161068002180750, 0.2176042778013869, 
    0.2191012433407982, 0.2205976933138044, 0.2220936241991140, 0.2235890324766570, 
    0.2250839146275933, 0.2265782671343204, 0.2280720864804827, 0.2295653691509788, 
    0.2310581116319701, 0.2325503104108894, 0.2340419619764486, 0.2355330628186475, 
    0.2370236094287816, 0.2385135982994506, 0.2400030259245668, 0.2414918887993629, 
    0.2429801834204007, 0.2444679062855790, 0.2459550538941422, 0.2474416227466882, 
    0.2489276093451767, 0.2504130101929376, 0.2518978217946793, 0.2533820406564963, 
    0.2548656632858784, 0.2563486861917180, 0.2578311058843187, 0.2593129188754040, 
    0.2607941216781245, 0.2622747108070668, 0.2637546827782617, 0.2652340341091919, 
    0.2667127613188008, 0.2681908609275003, 0.2696683294571793, 0.2711451634312114, 
    0.2726213593744634, 0.2740969138133038, 0.2755718232756101, 0.2770460842907779, 
    0.2785196933897286, 0.2799926471049173, 0.2814649419703418, 0.2829365745215498, 
    0.2844075412956477, 0.2858778388313085, 0.2873474636687799, 0.2888164123498926, 
    0.2902846814180685, 0.2917522674183284, 0.2932191668973006, 0.2946853764032289, 
    0.2961508924859806, 0.2976157116970545, 0.2990798305895897, 0.3005432457183727, 
    0.3020059536398463, 0.3034679509121174, 0.3049292340949649, 0.3063897997498485, 
    0.3078496444399159, 0.3093087647300115, 0.3107671571866841, 0.3122248183781952, 
    0.3136817448745273, 0.3151379332473915, 0.3165933800702357, 0.3180480819182528, 
    0.3195020353683889, 0.3209552369993509, 0.3224076833916147, 0.3238593711274339, 
    0.3253102967908467, 0.3267604569676848, 0.3282098482455811, 0.3296584672139778, 
    0.3311063104641346, 0.3325533745891362, 0.3339996561839009, 0.3354451518451882, 
    0.3368898581716073, 0.3383337717636243, 0.3397768892235711, 0.3412192071556528, 
    0.3426607221659559, 0.3441014308624562, 0.3455413298550269, 0.3469804157554464, 
    0.3484186851774065, 0.3498561347365203, 0.3512927610503299, 0.3527285607383149, 
    0.3541635304218996, 0.3555976667244619, 0.3570309662713401, 0.3584634256898422, 
    0.3598950416092525, 0.3613258106608402, 0.3627557294778678, 0.3641847946955978, 
    0.3656130029513018, 0.3670403508842676, 0.3684668351358075, 0.3698924523492663, 
    0.3713171991700286, 0.3727410722455278, 0.3741640682252527, 0.3755861837607563, 
    0.3770074155056631, 0.3784277601156775, 0.3798472142485915, 0.3812657745642920, 
    0.3826834377247698, 0.3841002003941262, 0.3855160592385817, 0.3869310109264837, 
    0.3883450521283140, 0.3897581795166970, 0.3911703897664074, 0.3925816795543778, 
    0.3939920455597071, 0.3954014844636677, 0.3968099929497135, 0.3982175677034880, 
    0.3996242054128318, 0.4010299027677903, 0.4024346564606217, 0.4038384631858049, 
    0.4052413196400467, 0.4066432225222906, 0.4080441685337235, 0.4094441543777838, 
    0.4108431767601698, 0.4122412323888463, 0.4136383179740535, 0.4150344302283139, 
    0.4164295658664403, 0.4178237216055438, 0.4192168941650410, 0.4206090802666625, 
    0.4220002766344596, 0.4233904799948128, 0.4247796870764393, 0.4261678946104004, 
    0.4275550993301098, 0.4289412979713404, 0.4303264872722330, 0.4317106639733033, 
    0.4330938248174496, 0.4344759665499608, 0.4358570859185238, 0.4372371796732312, 
    0.4386162445665890, 0.4399942773535241, 0.4413712747913924, 0.4427472336399855, 
    0.4441221506615394, 0.4454960226207414, 0.4468688462847381, 0.4482406184231425, 
    0.4496113358080422, 0.4509809952140069, 0.4523495934180953, 0.4537171271998638, 
    0.4550835933413732, 0.4564489886271963, 0.4578133098444263, 0.4591765537826833, 
    0.4605387172341228, 0.4618997969934422, 0.4632597898578895, 0.4646186926272699, 
    0.4659765021039538, 0.4673332150928844, 0.4686888284015847, 0.4700433388401657, 
    0.4713967432213333, 0.4727490383603962, 0.4741002210752732, 0.4754502881865009, 
    0.4767992365172406, 0.4781470628932867, 0.4794937641430734, 0.4808393370976825, 
    0.4821837785908507, 0.4835270854589773, 0.4848692545411312, 0.4862102826790590, 
    0.4875501667171919, 0.4888889035026530, 0.4902264898852655, 0.4915629227175590, 
    0.4928981988547782, 0.4942323151548892, 0.4955652684785873, 0.4968970556893044, 
    0.4982276736532166, 0.4995571192392512, 0.5008853893190942, 0.5022124807671977, 
    0.5035383904607872, 0.5048631152798690, 0.5061866521072377, 0.5075089978284831, 
    0.5088301493319979, 0.5101501035089847, 0.5114688572534641, 0.5127864074622809, 
    0.5141027510351120, 0.5154178848744739, 0.5167318058857294, 0.5180445109770955, 
    0.5193559970596500, 0.5206662610473396, 0.5219752998569863, 0.5232831104082953, 
    0.5245896896238621, 0.5258950344291794, 0.5271991417526446, 0.5285020085255672, 
    0.5298036316821756, 0.5311040081596250, 0.5324031348980036, 0.5337010088403407, 
    0.5349976269326133, 0.5362929861237538, 0.5375870833656569, 0.5388799156131866, 
    0.5401714798241837, 0.5414617729594726, 0.5427507919828689, 0.5440385338611864, 
    0.5453249955642439, 0.5466101740648726, 0.5478940663389230, 0.5491766693652730, 
    0.5504579801258334, 0.5517379956055561, 0.5530167127924411, 0.5542941286775430, 
    0.5555702402549790, 0.5568450445219351, 0.5581185384786737, 0.5593907191285402, 
    0.5606615834779706, 0.5619311285364985, 0.5631993513167615, 0.5644662488345087, 
    0.5657318181086078, 0.5669960561610521, 0.5682589600169673, 0.5695205267046183, 
    0.5707807532554169, 0.5720396367039282, 0.5732971740878776, 0.5745533624481582, 
    0.5758081988288375, 0.5770616802771640, 0.5783138038435747, 0.5795645665817017, 
    0.5808139655483798, 0.5820619978036521, 0.5833086604107780, 0.5845539504362401, 
    0.5857978649497505, 0.5870404010242581, 0.5882815557359554, 0.5895213261642855, 
    0.5907597093919486, 0.5919967025049091, 0.5932323025924031, 0.5944665067469438, 
    0.5956993120643296, 0.5969307156436503, 0.5981607145872945, 0.5993893060009556, 
    0.6006164869936393, 0.6018422546776701, 0.6030666061686981, 0.6042895385857059, 
    0.6055110490510154, 0.6067311346902944, 0.6079497926325633, 0.6091670200102022, 
    0.6103828139589574, 0.6115971716179485, 0.6128100901296741, 0.6140215666400201, 
    0.6152315982982647, 0.6164401822570869, 0.6176473156725716, 0.6188529957042173, 
    0.6200572195149421, 0.6212599842710911, 0.6224612871424426, 0.6236611253022148, 
    0.6248594959270727, 0.6260563961971340, 0.6272518232959768, 0.6284457744106459, 
    0.6296382467316585, 0.6308292374530121, 0.6320187437721905, 0.6332067628901702, 
    0.6343932920114275, 0.6355783283439446, 0.6367618690992165, 0.6379439114922574, 
    0.6391244527416071, 0.6403034900693382, 0.6414810207010617, 0.6426570418659344, 
    0.6438315507966645, 0.6450045447295194, 0.6461760209043307, 0.6473459765645017, 
    0.6485144089570136, 0.6496813153324321, 0.6508466929449138, 0.6520105390522125, 
    0.6531728509156858, 0.6543336258003013, 0.6554928609746438, 0.6566505537109206, 
    0.6578067012849691, 0.6589613009762620, 0.6601143500679150, 0.6612658458466916, 
    0.6624157856030113, 0.6635641666309545, 0.6647109862282699, 0.6658562416963798, 
    0.6669999303403874, 0.6681420494690831, 0.6692825963949500, 0.6704215684341708, 
    0.6715589629066344, 0.6726947771359414, 0.6738290084494114, 0.6749616541780884, 
    0.6760927116567474, 0.6772221782239010, 0.6783500512218049, 0.6794763279964652, 
    0.6806010058976437, 0.6817240822788645, 0.6828455544974203, 0.6839654199143786, 
    0.6850836758945880, 0.6862003198066839, 0.6873153490230952, 0.6884287609200503, 
    0.6895405528775838, 0.6906507222795413, 0.6917592665135870, 0.6928661829712093, 
    0.6939714690477264, 0.6950751221422939, 0.6961771396579089, 0.6972775190014180, 
    0.6983762575835220, 0.6994733528187828, 0.7005688021256293, 0.7016626029263635, 
    0.7027547526471664, 0.7038452487181039, 0.7049340885731334, 0.7060212696501097, 
    0.7071067893907904, 0.7081906452408427, 0.7092728346498491, 0.7103533550713130, 
    0.7114322039626657, 0.7125093787852715, 0.7135848770044337, 0.7146586960894011, 
    0.7157308335133736, 0.7168012867535083, 0.7178700532909251, 0.7189371306107132, 
    0.7200025162019363, 0.7210662075576393, 0.7221282021748534, 0.7231884975546029, 
    0.7242470912019101, 0.7253039806258019, 0.7263591633393151, 0.7274126368595031, 
    0.7284643987074406, 0.7295144464082305, 0.7305627774910088, 0.7316093894889516, 
    0.7326542799392792, 0.7336974463832636, 0.7347388863662334, 0.7357785974375793, 
    0.7368165771507610, 0.7378528230633117, 0.7388873327368448, 0.7399201037370589, 
    0.7409511336337438, 0.7419804200007869, 0.7430079604161776, 0.7440337524620141, 
    0.7450577937245085, 0.7460800817939927, 0.7471006142649240, 0.7481193887358911, 
    0.7491364028096189, 0.7501516540929751, 0.7511651401969753, 0.7521768587367887, 
    0.7531868073317438, 0.7541949836053340, 0.7552013851852230, 0.7562060097032504, 
    0.7572088547954379, 0.7582099181019939, 0.7592091972673197, 0.7602066899400148, 
    0.7612023937728827, 0.7621963064229358, 0.7631884255514017, 0.7641787488237280, 
    0.7651672739095886, 0.7661539984828881, 0.7671389202217684, 0.7681220368086135, 
    0.7691033459300549, 0.7700828452769773, 0.7710605325445242, 0.7720364054321031, 
    0.7730104616433904, 0.7739826988863379, 0.7749531148731772, 0.7759217073204260, 
    0.7768884739488924, 0.7778534124836811, 0.7788165206541985, 0.7797777961941579, 
    0.7807372368415851, 0.7816948403388236, 0.7826506044325396, 0.7836045268737279, 
    0.7845566054177169, 0.7855068378241735, 0.7864552218571091, 0.7874017552848847, 
    0.7883464358802151, 0.7892892614201759, 0.7902302296862073, 0.7911693384641201,