diff options
author | yash1112 | 2017-07-07 21:20:49 +0530 |
---|---|---|
committer | yash1112 | 2017-07-07 21:20:49 +0530 |
commit | 9e5793a7b05b23e6044a6d7a9ddd5db39ba375f0 (patch) | |
tree | f50d6e06d8fe6bc1a9053ef10d4b4d857800ab51 /2.3-1/src/c/operations/division/testRDivision.c | |
download | Scilab2C-9e5793a7b05b23e6044a6d7a9ddd5db39ba375f0.tar.gz Scilab2C-9e5793a7b05b23e6044a6d7a9ddd5db39ba375f0.tar.bz2 Scilab2C-9e5793a7b05b23e6044a6d7a9ddd5db39ba375f0.zip |
sci2c arduino updated
Diffstat (limited to '2.3-1/src/c/operations/division/testRDivision.c')
-rw-r--r-- | 2.3-1/src/c/operations/division/testRDivision.c | 1434 |
1 files changed, 1434 insertions, 0 deletions
diff --git a/2.3-1/src/c/operations/division/testRDivision.c b/2.3-1/src/c/operations/division/testRDivision.c new file mode 100644 index 00000000..f4dc2228 --- /dev/null +++ b/2.3-1/src/c/operations/division/testRDivision.c @@ -0,0 +1,1434 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt + * + */ +#include <stdlib.h> +#include <stdio.h> +#include <assert.h> +#include <math.h> +#include "division.h" + +#define numD {0.8930737324990332126617,0.7964982418343424797058,0.3105977787636220455170,\ +0.8362775426357984542847,0.8366548125632107257843,0.1730499723926186561584,\ +0.6256599049083888530731,0.9524160288274288177490,0.1760999918915331363678,\ +0.3954342594370245933533,0.7430971986614167690277,0.0099669340997934341431,\ +0.8562883255071938037872,0.4123467626050114631653,0.0013701054267585277557,\ +0.478847078979015350342,0.0607692175544798374176,0.4663597894832491874695,\ +0.2553804158233106136322,0.0834822561591863632202,0.4601755072362720966339,\ +0.1318861627951264381409,0.2567202891223132610321,0.1483882851898670196533,\ +0.3102459297515451908112,0.3355649625882506370544,0.9929056516848504543304,\ +0.8480489421635866165161,0.9932069522328674793243,0.0778191434219479560852,\ +0.3293439703993499279022,0.8298407644033432006836,0.0962639846839010715485,\ +0.0743350265547633171082,0.797786401119083166122,0.1787547301501035690308,\ +0.6209519659169018268585,0.0362136671319603919983,0.8750143120996654033661,\ +0.1926648132503032684326,0.4170953244902193546295,0.8075440963730216026306,\ +0.5955101824365556240082,0.9368934128433465957642,0.4351273146457970142365,\ +0.0791484387591481208801,0.8418628755025565624237,0.0468236580491065979004,\ +0.8905187272466719150543,0.8972489042207598686218,0.1566572873853147029877,\ +0.7473085876554250717163,0.9340659757144749164581,0.6858066553249955177307,\ +0.4195983703248202800751,0.5576272048056125640869,0.9217885569669306278229,\ +0.0012825494632124900818,0.2336195311509072780609,0.6507374066859483718872,\ +0.8781858873553574085236,0.7385697560384869575500,0.3637254047207534313202,\ +0.3355757892131805419922,0.2466035136021673679352,0.0068482486531138420105,\ +0.0723190023563802242279,0.6311543267220258712769,0.5204586987383663654327,\ +0.3941111722961068153381,0.6947632352821528911591,0.4012039266526699066162,\ +0.849075383041054010391,0.8391130855306982994080,0.2989268130622804164886,\ +0.0181148592382669448853,0.2118785199709236621857,0.8294900776818394660950,\ +0.7724645170383155345917,0.0249240621924400329590,0.2546977871097624301910,\ +0.1448017610237002372742,0.18158184876665472984,0.7640993203967809677124,\ +0.3819306720979511737823,0.8632451379671692848206,0.7450340534560382366180,\ +0.4418703205883502960205,0.1983149335719645023346,0.8507903432473540306091,\ +0.2671095184050500392914,0.5968565810471773147583,0.8940604371018707752228,\ +0.4514882611110806465149,0.3733475464396178722382,0.4417422562837600708008,\ +0.6670903661288321018219,0.5977000175043940544128,0.3927405043505132198334,\ +0.0467478167265653610229,0.7761418079026043415070,0.0589983472600579261780,\ +0.2301703463308513164520,0.8336486034095287322998,0.3184757144190371036530,\ +0.0484908362850546836853,0.0728295124135911464691,0.3490902576595544815063,\ +0.3259462383575737476349,0.9053150387480854988098,0.2743762019090354442596,\ +0.7859510257840156555176,0.2731794440187513828278,0.0720554692670702934265,\ +0.2605740218423306941986,0.2215009387582540512085,0.5916113932617008686066,\ +0.0858324700966477394104,0.8001660103909671306610,0.0411078669130802154541,\ +0.2831356064416468143463,0.8018129533156752586365,0.4847330353222787380219,\ +0.5162404496222734451294,0.2271098983474075794220,0.5678930180147290229797,\ +0.7612865674309432506561,0.0055178999900817871094,0.2744725891388952732086,\ +0.5693024424836039543152,0.3613458289764821529388,0.7475566845387220382690,\ +0.7227180902846157550812,0.0618810513988137245178,0.4702493171207606792450,\ +0.7143640778958797454834,0.2654818654991686344147,0.7127769580110907554626,\ +0.4804507023654878139496,0.4940285924822092056274,0.0104847666807472705841,\ +0.7673166813328862190247,0.6725491019897162914276,0.6714572831988334655762,\ +0.6595867448486387729645,0.2607971383258700370789,0.6678037284873425960541,\ +0.6759099271148443222046,0.4446999360807240009308,0.9939495110884308815002,\ +0.9958829130046069622040,0.5640800781548023223877,0.9133111224509775638580,\ +0.4908249890431761741638,0.6215975037775933742523,0.7074729967862367630005,\ +0.1573635679669678211212,0.6578523861244320869446,0.7743686395697295665741,\ +0.8528304547071456909180,0.5792482295073568820953,0.3628176329657435417175,\ +0.924179898109287023544,0.5243524145334959030151,0.7886543427594006061554,\ +0.6525151440873742103577,0.2477638195268809795380,0.2364655844867229461670,\ +0.7240293831564486026764,0.8278210600838065147400,0.4287728047929704189301,\ +0.4858888480812311172485,0.5923984018154442310333,0.0949383648112416267395,\ +0.1356843891553580760956,0.9917455688118934631348,0.7212927364744246006012,\ +0.0115638775750994682312,0.0211908905766904354095,0.1524727698415517807007,\ +0.9165380974300205707550,0.4467271203175187110901,0.5868234331719577312469,\ +0.1882771886885166168213,0.4196520284749567508698,0.2730510598048567771912,\ +0.7565603456459939479828,0.9378882069140672683716,0.0586007428355515003204,\ +0.5101847248151898384094,0.5031699347309768199921,0.7783576548099517822266,\ +0.6856653341092169284821,0.1381576983258128166199,0.371037633623927831650,\ +0.6366564910858869552612,0.4961673622019588947296,0.2994064847007393836975,\ +0.2392275254242122173309,0.5618183575570583343506} + +#define denD {0.3218038142658770084381,0.1082227518782019615173,0.1685282415710389614105,\ +0.8263800088316202163696,0.4923414406366646289825,0.7863734485581517219543,\ +0.6762332352809607982635,0.0258686169981956481934,0.3594204657711088657379,\ +0.3436427963897585868835,0.2824054299853742122650,0.1450859513133764266968,\ +0.0762176741845905780792,0.5220461571589112281799,0.6713762427680194377899,\ +0.0599394328892230987549,0.7267188713885843753815,0.2224657749757170677185,\ +0.3122289828024804592133,0.4435700643807649612427,0.3983507198281586170197,\ +0.1324583934620022773743,0.8820166247896850109100,0.5455272346735000610352,\ +0.2917219498194754123688,0.7739847479388117790222,0.3354639573954045772552,\ +0.8127403985708951950073,0.4612239454872906208038,0.6898109326139092445374,\ +0.9649041066877543926239,0.8210376314818859100342,0.2802407057024538516998,\ +0.9873316427692770957947,0.294199434574693441391,0.4859610591083765029907,\ +0.2247181800194084644318,0.9585652919486165046692,0.1503968122415244579315,\ +0.0216291621327400207520,0.0688429796136915683746,0.9950710041448473930359,\ +0.7568672685883939266205,0.6163959559053182601929,0.0865804632194340229034,\ +0.5165374809876084327698,0.1916800136677920818329,0.2940570451319217681885,\ +0.3528221980668604373932,0.1317937439307570457458,0.0549608371220529079437,\ +0.929352553561329841614,0.737892795819789171219,0.7509917514398694038391,\ +0.6889848816208541393280,0.8865169286727905273438,0.6891661235131323337555,\ +0.8677108911797404289246,0.7947537912987172603607,0.2496256213635206222534,\ +0.3935408894903957843781,0.7297343472018837928772,0.7888072351925075054169,\ +0.113488640636205673218,0.4145256043411791324615,0.6172473421320319175720,\ +0.7440188056789338588715,0.9038409832864999771118,0.3976829168386757373810,\ +0.9472072543576359748840,0.2581262919120490550995,0.1955799385905265808105,\ +0.9381833248771727085114,0.4226356102153658866882,0.0937463282607495784760,\ +0.9977992679923772811890,0.2042182614095509052277,0.9455819511786103248596,\ +0.9336234177462756633759,0.9743702597916126251221,0.4100225553847849369049,\ +0.5125095760449767112732,0.0948633304797112941742,0.5688196588307619094849,\ +0.7322562676854431629181,0.8108531581237912178040,0.5459008770994842052460,\ +0.5022544711828231811523,0.7634959020651876926422,0.7354982374235987663269,\ +0.0699520572088658809662,0.6130836438387632369995,0.0965849910862743854523,\ +0.5439325878396630287170,0.9187005828134715557098,0.5072866193950176239014,\ +0.1335940570570528507233,0.8688194593414664268494,0.7999687767587602138519,\ +0.9879787657409906387329,0.7131399479694664478302,0.3067426951602101325989,\ +0.5431228461675345897675,0.7330236807465553283691,0.6498145484365522861481,\ +0.8018737239763140678406,0.2859625308774411678314,0.1894423719495534896851,\ +0.7794728656299412250519,0.5433104271069169044495,0.5268451268784701824188,\ +0.1533693112432956695557,0.6041304902173578739166,0.5948378806933760643005,\ +0.8857938847504556179047,0.0043053645640611648560,0.1302204323001205921173,\ +0.9758609728887677192688,0.9183407831005752086639,0.0624175965785980224609,\ +0.9939593323506414890289,0.4122588960453867912292,0.8258536770008504390717,\ +0.0376359503716230392456,0.4675730471499264240265,0.4759115139022469520569,\ +0.4060978214256465435028,0.0392968021333217620850,0.4401316107250750064850,\ +0.3316476037725806236267,0.0877817696891725063324,0.1150833908468484878540,\ +0.9667435702867805957794,0.8103649737313389778137,0.3928376468829810619354,\ +0.7880131229758262634277,0.4798596971668303012848,0.0270724548026919364929,\ +0.6701857983134686946869,0.5602217521518468856812,0.2564360727556049823761,\ +0.2626037681475281715393,0.4447338129393756389618,0.8522944338619709014893,\ +0.2347065494395792484283,0.3277532672509551048279,0.2253599218092858791351,\ +0.3468936551362276077271,0.7743145865388214588165,0.1285835551097989082336,\ +0.1156307714991271495819,0.2054340392351150512695,0.4535544612444937229156,\ +0.6516549764201045036316,0.0710035725496709346771,0.1265540253371000289917,\ +0.4974718545563519001007,0.0879269847646355628967,0.1462626229040324687958,\ +0.715134423226118087769,0.9305738122202455997467,0.3140813848003745079041,\ +0.5769402063451707363129,0.1306138429790735244751,0.0478980806656181812286,\ +0.4500174494460225105286,0.0384718659333884716034,0.483350999653339385986,\ +0.2981918179430067539215,0.7112689120694994926453,0.9268360524438321590424,\ +0.9477838929742574691772,0.1729496796615421772003,0.2750928336754441261292,\ +0.0044281478039920330048,0.0611358620226383209229,0.1950612799264490604401,\ +0.3789803450927138328552,0.2549188635312020778656,0.1764185149222612380981,\ +0.6008180272765457630157,0.3703392641618847846985,0.2908470141701400279999,\ +0.5384815335273742675781,0.8090293356217443943024,0.9260985879227519035339,\ +0.1576966657303273677826,0.9518593531101942062378,0.2709982101805508136749,\ +0.1609848598018288612366,0.8782086591236293315887,0.5091647170484066009521,\ +0.7951062084175646305084,0.8432204117998480796814,0.5806765086017549037933,\ +0.3487791065126657485962,0.9397577759809792041779,0.4363934816792607307434,\ +0.5549766751937568187714,0.9105900451540946960449} + +#define resD {2.7752117685005690539413,7.3598039969520661074398,1.8430013620755494319070,\ +1.0119769763285682007137,1.6993385961606277678726,0.2200608028029340801357,\ +0.9252131842476511991435,36.817431287256695782162,0.4899553827958132434794,\ +1.1507130764601400940705,2.6313134230453778528158,0.0686967553341225334318,\ +11.2347737538324832229,0.789866483931406127006,0.0020407415983468750811,\ +7.9888490080310781138451,0.0836213561350959977414,2.0963215107319497221283,\ +0.8179266816651262761440,0.1882053431079252492353,1.155201897048870884888,\ +0.9956799214310265710992,0.2910606012483354931852,0.2720089406327768632998,\ +1.063498752642826117309,0.4335550067128443041398,2.9597983026073131362921,\ +1.0434438150912359599687,2.1534158448419846720867,0.1128122790502419231506,\ +0.3413230062103223549919,1.0107219603388561957047,0.3435046469876847918812,\ +0.0752888121222041739600,2.7117196954249602747211,0.3678375598202789920066,\ +2.7632475746433664554047,0.0377790302195727817347,5.8180376236596496042353,\ +8.9076410851193781326174,6.0586471827734049711012,0.811544194343212454967,\ +0.7868092691433471452811,1.519953860611081841725,5.025698621442897362499,\ +0.1532288394790210228624,4.3920222009250329264773,0.1592332468283501334394,\ +2.5239872437899073531753,6.8079779620811464724284,2.8503439101086094353832,\ +0.8041174307766172368872,1.2658559359923549081373,0.9132013154739780924629,\ +0.6090095465341773817158,0.6290090880051657507011,1.3375418865163728465717,\ +0.0014780838597850658872,0.2939520813976195801054,2.6068534276708055230642,\ +2.2314984562151556346521,1.0121077058665004511084,0.4611080990300331916565,\ +2.9569108179636049982264,0.5949053834541859764329,0.0110948208046701829455,\ +0.0972005032727465967390,0.6983023987549834554756,1.3087278248602665087219,\ +0.4160770206129594250832,2.6915632271929834651303,2.0513552133414121314559,\ +0.9050207571662129968360,1.9854292095810492924102,3.1886775579181523276873,\ +0.0181548131165850216984,1.0375101546183984613236,0.8772270628134669623321,\ +0.8273833992971273421091,0.0255796622915918127339,0.6211799418467155442514,\ +0.2825347423576584082738,1.9141416166649365404595,1.343306808290392950767,\ +0.5215806118057263462973,1.0646134004886980140014,1.364779000566185729326,\ +0.8797737918544228374884,0.2597459043795002364696,1.156753748625715116916,\ +3.8184655185694236223526,0.9735320572410287587317,9.2567222613630804062268,\ +0.8300445150827541196392,0.4063865348776212749193,0.8707942204558346555032,\ +4.9934134857806107277156,0.6879450167442484609381,0.4909447915477189172684,\ +0.0473166209108797850003,1.0883443146222897546238,0.1923382306765068772147,\ +0.4237905806301724420670,1.1372737679640729790975,0.4901024687509485389114,\ +0.0604719107699394076150,0.2546820109268255194479,1.8427253315457512439224,\ +0.4181623924703986028284,1.666294246493322805946,0.5207910027273101594147,\ +5.1245651389620645588252,0.4521861558758028531990,0.1211346345042424582639,\ +0.2941700392476057634994,51.447661507511597278608,4.5431533501455980683659,\ +0.0879556335187422766442,0.8713170808873182959786,0.6585941972519883114146,\ +0.2848563288520584713126,1.944925776028375352666,0.5869478441781880162509,\ +13.71668430117580506078,0.4857206798632796584947,1.1932743827907790201692,\ +1.874638393179189010951,0.1404160056424255120788,0.6236148062319990525992,\ +1.716588439077007199884,4.1164108476734497799043,6.4957825715577062197781,\ +0.7475799296707237306947,0.0763619522125708327653,1.1970576670846393430026,\ +0.9065383012889166591819,0.5532489331081913430666,26.328493784768131291685,\ +0.7168917986244236484339,0.8818447169975360822036,0.0408864734515713840191,\ +2.9219560966155495584928,1.5122508845114404074650,0.7878231471679140174302,\ +2.8102613515624832452033,0.7957117880572708301656,2.9632763586618620088586,\ +1.9484643697199064416026,0.5743142952640584164570,7.7299893461468416333560,\ +8.6126115055119605301570,2.745796559591685781498,2.0136746531937359527831,\ +0.7531976380193472486724,8.7544539162835999235313,5.590284425183250860414,\ +0.316326575113089591973,7.4818030879300874147475,5.2943713451509566425557,\ +1.1925456627578525647948,0.6224634971462769117423,1.1551707631330812020565,\ +1.6018642624403442997760,4.0145240548316589723754,16.46525981416842299154,\ +1.449977428410007318504,6.4401300408945045816722,0.4892212587877478036091,\ +2.4280658944667354859348,1.1638650952354832046609,0.4626199031235405656481,\ +0.5126578449824196193063,3.4252645218814619099135,0.3451139149747912693300,\ +30.641341518238579766376,16.221993703869831193742,3.6977750620030764849844,\ +0.0305131327385077949499,0.0831279815198794347353,0.8642673922787461604500,\ +1.5254836836115013287696,1.206264535110818991726,2.0176360924533236484990,\ +0.3496446525383871128945,0.518710521358847098661,0.2948401642824150514777,\ +4.7975671656860932046129,0.98532225779945714628,0.2162403316114491491629,\ +3.169147244301254939813,0.5729503228003851589278,1.5286951918468318911692,\ +0.8623569113789728568520,0.1638452964283871882145,0.6389747615541933045691,\ +1.8253859798300935413096,0.5279736703258748331535,0.6860929350929130254855,\ +0.4310587023151768448770,0.6169827580994304838669} + +#define numF {0.8930737324990332126617f,0.7964982418343424797058f,0.3105977787636220455170f,\ +0.8362775426357984542847f,0.8366548125632107257843f,0.1730499723926186561584f,\ +0.6256599049083888530731f,0.9524160288274288177490f,0.1760999918915331363678f,\ +0.3954342594370245933533f,0.7430971986614167690277f,0.0099669340997934341431f,\ +0.8562883255071938037872f,0.4123467626050114631653f,0.0013701054267585277557f,\ +0.478847078979015350342f,0.0607692175544798374176f,0.4663597894832491874695f,\ +0.2553804158233106136322f,0.0834822561591863632202f,0.4601755072362720966339f,\ +0.1318861627951264381409f,0.2567202891223132610321f,0.1483882851898670196533f,\ +0.3102459297515451908112f,0.3355649625882506370544f,0.9929056516848504543304f,\ +0.8480489421635866165161f,0.9932069522328674793243f,0.0778191434219479560852f,\ +0.3293439703993499279022f,0.8298407644033432006836f,0.0962639846839010715485f,\ +0.0743350265547633171082f,0.797786401119083166122f,0.1787547301501035690308f,\ +0.6209519659169018268585f,0.0362136671319603919983f,0.8750143120996654033661f,\ +0.1926648132503032684326f,0.4170953244902193546295f,0.8075440963730216026306f,\ +0.5955101824365556240082f,0.9368934128433465957642f,0.4351273146457970142365f,\ +0.0791484387591481208801f,0.8418628755025565624237f,0.0468236580491065979004f,\ +0.8905187272466719150543f,0.8972489042207598686218f,0.1566572873853147029877f,\ +0.7473085876554250717163f,0.9340659757144749164581f,0.6858066553249955177307f,\ +0.4195983703248202800751f,0.5576272048056125640869f,0.9217885569669306278229f,\ +0.0012825494632124900818f,0.2336195311509072780609f,0.6507374066859483718872f,\ +0.8781858873553574085236f,0.7385697560384869575500f,0.3637254047207534313202f,\ +0.3355757892131805419922f,0.2466035136021673679352f,0.0068482486531138420105f,\ +0.0723190023563802242279f,0.6311543267220258712769f,0.5204586987383663654327f,\ +0.3941111722961068153381f,0.6947632352821528911591f,0.4012039266526699066162f,\ +0.849075383041054010391f,0.8391130855306982994080f,0.2989268130622804164886f,\ +0.0181148592382669448853f,0.2118785199709236621857f,0.8294900776818394660950f,\ +0.7724645170383155345917f,0.0249240621924400329590f,0.2546977871097624301910f,\ +0.1448017610237002372742f,0.18158184876665472984f,0.7640993203967809677124f,\ +0.3819306720979511737823f,0.8632451379671692848206f,0.7450340534560382366180f,\ +0.4418703205883502960205f,0.1983149335719645023346f,0.8507903432473540306091f,\ +0.2671095184050500392914f,0.5968565810471773147583f,0.8940604371018707752228f,\ +0.4514882611110806465149f,0.3733475464396178722382f,0.4417422562837600708008f,\ +0.6670903661288321018219f,0.5977000175043940544128f,0.3927405043505132198334f,\ +0.0467478167265653610229f,0.7761418079026043415070f,0.0589983472600579261780f,\ +0.2301703463308513164520f,0.8336486034095287322998f,0.3184757144190371036530f,\ +0.0484908362850546836853f,0.0728295124135911464691f,0.3490902576595544815063f,\ +0.3259462383575737476349f,0.9053150387480854988098f,0.2743762019090354442596f,\ +0.7859510257840156555176f,0.2731794440187513828278f,0.0720554692670702934265f,\ +0.2605740218423306941986f,0.2215009387582540512085f,0.5916113932617008686066f,\ +0.0858324700966477394104f,0.8001660103909671306610f,0.0411078669130802154541f,\ +0.2831356064416468143463f,0.8018129533156752586365f,0.4847330353222787380219f,\ +0.5162404496222734451294f,0.2271098983474075794220f,0.5678930180147290229797f,\ +0.7612865674309432506561f,0.0055178999900817871094f,0.2744725891388952732086f,\ +0.5693024424836039543152f,0.3613458289764821529388f,0.7475566845387220382690f,\ +0.7227180902846157550812f,0.0618810513988137245178f,0.4702493171207606792450f,\ +0.7143640778958797454834f,0.2654818654991686344147f,0.7127769580110907554626f,\ +0.4804507023654878139496f,0.4940285924822092056274f,0.0104847666807472705841f,\ +0.7673166813328862190247f,0.6725491019897162914276f,0.6714572831988334655762f,\ +0.6595867448486387729645f,0.2607971383258700370789f,0.6678037284873425960541f,\ +0.6759099271148443222046f,0.4446999360807240009308f,0.9939495110884308815002f,\ +0.9958829130046069622040f,0.5640800781548023223877f,0.9133111224509775638580f,\ +0.4908249890431761741638f,0.6215975037775933742523f,0.7074729967862367630005f,\ +0.1573635679669678211212f,0.6578523861244320869446f,0.7743686395697295665741f,\ +0.8528304547071456909180f,0.5792482295073568820953f,0.3628176329657435417175f,\ +0.924179898109287023544f,0.5243524145334959030151f,0.7886543427594006061554f,\ +0.6525151440873742103577f,0.2477638195268809795380f,0.2364655844867229461670f,\ +0.7240293831564486026764f,0.8278210600838065147400f,0.4287728047929704189301f,\ +0.4858888480812311172485f,0.5923984018154442310333f,0.0949383648112416267395f,\ +0.1356843891553580760956f,0.9917455688118934631348f,0.7212927364744246006012f,\ +0.0115638775750994682312f,0.0211908905766904354095f,0.1524727698415517807007f,\ +0.9165380974300205707550f,0.4467271203175187110901f,0.5868234331719577312469f,\ +0.1882771886885166168213f,0.4196520284749567508698f,0.2730510598048567771912f,\ +0.7565603456459939479828f,0.9378882069140672683716f,0.0586007428355515003204f,\ +0.5101847248151898384094f,0.5031699347309768199921f,0.7783576548099517822266f,\ +0.6856653341092169284821f,0.1381576983258128166199f,0.371037633623927831650f,\ +0.6366564910858869552612f,0.4961673622019588947296f,0.2994064847007393836975f,\ +0.2392275254242122173309f,0.5618183575570583343506f} + +#define denF {0.3218038142658770084381f,0.1082227518782019615173f,0.1685282415710389614105f,\ +0.8263800088316202163696f,0.4923414406366646289825f,0.7863734485581517219543f,\ +0.6762332352809607982635f,0.0258686169981956481934f,0.3594204657711088657379f,\ +0.3436427963897585868835f,0.2824054299853742122650f,0.1450859513133764266968f,\ +0.0762176741845905780792f,0.5220461571589112281799f,0.6713762427680194377899f,\ +0.0599394328892230987549f,0.7267188713885843753815f,0.2224657749757170677185f,\ +0.3122289828024804592133f,0.4435700643807649612427f,0.3983507198281586170197f,\ +0.1324583934620022773743f,0.8820166247896850109100f,0.5455272346735000610352f,\ +0.2917219498194754123688f,0.7739847479388117790222f,0.3354639573954045772552f,\ +0.8127403985708951950073f,0.4612239454872906208038f,0.6898109326139092445374f,\ +0.9649041066877543926239f,0.8210376314818859100342f,0.2802407057024538516998f,\ +0.9873316427692770957947f,0.294199434574693441391f,0.4859610591083765029907f,\ +0.2247181800194084644318f,0.9585652919486165046692f,0.1503968122415244579315f,\ +0.0216291621327400207520f,0.0688429796136915683746f,0.9950710041448473930359f,\ +0.7568672685883939266205f,0.6163959559053182601929f,0.0865804632194340229034f,\ +0.5165374809876084327698f,0.1916800136677920818329f,0.2940570451319217681885f,\ +0.3528221980668604373932f,0.1317937439307570457458f,0.0549608371220529079437f,\ +0.929352553561329841614f,0.737892795819789171219f,0.7509917514398694038391f,\ +0.6889848816208541393280f,0.8865169286727905273438f,0.6891661235131323337555f,\ +0.8677108911797404289246f,0.7947537912987172603607f,0.2496256213635206222534f,\ +0.3935408894903957843781f,0.7297343472018837928772f,0.7888072351925075054169f,\ +0.113488640636205673218f,0.4145256043411791324615f,0.6172473421320319175720f,\ +0.7440188056789338588715f,0.9038409832864999771118f,0.3976829168386757373810f,\ +0.9472072543576359748840f,0.2581262919120490550995f,0.1955799385905265808105f,\ +0.9381833248771727085114f,0.4226356102153658866882f,0.0937463282607495784760f,\ +0.9977992679923772811890f,0.2042182614095509052277f,0.9455819511786103248596f,\ +0.9336234177462756633759f,0.9743702597916126251221f,0.4100225553847849369049f,\ +0.5125095760449767112732f,0.0948633304797112941742f,0.5688196588307619094849f,\ +0.7322562676854431629181f,0.8108531581237912178040f,0.5459008770994842052460f,\ +0.5022544711828231811523f,0.7634959020651876926422f,0.7354982374235987663269f,\ +0.0699520572088658809662f,0.6130836438387632369995f,0.0965849910862743854523f,\ +0.5439325878396630287170f,0.9187005828134715557098f,0.5072866193950176239014f,\ +0.1335940570570528507233f,0.8688194593414664268494f,0.7999687767587602138519f,\ +0.9879787657409906387329f,0.7131399479694664478302f,0.3067426951602101325989f,\ +0.5431228461675345897675f,0.7330236807465553283691f,0.6498145484365522861481f,\ +0.8018737239763140678406f,0.2859625308774411678314f,0.1894423719495534896851f,\ +0.7794728656299412250519f,0.5433104271069169044495f,0.5268451268784701824188f,\ +0.1533693112432956695557f,0.6041304902173578739166f,0.5948378806933760643005f,\ +0.8857938847504556179047f,0.0043053645640611648560f,0.1302204323001205921173f,\ +0.9758609728887677192688f,0.9183407831005752086639f,0.0624175965785980224609f,\ +0.9939593323506414890289f,0.4122588960453867912292f,0.8258536770008504390717f,\ +0.0376359503716230392456f,0.4675730471499264240265f,0.4759115139022469520569f,\ +0.4060978214256465435028f,0.0392968021333217620850f,0.4401316107250750064850f,\ +0.3316476037725806236267f,0.0877817696891725063324f,0.1150833908468484878540f,\ +0.9667435702867805957794f,0.8103649737313389778137f,0.3928376468829810619354f,\ +0.7880131229758262634277f,0.4798596971668303012848f,0.0270724548026919364929f,\ +0.6701857983134686946869f,0.5602217521518468856812f,0.2564360727556049823761f,\ +0.2626037681475281715393f,0.4447338129393756389618f,0.8522944338619709014893f,\ +0.2347065494395792484283f,0.3277532672509551048279f,0.2253599218092858791351f,\ +0.3468936551362276077271f,0.7743145865388214588165f,0.1285835551097989082336f,\ +0.1156307714991271495819f,0.2054340392351150512695f,0.4535544612444937229156f,\ +0.6516549764201045036316f,0.0710035725496709346771f,0.1265540253371000289917f,\ +0.4974718545563519001007f,0.0879269847646355628967f,0.1462626229040324687958f,\ +0.715134423226118087769f,0.9305738122202455997467f,0.3140813848003745079041f,\ +0.5769402063451707363129f,0.1306138429790735244751f,0.0478980806656181812286f,\ +0.4500174494460225105286f,0.0384718659333884716034f,0.483350999653339385986f,\ +0.2981918179430067539215f,0.7112689120694994926453f,0.9268360524438321590424f,\ +0.9477838929742574691772f,0.1729496796615421772003f,0.2750928336754441261292f,\ +0.0044281478039920330048f,0.0611358620226383209229f,0.1950612799264490604401f,\ +0.3789803450927138328552f,0.2549188635312020778656f,0.1764185149222612380981f,\ +0.6008180272765457630157f,0.3703392641618847846985f,0.2908470141701400279999f,\ +0.5384815335273742675781f,0.8090293356217443943024f,0.9260985879227519035339f,\ +0.1576966657303273677826f,0.9518593531101942062378f,0.2709982101805508136749f,\ +0.1609848598018288612366f,0.8782086591236293315887f,0.5091647170484066009521f,\ +0.7951062084175646305084f,0.8432204117998480796814f,0.5806765086017549037933f,\ +0.3487791065126657485962f,0.9397577759809792041779f,0.4363934816792607307434f,\ +0.5549766751937568187714f,0.9105900451540946960449f} + +#define resF {2.7752117685005690539413f,7.3598039969520661074398f,1.8430013620755494319070f,\ +1.0119769763285682007137f,1.6993385961606277678726f,0.2200608028029340801357f,\ +0.9252131842476511991435f,36.817431287256695782162f,0.4899553827958132434794f,\ +1.1507130764601400940705f,2.6313134230453778528158f,0.0686967553341225334318f,\ +11.2347737538324832229f,0.789866483931406127006f,0.0020407415983468750811f,\ +7.9888490080310781138451f,0.0836213561350959977414f,2.0963215107319497221283f,\ +0.8179266816651262761440f,0.1882053431079252492353f,1.155201897048870884888f,\ +0.9956799214310265710992f,0.2910606012483354931852f,0.2720089406327768632998f,\ +1.063498752642826117309f,0.4335550067128443041398f,2.9597983026073131362921f,\ +1.0434438150912359599687f,2.1534158448419846720867f,0.1128122790502419231506f,\ +0.3413230062103223549919f,1.0107219603388561957047f,0.3435046469876847918812f,\ +0.0752888121222041739600f,2.7117196954249602747211f,0.3678375598202789920066f,\ +2.7632475746433664554047f,0.0377790302195727817347f,5.8180376236596496042353f,\ +8.9076410851193781326174f,6.0586471827734049711012f,0.811544194343212454967f,\ +0.7868092691433471452811f,1.519953860611081841725f,5.025698621442897362499f,\ +0.1532288394790210228624f,4.3920222009250329264773f,0.1592332468283501334394f,\ +2.5239872437899073531753f,6.8079779620811464724284f,2.8503439101086094353832f,\ +0.8041174307766172368872f,1.2658559359923549081373f,0.9132013154739780924629f,\ +0.6090095465341773817158f,0.6290090880051657507011f,1.3375418865163728465717f,\ +0.0014780838597850658872f,0.2939520813976195801054f,2.6068534276708055230642f,\ +2.2314984562151556346521f,1.0121077058665004511084f,0.4611080990300331916565f,\ +2.9569108179636049982264f,0.5949053834541859764329f,0.0110948208046701829455f,\ +0.0972005032727465967390f,0.6983023987549834554756f,1.3087278248602665087219f,\ +0.4160770206129594250832f,2.6915632271929834651303f,2.0513552133414121314559f,\ +0.9050207571662129968360f,1.9854292095810492924102f,3.1886775579181523276873f,\ +0.0181548131165850216984f,1.0375101546183984613236f,0.8772270628134669623321f,\ +0.8273833992971273421091f,0.0255796622915918127339f,0.6211799418467155442514f,\ +0.2825347423576584082738f,1.9141416166649365404595f,1.343306808290392950767f,\ +0.5215806118057263462973f,1.0646134004886980140014f,1.364779000566185729326f,\ +0.8797737918544228374884f,0.2597459043795002364696f,1.156753748625715116916f,\ +3.8184655185694236223526f,0.9735320572410287587317f,9.2567222613630804062268f,\ +0.8300445150827541196392f,0.4063865348776212749193f,0.8707942204558346555032f,\ +4.9934134857806107277156f,0.6879450167442484609381f,0.4909447915477189172684f,\ +0.0473166209108797850003f,1.0883443146222897546238f,0.1923382306765068772147f,\ +0.4237905806301724420670f,1.1372737679640729790975f,0.4901024687509485389114f,\ +0.0604719107699394076150f,0.2546820109268255194479f,1.8427253315457512439224f,\ +0.4181623924703986028284f,1.666294246493322805946f,0.5207910027273101594147f,\ +5.1245651389620645588252f,0.4521861558758028531990f,0.1211346345042424582639f,\ +0.2941700392476057634994f,51.447661507511597278608f,4.5431533501455980683659f,\ +0.0879556335187422766442f,0.8713170808873182959786f,0.6585941972519883114146f,\ +0.2848563288520584713126f,1.944925776028375352666f,0.5869478441781880162509f,\ +13.71668430117580506078f,0.4857206798632796584947f,1.1932743827907790201692f,\ +1.874638393179189010951f,0.1404160056424255120788f,0.6236148062319990525992f,\ +1.716588439077007199884f,4.1164108476734497799043f,6.4957825715577062197781f,\ +0.7475799296707237306947f,0.0763619522125708327653f,1.1970576670846393430026f,\ +0.9065383012889166591819f,0.5532489331081913430666f,26.328493784768131291685f,\ +0.7168917986244236484339f,0.8818447169975360822036f,0.0408864734515713840191f,\ +2.9219560966155495584928f,1.5122508845114404074650f,0.7878231471679140174302f,\ +2.8102613515624832452033f,0.7957117880572708301656f,2.9632763586618620088586f,\ +1.9484643697199064416026f,0.5743142952640584164570f,7.7299893461468416333560f,\ +8.6126115055119605301570f,2.745796559591685781498f,2.0136746531937359527831f,\ +0.7531976380193472486724f,8.7544539162835999235313f,5.590284425183250860414f,\ +0.316326575113089591973f,7.4818030879300874147475f,5.2943713451509566425557f,\ +1.1925456627578525647948f,0.6224634971462769117423f,1.1551707631330812020565f,\ +1.6018642624403442997760f,4.0145240548316589723754f,16.46525981416842299154f,\ +1.449977428410007318504f,6.4401300408945045816722f,0.4892212587877478036091f,\ +2.4280658944667354859348f,1.1638650952354832046609f,0.4626199031235405656481f,\ +0.5126578449824196193063f,3.4252645218814619099135f,0.3451139149747912693300f,\ +30.641341518238579766376f,16.221993703869831193742f,3.6977750620030764849844f,\ +0.0305131327385077949499f,0.0831279815198794347353f,0.8642673922787461604500f,\ +1.5254836836115013287696f,1.206264535110818991726f,2.0176360924533236484990f,\ +0.3496446525383871128945f,0.518710521358847098661f,0.2948401642824150514777f,\ +4.7975671656860932046129f,0.98532225779945714628f,0.2162403316114491491629f,\ +3.169147244301254939813f,0.5729503228003851589278f,1.5286951918468318911692f,\ +0.8623569113789728568520f,0.1638452964283871882145f,0.6389747615541933045691f,\ +1.8253859798300935413096f,0.5279736703258748331535f,0.6860929350929130254855f,\ +0.4310587023151768448770f,0.6169827580994304838669f} + + +#define CnumR {0.3053411715663969516754f,0.8684180630370974540710f,0.3313439427874982357025f,\ +0.2663558926433324813843f,0.7923677195794880390167f,0.5093877995386719703674f,\ +0.5743758822791278362274f,0.5372999198734760284424f,0.4547364399768412113190f,\ +0.8820295548066496849060f,0.6209865263663232326508f,0.3768135774880647659302f,\ +0.9335849327035248279572f,0.9658922599628567695618f,0.1628772872500121593475f,\ +0.0686259418725967407227f,0.842607865575700998306f,0.2468038378283381462097f,\ +0.4037963910959661006927f,0.6407211553305387496948f,0.2586575602181255817413f,\ +0.653272570110857486725f,0.8694754014723002910614f,0.5468569807708263397217f,\ +0.9369539530016481876373f,0.8503103395923972129822f,0.0515501177869737148285f,\ +0.6273802313953638076782f,0.8446539309807121753693f,0.6094277473166584968567f,\ +0.2292158487252891063690f,0.8180890753865242004395f,0.1065300428308546543121f,\ +0.4735511047765612602234f,0.3123670606873929500580f,0.5758922155946493148804f,\ +0.9565085847862064838409f,0.4356113011017441749573f,0.0499714012257754802704f,\ +0.4900149442255496978760f,0.7888170615769922733307f,0.8495545452460646629333f,\ +0.4474280974827706813812f,0.0475020725280046463013f,0.9024910223670303821564f,\ +0.2925249831750988960266f,0.7366607296280562877655f,0.0217677354812622070312f,\ +0.0329902716912329196930f,0.5969691900536417961121f,0.7426943792961537837982f,\ +0.4529420714825391769409f,0.2646744553931057453156f,0.7714125374332070350647f,\ +0.9904671530239284038544f,0.6887647770345211029053f,0.4178880215622484683990f,\ +0.0286574354395270347595f,0.3956260806880891323090f,0.4547755364328622817993f,\ +0.5044045564718544483185f,0.640153449960052967072f,0.8830573889426887035370f,\ +0.4225513264536857604980f,0.3449804955162107944489f,0.8352892948314547538757f,\ +0.7769011496566236019135f,0.2447405960410833358765f,0.9427682091481983661652f,\ +0.4643566990271210670471f,0.3058003033511340618134f,0.5256443209946155548096f,\ +0.7063384638167917728424f,0.6439361488446593284607f,0.0671340576373040676117f,\ +0.6960939336568117141724f,0.1160622579045593738556f,0.1034545050933957099915f,\ +0.7939856606535613536835f,0.2613761276006698608398f,0.9276020326651632785797f,\ +0.4516644952818751335144f,0.2685945495031774044037f,0.3909545373171567916870f,\ +0.5062622581608593463898f,0.0817960808053612709045f,0.7260428736917674541473f,\ +0.3187382929027080535889f,0.3859493941999971866608f,0.9341296991333365440369f,\ +0.5919263935647904872894f,0.5226474497467279434204f,0.6464912262745201587677f,\ +0.8347413809970021247864f,0.8977597537450492382050f,0.1522252932190895080566f,\ +0.2030655764974653720856f,0.6291697425767779350281f,0.2178661315701901912689f,\ +0.6730475183576345443726f,0.6014883895404636859894f,0.8297548526898026466370f,\ +0.4715012605302035808563f,0.1966782845556735992432f,0.413111193571239709854f,\ +0.9953989749774336814880f,0.4339618287049233913422f,0.4649231452494859695435f,\ +0.8230779361911118030548f,0.5624991850927472114563f,0.3004282522015273571014f,\ +0.9571288526058197021484f,0.5056911953724920749664f,0.3458018628880381584167f,\ +0.1462918235920369625092f,0.0892800372093915939331f,0.3806377653963863849640f,\ +0.4279290596023201942444f,0.6277162353508174419403f,0.973642762750387191772f,\ +0.3438236177898943424225f,0.6563267400488257408142f,0.7661834782920777797699f,\ +0.7077049557119607925415f,0.566568237263709306717f,0.4663848998025059700012f,\ +0.1607741150073707103729f,0.6611637100577354431152f,0.4569083326496183872223f,\ +0.2494795573875308036804f,0.4719319283030927181244f,0.7297094669193029403687f,\ +0.8767609228380024433136f,0.9846866214647889137268f,0.5204629446379840373993f,\ +0.0243570692837238311768f,0.7086957977153360843658f,0.3529176330193877220154f,\ +0.845518832560628652573f,0.9650736916810274124146f,0.3660673541016876697540f,\ +0.0522273825481534004211f,0.0653146761469542980194f,0.2474536448717117309570f,\ +0.3402558066882193088531f,0.5330434022471308708191f,0.8843311234377324581146f,\ +0.6511900555342435836792f,0.3787677739746868610382f,0.8720673331990838050842f,\ +0.0907509098760783672333f,0.159093420952558517456f,0.3879462392069399356842f,\ +0.0035981675609946250916f,0.3878797567449510097504f,0.355407038703560829163f,\ +0.6540398863144218921661f,0.0270273657515645027161f,0.4033016446046531200409f,\ +0.5721693113446235656738f,0.4763818108476698398590f,0.8092558486387133598328f,\ +0.7195184617303311824799f,0.7523729261010885238647f,0.8064276059158146381378f,\ +0.6007828647270798683167f,0.2698240275494754314423f,0.4986709095537662506104f,\ +0.9864028231240808963776f,0.8842167323455214500427f,0.9431624910794198513031f,\ +0.2763795573264360427856f,0.1813098085112869739532f,0.173957456834614276886f,\ +0.7417211043648421764374f,0.2395282387733459472656f,0.5980439134873449802399f,\ +0.9858012227341532707214f,0.3350073709152638912201f,0.6487060766667127609253f,\ +0.0853690807707607746124f,0.6952167609706521034241f,0.35416056914255023003f,\ +0.3494555018842220306396f,0.2085028053261339664459f,0.503043591044843196869f,\ +0.2702476507984101772308f,0.2799626830965280532837f,0.3920604703016579151154f,\ +0.2273621382191777229309f,0.2002935144118964672089f,0.4767948314547538757324f,\ +0.2251090579666197299957f,0.1402857257053256034851f,0.4847956537269055843353f,\ +0.5474343802779912948608f,0.5220802356489002704620f,0.5684244418516755104065f,\ +0.3804731811396777629852f,0.0783600397408008575439f} + +#define CnumI {0.2332928166724741458893f,0.4757708823308348655701f,0.7120002261362969875336f,\ +0.9474247265607118606567f,0.7988345962949097156525f,0.7477577673271298408508f,\ +0.8264737087301909923553f,0.0092803686857223510742f,0.0395535626448690891266f,\ +0.3952374337241053581238f,0.6943654878996312618256f,0.1225995849817991256714f,\ +0.1789084826596081256866f,0.397133202292025089264f,0.5007088850252330303192f,\ +0.9878442399203777313232f,0.0894288630224764347076f,0.4005126198753714561462f,\ +0.5702695823274552822113f,0.7643308732658624649048f,0.3575342861004173755646f,\ +0.9968325765803456306458f,0.9704508963041007518768f,0.9353430047631263732910f,\ +0.2604631208814680576324f,0.7931062979623675346375f,0.6356834261678159236908f,\ +0.3900403138250112533569f,0.2490606089122593402863f,0.9967422122135758399963f,\ +0.3570490772835910320282f,0.1909146942198276519775f,0.0301763252355158329010f,\ +0.7328046923503279685974f,0.4808894596062600612640f,0.9955431837588548660278f,\ +0.8424210143275558948517f,0.8124466734007000923157f,0.6601486611180007457733f,\ +0.6013877689838409423828f,0.0190328010357916355133f,0.1712641445919871330261f,\ +0.5022003962658345699310f,0.5823920648545026779175f,0.4316027765162289142609f,\ +0.6963225165382027626038f,0.4569095293991267681122f,0.4861248694360256195068f,\ +0.9084099591709673404694f,0.6606048634275794029236f,0.7886779732070863246918f,\ +0.5602205935865640640259f,0.2211156305857002735138f,0.4836320402100682258606f,\ +0.9762249621562659740448f,0.4768665656447410583496f,0.7335670464672148227692f,\ +0.0370046747848391532898f,0.383851700928062200546f,0.0240872111171483993530f,\ +0.3064605225808918476105f,0.2136170351877808570862f,0.5479403878562152385712f,\ +0.2325751073658466339111f,0.5516138956882059574127f,0.9792927717790007591248f,\ +0.9224376133643090724945f,0.9068189132958650588989f,0.0295983594842255115509f,\ +0.6255925344303250312805f,0.4270721334032714366913f,0.0292781740427017211914f,\ +0.4844796755351126194000f,0.4425434647127985954285f,0.6420570178888738155365f,\ +0.0063550006598234176636f,0.7094187592156231403351f,0.530040563084185123444f,\ +0.9930261741392314434052f,0.2249126248061656951904f,0.1368816406466066837311f,\ +0.9666699310764670372009f,0.7699552453123033046722f,0.8880908284336328506470f,\ +0.7472088006325066089630f,0.0547038884833455085754f,0.3238168838433921337128f,\ +0.5991682484745979309082f,0.3892938815988600254059f,0.8600179655477404594421f,\ +0.2847203998826444149017f,0.6622215565294027328491f,0.1071217735297977924347f,\ +0.7656797701492905616760f,0.1452857847325503826141f,0.5683315135538578033447f,\ +0.5659160749055445194244f,0.2579597299918532371521f,0.0530021092854440212250f,\ +0.6360858995467424392700f,0.1716459286399185657501f,0.6635137097910046577454f,\ +0.1553202974610030651f,0.2751293182373046875000f,0.9776422330178320407867f,\ +0.0564875034615397453308f,0.3412302746437489986420f,0.8415098767727613449097f,\ +0.9720732276327908039093f,0.0542932013049721717834f,0.7230724911205470561981f,\ +0.5535727404057979583740f,0.840029454324394464493f,0.7208074321970343589783f,\ +0.7023338205181062221527f,0.4371505621820688247681f,0.7939680931158363819122f,\ +0.2957414807751774787903f,0.9631778332404792308807f,0.7688007876276969909668f,\ +0.5662666731514036655426f,0.9689332796260714530945f,0.2374594449065625667572f,\ +0.9858398344367742538452f,0.1576361586339771747589f,0.4183112764731049537659f,\ +0.1849739397875964641571f,0.5319241471588611602783f,0.4351434097625315189362f,\ +0.3302801763638854026794f,0.2326903692446649074554f,0.6069281268864870071411f,\ +0.1735930186696350574493f,0.6212785588577389717102f,0.7167193251661956310272f,\ +0.2898689359426498413086f,0.6340185203589498996735f,0.5792583702132105827332f,\ +0.1707650884054601192474f,0.0036281775683164596558f,0.2730329786427319049835f,\ +0.6438362905755639076233f,0.1048121522180736064911f,0.7902204506099224090576f,\ +0.6767889470793306827545f,0.0438669761642813682556f,0.1177961206994950771332f,\ +0.3653587792068719863892f,0.3132978049106895923615f,0.011188176460564136505f,\ +0.6880089822225272655487f,0.4210669174790382385254f,0.1968584679998457431793f,\ +0.7892877263948321342468f,0.484988757874816656113f,0.1450885292142629623413f,\ +0.0583454747684299945831f,0.1556424135342240333557f,0.5466435248963534832001f,\ +0.4258432425558567047119f,0.1151064471341669559479f,0.6764787202700972557068f,\ +0.1653598151169717311859f,0.7116795796900987625122f,0.0342189264483749866486f,\ +0.4127054410055279731750f,0.8268453883938491344452f,0.9931747615337371826172f,\ +0.1828565844334661960602f,0.2957681743428111076355f,0.0454563810490071773529f,\ +0.8772313874214887619019f,0.7595148091204464435577f,0.8921756902709603309631f,\ +0.4397588293068110942841f,0.2217209897935390472412f,0.8998456657864153385162f,\ +0.7754481723532080650330f,0.8920745677314698696136f,0.2994244638830423355103f,\ +0.3508522328920662403107f,0.2242373349145054817200f,0.1357615026645362377167f,\ +0.9600193724036216735840f,0.8071923130191862583160f,0.4653684152290225028992f,\ +0.6139782606624066829681f,0.7588641252368688583374f,0.503341518808156251907f,\ +0.1805540407076478004456f,0.953683211933821439743f,0.5213290341198444366455f,\ +0.1553657338954508304596f,0.4955299710854887962341f,0.8986178687773644924164f,\ +0.3114242423325777053833f,0.8460529488511383533478f,0.1703627156093716621399f,\ +0.0450246590189635753632f,0.2734745293855667114258f} + +#define CdenR {0.9344860189594328403473f,0.3965423358604311943054f,0.0580797134898602962494f,\ +0.7199462261050939559937f,0.8066167463548481464386f,0.5438358867540955543518f,\ +0.4561666990630328655243f,0.6244952566921710968018f,0.8038424537517130374908f,\ +0.3628496741876006126404f,0.7627365640364587306976f,0.6913486588746309280396f,\ +0.3727206629700958728790f,0.2957791136577725410461f,0.3323325174860656261444f,\ +0.0008663684129714965820f,0.5690847137011587619781f,0.4434423623606562614441f,\ +0.3870133324526250362396f,0.8737571369856595993042f,0.7361443494446575641632f,\ +0.9391816863790154457092f,0.5137898693792521953583f,0.4900970868766307830811f,\ +0.9071956784464418888092f,0.6801867028698325157166f,0.9960459745489060878754f,\ +0.7876451406627893447876f,0.5266905096359550952911f,0.1349894972518086433411f,\ +0.3226937535218894481659f,0.1082053259015083312988f,0.5834150635637342929840f,\ +0.4458816153928637504578f,0.7188132195733487606049f,0.5607859548181295394897f,\ +0.7495280583389103412628f,0.5450029307976365089417f,0.0415263171307742595673f,\ +0.5703056789934635162354f,0.6192081705667078495026f,0.5028523867949843406677f,\ +0.8848553202114999294281f,0.5805964190512895584106f,0.6406608712859451770782f,\ +0.8279706137254834175110f,0.2373156058602035045624f,0.3804531693458557128906f,\ +0.8352346369065344333649f,0.9365444211289286613464f,0.5359928025864064693451f,\ +0.0214806776493787765503f,0.8973965351469814777374f,0.5106831649318337440491f,\ +0.4608543138019740581512f,0.7964869998395442962646f,0.7693171859718859195709f,\ +0.9641169896349310874939f,0.3130452162586152553558f,0.2471739295870065689087f,\ +0.2838150975294411182404f,0.7340669455006718635559f,0.3209185334853827953339f,\ +0.6698743030428886413574f,0.9694103770889341831207f,0.6180369807407259941101f,\ +0.7175498842261731624603f,0.0880861785262823104858f,0.6112378169782459735870f,\ +0.8742778087034821510315f,0.9334865058772265911102f,0.1605538912117481231689f,\ +0.6615693555213510990143f,0.3046726500615477561951f,0.7484806529246270656586f,\ +0.9936459828168153762817f,0.0936959129758179187775f,0.0387948499992489814758f,\ +0.7459573703818023204803f,0.3267800062894821166992f,0.7929186024703085422516f,\ +0.2378873704001307487488f,0.9139666422270238399506f,0.0596442054957151412964f,\ +0.0783993159420788288116f,0.4375141570344567298889f,0.7363699148409068584442f,\ +0.5899660699069499969482f,0.4496206850744783878326f,0.7476333817467093467712f,\ +0.6180109954439103603363f,0.9305777642875909805298f,0.1512054172344505786896f,\ +0.6288425596430897712708f,0.9876213255338370800018f,0.0745284333825111389160f,\ +0.6498450064100325107574f,0.4635455412790179252625f,0.9222096293233335018158f,\ +0.5769933816045522689819f,0.6170878191478550434113f,0.6407913798466324806213f,\ +0.6366859371773898601532f,0.8227301277220249176025f,0.5117365554906427860260f,\ +0.3735350733622908592224f,0.6824699840508401393890f,0.9478313345462083816528f,\ +0.3556050849147140979767f,0.9670701818540692329407f,0.1988339829258620738983f,\ +0.8845246136188507080078f,0.7963846572674810886383f,0.7573833195492625236511f,\ +0.0607297732494771480560f,0.4977692048996686935425f,0.0513694887049496173859f,\ +0.4381805220618844032288f,0.2668503443710505962372f,0.2823995314538478851318f,\ +0.8257917226292192935944f,0.9953354885801672935486f,0.4116757339797914028168f,\ +0.5895656291395425796509f,0.7995157656259834766388f,0.9675096990540623664856f,\ +0.5852533015422523021698f,0.8512204512953758239746f,0.7758419984020292758942f,\ +0.251694406382739543915f,0.5444623767398297786713f,0.7714040484279394149780f,\ +0.0861698617227375507355f,0.1724245036020874977112f,0.4995132829062640666962f,\ +0.9530746228992938995361f,0.3442703173495829105377f,0.0334142660722136497498f,\ +0.3594307354651391506195f,0.9292364586144685745239f,0.1439176839776337146759f,\ +0.8703649686649441719055f,0.7802716153673827648163f,0.0671147257089614868164f,\ +0.7936308481730520725250f,0.6236943779513239860535f,0.8598271175287663936615f,\ +0.3141271602362394332886f,0.6822738503105938434601f,0.4499381193891167640686f,\ +0.8225592742674052715302f,0.2544026188552379608154f,0.3692658455111086368561f,\ +0.3905729195103049278259f,0.5385218537412583827972f,0.4445965085178613662720f,\ +0.9931504395790398120880f,0.1170117231085896492004f,0.2200156333856284618378f,\ +0.4977530911564826965332f,0.0922743999399244785309f,0.9705206854268908500671f,\ +0.1397280483506619930267f,0.8839646633714437484741f,0.4313257415778934955597f,\ +0.0158080393448472023010f,0.714107214938849210739f,0.9165776111185550689697f,\ +0.9274811879731714725494f,0.3270348375663161277771f,0.7957203290425240993500f,\ +0.8926953393965959548950f,0.2699130070395767688751f,0.2249975698068737983704f,\ +0.5183464395813643932343f,0.8567280769348144531250f,0.3264052220620214939117f,\ +0.6842326549813151359558f,0.5385535969398915767670f,0.9557395558804273605347f,\ +0.9308291976340115070343f,0.6287928083911538124084f,0.0175103764049708843231f,\ +0.8553405664861202239990f,0.1452286005951464176178f,0.3354452839121222496033f,\ +0.1867817766033113002777f,0.1848793867975473403931f,0.5902637359686195850372f,\ +0.6630419911816716194153f,0.8418594929389655590057f,0.4806790873408317565918f,\ +0.9377652578987181186676f,0.3268114877864718437195f,0.6071765660308301448822f,\ +0.5960717108100652694702f,0.1591472555883228778839f,0.9363228464499115943909f,\ +0.3163564051501452922821f,0.0469793267548084259033f} + +#define CdenI {0.6234297142364084720612f,0.0158713972195982933044f,0.3514461866579949855804f,\ +0.2617919612675905227661f,0.6386203509755432605743f,0.7260363446548581123352f,\ +0.2848846274428069591522f,0.2042924016714096069336f,0.5302058258093893527985f,\ +0.5051602600142359733582f,0.6679541333578526973724f,0.3383778762072324752808f,\ +0.850502327550202608109f,0.3495004484429955482483f,0.3094673226587474346161f,\ +0.4033286087214946746826f,0.8126155347563326358795f,0.9508021911606192588806f,\ +0.8884379244409501552582f,0.9683732483536005020142f,0.5427599516697227954865f,\ +0.4100438626483082771301f,0.2444860520772635936737f,0.2353011742234230041504f,\ +0.2446876191534101963043f,0.7461039228364825248718f,0.1897278516553342342377f,\ +0.0578716751188039779663f,0.8699762006290256977081f,0.9180997842922806739807f,\ +0.1858995254151523113251f,0.6467700041830539703369f,0.3879264430142939090729f,\ +0.5801485544070601463318f,0.730465730186551809311f,0.9288603086024522781372f,\ +0.2488190126605331897736f,0.2872996525838971138000f,0.7954623508267104625702f,\ +0.0294854342937469482422f,0.1342807062901556491852f,0.3713893024250864982605f,\ +0.1628236486576497554779f,0.8465636055916547775269f,0.5885100369341671466827f,\ +0.2055668989196419715881f,0.9999437849037349224091f,0.1852319799363613128662f,\ +0.6241121948696672916412f,0.0762432506307959556580f,0.5192227191291749477386f,\ +0.4217870775610208511353f,0.896293383557349443f,0.3812106968834996223450f,\ +0.0653464826755225658417f,0.1656720861792564392090f,0.5391645305790007114410f,\ +0.37268509995192289352f,0.4740518270991742610931f,0.8882610406726598739624f,\ +0.2579043735750019550323f,0.1640197122469544410706f,0.0461252476088702678680f,\ +0.9871898777782917022705f,0.7705319211818277835846f,0.2188409185037016868591f,\ +0.980386381503194570541f,0.2549843657761812210083f,0.1930382889695465564728f,\ +0.0413558529689908027649f,0.6094057816080749034882f,0.2207349091768264770508f,\ +0.461627910379320383072f,0.2865818915888667106628f,0.2817070647142827510834f,\ +0.3335682284086942672729f,0.3858191226609051227570f,0.0092480191960930824280f,\ +0.2342034350149333477020f,0.4566659145057201385498f,0.4261541278101503849030f,\ +0.270118071697652339935f,0.2986185825429856777191f,0.6405798587948083877563f,\ +0.7902683285064995288849f,0.8184858532622456550598f,0.7856419566087424755096f,\ +0.6445945575833320617676f,0.9410690390504896640778f,0.0695921285077929496765f,\ +0.390568414237350225449f,0.1748862918466329574585f,0.1107735713012516498566f,\ +0.0957134896889328956604f,0.4641722436062991619110f,0.3082291819155216217041f,\ +0.9145566956140100955963f,0.8496730988845229148865f,0.4925655624829232692719f,\ +0.0699981171637773513794f,0.6575574767775833606720f,0.3395233051851391792297f,\ +0.1297910916619002819061f,0.6352185606956481933594f,0.4289954849518835544586f,\ +0.9731501368805766105652f,0.6268993034027516841888f,0.1214132290333509445190f,\ +0.5771463816054165363312f,0.7915496686473488807678f,0.0012599448673427104950f,\ +0.4419956468045711517334f,0.6589268804527819156647f,0.8095262637361884117126f,\ +0.7898579365573823451996f,0.188960576429963111877f,0.4578390833921730518341f,\ +0.1825626911595463752747f,0.7303236457519233226776f,0.0136213228106498718262f,\ +0.1640241914428770542145f,0.4186121178790926933289f,0.2134475349448621273041f,\ +0.4741439130157232284546f,0.3101755906827747821808f,0.3535619759932160377502f,\ +0.8509291852824389934540f,0.8186281509697437286377f,0.5570613131858408451080f,\ +0.1091197049245238304138f,0.0021106950007379055023f,0.672485547140240669250f,\ +0.9224058729596436023712f,0.7518703686073422431946f,0.6034444528631865978241f,\ +0.0988641232252120971680f,0.5468814768828451633453f,0.8722561476752161979675f,\ +0.1444452865980565547943f,0.0008700918406248092651f,0.5909586106427013874054f,\ +0.8022277066484093666077f,0.1338769863359630107880f,0.3343364112079143524170f,\ +0.3563659996725618839264f,0.6903174361214041709900f,0.8999232030473649501801f,\ +0.0998882148414850234985f,0.2259099450893700122833f,0.1528845699504017829895f,\ +0.0680927219800651073456f,0.583055116236209869385f,0.5154030346311628818512f,\ +0.7202821774408221244812f,0.5606091110967099666595f,0.8111803885549306869507f,\ +0.8314522285945713520050f,0.7966960305348038673401f,0.461034744512289762497f,\ +0.6958770193159580230713f,0.0288563207723200321198f,0.3524053459987044334412f,\ +0.5878792009316384792328f,0.8297806400805711746216f,0.3613627743907272815704f,\ +0.0672154026105999946594f,0.1209420370869338512421f,0.4063493311405181884766f,\ +0.9195339330472052097321f,0.1438120333477854728699f,0.1241399361751973628998f,\ +0.2314603012055158615112f,0.9494726066477596759796f,0.5097879925742745399475f,\ +0.3085682312957942485809f,0.2955534420907497406006f,0.1461570323444902896881f,\ +0.6270911982282996177673f,0.8795468038879334926605f,0.8750717584043741226196f,\ +0.5151352104730904102325f,0.6276448490098118782043f,0.8114003571681678295135f,\ +0.6319486722350120544434f,0.8963286154903471469879f,0.993889416567981243134f,\ +0.3937230645678937435150f,0.6798922028392553329468f,0.7436952819116413593292f,\ +0.5029965126886963844299f,0.3928775931708514690399f,0.0862160213291645050049f,\ +0.2545022652484476566315f,0.6535046314820647239685f,0.6724785021506249904633f,\ +0.7779673803597688674927f,0.4419574779458343982697f,0.2931267665699124336243f,\ +0.6166100162081420421600f,0.3211019188165664672852f} + +#define CresR {0.3413653404019424408844f,2.2344175132148005324950f,2.1237218282923966405917f,\ +0.7493983164371829097661f,1.0858058063650062319f,0.9963985742180326843354f,\ +1.7198459262738128305870f,0.7815935562983117312896f,0.4168186594367536690342f,\ +1.3434321178932697726793f,0.911981962098162846075f,0.5097276544552961086154f,\ +0.5800104757173830671846f,2.0248874122369300287971f,1.0139055454283181223474f,\ +2.4495834700657685978342f,0.5610503386826638516638f,0.4454135788712355603636f,\ +0.7059129145012976724871f,0.7641626882509497953322f,0.4596127107989450566450f,\ +0.9734226406968744527148f,2.11268587616383074490f,1.6514323746615073851274f,\ +1.0349501481365763755349f,1.1479258233356381957435f,0.1672526298534715016864f,\ +0.8284385303102398401265f,0.6396332288988267888996f,1.1582175459339878464959f,\ +1.0119106336592462724866f,0.4929993395227346142384f,0.1504653403320495019813f,\ +1.1884643322263739317890f,0.5482451200711300209889f,1.0598086350679480904802f,\ +1.4855469245373162934243f,1.2404193423039560073562f,0.830908077323986193896f,\ +0.9112975150307812688411f,1.2230604711603207945814f,1.2559316454335625046212f,\ +0.5901059335842906428127f,0.4940502601806018856401f,1.09963502912498500841f,\ +0.5294677251535109263614f,0.5980886022378320010517f,0.5491452413615373062683f,\ +0.5468552505333802438159f,0.6902652211980354612919f,1.4501824712567750186309f,\ +1.3793191693357471638848f,0.2708476457471271636734f,1.4239995156368174811234f,\ +2.4012806448426622374370f,0.9482606453144745151107f,0.8124230280115316560341f,\ +0.0387678777428724016807f,0.9476082607188328621461f,0.1573979226170175715893f,\ +1.5108565390498809311026f,0.8925265062168799001796f,2.9364002910736672902203f,\ +0.3601917477926637189967f,0.4952564150219139760267f,1.6995003182761128091016f,\ +0.9903629069483265157103f,3.4734281760775056469015f,1.4164126838708399613864f,\ +0.5637181281840756286172f,0.4391155260043713703944f,1.219532688839149781046f,\ +1.0617216756450393866373f,1.8462770813715381201803f,0.3613617707295509462462f,\ +0.6315225765784978628758f,1.8053180173336429437114f,5.605127943643565480158f,\ +1.349328766634644738431f,0.5965910648384068482031f,0.9796604801276147522771f,\ +2.8448353799993113533162f,0.5142295803637606521619f,1.4308076569382042197986f,\ +0.9992318982023101758827f,0.0935304462073433817704f,0.6805157366122644990725f,\ +0.7520873083410550830052f,0.4963212817230637230459f,1.3448718058840083422467f,\ +0.8924911603158937056790f,0.6716532521789868592776f,3.1200451601260867917631f,\ +1.478499310078411177471f,0.8011780670061466880227f,1.8548329051165655112499f,\ +0.5160221223573354665248f,0.5452818070700454766708f,0.2076910047948466175871f,\ +1.2813550735284107151557f,0.5952417563705699743437f,1.4394238409977426762509f,\ +0.7587547408032722096038f,0.3115367449470753391516f,1.414649105208534374256f,\ +0.3927913048603896561950f,0.5939705886124994060893f,0.5944847773666142032312f,\ +1.8577169333514007565356f,0.3758234853000304576121f,1.5339323343426742862761f,\ +1.116121226627056151059f,0.8950120949596866992692f,0.6879113661687396019673f,\ +0.8981211671217470549067f,0.4481619497382871020186f,1.8047253449076017250974f,\ +1.0717620357356092419820f,1.4405626096661212631744f,3.570753936008602469343f,\ +0.5315872522905110697522f,0.9081793608312455079457f,1.7025195075778205566763f,\ +1.5455421881448592191788f,0.6824200177072907713693f,0.5646419316678596977965f,\ +0.2357892895516306430714f,0.7157266029643406524130f,0.6543068980500212905582f,\ +1.3132657769450220008878f,0.8684289380809445679787f,0.9271940107372679262809f,\ +0.2745953215375174782942f,1.0703580135019064023538f,1.1284422825202322648863f,\ +0.0564974518240219866771f,1.4145448514301877107613f,0.6785956954965183252071f,\ +2.1896764463982005821663f,1.038569068022475949675f,0.5785592848631732065812f,\ +0.4010837209168781058999f,0.1037023542206769177731f,2.4148146045420944005855f,\ +0.6754632195277164852243f,0.4190924885379074260605f,0.5592558922536016163818f,\ +2.2185337467253001264567f,0.6373271305375159956341f,1.7451524244169134281179f,\ +0.1783458684376775515990f,0.7066899058816989986909f,0.6087518348022638026151f,\ +0.8489046778360708200850f,0.7955983798271689666493f,0.3222066680434101937358f,\ +0.4160981511553115685942f,0.1961119885990144917631f,1.3057726707544050626097f,\ +0.7938951027372486146660f,5.0581062357227910553092f,0.9603173499915351740697f,\ +0.5415899445306877613149f,0.8541967975696214132597f,1.1376185966292806650557f,\ +7.8101696249237857472281f,0.5579431766320509522572f,0.8561650695644498210157f,\ +0.6349136758399940294595f,2.5988805040218991848633f,1.1658310378368867965548f,\ +0.5288397109111128147063f,0.7903478048871180883239f,1.5908154714750957214875f,\ +1.4294252157474178765995f,0.3296353175046571881701f,2.5544776256060197638931f,\ +1.3475391966885494898776f,0.9072979951101491913334f,0.5252607760481237120231f,\ +0.2298981251807218351146f,0.7321363209598960031244f,0.1766547027080781206987f,\ +0.8007189844811546386438f,0.9142431669921511350196f,0.5737031361189844913540f,\ +1.5387393815389021067830f,1.1435666477442363309081f,0.6719421582664103498317f,\ +0.3487701038639369754968f,0.6294893055431936002009f,1.1494708028880735728450f,\ +0.2654596481228954640841f,0.6924444380609823257444f,1.0947349491748781247225f,\ +0.5919494967059079071348f,2.071145426993481919453f,0.6047707100555417270016f,\ +0.3084136738554988932393f,0.8687822411868708627480f} + +#define CresI {0.0219109966763084765273f,1.1103670771212392764937f,-0.5918368028005515091294f,\ +1.0434644203834322340185f,0.1306902089737067562680f,0.0447491408259363745992f,\ +0.7377040968923224140141f,-0.2408236963367206551201f,-0.2257234835603764977474f,\ +-0.7810702459548169995784f,0.1117074633441673542356f,-0.0721502465312851976043f,\ +-0.8435050915509633151501f,-1.049992518033896704566f,0.5625036390262730945366f,\ +-0.1648871384055887456821f,-0.6439978954764388197063f,-0.0518389509872686157776f,\ +-0.1469980941163145371497f,0.0278523259422256141971f,0.1468121211307574225380f,\ +0.6363908130534828844205f,0.8834908864782332615917f,1.1156137069476812495594f,\ +0.0079625965633239471214f,-0.0931592189119542501974f,0.6063484612701055542772f,\ +0.4343290787716013179320f,-0.5836541037614180194026f,-0.493498147842463708024f,\ +0.5235160857005297652123f,-1.1824047439401572656692f,-0.0483243591007337727761f,\ +0.0971532051319880102236f,0.1118721601976361557096f,0.0198453756455191573926f,\ +0.6307818500498493241579f,0.8368296783852913200974f,-0.0194438478253851909638f,\ +1.0073856655194393106001f,-0.2344940357203251779517f,-0.5870021518253613068694f,\ +0.4589645174626295065501f,0.2827215082048526451075f,-0.3364392688062524672254f,\ +0.7095438756660266133025f,-0.5947584050308961645115f,1.0103887681286427557836f,\ +0.6789839686067032920036f,0.6491702747352749991450f,0.0666245648735558637643f,\ +-1.0036186112629006395025f,-0.0241179026237156347856f,-0.1159462687897936661319f,\ +1.7778063339362362160756f,0.4014707664509557516475f,0.3841554190219366171632f,\ +0.0233959826824065887652f,-0.2087996335518906843021f,-0.4681854256220141508038f,\ +-0.2931344646872880987942f,0.0915789695713074419769f,1.2853673263170140028677f,\ +-0.1836203292999986358414f,0.1753674426864008650817f,0.9827446901351732932994f,\ +-0.0675920858186050965699f,0.2400947924345945561075f,-0.3989012373127470145739f,\ +0.6888879992257213036311f,0.1708354561724222675512f,-1.4942974066568359692297f,\ +-0.0085262156571510854669f,-0.2841282722500402813104f,0.7218073734380161532442f,\ +-0.2056072987186062794862f,0.1375998721241953604011f,12.326487466095862544080f,\ +0.9075702833828449556108f,-0.1454500841220424389721f,-0.3538884268045125458535f,\ +0.8332871291164858362777f,0.6744192932692324449206f,-0.4770914152325650969821f,\ +-0.5414909663443179255182f,-0.0499400036212993420071f,-0.2863028848988973251721f,\ +0.1938702385181169662864f,-0.1729873927835128832875f,1.0251354376600190221325f,\ +-0.1033289986643653041165f,0.5853982662761465505241f,-1.5773030876847142778274f,\ +0.9925655191551649991766f,-0.2294389866838563163398f,-0.0453802022491614914790f,\ +0.1446261599175696077602f,-0.4430018940967428986433f,-0.0534578318707713412428f,\ +0.9469665933810936797599f,-0.3561239290952777913901f,0.2727810879337961291746f,\ +0.0892758706129039708577f,0.0938769505403498488727f,0.7245215338127788395894f,\ +-0.8720932299519229546902f,-0.0456129563594555031969f,0.8116755927992604924270f,\ +-0.2814959142726781715638f,-0.2514706362757610502712f,3.626843914392277934411f,\ +0.0681179652920591155452f,0.3142726625144375840470f,0.2164361294071718844201f,\ +-0.1161590262194092948445f,0.7080904530777263339303f,-0.6288889647478734801211f,\ +0.2283938107922484916923f,-0.3331421737315601871998f,2.550154357127961901597f,\ +0.5801384184232324381369f,0.5915175342680475401025f,-0.3059183157675403053055f,\ +0.4291810802949616032720f,-0.0675832494807970945994f,0.2260187774838739449557f,\ +-0.0267679793135976069884f,-0.0634263407834385756212f,0.0910679623605792354368f,\ +0.7428730935396401502402f,0.4240097947794032040569f,-0.0215145937633346648332f,\ +-0.924863020672384794629f,-1.0641870004695814788676f,0.0716038804713836907201f,\ +0.2982802795008926421971f,-0.4054077568543104082011f,-0.3786076564490707396793f,\ +-0.4048717571779728574555f,0.0029320062413039386581f,-0.4785486439953212656206f,\ +0.3700468522583569841444f,0.1165347960482350370137f,-0.2553835663348579809728f,\ +0.5494706041406317575948f,-0.393525875328799512598f,-0.448335747177200538705f,\ +0.4576280623833377525500f,0.2481690713632272726752f,-0.5681196823051390953907f,\ +0.8216610616768642572083f,0.0354860822693221777957f,-0.3165580473134032568616f,\ +0.4553229569175886171095f,0.0723630008683885939114f,-0.261538718222994404083f,\ +-0.2896039198710382289725f,-0.0051211050224549813786f,-0.2516323222313812113526f,\ +-0.2543632926363337265485f,-0.3343493853594096121284f,0.3483261689873968225406f,\ +-1.0951963511455886646218f,0.0032621374671314572365f,-0.8737574633254471256905f,\ +-7.1013395362907472119218f,1.0633789830820299382452f,0.7040022037881576988383f,\ +-0.4323193723566287616222f,-0.2384520130907536727971f,-0.124754648028884251865f,\ +0.8455583392591451419307f,0.0337190814024200535837f,0.3608797400846083802683f,\ +-0.0025395781382081018818f,0.1450823667587325949135f,1.6129974683352308328921f,\ +-0.1016931838187624531633f,0.1746595259838300551181f,-0.1676360531992882596519f,\ +0.2496952334332681877616f,-0.3741840755319263966960f,-0.4326683809083690657182f,\ +0.53078982935711849223f,-0.0844874840225433576535f,-0.3125071808699463327130f,\ +0.0435860282499331078143f,-0.1008112495086985055393f,0.0061350643233381426875f,\ +0.0077278585702864046811f,0.8390604068373108681556f,0.8783952661568765751809f,\ +0.0936328696083998102129f,0.1316181510631146966972f,0.2675204528497137079768f,\ +-0.2501262083422521320664f,-0.4354788291243042452905f,-0.0073818204603310075620f,\ +-0.4588062674027434395541f,-0.1169262242084459640923f} + + +#define ZnumR {0.3053411715663969516754,0.8684180630370974540710,0.3313439427874982357025,\ +0.2663558926433324813843,0.7923677195794880390167,0.5093877995386719703674,\ +0.5743758822791278362274,0.5372999198734760284424,0.4547364399768412113190,\ +0.8820295548066496849060,0.6209865263663232326508,0.3768135774880647659302,\ +0.9335849327035248279572,0.9658922599628567695618,0.1628772872500121593475,\ +0.0686259418725967407227,0.842607865575700998306,0.2468038378283381462097,\ +0.4037963910959661006927,0.6407211553305387496948,0.2586575602181255817413,\ +0.653272570110857486725,0.8694754014723002910614,0.5468569807708263397217,\ +0.9369539530016481876373,0.8503103395923972129822,0.0515501177869737148285,\ +0.6273802313953638076782,0.8446539309807121753693,0.6094277473166584968567,\ +0.2292158487252891063690,0.8180890753865242004395,0.1065300428308546543121,\ +0.4735511047765612602234,0.3123670606873929500580,0.5758922155946493148804,\ +0.9565085847862064838409,0.4356113011017441749573,0.0499714012257754802704,\ +0.4900149442255496978760,0.7888170615769922733307,0.8495545452460646629333,\ +0.4474280974827706813812,0.0475020725280046463013,0.9024910223670303821564,\ +0.2925249831750988960266,0.7366607296280562877655,0.0217677354812622070312,\ +0.0329902716912329196930,0.5969691900536417961121,0.7426943792961537837982,\ +0.4529420714825391769409,0.2646744553931057453156,0.7714125374332070350647,\ +0.9904671530239284038544,0.6887647770345211029053,0.4178880215622484683990,\ +0.0286574354395270347595,0.3956260806880891323090,0.4547755364328622817993,\ +0.5044045564718544483185,0.640153449960052967072,0.8830573889426887035370,\ +0.4225513264536857604980,0.3449804955162107944489,0.8352892948314547538757,\ +0.7769011496566236019135,0.2447405960410833358765,0.9427682091481983661652,\ +0.4643566990271210670471,0.3058003033511340618134,0.5256443209946155548096,\ +0.7063384638167917728424,0.6439361488446593284607,0.0671340576373040676117,\ +0.6960939336568117141724,0.1160622579045593738556,0.1034545050933957099915,\ +0.7939856606535613536835,0.2613761276006698608398,0.9276020326651632785797,\ +0.4516644952818751335144,0.2685945495031774044037,0.3909545373171567916870,\ +0.5062622581608593463898,0.0817960808053612709045,0.7260428736917674541473,\ +0.3187382929027080535889,0.3859493941999971866608,0.9341296991333365440369,\ +0.5919263935647904872894,0.5226474497467279434204,0.6464912262745201587677,\ +0.8347413809970021247864,0.8977597537450492382050,0.1522252932190895080566,\ +0.2030655764974653720856,0.6291697425767779350281,0.2178661315701901912689,\ +0.6730475183576345443726,0.6014883895404636859894,0.8297548526898026466370,\ +0.4715012605302035808563,0.1966782845556735992432,0.413111193571239709854,\ +0.9953989749774336814880,0.4339618287049233913422,0.4649231452494859695435,\ +0.8230779361911118030548,0.5624991850927472114563,0.3004282522015273571014,\ +0.9571288526058197021484,0.5056911953724920749664,0.3458018628880381584167,\ +0.1462918235920369625092,0.0892800372093915939331,0.3806377653963863849640,\ +0.4279290596023201942444,0.6277162353508174419403,0.973642762750387191772,\ +0.3438236177898943424225,0.6563267400488257408142,0.7661834782920777797699,\ +0.7077049557119607925415,0.566568237263709306717,0.4663848998025059700012,\ +0.1607741150073707103729,0.6611637100577354431152,0.4569083326496183872223,\ +0.2494795573875308036804,0.4719319283030927181244,0.7297094669193029403687,\ +0.8767609228380024433136,0.9846866214647889137268,0.5204629446379840373993,\ +0.0243570692837238311768,0.7086957977153360843658,0.3529176330193877220154,\ +0.845518832560628652573,0.9650736916810274124146,0.3660673541016876697540,\ +0.0522273825481534004211,0.0653146761469542980194,0.2474536448717117309570,\ +0.3402558066882193088531,0.5330434022471308708191,0.8843311234377324581146,\ +0.6511900555342435836792,0.3787677739746868610382,0.8720673331990838050842,\ +0.0907509098760783672333,0.159093420952558517456,0.3879462392069399356842,\ +0.0035981675609946250916,0.3878797567449510097504,0.355407038703560829163,\ +0.6540398863144218921661,0.0270273657515645027161,0.4033016446046531200409,\ +0.5721693113446235656738,0.4763818108476698398590,0.8092558486387133598328,\ +0.7195184617303311824799,0.7523729261010885238647,0.8064276059158146381378,\ +0.6007828647270798683167,0.2698240275494754314423,0.4986709095537662506104,\ +0.9864028231240808963776,0.8842167323455214500427,0.9431624910794198513031,\ +0.2763795573264360427856,0.1813098085112869739532,0.173957456834614276886,\ +0.7417211043648421764374,0.2395282387733459472656,0.5980439134873449802399,\ +0.9858012227341532707214,0.3350073709152638912201,0.6487060766667127609253,\ +0.0853690807707607746124,0.6952167609706521034241,0.35416056914255023003,\ +0.3494555018842220306396,0.2085028053261339664459,0.503043591044843196869,\ +0.2702476507984101772308,0.2799626830965280532837,0.3920604703016579151154,\ +0.2273621382191777229309,0.2002935144118964672089,0.4767948314547538757324,\ +0.2251090579666197299957,0.1402857257053256034851,0.4847956537269055843353,\ +0.5474343802779912948608,0.5220802356489002704620,0.5684244418516755104065,\ +0.3804731811396777629852,0.0783600397408008575439} + +#define ZnumI {0.2332928166724741458893,0.4757708823308348655701,0.7120002261362969875336,\ +0.9474247265607118606567,0.7988345962949097156525,0.7477577673271298408508,\ +0.8264737087301909923553,0.0092803686857223510742,0.0395535626448690891266,\ +0.3952374337241053581238,0.6943654878996312618256,0.1225995849817991256714,\ +0.1789084826596081256866,0.397133202292025089264,0.5007088850252330303192,\ +0.9878442399203777313232,0.0894288630224764347076,0.4005126198753714561462,\ +0.5702695823274552822113,0.7643308732658624649048,0.3575342861004173755646,\ +0.9968325765803456306458,0.9704508963041007518768,0.9353430047631263732910,\ +0.2604631208814680576324,0.7931062979623675346375,0.6356834261678159236908,\ +0.3900403138250112533569,0.2490606089122593402863,0.9967422122135758399963,\ +0.3570490772835910320282,0.1909146942198276519775,0.0301763252355158329010,\ +0.7328046923503279685974,0.4808894596062600612640,0.9955431837588548660278,\ +0.8424210143275558948517,0.8124466734007000923157,0.6601486611180007457733,\ +0.6013877689838409423828,0.0190328010357916355133,0.1712641445919871330261,\ +0.5022003962658345699310,0.5823920648545026779175,0.4316027765162289142609,\ +0.6963225165382027626038,0.4569095293991267681122,0.4861248694360256195068,\ +0.9084099591709673404694,0.6606048634275794029236,0.7886779732070863246918,\ +0.5602205935865640640259,0.2211156305857002735138,0.4836320402100682258606,\ +0.9762249621562659740448,0.4768665656447410583496,0.7335670464672148227692,\ +0.0370046747848391532898,0.383851700928062200546,0.0240872111171483993530,\ +0.3064605225808918476105,0.2136170351877808570862,0.5479403878562152385712,\ +0.2325751073658466339111,0.5516138956882059574127,0.9792927717790007591248,\ +0.9224376133643090724945,0.9068189132958650588989,0.0295983594842255115509,\ +0.6255925344303250312805,0.4270721334032714366913,0.0292781740427017211914,\ +0.4844796755351126194000,0.4425434647127985954285,0.6420570178888738155365,\ +0.0063550006598234176636,0.7094187592156231403351,0.530040563084185123444,\ +0.9930261741392314434052,0.2249126248061656951904,0.1368816406466066837311,\ +0.9666699310764670372009,0.7699552453123033046722,0.8880908284336328506470,\ +0.7472088006325066089630,0.0547038884833455085754,0.3238168838433921337128,\ +0.5991682484745979309082,0.3892938815988600254059,0.8600179655477404594421,\ +0.2847203998826444149017,0.6622215565294027328491,0.1071217735297977924347,\ +0.7656797701492905616760,0.1452857847325503826141,0.5683315135538578033447,\ +0.5659160749055445194244,0.2579597299918532371521,0.0530021092854440212250,\ +0.6360858995467424392700,0.1716459286399185657501,0.6635137097910046577454,\ +0.1553202974610030651,0.2751293182373046875000,0.9776422330178320407867,\ +0.0564875034615397453308,0.3412302746437489986420,0.8415098767727613449097,\ +0.9720732276327908039093,0.0542932013049721717834,0.7230724911205470561981,\ +0.5535727404057979583740,0.840029454324394464493,0.7208074321970343589783,\ +0.7023338205181062221527,0.4371505621820688247681,0.7939680931158363819122,\ +0.2957414807751774787903,0.9631778332404792308807,0.7688007876276969909668,\ +0.5662666731514036655426,0.9689332796260714530945,0.2374594449065625667572,\ +0.9858398344367742538452,0.1576361586339771747589,0.4183112764731049537659,\ +0.1849739397875964641571,0.5319241471588611602783,0.4351434097625315189362,\ +0.3302801763638854026794,0.2326903692446649074554,0.6069281268864870071411,\ +0.1735930186696350574493,0.6212785588577389717102,0.7167193251661956310272,\ +0.2898689359426498413086,0.6340185203589498996735,0.5792583702132105827332,\ +0.1707650884054601192474,0.0036281775683164596558,0.2730329786427319049835,\ +0.6438362905755639076233,0.1048121522180736064911,0.7902204506099224090576,\ +0.6767889470793306827545,0.0438669761642813682556,0.1177961206994950771332,\ +0.3653587792068719863892,0.3132978049106895923615,0.011188176460564136505,\ +0.6880089822225272655487,0.4210669174790382385254,0.1968584679998457431793,\ +0.7892877263948321342468,0.484988757874816656113,0.1450885292142629623413,\ +0.0583454747684299945831,0.1556424135342240333557,0.5466435248963534832001,\ +0.4258432425558567047119,0.1151064471341669559479,0.6764787202700972557068,\ +0.1653598151169717311859,0.7116795796900987625122,0.0342189264483749866486,\ +0.4127054410055279731750,0.8268453883938491344452,0.9931747615337371826172,\ +0.1828565844334661960602,0.2957681743428111076355,0.0454563810490071773529,\ +0.8772313874214887619019,0.7595148091204464435577,0.8921756902709603309631,\ +0.4397588293068110942841,0.2217209897935390472412,0.8998456657864153385162,\ +0.7754481723532080650330,0.8920745677314698696136,0.2994244638830423355103,\ +0.3508522328920662403107,0.2242373349145054817200,0.1357615026645362377167,\ +0.9600193724036216735840,0.8071923130191862583160,0.4653684152290225028992,\ +0.6139782606624066829681,0.7588641252368688583374,0.503341518808156251907,\ +0.1805540407076478004456,0.953683211933821439743,0.5213290341198444366455,\ +0.1553657338954508304596,0.4955299710854887962341,0.8986178687773644924164,\ +0.3114242423325777053833,0.8460529488511383533478,0.1703627156093716621399,\ +0.0450246590189635753632,0.2734745293855667114258} + +#define ZdenR {0.9344860189594328403473,0.3965423358604311943054,0.0580797134898602962494,\ +0.7199462261050939559937,0.8066167463548481464386,0.5438358867540955543518,\ +0.4561666990630328655243,0.6244952566921710968018,0.8038424537517130374908,\ +0.3628496741876006126404,0.7627365640364587306976,0.6913486588746309280396,\ +0.3727206629700958728790,0.2957791136577725410461,0.3323325174860656261444,\ +0.0008663684129714965820,0.5690847137011587619781,0.4434423623606562614441,\ +0.3870133324526250362396,0.8737571369856595993042,0.7361443494446575641632,\ +0.9391816863790154457092,0.5137898693792521953583,0.4900970868766307830811,\ +0.9071956784464418888092,0.6801867028698325157166,0.9960459745489060878754,\ +0.7876451406627893447876,0.5266905096359550952911,0.1349894972518086433411,\ +0.3226937535218894481659,0.1082053259015083312988,0.5834150635637342929840,\ +0.4458816153928637504578,0.7188132195733487606049,0.5607859548181295394897,\ +0.7495280583389103412628,0.5450029307976365089417,0.0415263171307742595673,\ +0.5703056789934635162354,0.6192081705667078495026,0.5028523867949843406677,\ +0.8848553202114999294281,0.5805964190512895584106,0.6406608712859451770782,\ +0.8279706137254834175110,0.2373156058602035045624,0.3804531693458557128906,\ +0.8352346369065344333649,0.9365444211289286613464,0.5359928025864064693451,\ +0.0214806776493787765503,0.8973965351469814777374,0.5106831649318337440491,\ +0.4608543138019740581512,0.7964869998395442962646,0.7693171859718859195709,\ +0.9641169896349310874939,0.3130452162586152553558,0.2471739295870065689087,\ +0.2838150975294411182404,0.7340669455006718635559,0.3209185334853827953339,\ +0.6698743030428886413574,0.9694103770889341831207,0.6180369807407259941101,\ +0.7175498842261731624603,0.0880861785262823104858,0.6112378169782459735870,\ +0.8742778087034821510315,0.9334865058772265911102,0.1605538912117481231689,\ +0.6615693555213510990143,0.3046726500615477561951,0.7484806529246270656586,\ +0.9936459828168153762817,0.0936959129758179187775,0.0387948499992489814758,\ +0.7459573703818023204803,0.3267800062894821166992,0.7929186024703085422516,\ +0.2378873704001307487488,0.9139666422270238399506,0.0596442054957151412964,\ +0.0783993159420788288116,0.4375141570344567298889,0.7363699148409068584442,\ +0.5899660699069499969482,0.4496206850744783878326,0.7476333817467093467712,\ +0.6180109954439103603363,0.9305777642875909805298,0.1512054172344505786896,\ +0.6288425596430897712708,0.9876213255338370800018,0.0745284333825111389160,\ +0.6498450064100325107574,0.4635455412790179252625,0.9222096293233335018158,\ +0.5769933816045522689819,0.6170878191478550434113,0.6407913798466324806213,\ +0.6366859371773898601532,0.8227301277220249176025,0.5117365554906427860260,\ +0.3735350733622908592224,0.6824699840508401393890,0.9478313345462083816528,\ +0.3556050849147140979767,0.9670701818540692329407,0.1988339829258620738983,\ +0.8845246136188507080078,0.7963846572674810886383,0.7573833195492625236511,\ +0.0607297732494771480560,0.4977692048996686935425,0.0513694887049496173859,\ +0.4381805220618844032288,0.2668503443710505962372,0.2823995314538478851318,\ +0.8257917226292192935944,0.9953354885801672935486,0.4116757339797914028168,\ +0.5895656291395425796509,0.7995157656259834766388,0.9675096990540623664856,\ +0.5852533015422523021698,0.8512204512953758239746,0.7758419984020292758942,\ +0.251694406382739543915,0.5444623767398297786713,0.7714040484279394149780,\ +0.0861698617227375507355,0.1724245036020874977112,0.4995132829062640666962,\ +0.9530746228992938995361,0.3442703173495829105377,0.0334142660722136497498,\ +0.3594307354651391506195,0.9292364586144685745239,0.1439176839776337146759,\ +0.8703649686649441719055,0.7802716153673827648163,0.0671147257089614868164,\ +0.7936308481730520725250,0.6236943779513239860535,0.8598271175287663936615,\ +0.3141271602362394332886,0.6822738503105938434601,0.4499381193891167640686,\ +0.8225592742674052715302,0.2544026188552379608154,0.3692658455111086368561,\ +0.3905729195103049278259,0.5385218537412583827972,0.4445965085178613662720,\ +0.9931504395790398120880,0.1170117231085896492004,0.2200156333856284618378,\ +0.4977530911564826965332,0.0922743999399244785309,0.9705206854268908500671,\ +0.1397280483506619930267,0.8839646633714437484741,0.4313257415778934955597,\ +0.0158080393448472023010,0.714107214938849210739,0.9165776111185550689697,\ +0.9274811879731714725494,0.3270348375663161277771,0.7957203290425240993500,\ +0.8926953393965959548950,0.2699130070395767688751,0.2249975698068737983704,\ +0.5183464395813643932343,0.8567280769348144531250,0.3264052220620214939117,\ +0.6842326549813151359558,0.5385535969398915767670,0.9557395558804273605347,\ +0.9308291976340115070343,0.6287928083911538124084,0.0175103764049708843231,\ +0.8553405664861202239990,0.1452286005951464176178,0.3354452839121222496033,\ +0.1867817766033113002777,0.1848793867975473403931,0.5902637359686195850372,\ +0.6630419911816716194153,0.8418594929389655590057,0.4806790873408317565918,\ +0.9377652578987181186676,0.3268114877864718437195,0.6071765660308301448822,\ +0.5960717108100652694702,0.1591472555883228778839,0.9363228464499115943909,\ +0.3163564051501452922821,0.0469793267548084259033} + +#define ZdenI {0.6234297142364084720612,0.0158713972195982933044,0.3514461866579949855804,\ +0.2617919612675905227661,0.6386203509755432605743,0.7260363446548581123352,\ +0.2848846274428069591522,0.2042924016714096069336,0.5302058258093893527985,\ +0.5051602600142359733582,0.6679541333578526973724,0.3383778762072324752808,\ +0.850502327550202608109,0.3495004484429955482483,0.3094673226587474346161,\ +0.4033286087214946746826,0.8126155347563326358795,0.9508021911606192588806,\ +0.8884379244409501552582,0.9683732483536005020142,0.5427599516697227954865,\ +0.4100438626483082771301,0.2444860520772635936737,0.2353011742234230041504,\ +0.2446876191534101963043,0.7461039228364825248718,0.1897278516553342342377,\ +0.0578716751188039779663,0.8699762006290256977081,0.9180997842922806739807,\ +0.1858995254151523113251,0.6467700041830539703369,0.3879264430142939090729,\ +0.5801485544070601463318,0.730465730186551809311,0.9288603086024522781372,\ +0.2488190126605331897736,0.2872996525838971138000,0.7954623508267104625702,\ +0.0294854342937469482422,0.1342807062901556491852,0.3713893024250864982605,\ +0.1628236486576497554779,0.8465636055916547775269,0.5885100369341671466827,\ +0.2055668989196419715881,0.9999437849037349224091,0.1852319799363613128662,\ +0.6241121948696672916412,0.0762432506307959556580,0.5192227191291749477386,\ +0.4217870775610208511353,0.896293383557349443,0.3812106968834996223450,\ +0.0653464826755225658417,0.1656720861792564392090,0.5391645305790007114410,\ +0.37268509995192289352,0.4740518270991742610931,0.8882610406726598739624,\ +0.2579043735750019550323,0.1640197122469544410706,0.0461252476088702678680,\ +0.9871898777782917022705,0.7705319211818277835846,0.2188409185037016868591,\ +0.980386381503194570541,0.2549843657761812210083,0.1930382889695465564728,\ +0.0413558529689908027649,0.6094057816080749034882,0.2207349091768264770508,\ +0.461627910379320383072,0.2865818915888667106628,0.2817070647142827510834,\ +0.3335682284086942672729,0.3858191226609051227570,0.0092480191960930824280,\ +0.2342034350149333477020,0.4566659145057201385498,0.4261541278101503849030,\ +0.270118071697652339935,0.2986185825429856777191,0.6405798587948083877563,\ +0.7902683285064995288849,0.8184858532622456550598,0.7856419566087424755096,\ +0.6445945575833320617676,0.9410690390504896640778,0.0695921285077929496765,\ +0.390568414237350225449,0.1748862918466329574585,0.1107735713012516498566,\ +0.0957134896889328956604,0.4641722436062991619110,0.3082291819155216217041,\ +0.9145566956140100955963,0.8496730988845229148865,0.4925655624829232692719,\ +0.0699981171637773513794,0.6575574767775833606720,0.3395233051851391792297,\ +0.1297910916619002819061,0.6352185606956481933594,0.4289954849518835544586,\ +0.9731501368805766105652,0.6268993034027516841888,0.1214132290333509445190,\ +0.5771463816054165363312,0.7915496686473488807678,0.0012599448673427104950,\ +0.4419956468045711517334,0.6589268804527819156647,0.8095262637361884117126,\ +0.7898579365573823451996,0.188960576429963111877,0.4578390833921730518341,\ +0.1825626911595463752747,0.7303236457519233226776,0.0136213228106498718262,\ +0.1640241914428770542145,0.4186121178790926933289,0.2134475349448621273041,\ +0.4741439130157232284546,0.3101755906827747821808,0.3535619759932160377502,\ +0.8509291852824389934540,0.8186281509697437286377,0.5570613131858408451080,\ +0.1091197049245238304138,0.0021106950007379055023,0.672485547140240669250,\ +0.9224058729596436023712,0.7518703686073422431946,0.6034444528631865978241,\ +0.0988641232252120971680,0.5468814768828451633453,0.8722561476752161979675,\ +0.1444452865980565547943,0.0008700918406248092651,0.5909586106427013874054,\ +0.8022277066484093666077,0.1338769863359630107880,0.3343364112079143524170,\ +0.3563659996725618839264,0.6903174361214041709900,0.8999232030473649501801,\ +0.0998882148414850234985,0.2259099450893700122833,0.1528845699504017829895,\ +0.0680927219800651073456,0.583055116236209869385,0.5154030346311628818512,\ +0.7202821774408221244812,0.5606091110967099666595,0.8111803885549306869507,\ +0.8314522285945713520050,0.7966960305348038673401,0.461034744512289762497,\ +0.6958770193159580230713,0.0288563207723200321198,0.3524053459987044334412,\ +0.5878792009316384792328,0.8297806400805711746216,0.3613627743907272815704,\ +0.0672154026105999946594,0.1209420370869338512421,0.4063493311405181884766,\ +0.9195339330472052097321,0.1438120333477854728699,0.1241399361751973628998,\ +0.2314603012055158615112,0.9494726066477596759796,0.5097879925742745399475,\ +0.3085682312957942485809,0.2955534420907497406006,0.1461570323444902896881,\ +0.6270911982282996177673,0.8795468038879334926605,0.8750717584043741226196,\ +0.5151352104730904102325,0.6276448490098118782043,0.8114003571681678295135,\ +0.6319486722350120544434,0.8963286154903471469879,0.993889416567981243134,\ +0.3937230645678937435150,0.6798922028392553329468,0.7436952819116413593292,\ +0.5029965126886963844299,0.3928775931708514690399,0.0862160213291645050049,\ +0.2545022652484476566315,0.6535046314820647239685,0.6724785021506249904633,\ +0.7779673803597688674927,0.4419574779458343982697,0.2931267665699124336243,\ +0.6166100162081420421600,0.3211019188165664672852} + +#define ZresR {0.3413653404019424408844,2.2344175132148005324950,2.1237218282923966405917,\ +0.7493983164371829097661,1.0858058063650062319,0.9963985742180326843354,\ +1.7198459262738128305870,0.7815935562983117312896,0.4168186594367536690342,\ +1.3434321178932697726793,0.911981962098162846075,0.5097276544552961086154,\ +0.5800104757173830671846,2.0248874122369300287971,1.0139055454283181223474,\ +2.4495834700657685978342,0.5610503386826638516638,0.4454135788712355603636,\ +0.7059129145012976724871,0.7641626882509497953322,0.4596127107989450566450,\ +0.9734226406968744527148,2.11268587616383074490,1.6514323746615073851274,\ +1.0349501481365763755349,1.1479258233356381957435,0.1672526298534715016864,\ +0.8284385303102398401265,0.6396332288988267888996,1.1582175459339878464959,\ +1.0119106336592462724866,0.4929993395227346142384,0.1504653403320495019813,\ +1.1884643322263739317890,0.5482451200711300209889,1.0598086350679480904802,\ +1.4855469245373162934243,1.2404193423039560073562,0.830908077323986193896,\ +0.9112975150307812688411,1.2230604711603207945814,1.2559316454335625046212,\ +0.5901059335842906428127,0.4940502601806018856401,1.09963502912498500841,\ +0.5294677251535109263614,0.5980886022378320010517,0.5491452413615373062683,\ +0.5468552505333802438159,0.6902652211980354612919,1.4501824712567750186309,\ +1.3793191693357471638848,0.2708476457471271636734,1.4239995156368174811234,\ +2.4012806448426622374370,0.9482606453144745151107,0.8124230280115316560341,\ +0.0387678777428724016807,0.9476082607188328621461,0.1573979226170175715893,\ +1.5108565390498809311026,0.8925265062168799001796,2.9364002910736672902203,\ +0.3601917477926637189967,0.4952564150219139760267,1.6995003182761128091016,\ +0.9903629069483265157103,3.4734281760775056469015,1.4164126838708399613864,\ +0.5637181281840756286172,0.4391155260043713703944,1.219532688839149781046,\ +1.0617216756450393866373,1.8462770813715381201803,0.3613617707295509462462,\ +0.6315225765784978628758,1.8053180173336429437114,5.605127943643565480158,\ +1.349328766634644738431,0.5965910648384068482031,0.9796604801276147522771,\ +2.8448353799993113533162,0.5142295803637606521619,1.4308076569382042197986,\ +0.9992318982023101758827,0.0935304462073433817704,0.6805157366122644990725,\ +0.7520873083410550830052,0.4963212817230637230459,1.3448718058840083422467,\ +0.8924911603158937056790,0.6716532521789868592776,3.1200451601260867917631,\ +1.478499310078411177471,0.8011780670061466880227,1.8548329051165655112499,\ +0.5160221223573354665248,0.5452818070700454766708,0.2076910047948466175871,\ +1.2813550735284107151557,0.5952417563705699743437,1.4394238409977426762509,\ +0.7587547408032722096038,0.3115367449470753391516,1.414649105208534374256,\ +0.3927913048603896561950,0.5939705886124994060893,0.5944847773666142032312,\ +1.8577169333514007565356,0.3758234853000304576121,1.5339323343426742862761,\ +1.116121226627056151059,0.8950120949596866992692,0.6879113661687396019673,\ +0.8981211671217470549067,0.4481619497382871020186,1.8047253449076017250974,\ +1.0717620357356092419820,1.4405626096661212631744,3.570753936008602469343,\ +0.5315872522905110697522,0.9081793608312455079457,1.7025195075778205566763,\ +1.5455421881448592191788,0.6824200177072907713693,0.5646419316678596977965,\ +0.2357892895516306430714,0.7157266029643406524130,0.6543068980500212905582,\ +1.3132657769450220008878,0.8684289380809445679787,0.9271940107372679262809,\ +0.2745953215375174782942,1.0703580135019064023538,1.1284422825202322648863,\ +0.0564974518240219866771,1.4145448514301877107613,0.6785956954965183252071,\ +2.1896764463982005821663,1.038569068022475949675,0.5785592848631732065812,\ +0.4010837209168781058999,0.1037023542206769177731,2.4148146045420944005855,\ +0.6754632195277164852243,0.4190924885379074260605,0.5592558922536016163818,\ +2.2185337467253001264567,0.6373271305375159956341,1.7451524244169134281179,\ +0.1783458684376775515990,0.7066899058816989986909,0.6087518348022638026151,\ +0.8489046778360708200850,0.7955983798271689666493,0.3222066680434101937358,\ +0.4160981511553115685942,0.1961119885990144917631,1.3057726707544050626097,\ +0.7938951027372486146660,5.0581062357227910553092,0.9603173499915351740697,\ +0.5415899445306877613149,0.8541967975696214132597,1.1376185966292806650557,\ +7.8101696249237857472281,0.5579431766320509522572,0.8561650695644498210157,\ +0.6349136758399940294595,2.5988805040218991848633,1.1658310378368867965548,\ +0.5288397109111128147063,0.7903478048871180883239,1.5908154714750957214875,\ +1.4294252157474178765995,0.3296353175046571881701,2.5544776256060197638931,\ +1.3475391966885494898776,0.9072979951101491913334,0.5252607760481237120231,\ +0.2298981251807218351146,0.7321363209598960031244,0.1766547027080781206987,\ +0.8007189844811546386438,0.9142431669921511350196,0.5737031361189844913540,\ +1.5387393815389021067830,1.1435666477442363309081,0.6719421582664103498317,\ +0.3487701038639369754968,0.6294893055431936002009,1.1494708028880735728450,\ +0.2654596481228954640841,0.6924444380609823257444,1.0947349491748781247225,\ +0.5919494967059079071348,2.071145426993481919453,0.6047707100555417270016,\ +0.3084136738554988932393,0.8687822411868708627480} + +#define ZresI {0.0219109966763084765273,1.1103670771212392764937,-0.5918368028005515091294,\ +1.0434644203834322340185,0.1306902089737067562680,0.0447491408259363745992,\ +0.7377040968923224140141,-0.2408236963367206551201,-0.2257234835603764977474,\ +-0.7810702459548169995784,0.1117074633441673542356,-0.0721502465312851976043,\ +-0.8435050915509633151501,-1.049992518033896704566,0.5625036390262730945366,\ +-0.1648871384055887456821,-0.6439978954764388197063,-0.0518389509872686157776,\ +-0.1469980941163145371497,0.0278523259422256141971,0.1468121211307574225380,\ +0.6363908130534828844205,0.8834908864782332615917,1.1156137069476812495594,\ +0.0079625965633239471214,-0.0931592189119542501974,0.6063484612701055542772,\ +0.4343290787716013179320,-0.5836541037614180194026,-0.493498147842463708024,\ +0.5235160857005297652123,-1.1824047439401572656692,-0.0483243591007337727761,\ +0.0971532051319880102236,0.1118721601976361557096,0.0198453756455191573926,\ +0.6307818500498493241579,0.8368296783852913200974,-0.0194438478253851909638,\ +1.0073856655194393106001,-0.2344940357203251779517,-0.5870021518253613068694,\ +0.4589645174626295065501,0.2827215082048526451075,-0.3364392688062524672254,\ +0.7095438756660266133025,-0.5947584050308961645115,1.0103887681286427557836,\ +0.6789839686067032920036,0.6491702747352749991450,0.0666245648735558637643,\ +-1.0036186112629006395025,-0.0241179026237156347856,-0.1159462687897936661319,\ +1.7778063339362362160756,0.4014707664509557516475,0.3841554190219366171632,\ +0.0233959826824065887652,-0.2087996335518906843021,-0.4681854256220141508038,\ +-0.2931344646872880987942,0.0915789695713074419769,1.2853673263170140028677,\ +-0.1836203292999986358414,0.1753674426864008650817,0.9827446901351732932994,\ +-0.0675920858186050965699,0.2400947924345945561075,-0.3989012373127470145739,\ +0.6888879992257213036311,0.1708354561724222675512,-1.4942974066568359692297,\ +-0.0085262156571510854669,-0.2841282722500402813104,0.7218073734380161532442,\ +-0.2056072987186062794862,0.1375998721241953604011,12.326487466095862544080,\ +0.9075702833828449556108,-0.1454500841220424389721,-0.3538884268045125458535,\ +0.8332871291164858362777,0.6744192932692324449206,-0.4770914152325650969821,\ +-0.5414909663443179255182,-0.0499400036212993420071,-0.2863028848988973251721,\ +0.1938702385181169662864,-0.1729873927835128832875,1.0251354376600190221325,\ +-0.1033289986643653041165,0.5853982662761465505241,-1.5773030876847142778274,\ +0.9925655191551649991766,-0.2294389866838563163398,-0.0453802022491614914790,\ +0.1446261599175696077602,-0.4430018940967428986433,-0.0534578318707713412428,\ +0.9469665933810936797599,-0.3561239290952777913901,0.2727810879337961291746,\ +0.0892758706129039708577,0.0938769505403498488727,0.7245215338127788395894,\ +-0.8720932299519229546902,-0.0456129563594555031969,0.8116755927992604924270,\ +-0.2814959142726781715638,-0.2514706362757610502712,3.626843914392277934411,\ +0.0681179652920591155452,0.3142726625144375840470,0.2164361294071718844201,\ +-0.1161590262194092948445,0.7080904530777263339303,-0.6288889647478734801211,\ +0.2283938107922484916923,-0.3331421737315601871998,2.550154357127961901597,\ +0.5801384184232324381369,0.5915175342680475401025,-0.3059183157675403053055,\ +0.4291810802949616032720,-0.0675832494807970945994,0.2260187774838739449557,\ +-0.0267679793135976069884,-0.0634263407834385756212,0.0910679623605792354368,\ +0.7428730935396401502402,0.4240097947794032040569,-0.0215145937633346648332,\ +-0.924863020672384794629,-1.0641870004695814788676,0.0716038804713836907201,\ +0.2982802795008926421971,-0.4054077568543104082011,-0.3786076564490707396793,\ +-0.4048717571779728574555,0.0029320062413039386581,-0.4785486439953212656206,\ +0.3700468522583569841444,0.1165347960482350370137,-0.2553835663348579809728,\ +0.5494706041406317575948,-0.393525875328799512598,-0.448335747177200538705,\ +0.4576280623833377525500,0.2481690713632272726752,-0.5681196823051390953907,\ +0.8216610616768642572083,0.0354860822693221777957,-0.3165580473134032568616,\ +0.4553229569175886171095,0.0723630008683885939114,-0.261538718222994404083,\ +-0.2896039198710382289725,-0.0051211050224549813786,-0.2516323222313812113526,\ +-0.2543632926363337265485,-0.3343493853594096121284,0.3483261689873968225406,\ +-1.0951963511455886646218,0.0032621374671314572365,-0.8737574633254471256905,\ +-7.1013395362907472119218,1.0633789830820299382452,0.7040022037881576988383,\ +-0.4323193723566287616222,-0.2384520130907536727971,-0.124754648028884251865,\ +0.8455583392591451419307,0.0337190814024200535837,0.3608797400846083802683,\ +-0.0025395781382081018818,0.1450823667587325949135,1.6129974683352308328921,\ +-0.1016931838187624531633,0.1746595259838300551181,-0.1676360531992882596519,\ +0.2496952334332681877616,-0.3741840755319263966960,-0.4326683809083690657182,\ +0.53078982935711849223,-0.0844874840225433576535,-0.3125071808699463327130,\ +0.0435860282499331078143,-0.1008112495086985055393,0.0061350643233381426875,\ +0.0077278585702864046811,0.8390604068373108681556,0.8783952661568765751809,\ +0.0936328696083998102129,0.1316181510631146966972,0.2675204528497137079768,\ +-0.2501262083422521320664,-0.4354788291243042452905,-0.0073818204603310075620,\ +-0.4588062674027434395541,-0.1169262242084459640923} + + + + + + + + + +static void srdivsTest() +{ + float tIn1[]=numF; + float tIn2[]=denF; + float tRes[]=resF; + int i =0; + float out=0; + + for(i=0;i<200;i++){ + out=srdivs(tIn1[i],tIn2[i]); + assert( (fabs(out-tRes[i]) / fabs(out) ) <1e-6); + } +} + + +static void drdivsTest() +{ + double tIn1[]=numD; + double tIn2[]=denD; + double tRes[]=resD; + int i =0; + double out=0; + + for(i=0;i<200;i++){ + out=drdivs(tIn1[i],tIn2[i]); + /* +printf("%d : %f ; num = %f;erreur = %1.25f\n",i,out,tIn1[i],fabs(out-tRes[i]) / fabs(out)); + */ + assert( (fabs(out-tRes[i]) / fabs(out) ) <3e-16); + } +} + + +static void crdivsTest() +{ + float NR[]=CnumR; + float NI[]=CnumI; + float DR[]=CdenR; + float DI[]=CdenI; + float RR[]=CresR; + float RI[]=CresI; + int i=0; + floatComplex in1,in2,out; + + for (i=0;i<200;i++){ + in1 = FloatComplex(NR[i],NI[i]); + in2 = FloatComplex(DR[i],DI[i]); + out = crdivs(in1,in2); + assert( ( fabs(creals(out)-RR[i]) / fabs(creals(out)) ) < 1e-6); + if (( fabs(cimags(out)-RI[i]) / fabs(cimags(out)) ) >= 1e-5 ) + { + printf("%d : %1.25f ; num = %1.25f;erreur = %1.25f\n",i,cimags(out),RI[i], fabs(cimags(out)-RI[i]) / fabs(cimags(out))); + } + assert( ( fabs(cimags(out)-RI[i]) / fabs(cimags(out)) ) < 1e-5); + } +} + + +static void zrdivsTest() +{ + double NR[]=ZnumR; + double NI[]=ZnumI; + double DR[]=ZdenR; + double DI[]=ZdenI; + double RR[]=ZresR; + double RI[]=ZresI; + int i=0; + doubleComplex in1,in2,out; + + for (i=0;i<200;i++){ + in1 = DoubleComplex(NR[i],NI[i]); + in2 = DoubleComplex(DR[i],DI[i]); + out = zrdivs(in1,in2); + printf("%d : %1.25f ; num = %1.25f;erreur = %1.25f\n",i,zreals(out),RR[i], fabs(zreals(out)-RR[i]) ); + assert( ( fabs(zreals(out)-RR[i]) ) < 1e-14); + printf("%d : %1.25f ; num = %1.25f;erreur = %1.25f\n",i,zimags(out),RI[i], fabs(zimags(out)-RI[i]) ); + assert( ( fabs(zimags(out)-RI[i]) ) < 1e-14); + } +} + + + +static void srdivaTest() +{ + float tIn1[]=numF; + float tIn2[]=denF; + float tRes[]=resF; + int i =0; + float out[200]; + + srdiva(tIn1,tIn2,200,out); + for(i=0;i<200;i++){ + assert( (fabs(out[i]-tRes[i]) / fabs(out[i]) ) <1e-6); + } +} + + +static void drdivaTest() +{ + double tIn1[]=numD; + double tIn2[]=denD; + double tRes[]=resD; + int i =0; + double out[200]; + + drdiva(tIn1,tIn2,200,out); + for(i=0;i<200;i++){ + printf("%d : %f ; num = %f;erreur = %1.25f\n",i,out[i],tIn1[i],fabs(out[i]-tRes[i]) / fabs(out[i])); + assert( (fabs(out[i]-tRes[i]) / fabs(out[i]) ) <1e-16); + } +} + + +static void crdivaTest() +{ + float NR[]=CnumR; + float NI[]=CnumI; + float DR[]=CdenR; + float DI[]=CdenI; + float RR[]=CresR; + float RI[]=CresI; + int i=0; + floatComplex in1[200],in2[200],out[200]; + + for (i=0;i<200;i++){ + in1[i] = FloatComplex(NR[i],NI[i]); + in2[i] = FloatComplex(DR[i],DI[i]); + } + + crdiva(in1,in2,200,out); + + for (i=0;i<200;i++){ + assert( ( fabs(creals(out[i])-RR[i]) ) < 1e-6); + assert( ( fabs(cimags(out[i])-RI[i]) ) < 3e-6); + } +} + + +static void zrdivaTest() +{ + double NR[]=ZnumR; + double NI[]=ZnumI; + double DR[]=ZdenR; + double DI[]=ZdenI; + double RR[]=ZresR; + double RI[]=ZresI; + int i=0; + doubleComplex in1[200],in2[200],out[200]; + + for (i=0;i<200;i++){ + in1[i] = DoubleComplex(NR[i],NI[i]); + in2[i] = DoubleComplex(DR[i],DI[i]); + } + + zrdiva(in1,in2,200,out); + + for (i=0;i<200;i++){ + assert( ( fabs(zreals(out[i])-RR[i]) ) < 1e-14); + assert( ( fabs(zimags(out[i])-RI[i]) ) < 1e-14); + } +} + + +static int testRDivision(void) { + printf(">>>SCALAIRES<<<\n");printf("\n");printf("\n"); + srdivsTest(); + drdivsTest(); + crdivsTest(); + zrdivsTest(); + printf(">>>ARRAYS<<<\n");printf("\n");printf("\n"); + srdivaTest(); + drdivaTest(); + crdivaTest(); + zrdivaTest(); + return 0; +} + + + +int main(void) { + assert(testRDivision() == 0); + return 0; +} |