/* Test for interp: rand */#define NX 250#define NH 21#define I 5#define FNAME "t3"#define MAXERROR 100DATA x[NX] ={-1973,-5242,-6088,-4422,-3499,2999,-12461,-15135,-1357,12119,14229,-7719,-11132,12217,-8590,4778,15298,5404,12136,-16059,-11895,10444,-2289,12790,7697,6138,-5043,-10944,-11285,-10122,-2542,11664,-320,10352,-1286,-1398,-1616,-2877,13159,-16202,-6639,-14774,6330,4918,15826,1725,-3275,-9871,4102,7646,-4067,-16061,-2627,8312,9629,13761,11295,-4334,3958,7578,-10031,13264,2267,4318,-8703,1598,14142,-5401,5096,-3543,4171,6523,-3370,-2831,5086,11061,-4208,-2450,3101,2154,7095,370,9057,-350,-10293,6574,15817,10047,6670,-493,-12629,5401,-4412,-11796,2188,10584,5699,16365,15126,-14456,-4578,1589,-7807,3189,-14770,2328,6581,15148,8208,7864,-2233,4399,9929,-13636,14596,13629,3341,-8076,12237,439,7623,-2549,15118,-14023,1750,-6817,11729,-5382,5904,-14633,-4698,-56,-2149,2046,3821,-12671,13049,8341,9539,10320,5570,-9802,-7436,4136,1207,-14435,-13469,-7494,-2980,-851,13401,3153,-5605,-715,3184,-11094,10796,14946,3130,-15442,10227,3608,6602,-13363,-2462,-4078,-10940,10916,11096,-1586,14961,-11563,12121,8828,-1830,3952,14800,4587,-8280,-4827,-10229,-307,-2973,-1196,3635,-14052,-6086,3551,-10649,3965,-8325,2862,198,-1155,1357,14494,-5186,-3218,-6302,-2898,-7015,-3470,98,7273,-6351,-12709,-1859,-1090,-15904,5375,7342,-7156,-7805,6831,9301,15930,-874,13199,-1604,9978,10776,-10936,-3477,680,7147,2267,-1285,-1793,-13509,-1852,-4382,-6471,11529,8502,14737,1898,-15918,3151,10361,15633,-9113,6674,722,14185,6991,-8912,-1651,-10742,15362,-4728,};DATA rtest[] ={0,94,165,186,137,0,-191,-484,-883,-1384,-1973,-2628,-3317,-4007,-4660,-5241,-5654,-5948,-6117,-6161,-6088,-5849,-5529,-5163,-4783,-4421,-4418,-4397,-4282,-4003,-3498,-1527,415,2005,2947,2999,835,-2132,-5580,-9147,-12460,-14558,-15938,-16509,-16235,-15135,-13419,-11037,-8119,-4829,-1357,1877,4953,7750,10164,12120,14374,15880,16437,15907,14229,10565,6116,1294,-3461,-7719,-10890,-12950,-13717,-13106,-11131,-6181,-622,4787,9293,12218,9441,5171,186,-4675,-8589,-8113,-6195,-3137,669,4779,7988,10841,13121,14650,15299,13844,11743,9374,7136,5404,7204,9338,11237,12337,12137,7350,1458,-4874,-10940,-16059,-18216,-18784,-17803,-15423,-11894,-6976,-1722,3295,7514,10445,8951,6280,3066,-10,-2288,-258,2747,6264,9782,12790,12911,12229,10960,9358,7697,7542,7455,7289,6895,6138,4297,2118,-264,-2702,-5043,-6798,-8269,-9444,-10328,-10943,-11380,-11591,-11614,-11496,-11285,-11375,-11362,-11184,-10786,-10122,-9305,-8163,-6660,-4782,-2541,1073,4655,7833,10265,11665,9939,7372,4460,1728,-319,1284,3618,6227,8628,10353,8968,6775,4096,1288,-1285,-2090,-2392,-2288,-1906,-1397,-1372,-1369,-1402,-1483,-1616,-2604,-3438,-3888,-3753,-2876,1279,5642,9509,12208,13160,8547,2449,-4300,-10807,-16201,-16036,-14421,-11906,-9103,-6639,-8360,-10534,-12661,-14230,-14773,-11441,-7143,-2389,2279,6330,6973,6790,6130,5378,4919,7372,10084,12657,14691,15827,14215,11666,8495,5058,1726,171,-993,-1870,-2585,-3274,-5420,-7401,-8952,-9838,-9870,-7960,-5305,-2193,1053,4103,6219,7706,8463,8440,7647,6344,4393,1904,-975,-4067,-7595,-10842,-13504,-15312,-16060,-14922,-12751,-9779,-6296,-2626,186,2760,5009,6872,8312,9038,9400,9526,9556,9630,10488,11423,12346,13158,13761,14249,14337,13919,12918,11296,7891,4235,727,-2243,-4333,-4096,-2875,-917,1473,3958,5977,7549,8448,8496,7578,3562,-873,-5047,-8295,-10031,-6550,-1713,3732,8985,13265,12741,10907,8208,5152,2268,2469,3075,3789,4301,4318,1645,-1396,-4400,-6959,-8703,-8322,-6918,-4643,-1715,1598,5436,8992,11857,13668,14142,10961,6777,2219,-2050,-5400,-4453,-2429,191,2877,5096,3896,2066,-36,-2029,-3542,-2868,-1550,218,2207,4172,5558,6575,7117,7111,6523,4869,2824,613,-1528,-3369,-4310,-4714,-4574,-3922,-2830,-1663,-206,1467,3265,5086,7372,9335,10732,11358,11062,8619,5484,2035,-1326,-4207,-5187,-5384,-4891,-3851,-2449,-1287,-44,1170,2251,3102,3059,2811,2488,2226,2154,3261,4494,5667,6591,7096,5784,4169,2538,1184,371,1878,3848,5938,7788,9057,8407,6985,4926,2410,-349,-3550,-6453,-8726,-10078,-10292,-8374,-5403,-1679,2442,6574,9590,12110,14026,15270,15817,15478,14560,13225,11656,10048,9316,8680,8077,7432,6671,5703,4533,3124,1450,-493,-3978,-7322,-10114,-11984,-12628,-9730,-5880,-1668,2290,5402,5234,3888,1609,-1280,-4411,-7021,-9281,-10953,-11839,-11795,-10154,-7681,-4611,-1221,2188,4848,7108,8859,10029,10584,9714,8480,7196,6175,5700,7250,9362,11779,14213,16366,18166,19160,19093,17781,15127,9248,2650,-3963,-9882,-14455,-14946,-13791,-11359,-8115,-4577,-2324,-439,915,1614,1590,-172,-2370,-4627,-6559,-7806,-5605,-2879,-157,2027,3190,-47,-4128,-8391,-12153,-14769,-13092,-10076,-6159,-1847,2328,3833,4829,5486,6003,6582,8661,10765,12682,14204,15148,14417,13134,11515,9796,8209,8084,8162,8271,8230,7864,5686,3307,1014,-915,-2232,-2011,-1075,436,2334,4400,6920,9058,10461,10826,9930,4744,-1067,-6628,-11075,-13635,-10148,-4778,1710,8460,14597,16756,17565,17156,15749,13630,12189,10374,8242,5868,3342,-373,-3745,-6370,-7901,-8075,-4668,-276,4453,8841,12237,11129,8875,5976,2981,439,1367,2925,4747,6441,7623,5429,2830,318,-1621,-2548,1263,5732,10053,13424,15118,10345,4102,-2684,-9037,-14023,-12747,-9832,-5945,-1833,1750,438,-1617,-3879,-5788,-6816,-3278,1002,5369,9152,11730,9374,5827,1731,-2228,-5382,-3560,-886,2012,4480,5905,2555,-1811,-6568,-11055,-14633,-14412,-12963,-10601,-7707,-4697,-3056,-1746,-809,-252,-56,-302,-770,-1327,-1832,-2148,-1623,-858,70,1070,2047,3419,4474,4999,4821,3821,-212,-4531,-8464,-11366,-12670,-8964,-3809,2089,7963,13050,13842,13407,12076,10246,8341,8122,8187,8494,8974,9540,9910,10229,10440,10487,10320,10190,9726,8838,7463,5571,2382,-1041,-4402,-7411,-9802,-10924,-11187,-10624,-9326,-7435,-5038,-2436,120,2385,4136,5136,5358,4757,3348,1208,-1801,-5164,-8589,-11775,-14434,-15517,-15857,-15539,-14690,-13469,-12459,-11294,-10037,-8751,-7494,-6328,-5282,-4376,-3612,-2980,-2948,-2889,-2624,-1990,-851,2298,5683,8912,11600,13402,12897,11379,9061,6217,3154,646,-1620,-3492,-4847,-5605,-5493,-4811,-3680,-2256,-715,996,2443,3404,3695,3184,-125,-3791,-7218,-9825,-11094,-8343,-4252,682,5893,10796,13519,15304,16108,15959,14946,13922,12168,9722,6667,3131,-2202,-7289,-11532,-14394,-15442,-11776,-6603,-672,5205,10227,10617,9732,7961,5760,3608,4599,5753,6703,7090,6603,2727,-1765,-6316,-10358,-13363,-12645,-10763,-8125,-5198,-2461,-1643,-1449,-1849,-2765,-4077,-6405,-8634,-10367,-11236,-10939,-7493,-3082,1807,6647,10917,12979,13969,13909,12897,11097,8001,4729,1752,-481,-1586,1723,5798,9872,13165,14962,10195,4186,-2097,-7657,-11562,-8985,-4561,983,6824,12122,13594,13831,12963,11205,8829,6380,3837,1461,-499,-1830,-2054,-1500,-228,1645,3952,6716,9462,11900,13758,14801,14252,12795,10567,7755,4588,1417,-1657,-4418,-6677,-8280,-8240,-7615,-6655,-5635,-4827,-5972,-7340,-8676,-9719,-10228,-8649,-6582,-4307,-2121,-307,-171,-538,-1253,-2130,-2973,-3052,-2908,-2540,-1960,-1195,630,2316,3554,4067,3635,451,-3403,-7440,-11151,-14052,-14223,-13293,-11450,-8948,-6086,-3114,-376,1815,3192,3552,997,-2250,-5643,-8620,-10649,-8392,-5224,-1715,1539,3966,2252,-352,-3342,-6175,-8324,-7015,-4866,-2238,471,2863,3210,2973,2279,1292,198,-345,-784,-1080,-1208,-1154,-1424,-1400,-975,-69,1357,4768,8258,11340,13551,14494,11734,7840,3338,-1194,-5185,-6014,-5965,-5283,-4263,-3218,-3760,-4459,-5197,-5851,-6302,-5670,-4864,-4036,-3335,-2898,-3532,-4415,-5398,-6318,-7014,-6790,-6253,-5466,-4508,-3469,-2911,-2321,-1652,-857,99,2256,4323,6014,7068,7274,5620,3165,154,-3122,-6350,-8878,-10900,-12271,-12890,-12709,-11176,-9052,-6600,-4108,-1858,-250,720,933,328,-1089,-4646,-8461,-11965,-14608,-15903,-13155,-9104,-4275,749,5376,7843,9280,9639,8956,7342,4902,1929,-1280,-4411,-7155,-8914,-9904,-10048,-9333,-7805,-5332,-2361,845,4001,6831,7908,8521,8833,9032,9301,11365,13363,14980,15919,15930,12636,8737,4808,1429,-874,1150,4185,7631,10844,13200,10914,7717,4176,881,-1604,-618,1395,4100,7101,9978,11876,13064,13350,12606,10776,6572,1766,-3108,-7509,-10936,-11239,-10333,-8498,-6083,-3476,-2510,-1675,-910,-148,680,2332,3952,5385,6489,7147,6850,6093,4985,3661,2267,1311,459,-265,-847,-1284,-1051,-820,-766,-1046,-1792,-4429,-7284,-9988,-12172,-13509,-12042,-9763,-7039,-4270,-1852,-1375,-1525,-2186,-3201,-4381,-5747,-6868,-7497,-7419,-6471,-3255,570,4592,8382,11529,11854,11402,10471,9393,8503,9933,11573,13120,14268,14738,13644,11703,9000,5672,1899,-3048,-7761,-11755,-14591,-15918,-14015,-10687,-6369,-1575,3152,5463,7237,8560,9555,10361,12885,14999,16352,16639,15633,10770,5126,-556,-5531,-9113,-7694,-4781,-968,3077,6674,6026,4674,3044,1584,723,3015,5916,9026,11919,14185,14498,13845,12287,9943,6991,3295,-481,-3986,-6890,-8912,-8231,-6756,-4884,-3042,-1650,-3977,-6610,-8977,-10519,-10741,-5738,224,6294,11608,};#pragma DATA_SECTION (h,".coeffs")DATA h[NH] ={0,-1563,-2734,-3091,-2269,0,7323,15301,22878,29011,32765,29011,22878,15301,7323,0,-2269,-3091,-2734,-1563,0,};#pragma DATA_SECTION (dbuffer,".dbuffer")DATA dbuffer[NH];DATA *dp = dbuffer;DATA r[NX];