thetable.c

speech signal process tools

#ifndef lint
	static char *sccs_id = "@(#)thetable.c	1.2 6/28/91	ATT, ESI ";
#endif

static int	tablesize = 2048;


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

static double	sine[2048] = {
    0.0000000000000000, 0.0015339801862848, 0.0030679567629660, 0.0046019261204486, 
    0.0061358846491545, 0.0076698287395311, 0.0092037547820598, 0.0107376591672645, 
    0.0122715382857199, 0.0138053885280604, 0.0153392062849881, 0.0168729879472817, 
    0.0184067299058048, 0.0199404285515144, 0.0214740802754695, 0.0230076814688394, 
    0.0245412285229123, 0.0260747178291039, 0.0276081457789657, 0.0291415087641937, 
    0.0306748031766366, 0.0322080254083046, 0.0337411718513776, 0.0352742388982139, 
    0.0368072229413588, 0.0383401203735527, 0.0398729275877398, 0.0414056409770767, 
    0.0429382569349408, 0.0444707718549387, 0.0460031821309146, 0.0475354841569593, 
    0.0490676743274180, 0.0505997490368993, 0.0521317046802833, 0.0536635376527305, 
    0.0551952443496899, 0.0567268211669077, 0.0582582645004358, 0.0597895707466399, 
    0.0613207363022086, 0.0628517575641614, 0.0643826309298575, 0.0659133527970038, 
    0.0674439195636640, 0.0689743276282667, 0.0705045733896139, 0.0720346532468893, 
    0.0735645635996674, 0.0750943008479213, 0.0766238613920315, 0.0781532416327942, 
    0.0796824379714301, 0.0812114468095924, 0.0827402645493757, 0.0842688875933241, 
    0.0857973123444399, 0.0873255352061921, 0.0888535525825246, 0.0903813608778650, 
    0.0919089564971327, 0.0934363358457478, 0.0949634953296390, 0.0964904313552526, 
    0.0980171403295606, 0.0995436186600693, 0.1010698627548278, 0.1025958690224363, 
    0.1041216338720546, 0.1056471537134106, 0.1071724249568089, 0.1086974440131387, 
    0.1102222072938831, 0.1117467112111266, 0.1132709521775644, 0.1147949266065101, 
    0.1163186309119048, 0.1178420615083250, 0.1193652148109914, 0.1208880872357771, 
    0.1224106751992162, 0.1239329751185122, 0.1254549834115462, 0.1269766964968859, 
    0.1284981107937932, 0.1300192227222333, 0.1315400287028831, 0.1330605251571391, 
    0.1345807085071262, 0.1361005751757062, 0.1376201215864860, 0.1391393441638262, 
    0.1406582393328492, 0.1421768035194480, 0.1436950331502945, 0.1452129246528475, 
    0.1467304744553617, 0.1482476789868960, 0.1497645346773215, 0.1512810379573302, 
    0.1527971852584434, 0.1543129730130201, 0.1558283976542652, 0.1573434556162383, 
    0.1588581433338614, 0.1603724572429283, 0.1618863937801118, 0.1633999493829732, 
    0.1649131204899699, 0.1664259035404641, 0.1679382949747312, 0.1694502912339679, 
    0.1709618887603012, 0.1724730839967959, 0.1739838733874638, 0.1754942533772714, 
    0.1770042204121487, 0.1785137709389975, 0.1800229014056995, 0.1815316082611250, 
    0.1830398879551409, 0.1845477369386196, 0.1860551516634466, 0.1875621285825296, 
    0.1890686641498062, 0.1905747548202527, 0.1920803970498924, 0.1935855872958036, 
    0.1950903220161282, 0.1965945976700802, 0.1980984107179536, 0.1996017576211310, 
    0.2011046348420919, 0.2026070388444211, 0.2041089660928169, 0.2056104130530993, 
    0.2071113761922186, 0.2086118519782635, 0.2101118368804696, 0.2116113273692275, 
    0.2131103199160914, 0.2146088109937867, 0.2161067970762195, 0.2176042746384836, 
    0.2191012401568698, 0.2205976901088735, 0.2220936209732035, 0.2235890292297900, 
    0.2250839113597928, 0.2265782638456100, 0.2280720831708857, 0.2295653658205189, 
    0.2310581082806711, 0.2325503070387752, 0.2340419585835434, 0.2355330594049755, 
    0.2370236059943672, 0.2385135948443184, 0.2400030224487415, 0.2414918853028693, 
    0.2429801799032639, 0.2444679027478242, 0.2459550503357946, 0.2474416191677733, 
    0.2489276057457201, 0.2504130065729652, 0.2518978181542169, 0.2533820369955702, 
    0.2548656596045146, 0.2563486824899429, 0.2578311021621590, 0.2593129151328863, 
    0.2607941179152755, 0.2622747070239136, 0.2637546789748313, 0.2652340302855118, 
    0.2667127574748984, 0.2681908570634032, 0.2696683255729151, 0.2711451595268080, 
    0.2726213554499490, 0.2740969098687064, 0.2755718193109582, 0.2770460803060999, 
    0.2785196893850530, 0.2799926430802732, 0.2814649379257579, 0.2829365704570554, 
    0.2844075372112719, 0.2858778347270806, 0.2873474595447295, 0.2888164082060495, 
    0.2902846772544623, 0.2917522632349892, 0.2932191626942586, 0.2946853721805143, 
    0.2961508882436238, 0.2976157074350862, 0.2990798263080405, 0.3005432414172735, 
    0.3020059493192281, 0.3034679465720113, 0.3049292297354024, 0.3063897953708609, 
    0.3078496400415349, 0.3093087603122687, 0.3107671527496115, 0.3122248139218249, 
    0.3136817403988915, 0.3151379287525224, 0.3165933755561658, 0.3180480773850149, 
    0.3195020308160157, 0.3209552324278752, 0.3224076788010699, 0.3238593665178529, 
    0.3253102921622629, 0.3267604523201317, 0.3282098435790925, 0.3296584625285875, 
    0.3311063057598764, 0.3325533698660442, 0.3339996514420094, 0.3354451470845316, 
    0.3368898533922200, 0.3383337669655411, 0.3397768844068269, 0.3412192023202824, 
    0.3426607173119944, 0.3441014259899388, 0.3455413249639891, 0.3469804108459237, 
    0.3484186802494346, 0.3498561297901349, 0.3512927560855671, 0.3527285557552107, 
    0.3541635254204904, 0.3555976617047838, 0.3570309612334300, 0.3584634206337365, 
    0.3598950365349881, 0.3613258055684543, 0.3627557243673972, 0.3641847895670799, 
    0.3656129978047739, 0.3670403457197672, 0.3684668299533723, 0.3698924471489341, 
    0.3713171939518376, 0.3727410670095157, 0.3741640629714579, 0.3755861784892172, 
    0.3770074102164183, 0.3784277548087656, 0.3798472089240512, 0.3812657692221624, 
    0.3826834323650898, 0.3841001950169351, 0.3855160538439188, 0.3869310055143886, 
    0.3883450466988263, 0.3897581740698564, 0.3911703843022539, 0.3925816740729515, 
    0.3939920400610481, 0.3954014789478164, 0.3968099874167103, 0.3982175621533735, 
    0.3996241998456468, 0.4010298971835756, 0.4024346508594184, 0.4038384575676541, 
    0.4052413140049898, 0.4066432168703690, 0.4080441628649787, 0.4094441486922576, 
    0.4108431710579039, 0.4122412266698829, 0.4136383122384345, 0.4150344244760817, 
    0.4164295600976372, 0.4178237158202123, 0.4192168883632239, 0.4206090744484025, 
    0.4220002707997997, 0.4233904741437961, 0.4247796812091088, 0.4261678887267996, 
    0.4275550934302821, 0.4289412920553294, 0.4303264813400826, 0.4317106580250573, 
    0.4330938188531520, 0.4344759605696557, 0.4358570799222555, 0.4372371736610441, 
    0.4386162385385276, 0.4399942713096332, 0.4413712687317167, 0.4427472275645700, 
    0.4441221445704292, 0.4454960165139817, 0.4468688401623742, 0.4482406122852199, 
    0.4496113296546065, 0.4509809890451039, 0.4523495872337709, 0.4537171210001639, 
    0.4550835871263438, 0.4564489823968839, 0.4578133035988772, 0.4591765475219441, 
    0.4605387109582400, 0.4618997907024627, 0.4632597835518601, 0.4646186863062378, 
    0.4659764957679662, 0.4673332087419884, 0.4686888220358279, 0.4700433324595956, 
    0.4713967368259977, 0.4727490319503428, 0.4741002146505499, 0.4754502817471558, 
    0.4767992300633221, 0.4781470564248430, 0.4794937576601530, 0.4808393306003340, 
    0.4821837720791226, 0.4835270789329186, 0.4848692480007911, 0.4862102761244865, 
    0.4875501601484360, 0.4888888969197632, 0.4902264832882912, 0.4915629161065499, 
    0.4928981922297840, 0.4942323085159597, 0.4955652618257726, 0.4968970490226544, 
    0.4982276669727818, 0.4995571125450819, 0.5008853826112407, 0.5022124740457108, 
    0.5035383837257176, 0.5048631085312676, 0.5061866453451552, 0.5075089910529709, 
    0.5088301425431069, 0.5101500967067668, 0.5114688504379703, 0.5127864006335630, 
    0.5141027441932216, 0.5154178780194629, 0.5167317990176499, 0.5180445040959993, 
    0.5193559901655896, 0.5206662541403672, 0.5219752929371544, 0.5232831034756565, 
    0.5245896826784690, 0.5258950274710847, 0.5271991347819013, 0.5285020015422285, 
    0.5298036246862946, 0.5311040011512550, 0.5324031278771979, 0.5337010018071529, 
    0.5349976198870971, 0.5362929790659631, 0.5375870762956454, 0.5388799085310084, 
    0.5401714727298929, 0.5414617658531235, 0.5427507848645159, 0.5440385267308838, 
    0.5453249884220464, 0.5466101669108348, 0.5478940591731002, 0.5491766621877197, 
    0.5504579729366048, 0.5517379884047074, 0.5530167055800275, 0.5542941214536200, 
    0.5555702330196022, 0.5568450372751601, 0.5581185312205561, 0.5593907118591361, 
    0.5606615761973361, 0.5619311212446894, 0.5631993440138341, 0.5644662415205195, 
    0.5657318107836131, 0.5669960488251087, 0.5682589526701315, 0.5695205193469471, 
    0.5707807458869673, 0.5720396293247570, 0.5732971666980422, 0.5745533550477157, 
    0.5758081914178454, 0.5770616728556794, 0.5783137964116555, 0.5795645591394056, 
    0.5808139580957645, 0.5820619903407755, 0.5833086529376983, 0.5845539429530153, 
    0.5857978574564388, 0.5870403935209180, 0.5882815482226452, 0.5895213186410640, 
    0.5907597018588742, 0.5919966949620409, 0.5932322950397998, 0.5944664991846644, 
    0.5956993044924333, 0.5969307080621964, 0.5981607069963423, 0.5993892984005646, 
    0.6006164793838690, 0.6018422470585801, 0.6030665985403481, 0.6042895309481560, 
    0.6055110414043256, 0.6067311270345245, 0.6079497849677736, 0.6091670123364532, 
    0.6103828062763094, 0.6115971639264619, 0.6128100824294097, 0.6140215589310384, 
    0.6152315905806268, 0.6164401745308536, 0.6176473079378039, 0.6188529879609764, 
    0.6200572117632891, 0.6212599765110875, 0.6224612793741500, 0.6236611175256945, 
    0.6248594881423863, 0.6260563884043435, 0.6272518154951441, 0.6284457666018327, 
    0.6296382389149270, 0.6308292296284245, 0.6320187359398090, 0.6332067550500572, 
    0.6343932841636455, 0.6355783204885562, 0.6367618612362842, 0.6379439036218440, 
    0.6391244448637758, 0.6403034821841517, 0.6414810128085831, 0.6426570339662269, 
    0.6438315428897914, 0.6450045368155440, 0.6461760129833163, 0.6473459686365120, 
    0.6485144010221124, 0.6496813073906832, 0.6508466849963809, 0.6520105310969595, 
    0.6531728429537767, 0.6543336178318004, 0.6554928529996154, 0.6566505457294289, 
    0.6578066932970787, 0.6589612929820372, 0.6601143420674205, 0.6612658378399923, 
    0.6624157775901718, 0.6635641586120398, 0.6647109782033448, 0.6658562336655097, 
    0.6669999223036375, 0.6681420414265185, 0.6692825883466361, 0.6704215603801731, 
    0.6715589548470184, 0.6726947690707728, 0.6738290003787561, 0.6749616461020120, 
    0.6760927035753159, 0.6772221701371803, 0.6783500431298615, 0.6794763198993650, 
    0.6806009977954530, 0.6817240741716497, 0.6828455463852481, 0.6839654117973154, 
    0.6850836677727004, 0.6862003116800386, 0.6873153408917591, 0.6884287527840904, 
    0.6895405447370669, 0.6906507141345346, 0.6917592583641578, 0.6928661748174246, 
    0.6939714608896539, 0.6950751139800008, 0.6961771314914630, 0.6972775108308865, 
    0.6983762494089728, 0.6994733446402837, 0.7005687939432484, 0.7016625947401685, 
    0.7027547444572253, 0.7038452405244850, 0.7049340803759049, 0.7060212614493397, 
    0.7071067811865475, 0.7081906370331953, 0.7092728264388656, 0.7103533468570623, 
    0.7114321957452164, 0.7125093705646924, 0.7135848687807935, 0.7146586878627690, 
    0.7157308252838186, 0.7168012785210996, 0.7178700450557317, 0.7189371223728044, 
    0.7200025079613816, 0.7210661993145080, 0.7221281939292154, 0.7231884893065273, 
    0.7242470829514669, 0.7253039723730606, 0.7263591550843460, 0.7274126286023757, 
    0.7284643904482252, 0.7295144381469969, 0.7305627692278275, 0.7316093812238925, 
    0.7326542716724128, 0.7336974381146603, 0.7347388780959633, 0.7357785891657135, 
    0.7368165688773698, 0.7378528147884660, 0.7388873244606151, 0.7399200954595161, 
    0.7409511253549591, 0.7419804117208310, 0.7430079521351217, 0.7440337441799292, 
    0.7450577854414659, 0.7460800735100638, 0.7471006059801802, 0.7481193804504035, 
    0.7491363945234593, 0.7501516458062150, 0.7511651319096863, 0.7521768504490427, 
    0.7531867990436124, 0.7541949753168891, 0.7552013768965365, 0.7562060014143945, 
    0.7572088465064846, 0.7582099098130152, 0.7592091889783879, 0.7602066816512024, 
    0.7612023854842618, 0.7621962981345789, 0.7631884172633812, 0.7641787405361167, 
    0.7651672656224590, 0.7661539901963128, 0.7671389119358204, 0.7681220285233653, 
    0.7691033376455795, 0.7700828369933479, 0.7710605242618138, 0.7720363971503844, 
    0.7730104533627369, 0.7739826906068227, 0.7749531065948738, 0.7759216990434076, 
    0.7768884656732324, 0.7778534042094530, 0.7788165123814759, 0.7797777879230145, 
    0.7807372285720944, 0.7816948320710594, 0.7826505961665758, 0.7836045186096382,