path: root/2.3-1/src/c/elementaryFunctions/log1p/testDoubleLog1p.c

/*
 *  Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 *  Copyright (C) 2006-2008 - INRIA - Bruno JOFRET
 *
 *  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 "testLog1p.h"
#include "math.h"

#define SOURCE {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,\
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}

#define RESULT {-1.0138549594808059506335,-0.0788485313675790222554,-0.6455912738997077182646,\
-0.2374271494900490608870,-0.4269209307253117313685,-1.3952793271990111545477,\
-1.4419526017799386696794,-0.3229233029497151630238,-0.1889582589621221220266,\
-0.8468280928949678543205,-0.7217753888910144466351,-0.5235758944053595653756,\
-2.354527389398466841186,-1.9974237581445692946147,-0.0082886876471943305572,\
-0.3267102095711482134810,-4.459869041610169837497,-3.8541838794260296907623,\
-1.8807692572941765440930,-0.0871516441756800402940,-0.8058073398690168698266,\
-0.5330312996797691438289,-1.6698399941066854879068,-0.8683294147345963498452,\
-1.2980964690333058886296,-0.2789729794097077220094,-0.0641245194730828693697,\
-2.8370079061049158219987,-0.6729824133243695882811,-0.6868273235307851276588,\
-0.2505691498856313370602,-0.3773656214470872405364,-1.9793595047655996310709,\
-0.9914517831797942104544,-0.4515250293249062352174,-0.7008419853775434971155,\
-1.205953148244055972427,-1.4303401906823356437570,-0.5765766885249945516989,\
-1.1338131915858427056776,-2.2235636585360341044293,-1.7806519374711546888079,\
-0.1907005521377241608061,-0.7085828181522180191365,-0.240323473997209546837,\
-0.3912172398408133022762,-3.6547247438886865111840,-1.0232623619826317629133,\
-1.0681525436893481995071,-1.264411545554370741584,-1.93042894450046809141,\
-2.5741618985048786427683,-0.6499992713325659643431,-0.3984255796794416437656,\
-2.8144206784459675496635,-0.3192155730871417684824,-1.502982009541258934249,\
-1.1640184411209602011184,-0.8128995091446955534309,-0.9204224561330225373723,\
-2.0214866944753584476757,-0.1255443741850884864508,-0.6060025488810325544620,\
-1.231954157015291428934,-0.2562031110919770759971,-1.092240757863258915350,\
-0.2073435333764902521736,-0.7738715719712579987899,-0.3713377296431035756719,\
-0.0357265538888332026546,-0.1971863344268207918208,-1.2721063818886333418590,\
-0.0127492850765575892191,-1.223497392724554932997,-0.7216267835832522736794,\
-1.4929081951001816896962,-0.0423175999341945593968,-1.8944780628936490618486,\
-3.8337127761178795282149,-2.6759270254015836698613,-0.0049411834200203501311,\
-0.2785673796390666367984,-0.483865736386189515539,-2.446681086792801718133,\
-0.6606074257995434573232,-1.651927892749795789840,-1.2239814994040887352611,\
-1.0417910371382139711471,-2.026517124423018234580,-2.9011343997056400212387,\
-0.0732671142462539837226,-0.3039567280501898061118,-0.2863606107139139989037,\
-0.3725359507043504159185,-0.1204550575726043570857,-0.3722729288835950889336,\
-0.1418966944811957953121,-0.2297229087732643171282,-1.3877929980613914473508,\
-0.9325703042223095762253,-0.3150747190128889152483,-0.2372333033314831252092,\
-2.1760525295696577785520,-0.8806205346832632896437,-0.4824854567490562962107,\
-0.2956889680183093505050,-0.1011018375069230867958,-0.9221002825850308504130,\
-0.0542373561426655603768,-1.3543063102932182406590,-1.6317860900845253535607,\
-0.0638099067725128449302,-0.8612449127611128130155,-2.3671627801172654415041,\
-0.0022031571770593774348,-1.5885659482121525787335,-0.0559547196755256631695,\
-0.0686821150485829451382,-0.0259639040526286474231,-0.8915431076633286711086,\
-0.6684358831783273613425,-2.3553180497276513527538,-0.5641918391516044239964,\
-0.3116247338224413798713,-0.2096683039932461523058,-0.6053178634921361211951,\
-0.6886483730214458809371,-0.2698475216395072595610,-0.3072071353764207479742,\
-2.659945168598087494871,-0.4892539023727084379622,-2.3373319216128076725170,\
-0.6089299592172232600262,-0.0847950173155939540548,-0.6786791108759814283857,\
-2.0129495019748864237386,-0.1406199321004115432299,-0.2231825811274127380202,\
-0.0120940736302183569906,-0.3380775973662459854552,-1.181746009333312530387,\
-0.6104197485997391314783,-0.3105772710053884000381,-0.4310682668987352861301,\
-0.2208041349135003439397,-1.25189448766300226445,-1.6636704065163092636226,\
-0.2491374010581904052675,-0.6100744334370675758805,-0.6408486505219985751580,\
-1.8749064671471911136535,-0.5039650609751163967687,-0.5194663799859419173188,\
-0.1212709911627764675091,-5.4478934608177302933996,-2.038526631411456513376,\
-0.0244351485261014196582,-0.0851867338269072515988,-2.7739080469083896574034,\
-0.0060589862906551463645,-0.8861037385262900967220,-0.1913376676415258770270,\
-3.2797955584796012473703,-0.7601996918711692030612,-0.7425233371947113081291,\
-0.9011612089296217043000,-3.2366121340710831688625,-0.8206814815116268979622,\
-1.1036823082060371881141,-2.4329014344197728014763,-2.1620982756055884266289,\
-0.0338219993709664781822,-0.2102705479450195091840,-0.9343588647242980771424,\
-0.2382405357403041268327,-0.7342615153765646995865,-3.609238495954611991579,\
-0.4002002941250653034189,-0.5794225876492602456125,-1.36087587445700952671,\
-1.337108967835097139698,-0.8102793489627861944768,-0.1598232322015146200656,\
-1.449419270934711789778,-1.1154941876589379301521,-1.4900565023732303959747,\
-1.05873701535465292167,-0.2557770454111949476328,-2.0511763516400991491651,\
-2.1573531687271665369110,-1.5826302735280548539265,-0.7906399256902217898002,\
-0.4282400343889684046772,-2.6450250856057104797969,-2.0670859842226763092299,\
-0.6982162977399214431884,-2.4312485274946018520836,-1.9223514861397812403254,\
-0.3352847494467096622905,-0.0719538807151878373469}

#define ZSOURCER {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,\
0.5684339576400816440582,0.1862502051517367362976,0.0800832151435315608978,\
0.6585252787917852401733,0.1606054832227528095245,0.9711584830656647682190,\
0.3668168033473193645477,0.7386338301002979278564,0.9722552285529673099518,\
0.1349937235936522483826,0.4595781317912042140961,0.5414639282971620559692,\
0.6397600513882935047150,0.0211964594200253486633,0.4408156829886138439178,\
0.6374878138303756713867,0.3208820023573935031891,0.4267518399283289909363,\
0.7819778784178197383881,0.0543234180659055709839,0.9666189108975231647491,\
0.6948409983888268470764,0.1846996019594371318817,0.3645029179751873016357,\
0.8176643461920320987701,0.664914294146001338959,0.7559730983339250087738,\
0.5525381658226251602173,0.7192269531078636646271,0.1989364298060536384583,\
0.8610532465390861034393,0.1300329938530921936035,0.347959163133054971695,\
0.5025534434244036674500,0.4978472082875669002533,0.4675923939794301986694,\
0.9447452803142368793488,0.9599315756931900978088,0.5365384514443576335907,\
0.8122785724699497222900,0.6470989421941339969635,0.7010180121287703514099,\
0.6681951484642922878265,0.9593638796359300613403,0.0149199557490646839142,\
0.6199735002592206001282,0.4061129498295485973358,0.0471306145191192626953,\
0.8433605083264410495758,0.0635268418118357658386,0.9836421324871480464935,\
0.4434677045792341232300,0.8565507535822689533234,0.9080012599006295204163,\
0.4922491232864558696747,0.1930142603814601898193,0.3759337724186480045319,\
0.2437626412138342857361,0.1035623974166810512543,0.9936000052839517593384,\
0.5569599089212715625763,0.3858396532014012336731,0.7191527518443763256073,\
0.1707325801253318786621,0.2878904812969267368317,0.4294657362625002861023,\
0.8917979537509381771088,0.6188817229121923446655,0.3444608678109943866730,\
0.0692929709330201148987,0.3619817639701068401337,0.1783103235065937042236,\
0.8941529677249491214752,0.9010278200730681419373,0.0533773354254662990570,\
0.4162023533135652542114,0.9438270372338593006134,0.9242387460544705390930,\
0.8710649865679442882538,0.2808376699686050415039,0.8244629004038870334625,\
0.4650857029482722282410,0.1462343498133122920990,0.5975636970251798629761,\
0.3067605351097881793976,0.2377215037122368812561,0.0711208949796855449677,\
0.8753139786422252655029,0.4413500339724123477936,0.7631150623783469200134,\
0.9679268277250230312347,0.3924236092716455459595,0.717360940296202898026,\
0.8640465112403035163879,0.7354763629846274852753,0.0304915383458137512207,\
0.6331009590066969394684,0.4550241930410265922546,0.3173553734086453914642,\
0.8250397499650716781616,0.2725940425880253314972,0.3458735281601548194885,\
0.5352854127995669841766,0.7017193175852298736572,0.9817278520204126834869,\
0.2777477568015456199646,0.1314821145497262477875,0.366813333705067634583,\
0.7377605927176773548126,0.9103105561807751655579,0.3637479650788009166718,\
0.8207867145538330078125,0.3059372254647314548492,0.9788405327126383781433,\
0.9970494522713124752045,0.4636328797787427902222,0.7769650523550808429718,\
0.3400075891986489295959,0.0353285889141261577606,0.2607673071324825286865,\
0.5790986777283251285553,0.1250711670145392417908,0.0372988111339509487152,\
0.9382179621607065200806,0.5585843441076576709747,0.7192503632977604866028,\
0.3599752518348395824432,0.6758626028895378112793,0.2222136431373655796051,\
0.7860159231349825859070,0.1736893891356885433197,0.2674629595130681991577,\
0.7357366015203297138214,0.0550541067495942115784,0.5923380698077380657196,\
0.2162457890808582305908,0.7718841419555246829987,0.0926524316892027854919,\
0.7626169077120721340179,0.7347808051854372024536,0.8017499190755188465118,\
0.7732572900131344795227,0.2559880572371184825897,0.1179054826498031616,\
0.9232815303839743137360,0.6709534404799342155457,0.6071323617361485958099,\
0.4574467372149229049683,0.8206311021931469440460,0.0896153757348656654358,\
0.3426358769647777080536,0.1674894802272319793701,0.9481152505613863468170,\
0.9504805644974112510681,0.3436607695184648036957,0.2889420483261346817017,\
0.5325344172306358814240,0.2558945687487721443176,0.8863505902700126171112,\
0.0421485081315040588379,0.4876015805639326572418}

#define ZSOURCEI {0.347978035919368267059,0.2037199228070676326752,0.5962978359311819076538,\
0.8342303414829075336456,0.6809655660763382911682,0.9127784068696200847626,\
0.5243799723684787750244,0.7204323844052851200104,0.3259664541110396385193,\
0.1506391367875039577484,0.9124387521296739578247,0.6345743131823837757111,\
0.9268973069265484809875,0.7633614349178969860077,0.5918717086315155029297,\
0.9057438620366156101227,0.3263365356251597404480,0.3912780000828206539154,\
0.4635267537087202072144,0.0849754814989864826202,0.5800507226958870887756,\
0.7945564310066401958466,0.3823457323014736175537,0.3010852993465960025787,\
0.5789428642019629478455,0.2627451247535645961761,0.5713048521429300308228,\
0.1848654565401375293732,0.9971724869683384895325,0.4520535501651465892792,\
0.0334019884467124938965,0.4553878181613981723785,0.7851976407691836357117,\
0.4941168962977826595306,0.9304408635944128036499,0.7621670593507587909698,\
0.9264887655153870582581,0.7199950958602130413055,0.3973621018230915069580,\
0.8769331262446939945221,0.6766644334420561790466,0.8431562236510217189789,\
0.7608711589127779006958,0.8287630719132721424103,0.0037989662960171699524,\
0.9451942699961364269257,0.6311131268739700317383,0.0763222672976553440094,\
0.4486519275233149528503,0.1080312891863286495209,0.8351444136351346969604,\
0.3109649871475994586945,0.1235694894567131996155,0.0363539229147136211395,\
0.6609512977302074432373,0.9844443709589540958405,0.0688076755031943321228,\
0.5140342987142503261566,0.3807653579860925674438,0.1549817589111626148224,\
0.6850274773314595222473,0.0382853033952414989471,0.5224257782101631164551,\
0.7454454028047621250153,0.4607118470594286918640,0.4753002314828336238861,\
0.8575385268777608871460,0.8073885519988834857941,0.7132545644417405128479,\
0.0811268086545169353485,0.5751824118196964263916,0.884696914348751306534,\
0.5624709790572524070740,0.7315255901776254177094,0.6099120099097490310669,\
0.0705954921431839466095,0.8552806274965405464172,0.7045627343468368053436,\
0.5928074717521667480469,0.8517647930420935153961,0.2603117255493998527527,\
0.8596871509216725826263,0.3943212013691663742065,0.3333164160139858722687,\
0.2511775353923439979553,0.5570420245639979839325,0.7276714108884334564209,\
0.9383780122734606266022,0.1971746077761054039001,0.1607607132755219936371,\
0.7815325502306222915649,0.1760376212187111377716,0.2801528992131352424622,\
0.4699970218352973461151,0.3507726117968559265137,0.5713973813690245151520,\
0.4563077641651034355164,0.9214398502372205257416,0.4339873101562261581421,\
0.3514866163022816181183,0.1816438222303986549377,0.9070622171275317668915,\
0.7665811367332935333252,0.9807842955924570560455,0.1198607003316283226013,\
0.0508546582423150539398,0.2581452894955873489380,0.1401008707471191883087,\
0.5514106499031186103821,0.7882929998449981212616,0.8028824776411056518555,\
0.2425694861449301242828,0.7024780390784144401550,0.0922905071638524532318,\
0.4318286012858152389526,0.0804965649731457233429,0.7126307198777794837952,\
0.6893844078294932842255,0.2756213061511516571045,0.6968217701651155948639,\
0.4598932703956961631775,0.6099067903123795986176,0.3065654132515192031860,\
0.0749373403377830982208,0.9619921119883656501770,0.4158898773603141307831,\
0.3287452235817909240723,0.7406168007291853427887,0.5725225014612078666687,\
0.9504556744359433650970,0.1849336978048086166382,0.8698030491359531879425,\
0.6907873982563614845276,0.9524399931542575359344,0.6490485109388828277588,\
0.9960058168508112430573,0.2040582066401839256287,0.3800008497200906276703,\
0.9729049820452928543091,0.9110585046000778675079,0.3810073928907513618469,\
0.7869612383656203746796,0.5560158789157867431641,0.8529843934811651706696,\
0.4350629774853587150574,0.5956362797878682613373,0.7071880977600812911987,\
0.5747222309000790119171,0.4764349022880196571350,0.6098947445861995220184,\
0.9666662178933620452881,0.3874611915089190006256,0.0715632727369666099548,\
0.6122049516998231410980,0.9575729314237833023071,0.7723352131433784961700,\
0.1287384750321507453918,0.3884150418452918529510,0.2353963479399681091309,\
0.6542267077602446079254,0.3286431683227419853210,0.024017625954002141953,\
0.1042741741985082626343,0.9314296473748981952667,0.8185661518946290016174,\
0.8156488086096942424774,0.8688247688114643096924,0.3549220249988138675690,\
0.3890381073579192161560,0.6415715864859521389008,0.4902750719338655471802,\
0.3509976905770599842072,0.8516392158344388008118,0.1348936217837035655975,\
0.1156354099512100219727,0.8810075619257986545563,0.8367286501452326774597,\
0.5032693906687200069427,0.4486711751669645309448,0.9319602106697857379913,\
0.7298459419980645179749,0.3388367067091166973114,0.4314213804900646209717,\
0.7317318231798708438873,0.9655342241749167442322,0.2621376193128526210785,\
0.2050140891224145889282,0.2826355365104973316193,0.3973353477194905281067,\
0.7437736871652305126190,0.8185287192463874816895,0.3071001493372023105621,\
0.9627068741247057914734,0.9475456266663968563080,0.6546552237123250961304,\
0.1992082078941166400909,0.3616109425202012062073,0.9388273353688418865204,\
0.0409001447260379791260,0.0758434669114649295807}

#define ZRESULTR {-0.7576646139762764908809,-0.4912662732014974609207,-0.4935831983604013761813,\
-0.1796001444111503253520,-0.2030603062114124668369,-0.0903746939402042676059,\
-0.3380442117380291211504,-0.2488385719103628768156,-0.2453827611475934422636,\
-0.0629419446509737884332,0.2743030686751847802007,-0.4189753318430110562431,\
-0.0337034837449739430038,-0.2700068328094388236948,-0.5191589716059612502619,\
-0.0763304013057857499991,-0.6929039668216129266298,-0.7614418400301237177530,\
-0.7012514181881327468560,-0.4995602487864141960650,-0.3736855282655331400576,\
-0.1670990767606896909570,-0.4148838171877601843640,-0.1470641870540525808497,\
0.0881657571965975273010,-1.1827451998005302780115,0.1044920740886167709327,\
-1.1145963776166571967963,0.0100332050022288142566,-0.0123498399546466911675,\
-0.6728365416861274983518,-0.0874315516128119363248,0.1416698281269971604335,\
-0.2712125731855208887744,-0.0063567040970050154788,0.1906009971260032298535,\
0.0238331967155752874610,-0.0953429917974444041118,-0.0065067191893498198957,\
0.0440644425532304637172,-0.3540655459766552382028,-0.1661126167793314234444,\
0.0062509933701612868662,-0.1693877982336349785619,-0.0292579566847096204929,\
0.0137816953226981269570,-0.0288761524361324552201,-0.0250652390791611112686,\
-0.7581745137578204118967,-0.7505545612383084375097,-0.0046973071232757198853,\
-0.3406170651999906873186,-2.0764518222153585114143,-0.8157393323281721952966,\
-0.0852474852363154095292,0.0348077956215509243254,-0.8387202021909221372198,\
-0.0663540586103768398329,-0.9554969196553003696337,-0.0212599130834864695483,\
-0.0245601140031842454792,-1.6679899099681032570430,-0.4509584277017124609443,\
0.1011698547763601602201,-0.2120439010955574854478,-0.1131958883879479044188,\
0.0199327284817682297280,0.0781443465987670671247,-0.3004592565973881468366,\
-0.1451799924584522560878,-0.5281452333714923286223,-0.0505933914241510074294,\
-0.2819958038859460280889,-0.122323084811984963971,-0.2632782651610236501760,\
-0.0540558326414990047981,0.2512879183645665981395,-0.1214932149359973512226,\
0.0055773659320434761794,0.0673704632706614986448,-0.2906343733694730646633,\
0.0851020319327377705587,0.0365640112295984101576,-1.0976622196833336619903,\
-0.4020870876485082012763,-0.3719849821436939651953,-0.3158125612041708385469,\
0.2324359424588408329360,-1.5742845766045041600023,-0.0033130260706617652329,\
-0.1069329039454427060507,-0.1341564770393289252048,-0.0510429776001832605226,\
-0.3847912680433241972011,-0.9153668051115183557087,-0.3798345871473772783489,\
-0.6590618454479428844905,-0.0755413642077243097095,0.0808833545731707098669,\
-0.417646722764209388234,-0.8522405945532404158982,0.1463133685463073596633,\
-0.2416082657366604991012,0.0219217192558878656850,-0.8077093656959043466159,\
-0.1128924015633438332484,-0.3996389102953575300781,-0.9892317511551623754329,\
-0.5874413267393940873973,-0.1422192352759769073955,-0.1954743580270074387872,\
-0.0763719684521397823573,0.1332266112260754309382,-2.2385346085566988350024,\
-0.5112419918132667939759,-0.0541885453710462053345,0.1544990573544810508189,\
0.1051325180789595692410,-0.9326914829433226028499,0.0764891336322670034598,\
-0.4245421077023512346216,-0.4665013282915527192962,-0.3980722181205589849107,\
-1.152706389176620049852,-0.0091123646200983177135,-0.8629224644504486230190,\
-0.0671956049468366567456,-0.1483256896732535745631,-0.0470857769330114903084,\
0.3049502630226416100001,-0.8351336293434713509143,0.1199665328310368234144,\
0.100965515388687754328,0.1851149271955789266109,-0.4311455286578065315695,\
0.1656739977240755667953,-0.6957805672270640506838,-0.7030137346248552798755,\
0.2434410334133135511703,-0.0502776447144934607314,-0.6643994214275527054880,\
-0.0494471424057717073852,-0.1105954430789197057150,0.2627700024490645658304,\
-0.6613338575819812659162,-0.4943364682181946023753,-0.2273273919604619497381,\
-0.0669964153308245241591,0.0270809622513717325465,-0.3423076587443550367063,\
0.2375373770411028651051,-0.7058599113455784612725,-0.0187211007688289424178,\
0.1570046667576522059218,0.0619494218295955287323,0.0912342621811634557627,\
-1.0118000314587793919685,-0.9415613562651380386015,-1.04611739737066766764,\
-0.1350076179226963601909,-1.045153664947628735504,-3.1153566294303054462489,\
-0.0576346967934074291828,0.0825782285147220879162,0.0858710750707356584854,\
-0.1147913938093602786994,0.0959901869720326261781,-0.8704897942843184965866,\
-0.1312205414500346722928,-0.4084692473683823599195,-0.5825265796688483543875,\
-0.2043543873503067542785,-0.1585071715930248537063,-0.4983971045262390875408,\
-1.405591688480441803222,0.1581272765392360557524,-0.1721619754559372272862,\
-0.0902428450071243726249,-0.1497365537505691013287,0.2065025609822116192671,\
0.0613750886386554700413,-0.8564551079948240497330,-0.804653684520539647096,\
0.1638887899169061412863,0.1619231669215081825808,-0.4135383706484943022730,\
-0.6905772083929240245936,-0.1416337472709212619293,-0.8981660716461068449945,\
-0.1997922350746098307805,-0.1797380100619248022298,-0.0033949848444226812805,\
0.3022174959979692654422,0.0079098230306947625579,-0.3346557902575436060921,\
-0.5646231542298842942529,-0.8141969637368523526888,0.2555170413707821830407,\
-2.8347892907784113525338,-0.7063037006217763869032}

#define ZRESULTI {0.8365523024247201178127,0.3394374381847692356828,1.355160662925530390410,\
1.5134434006476746858993,0.9868300791435297147913,1.528673168936313331301,\
0.8260899014265745687879,1.1783591647662248202977,0.4297253343366602140740,\
0.1611216299891750081130,0.7663999599077054858398,1.3047144916618338417180,\
1.2822880914611145541926,1.5649955384218765530591,1.4678689248356304730692,\
1.3586758006659467312716,0.7108977814935093508808,0.9933651109027943348906,\
1.2071246910756632253481,0.1405010934420483359464,1.0025763105214653414521,\
1.21989563358396813086,0.6174353300937470701015,0.3562751652356153653223,\
0.5587012199090121145062,1.0302380576516638743811,0.5405656721364887618009,\
0.5986555168040823549092,1.4107360213988626718162,0.4753739371565622318094,\
0.0655076733245526648952,0.5201329289544929235234,0.7497818580560413614933,\
0.7050355621930805005704,1.2121540141336599738509,0.6814274485183255958276,\
1.1306014284455374596661,0.9141116926495304051414,0.4114688990228685949724,\
0.9956827833608694611200,1.3022000158632660582469,1.4761001233596913184698,\
0.8573788009054216230354,1.379379585022410426021,0.0039117682490215858332,\
1.2006025140002900553071,0.7070620318380608226860,0.0783395850399789817065,\
1.2785255791075276210478,0.2308747034561683952880,0.9955835564035591112031,\
0.4524376138027601523817,1.4009149235535949262754,0.0822834615192538504358,\
0.8034667275967887212218,1.2557032585647818212493,0.1598599852603853899158,\
0.5815258576469973794687,1.4290836436420499833133,0.1589807896730044689537,\
0.7782863583371778526399,0.2043896563749957318024,0.9616073478994561218869,\
0.7392289023091881405847,0.6059375681629087795343,0.5612744745893767372991,\
0.9984170767670760282542,0.8430838000818645650014,1.29879528501095431459,\
0.0939407915654127262384,1.3484611857054962236191,1.1960714214373144859138,\
0.8415982269448546437829,0.9732366936364994502995,0.9167206383382787704406,\
0.0745857498941502189416,0.7278097264573785141195,0.9199632393837048338625,\
0.6304525502744320331061,0.9211062195464506663356,0.3555526540057888373880,\
0.9100796877015666641597,0.3899732161636976779384,1.5260640477653748536824,\
0.3849315818496458763143,0.9408368768631211187525,1.5061175798419510485360,\
0.838676229611447277001,1.2591119550131308901797,0.1620018843959732390836,\
1.0546671087981356329522,0.2026968016035011754816,0.299271305708051660321,\
0.7622771187183752239491,1.067757629024185028754,0.9888735682758375000745,\
1.0801593307389727449674,1.4588740911245949849473,0.4118082358815949306496,\
0.5629599662610861310341,0.4399958138718327860239,0.9004381750108224613527,\
1.3516535386697041687398,1.2852850170743990165789,0.2721670546404741375390,\
0.0569631738604013462823,0.3951736758236387148102,0.3862903740059538404417,\
1.4457867030840705346861,1.1403205655573340759901,1.3522555755333163229892,\
0.264908300074692404369,0.6622029195378335009181,1.0464389789763977045567,\
0.8038225849224520658254,0.0850815175089563863198,0.6568351393392068970911,\
0.669491640154789569017,0.7760242270392859742500,0.7016907095208140265896,\
0.7797846541592131641707,1.335473484345777617222,0.4740136251481967821775,\
0.2395937042296285568455,1.3285359486862795552753,1.401425714315664317056,\
0.3592738595863486095183,1.0333805631652628331807,0.6436572543635337151358,\
0.7762911838119904706090,0.4403927201098556398762,0.8811512979588507210593,\
0.674423430961778702653,0.9132365009577151360176,1.5238520140402758151765,\
1.00458246450610100275,0.4215689680173497211335,0.874990498737184374534,\
0.8674547514202983755638,1.2800682610709759323697,0.8336956783393613124034,\
0.9734878037135866746254,0.6700663792657182149526,0.7153420705223627606983,\
1.0026132338500262086711,1.3535381134312993722801,1.0923065980664201646277,\
0.6618099327465949421878,0.4821732258146940175436,1.033019939116806895640,\
0.8668307442664776596430,0.9024324853624734465996,0.0729804020494689703602,\
0.5506621520352920073904,1.1198886719657494825952,0.7824098301910974440077,\
0.3619529370272654977825,1.4800901440707066036850,0.7343084050589578914980,\
0.8462379976616437593506,1.2071528313995831815930,0.5720924999360996743292,\
0.1106864208392598775132,1.0305927183418297499173,0.8498909387724447039858,\
1.15517062965696792887,0.9096742728488710350021,1.01141253782177353848,\
0.4595989696224830889371,1.3064089912173471041967,1.071386424855859109684,\
0.4451357270611538408112,1.5062412806888749727818,0.2239121309027737871666,\
0.4910523338147070870896,0.8513221989625705532490,1.460513851259993778342,\
0.5833202395880134893957,0.5481910770820362932554,0.8603624185522980027940,\
0.7565250407629732221082,0.9237902776741101495972,1.3040155501467787235725,\
0.6701717740731456540715,0.9634987985586029868301,0.4075854524817449364704,\
0.4213313914917447000619,0.3316883655770838101873,1.3489670985956061510791,\
1.1391029061589752480188,1.3689599297259111843061,0.3132420296422914196555,\
0.7917886209906572769768,1.2228656637749606428400,1.1551462426298317875961,\
0.3579601167993540777879,0.9549534865181378284760,0.8141418225805733266398,\
0.7703675837106083168493,0.1543074266086776613616}




#define SOURCE2  {2.6395560009405016899109,4.1481037065386772155762,2.8064980218186974525452,\
1.2800584640353918075562,7.7831285959109663963318,2.1190304495394229888916,\
1.121354666538536548615,6.8568959552794694900513,1.5312166837975382804871,\
6.970850601792335510254,8.4155184263363480567932,4.0620247554033994674683,\
4.09482547547668218613,8.7841258011758327484131,1.1383596854284405708313,\
1.9983377400785684585571,5.6186607433483004570007,5.8961773291230201721,\
6.8539796629920601844788,8.9062247332185506820679,5.0422128057107329368591,\
3.493615407496690750122,3.8737787725403904914856,9.2228986788541078567505,\
9.4881842611357569694519,3.4353372454643249511719,3.7601187312975525856018,\
7.3409405630081892013550,2.6157614728435873985291,4.99349383637309074402,\
2.6385784195736050605774,5.25356308557093143463,5.3762298030778765678406,\
1.1999255046248435974121,2.2563034901395440101624,6.2740930821746587753296,\
7.6084325974807143211365,0.4855662025511264801025,6.7239497276023030281067,\
2.017172696068882942200,3.911573919467628002167,8.3003165572881698608398,\
5.8787201577797532081604,4.8291792999953031539917,2.2328650346025824546814,\
8.4008856676518917083740,1.2059959070757031440735,2.8553641680628061294556,\
8.6075146449729800224304,8.494101651012897491455,5.2570608118548989295959,\
9.9312098976224660873413,6.4885628735646605491638,9.923190940171480178833,\
0.5004197778180241584778,7.4855065811425447463989,4.1040589986369013786316,\
6.0845263302326202392578,8.5442108893766999244690,0.6426467280834913253784,\
8.279082938097417354584,9.2623437754809856414795,5.6672112690284848213196,\
5.711638936772942543030,8.1601104838773608207703,0.5689279362559318542481,\
5.5959366867318749427795,1.2493403162807226181030,7.279222286306321620941,\
2.6777664758265018463135,5.4653349192813038825989,9.885407658293843269348,\
7.3956565884873270988464,0.0371731072664260864258,5.9005728596821427345276,\
3.096467358991503715515,2.5522057106718420982361,6.2518793903291225433350,\
1.1574173765257000923157,6.1170040909200906753540,6.7839562846347689628601,\
3.3200952783226966857910,0.2587099233642220497131,5.1744682248681783676147,\
3.9168732380494475364685,2.4135384149849414825439,5.064434898085892200470,\
4.2361020017415285110474,2.8937275288626551628113,0.8879321813583374023438,\
6.2128817522898316383362,3.4549844544380903244019,7.0648676296696066856384,\
5.2114724926650524139404,2.8704008506610989570618,6.502795079723000526428,\
0.8813347620889544487000,4.498763345181941986084,7.2272530803456902503967,\
8.9767962601035833358765,2.4278218811377882957458,4.3377211131155490875244,\
9.6770532103255391120911,5.0685344357043504714966,5.2329764096066355705261,\
5.5969475954771041870117,5.6173070007935166358948,4.68176002614200115204,\
7.794546722434461116791,7.9010718129575252532959,9.8085420625284314155579,\
8.1870661024004220962524,4.2568723810836672782898,2.4615605548024177551270,\
9.2295324662700295448303,1.000745808705687522888,4.6782181179150938987732,\
3.9504976756870746612549,0.3661171020939946174622,5.175368534401059150696,\
8.3254515705630183219910,6.1048321425914764404297,1.8711117887869477272034,\
0.1895748358219861984253,8.4335647663101553916931,0.7485948316752910614014,\
8.5328151332214474678040,0.1245901081711053848267,1.8675393564626574516296,\
4.920584075152873992920,7.4896081397309899330,9.414957007393240928650,\
2.1240556007251143455505,5.7950199581682682037354,2.628147569485008716583,\
4.3609866220504045486450,9.1105451015755534172058,8.0826673656702041625977,\
8.1026530498638749122620,2.5904283951967954635620,4.1390872886404395103455,\
3.599927779287099838257,6.91278793383389711380,7.6568587962538003921509,\
3.572649653069674968720,7.6933998242020606994629,5.4776339093223214149475,\
0.9622887428849935531616,9.5611717319115996360779,2.2074085660278797149658,\
0.1432593585923314094544,8.1914897728711366653442,1.3049928424879908561707,\
9.6820035576820373535156,6.5613814676180481910706,2.4455389659851789474487,\
5.2831235667690634727478,8.4689256362617015838623,7.8766220854595303535461,\
1.262082615867257118225,7.8838609857484698295593,3.4530424699187278747559,\
2.6598573336377739906311,9.7098186518996953964233,8.8752476638182997703552,\
2.066752854734659194946,8.5251609655097126960754,6.7446978110820055007935,\
9.152874383144080638886,0.2848597615957260131836,2.367841475643217563629,\
7.0153435599058866500854,1.2025266280397772789001,8.2874121330678462982178,\
3.1610729591920971870422,5.30519076623022556305,5.715174819342792034149,\
0.4780154302716255187988,8.2486197212710976600647,5.7988431211560964584351,\
2.7918082987889647483826,9.5451109297573566436768,9.0711546363309025764465,\
3.3601493109017610549927,1.1756130633875727653503,9.2537237703800201416016,\
7.2636712575331330299377,9.0094979386776685714722,3.9489932497963309288025,\
5.6551797501742839813232,7.0614896761253476142883,6.7878311965614557266235,\
4.1329363686963915824890,1.402290873229503631592,4.9523561308160424232483,\
4.1948772873729467391968,8.6262222891673445701599,2.8575096465647220611572,\
2.5121363671496510505676,3.389101596549153327942}


#define RESULT2  {0.9706107215522056241852,1.4226512916310911638362,1.0319374505428213772973,\
0.246905751916103338717,2.0519583905069445073366,0.7509586489514044060911,\
0.1145374781176292794394,1.9252548546825831721208,0.4260626375542267973984,\
1.9417372548863311987333,2.1300774331528766758481,1.4016815575274605976119,\
1.4097240974656071177407,2.1729462062921069964716,0.1295883538042104654586,\
0.6923157050192292327751,1.7260933336118711167728,1.7743042306089458204355,\
1.9248294562744026059420,2.1867504404929474226549,1.6178450344817050243762,\
1.2509371333857781660726,1.3542304576599399901227,2.2216893784894660157647,\
2.2500472625069045662372,1.2341151000295289552611,1.3244505343759986892849,\
1.993466976516135025221,0.9615552493321314342367,1.6081358323702796830901,\
0.9702402946929443716684,1.658906529368289861637,1.6819873484154954645931,\
0.1822594753876470019538,0.8137278503591067746470,1.8364289458354570161447,\
2.0292571844941731384893,-0.7224396410182910566178,1.9056757389571916672,\
0.7016968755690818904114,1.3639398299492546673406,2.1162936535075722588317,\
1.7713390779775688432807,1.5746765360416834500512,0.8032855297427843321856,\
2.1283371369164427733267,0.1873057044979935803486,1.0491993894614395355092,\
2.1526356176491328042744,2.1393719992097341986437,1.659572089557145968541,\
2.2956823132957397959331,1.870041069148148160650,2.294874536928924957380,\
-0.6923079771535994852982,2.012968695092798743218,1.4119764836513208905444,\
1.8057488812128539290569,2.1452539646586252786165,-0.4421601177273855043381,\
2.1137322059948120411832,2.225957124135133913256,1.7346971570693363595694,\
1.7425060116900870088585,2.0992577085752079923964,-0.5640015026903990591478,\
1.7220407427170496550417,0.2226156650313379503636,1.9850240276979147502345,\
0.9849830425057782834486,1.6984254041571493765161,2.2910596958626552321903,\
2.0008928803872945145770,-3.2921697020833700086939,1.7750494410596528993551,\
1.1302619000814182470549,0.9369579698639551867956,1.83288212099904845864,\
0.146191123459191885114,1.8110724490390321950173,1.9145604545765595450035,\
1.1999934808065779723307,-1.3520478319474638073672,1.6437365753918393718180,\
1.3652936921609135634270,0.8810938927039604351421,1.62224256150308399071,\
1.4436435071804869512135,1.0625454734184220928483,-0.1188599112506976002157,\
1.8266248385955683453119,1.2398179577704631082469,1.9551342798915567477991,\
1.6508624439841452780087,1.0544516892385875639349,1.8722320967378904832401,\
-0.1263177455503078638888,1.5038025468266962292319,1.9778590304154859413899,\
2.194643054750437638489,0.8869945101840888135314,1.4673491210608482493427,\
2.2697574345222681913015,1.6230517098794554620156,1.6549802193742981781810,\
1.7222213768989977911161,1.7258523677080592761968,1.5436741131934335058418,\
2.0534243510350704831069,2.0669984227965598755361,2.2832536450533371663596,\
2.1025556044304130054456,1.4485347077928583114925,0.9007955206863934582984,\
2.2224083935232625819367,0.0007455307285780288533,1.5429172933929051758639,\
1.3738415648213015973766,-1.0048020456777133624371,1.6439105509928255699492,\
2.1193172771056971726011,1.8090806121136604467381,0.6265327936561931876369,\
-1.6629714204274992361832,2.1322195493342954719651,-0.2895573875226954974060,\
2.1439193343978621975054,-2.0827260644551484070064,0.62462171221383455677,\
1.5934272379201788183423,2.0135164783675794097917,2.24229959570391956802,\
0.7533272804029441660489,1.7569989208182723583462,0.9662792518179295075953,\
1.4726983212224467045814,2.209432545000515446532,2.089721937569185339356,\
2.09219154507008475719,0.951823265584673561257,1.4204753018509210793496,\
1.2809137839516946399954,1.9333730200617991190626,2.0356018208291457582959,\
1.273307520236932832702,2.0403627955950214278857,1.700673239349282273025,\
-0.0384407248228896478159,2.257710285652239079468,0.7918192329452391486910,\
-1.943098595033752262751,2.1030957827723826270017,0.2661975560760838632746,\
2.2702688589706512267696,1.8812011703610473922765,0.8942655346201515698112,\
1.6645175074163265360738,2.136403657202092354339,2.0638991426068855616904,\
0.2327632262134610163784,2.0648177566830252516183,1.2392557177584351268962,\
0.9782724873844932389488,2.273137605702431063293,2.183266240754464071472,\
0.7259787064172199544387,2.1430219045760425800040,1.9087566867408878312773,\
2.2140679701900434217521,-1.255758284393388990452,0.8619787703734573813819,\
1.9480996873952269865526,0.1844248666526293323198,2.114737753111020968078,\
1.1509115140149177580753,1.668685731123507043350,1.7431248863402162285752,\
-0.7381122661087159420035,2.1100458798366994450646,1.7576584357875708608532,\
1.0266895216506544131,2.2560290788762715763482,2.205099558817555038814,\
1.2119854107561658373982,0.1617897676032789000544,2.2250260402856771868585,\
1.9828853838780200469216,2.1982793473903963210603,1.373460672957984574083,\
1.73257189512379894403,1.9546560315313432631967,1.9151314791431239825670,\
1.4189881394992434060498,0.3381072372999247011016,1.5998634493586285643119,\
1.4338640873752146465137,2.15480666756291494579,1.0499504925567986202140,\
0.9211335334181942613441,1.2205648705022635880368}



#define ZSOURCER {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,\
0.5684339576400816440582,0.1862502051517367362976,0.0800832151435315608978,\
0.6585252787917852401733,0.1606054832227528095245,0.9711584830656647682190,\
0.3668168033473193645477,0.7386338301002979278564,0.9722552285529673099518,\
0.1349937235936522483826,0.4595781317912042140961,0.5414639282971620559692,\
0.6397600513882935047150,0.0211964594200253486633,0.4408156829886138439178,\
0.6374878138303756713867,0.3208820023573935031891,0.4267518399283289909363,\
0.7819778784178197383881,0.0543234180659055709839,0.9666189108975231647491,\
0.6948409983888268470764,0.1846996019594371318817,0.3645029179751873016357,\
0.8176643461920320987701,0.664914294146001338959,0.7559730983339250087738,\
0.5525381658226251602173,0.7192269531078636646271,0.1989364298060536384583,\
0.8610532465390861034393,0.1300329938530921936035,0.347959163133054971695,\
0.5025534434244036674500,0.4978472082875669002533,0.4675923939794301986694,\
0.9447452803142368793488,0.9599315756931900978088,0.5365384514443576335907,\
0.8122785724699497222900,0.6470989421941339969635,0.7010180121287703514099,\
0.6681951484642922878265,0.9593638796359300613403,0.0149199557490646839142,\
0.6199735002592206001282,0.4061129498295485973358,0.0471306145191192626953,\
0.8433605083264410495758,0.0635268418118357658386,0.9836421324871480464935,\
0.4434677045792341232300,0.8565507535822689533234,0.9080012599006295204163,\
0.4922491232864558696747,0.1930142603814601898193,0.3759337724186480045319,\
0.2437626412138342857361,0.1035623974166810512543,0.9936000052839517593384,\
0.5569599089212715625763,0.3858396532014012336731,0.7191527518443763256073,\
0.1707325801253318786621,0.2878904812969267368317,0.4294657362625002861023,\
0.8917979537509381771088,0.6188817229121923446655,0.3444608678109943866730,\
0.0692929709330201148987,0.3619817639701068401337,0.1783103235065937042236,\
0.8941529677249491214752,0.9010278200730681419373,0.0533773354254662990570,\
0.4162023533135652542114,0.9438270372338593006134,0.9242387460544705390930,\
0.8710649865679442882538,0.2808376699686050415039,0.8244629004038870334625,\
0.4650857029482722282410,0.1462343498133122920990,0.5975636970251798629761,\
0.3067605351097881793976,0.2377215037122368812561,0.0711208949796855449677,\
0.8753139786422252655029,0.4413500339724123477936,0.7631150623783469200134,\
0.9679268277250230312347,0.3924236092716455459595,0.717360940296202898026,\
0.8640465112403035163879,0.7354763629846274852753,0.0304915383458137512207,\
0.6331009590066969394684,0.4550241930410265922546,0.3173553734086453914642,\
0.8250397499650716781616,0.2725940425880253314972,0.3458735281601548194885,\
0.5352854127995669841766,0.7017193175852298736572,0.9817278520204126834869,\
0.2777477568015456199646,0.1314821145497262477875,0.366813333705067634583,\
0.7377605927176773548126,0.9103105561807751655579,0.3637479650788009166718,\
0.8207867145538330078125,0.3059372254647314548492,0.9788405327126383781433,\
0.9970494522713124752045,0.4636328797787427902222,0.7769650523550808429718,\
0.3400075891986489295959,0.0353285889141261577606,0.2607673071324825286865,\
0.5790986777283251285553,0.1250711670145392417908,0.0372988111339509487152,\
0.9382179621607065200806,0.5585843441076576709747,0.7192503632977604866028,\
0.3599752518348395824432,0.6758626028895378112793,0.2222136431373655796051,\
0.7860159231349825859070,0.1736893891356885433197,0.2674629595130681991577,\
0.7357366015203297138214,0.0550541067495942115784,0.5923380698077380657196,\
0.2162457890808582305908,0.7718841419555246829987,0.0926524316892027854919,\
0.7626169077120721340179,0.7347808051854372024536,0.8017499190755188465118,\
0.7732572900131344795227,0.2559880572371184825897,0.1179054826498031616,\
0.9232815303839743137360,0.6709534404799342155457,0.6071323617361485958099,\
0.4574467372149229049683,0.8206311021931469440460,0.0896153757348656654358,\
0.3426358769647777080536,0.1674894802272319793701,0.9481152505613863468170,\
0.9504805644974112510681,0.3436607695184648036957,0.2889420483261346817017,\
0.5325344172306358814240,0.2558945687487721443176,0.8863505902700126171112,\
0.0421485081315040588379,0.4876015805639326572418}

#define ZSOURCEI {0.347978035919368267059,0.2037199228070676326752,0.5962978359311819076538,\
0.8342303414829075336456,0.6809655660763382911682,0.9127784068696200847626,\
0.5243799723684787750244,0.7204323844052851200104,0.3259664541110396385193,\
0.1506391367875039577484,0.9124387521296739578247,0.6345743131823837757111,\
0.9268973069265484809875,0.7633614349178969860077,0.5918717086315155029297,\
0.9057438620366156101227,0.3263365356251597404480,0.3912780000828206539154,\
0.4635267537087202072144,0.0849754814989864826202,0.5800507226958870887756,\
0.7945564310066401958466,0.3823457323014736175537,0.3010852993465960025787,\
0.5789428642019629478455,0.2627451247535645961761,0.5713048521429300308228,\
0.1848654565401375293732,0.9971724869683384895325,0.4520535501651465892792,\
0.0334019884467124938965,0.4553878181613981723785,0.7851976407691836357117,\
0.4941168962977826595306,0.9304408635944128036499,0.7621670593507587909698,\
0.9264887655153870582581,0.7199950958602130413055,0.3973621018230915069580,\
0.8769331262446939945221,0.6766644334420561790466,0.8431562236510217189789,\
0.7608711589127779006958,0.8287630719132721424103,0.0037989662960171699524,\
0.9451942699961364269257,0.6311131268739700317383,0.0763222672976553440094,\
0.4486519275233149528503,0.1080312891863286495209,0.8351444136351346969604,\
0.3109649871475994586945,0.1235694894567131996155,0.0363539229147136211395,\
0.6609512977302074432373,0.9844443709589540958405,0.0688076755031943321228,\
0.5140342987142503261566,0.3807653579860925674438,0.1549817589111626148224,\
0.6850274773314595222473,0.0382853033952414989471,0.5224257782101631164551,\
0.7454454028047621250153,0.4607118470594286918640,0.4753002314828336238861,\
0.8575385268777608871460,0.8073885519988834857941,0.7132545644417405128479,\
0.0811268086545169353485,0.5751824118196964263916,0.884696914348751306534,\
0.5624709790572524070740,0.7315255901776254177094,0.6099120099097490310669,\
0.0705954921431839466095,0.8552806274965405464172,0.7045627343468368053436,\
0.5928074717521667480469,0.8517647930420935153961,0.2603117255493998527527,\
0.8596871509216725826263,0.3943212013691663742065,0.3333164160139858722687,\
0.2511775353923439979553,0.5570420245639979839325,0.7276714108884334564209,\
0.9383780122734606266022,0.1971746077761054039001,0.1607607132755219936371,\
0.7815325502306222915649,0.1760376212187111377716,0.2801528992131352424622,\
0.4699970218352973461151,0.3507726117968559265137,0.5713973813690245151520,\
0.4563077641651034355164,0.9214398502372205257416,0.4339873101562261581421,\
0.3514866163022816181183,0.1816438222303986549377,0.9070622171275317668915,\
0.7665811367332935333252,0.9807842955924570560455,0.1198607003316283226013,\
0.0508546582423150539398,0.2581452894955873489380,0.1401008707471191883087,\
0.5514106499031186103821,0.7882929998449981212616,0.8028824776411056518555,\
0.2425694861449301242828,0.7024780390784144401550,0.0922905071638524532318,\
0.4318286012858152389526,0.0804965649731457233429,0.7126307198777794837952,\
0.6893844078294932842255,0.2756213061511516571045,0.6968217701651155948639,\
0.4598932703956961631775,0.6099067903123795986176,0.3065654132515192031860,\
0.0749373403377830982208,0.9619921119883656501770,0.4158898773603141307831,\
0.3287452235817909240723,0.7406168007291853427887,0.5725225014612078666687,\
0.9504556744359433650970,0.1849336978048086166382,0.8698030491359531879425,\
0.6907873982563614845276,0.9524399931542575359344,0.6490485109388828277588,\
0.9960058168508112430573,0.2040582066401839256287,0.3800008497200906276703,\
0.9729049820452928543091,0.9110585046000778675079,0.3810073928907513618469,\
0.7869612383656203746796,0.5560158789157867431641,0.8529843934811651706696,\
0.4350629774853587150574,0.5956362797878682613373,0.7071880977600812911987,\
0.5747222309000790119171,0.4764349022880196571350,0.6098947445861995220184,\
0.9666662178933620452881,0.3874611915089190006256,0.0715632727369666099548,\
0.6122049516998231410980,0.9575729314237833023071,0.7723352131433784961700,\
0.1287384750321507453918,0.3884150418452918529510,0.2353963479399681091309,\
0.6542267077602446079254,0.3286431683227419853210,0.024017625954002141953,\
0.1042741741985082626343,0.9314296473748981952667,0.8185661518946290016174,\
0.8156488086096942424774,0.8688247688114643096924,0.3549220249988138675690,\
0.3890381073579192161560,0.6415715864859521389008,0.4902750719338655471802,\
0.3509976905770599842072,0.8516392158344388008118,0.1348936217837035655975,\
0.1156354099512100219727,0.8810075619257986545563,0.8367286501452326774597,\
0.5032693906687200069427,0.4486711751669645309448,0.9319602106697857379913,\
0.7298459419980645179749,0.3388367067091166973114,0.4314213804900646209717,\
0.7317318231798708438873,0.9655342241749167442322,0.2621376193128526210785,\
0.2050140891224145889282,0.2826355365104973316193,0.3973353477194905281067,\
0.7437736871652305126190,0.8185287192463874816895,0.3071001493372023105621,\
0.9627068741247057914734,0.9475456266663968563080,0.6546552237123250961304,\
0.1992082078941166400909,0.3616109425202012062073,0.9388273353688418865204,\
0.0409001447260379791260,0.0758434669114649295807}

#define ZRESULTR {-0.7576646139762764908809,-0.4912662732014974609207,-0.4935831983604013761813,\
-0.1796001444111503253520,-0.2030603062114124668369,-0.0903746939402042676059,\
-0.3380442117380291211504,-0.2488385719103628768156,-0.2453827611475934422636,\
-0.0629419446509737884332,0.2743030686751847802007,-0.4189753318430110562431,\
-0.0337034837449739430038,-0.2700068328094388236948,-0.5191589716059612502619,\
-0.0763304013057857499991,-0.6929039668216129266298,-0.7614418400301237177530,\
-0.7012514181881327468560,-0.4995602487864141960650,-0.3736855282655331400576,\
-0.1670990767606896909570,-0.4148838171877601843640,-0.1470641870540525808497,\
0.0881657571965975273010,-1.1827451998005302780115,0.1044920740886167709327,\
-1.1145963776166571967963,0.0100332050022288142566,-0.0123498399546466911675,\
-0.6728365416861274983518,-0.0874315516128119363248,0.1416698281269971604335,\
-0.2712125731855208887744,-0.0063567040970050154788,0.1906009971260032298535,\
0.0238331967155752874610,-0.0953429917974444041118,-0.0065067191893498198957,\
0.0440644425532304637172,-0.3540655459766552382028,-0.1661126167793314234444,\
0.0062509933701612868662,-0.1693877982336349785619,-0.0292579566847096204929,\
0.0137816953226981269570,-0.0288761524361324552201,-0.0250652390791611112686,\
-0.7581745137578204118967,-0.7505545612383084375097,-0.0046973071232757198853,\
-0.3406170651999906873186,-2.0764518222153585114143,-0.8157393323281721952966,\
-0.0852474852363154095292,0.0348077956215509243254,-0.8387202021909221372198,\
-0.0663540586103768398329,-0.9554969196553003696337,-0.0212599130834864695483,\
-0.0245601140031842454792,-1.6679899099681032570430,-0.4509584277017124609443,\
0.1011698547763601602201,-0.2120439010955574854478,-0.1131958883879479044188,\
0.0199327284817682297280,0.0781443465987670671247,-0.3004592565973881468366,\
-0.1451799924584522560878,-0.5281452333714923286223,-0.0505933914241510074294,\
-0.2819958038859460280889,-0.122323084811984963971,-0.2632782651610236501760,\
-0.0540558326414990047981,0.2512879183645665981395,-0.1214932149359973512226,\
0.0055773659320434761794,0.0673704632706614986448,-0.2906343733694730646633,\
0.0851020319327377705587,0.0365640112295984101576,-1.0976622196833336619903,\
-0.4020870876485082012763,-0.3719849821436939651953,-0.3158125612041708385469,\
0.2324359424588408329360,-1.5742845766045041600023,-0.0033130260706617652329,\
-0.1069329039454427060507,-0.1341564770393289252048,-0.0510429776001832605226,\
-0.3847912680433241972011,-0.9153668051115183557087,-0.3798345871473772783489,\
-0.6590618454479428844905,-0.0755413642077243097095,0.0808833545731707098669,\
-0.417646722764209388234,-0.8522405945532404158982,0.1463133685463073596633,\
-0.2416082657366604991012,0.0219217192558878656850,-0.8077093656959043466159,\
-0.1128924015633438332484,-0.3996389102953575300781,-0.9892317511551623754329,\
-0.5874413267393940873973,-0.1422192352759769073955,-0.1954743580270074387872,\
-0.0763719684521397823573,0.1332266112260754309382,-2.2385346085566988350024,\
-0.5112419918132667939759,-0.0541885453710462053345,0.1544990573544810508189,\
0.1051325180789595692410,-0.9326914829433226028499,0.0764891336322670034598,\
-0.4245421077023512346216,-0.4665013282915527192962,-0.3980722181205589849107,\
-1.152706389176620049852,-0.0091123646200983177135,-0.8629224644504486230190,\
-0.0671956049468366567456,-0.1483256896732535745631,-0.0470857769330114903084,\
0.3049502630226416100001,-0.8351336293434713509143,0.1199665328310368234144,\
0.100965515388687754328,0.1851149271955789266109,-0.4311455286578065315695,\
0.1656739977240755667953,-0.6957805672270640506838,-0.7030137346248552798755,\
0.2434410334133135511703,-0.0502776447144934607314,-0.6643994214275527054880,\
-0.0494471424057717073852,-0.1105954430789197057150,0.2627700024490645658304,\
-0.6613338575819812659162,-0.4943364682181946023753,-0.2273273919604619497381,\
-0.0669964153308245241591,0.0270809622513717325465,-0.3423076587443550367063,\
0.2375373770411028651051,-0.7058599113455784612725,-0.0187211007688289424178,\
0.1570046667576522059218,0.0619494218295955287323,0.0912342621811634557627,\
-1.0118000314587793919685,-0.9415613562651380386015,-1.04611739737066766764,\
-0.1350076179226963601909,-1.045153664947628735504,-3.1153566294303054462489,\
-0.0576346967934074291828,0.0825782285147220879162,0.0858710750707356584854,\
-0.1147913938093602786994,0.0959901869720326261781,-0.8704897942843184965866,\
-0.1312205414500346722928,-0.4084692473683823599195,-0.5825265796688483543875,\
-0.2043543873503067542785,-0.1585071715930248537063,-0.4983971045262390875408,\
-1.405591688480441803222,0.1581272765392360557524,-0.1721619754559372272862,\
-0.0902428450071243726249,-0.1497365537505691013287,0.2065025609822116192671,\
0.0613750886386554700413,-0.8564551079948240497330,-0.804653684520539647096,\
0.1638887899169061412863,0.1619231669215081825808,-0.4135383706484943022730,\
-0.6905772083929240245936,-0.1416337472709212619293,-0.8981660716461068449945,\
-0.1997922350746098307805,-0.1797380100619248022298,-0.0033949848444226812805,\
0.3022174959979692654422,0.0079098230306947625579,-0.3346557902575436060921,\
-0.5646231542298842942529,-0.8141969637368523526888,0.2555170413707821830407,\
-2.8347892907784113525338,-0.7063037006217763869032}

#define ZRESULTI {0.8365523024247201178127,0.3394374381847692356828,1.355160662925530390410,\
1.5134434006476746858993,0.9868300791435297147913,1.528673168936313331301,\
0.8260899014265745687879,1.1783591647662248202977,0.4297253343366602140740,\
0.1611216299891750081130,0.7663999599077054858398,1.3047144916618338417180,\
1.2822880914611145541926,1.5649955384218765530591,1.4678689248356304730692,\
1.3586758006659467312716,0.7108977814935093508808,0.9933651109027943348906,\
1.2071246910756632253481,0.1405010934420483359464,1.0025763105214653414521,\
1.21989563358396813086,0.6174353300937470701015,0.3562751652356153653223,\
0.5587012199090121145062,1.0302380576516638743811,0.5405656721364887618009,\
0.5986555168040823549092,1.4107360213988626718162,0.4753739371565622318094,\
0.0655076733245526648952,0.5201329289544929235234,0.7497818580560413614933,\
0.7050355621930805005704,1.2121540141336599738509,0.6814274485183255958276,\
1.1306014284455374596661,0.9141116926495304051414,0.4114688990228685949724,\
0.9956827833608694611200,1.3022000158632660582469,1.4761001233596913184698,\
0.8573788009054216230354,1.379379585022410426021,0.0039117682490215858332,\
1.2006025140002900553071,0.7070620318380608226860,0.0783395850399789817065,\
1.2785255791075276210478,0.2308747034561683952880,0.9955835564035591112031,\
0.4524376138027601523817,1.4009149235535949262754,0.0822834615192538504358,\
0.8034667275967887212218,1.2557032585647818212493,0.1598599852603853899158,\
0.5815258576469973794687,1.4290836436420499833133,0.1589807896730044689537,\
0.7782863583371778526399,0.2043896563749957318024,0.9616073478994561218869,\
0.7392289023091881405847,0.6059375681629087795343,0.5612744745893767372991,\
0.9984170767670760282542,0.8430838000818645650014,1.29879528501095431459,\
0.0939407915654127262384,1.3484611857054962236191,1.1960714214373144859138,\
0.8415982269448546437829,0.9732366936364994502995,0.9167206383382787704406,\
0.0745857498941502189416,0.7278097264573785141195,0.9199632393837048338625,\
0.6304525502744320331061,0.9211062195464506663356,0.3555526540057888373880,\
0.9100796877015666641597,0.3899732161636976779384,1.5260640477653748536824,\
0.3849315818496458763143,0.9408368768631211187525,1.5061175798419510485360,\
0.838676229611447277001,1.2591119550131308901797,0.1620018843959732390836,\
1.0546671087981356329522,0.2026968016035011754816,0.299271305708051660321,\
0.7622771187183752239491,1.067757629024185028754,0.9888735682758375000745,\
1.0801593307389727449674,1.4588740911245949849473,0.4118082358815949306496,\
0.5629599662610861310341,0.4399958138718327860239,0.9004381750108224613527,\
1.3516535386697041687398,1.2852850170743990165789,0.2721670546404741375390,\
0.0569631738604013462823,0.3951736758236387148102,0.3862903740059538404417,\
1.4457867030840705346861,1.1403205655573340759901,1.3522555755333163229892,\
0.264908300074692404369,0.6622029195378335009181,1.0464389789763977045567,\
0.8038225849224520658254,0.0850815175089563863198,0.6568351393392068970911,\
0.669491640154789569017,0.7760242270392859742500,0.7016907095208140265896,\
0.7797846541592131641707,1.335473484345777617222,0.4740136251481967821775,\
0.2395937042296285568455,1.3285359486862795552753,1.401425714315664317056,\
0.3592738595863486095183,1.0333805631652628331807,0.6436572543635337151358,\
0.7762911838119904706090,0.4403927201098556398762,0.8811512979588507210593,\
0.674423430961778702653,0.9132365009577151360176,1.5238520140402758151765,\
1.00458246450610100275,0.4215689680173497211335,0.874990498737184374534,\
0.8674547514202983755638,1.2800682610709759323697,0.8336956783393613124034,\
0.9734878037135866746254,0.6700663792657182149526,0.7153420705223627606983,\
1.0026132338500262086711,1.3535381134312993722801,1.0923065980664201646277,\
0.6618099327465949421878,0.4821732258146940175436,1.033019939116806895640,\
0.8668307442664776596430,0.9024324853624734465996,0.0729804020494689703602,\
0.5506621520352920073904,1.1198886719657494825952,0.7824098301910974440077,\
0.3619529370272654977825,1.4800901440707066036850,0.7343084050589578914980,\
0.8462379976616437593506,1.2071528313995831815930,0.5720924999360996743292,\
0.1106864208392598775132,1.0305927183418297499173,0.8498909387724447039858,\
1.15517062965696792887,0.9096742728488710350021,1.01141253782177353848,\
0.4595989696224830889371,1.3064089912173471041967,1.071386424855859109684,\
0.4451357270611538408112,1.5062412806888749727818,0.2239121309027737871666,\
0.4910523338147070870896,0.8513221989625705532490,1.460513851259993778342,\
0.5833202395880134893957,0.5481910770820362932554,0.8603624185522980027940,\
0.7565250407629732221082,0.9237902776741101495972,1.3040155501467787235725,\
0.6701717740731456540715,0.9634987985586029868301,0.4075854524817449364704,\
0.4213313914917447000619,0.3316883655770838101873,1.3489670985956061510791,\
1.1391029061589752480188,1.3689599297259111843061,0.3132420296422914196555,\
0.7917886209906572769768,1.2228656637749606428400,1.1551462426298317875961,\
0.3579601167993540777879,0.9549534865181378284760,0.8141418225805733266398,\
0.7703675837106083168493,0.1543074266086776613616}



#define ZSOURCE2R  {3.9219759730622172355652,4.6815521270036697387695,3.361602746881544589996,\
5.3368766140192747116089,2.03906395938247442245,1.5899897180497646331787,\
0.1818151073530316352844,4.0983706060796976089478,0.1058345986530184745789,\
1.9653097167611122131348,2.7255953708663582801819,3.4376550372689962387085,\
2.0337020372971892356873,3.0119446106255054473877,2.7625959040597081184387,\
2.9445307422429323196411,5.7180739520117640495300,2.141770124435424804688,\
6.8954616272822022438049,5.8555728476494550704956,4.2041230341419577598572,\
4.2775720171630382537842,3.1845858739688992500305,5.7618944440037012100220,\
4.2549022240564227104187,9.7619816288352012634277,2.518960000015795230866,\
4.3911290075629949569702,0.7593036955222487449646,2.5593801774084568023682,\
0.6706167431548237800598,7.6511315722018480300903,0.4173615900799632072449,\
3.438271805644035339356,1.9701673323288559913635,2.1228986512869596481323,\
3.1403985014185309410095,7.8216253779828548431396,0.5409323470667004585266,\
9.1902069095522165298462,4.6035157097503542900085,2.9926850274205207824707,\
0.0291663268581032752991,8.9934705849736928939819,8.3879271661862730979919,\
4.3437494523823261260986,7.7678761305287480354309,1.3953176606446504592896,\
1.1506372271105647087097,5.3554199635982513427734,4.3117330456152558326721,\
6.145384786650538444519,9.2589621385559439659119,0.9938172809779644012451,\
4.2805786477401852607727,9.431830951943993568420,0.3273952705785632133484,\
9.2132670804858207702637,9.4490244099870324134827,9.007069906219840049744,\
8.0943161016330122947693,0.2519542910158634185791,0.0196450622752308845520,\
5.0752213317900896072388,4.0760429529473185539246,8.4080461412668228149414,\
5.017265700735151767731,9.1287807654589414596558,4.4357294728979468345642,\
5.9837839566171169281006,7.7418426470831036567688,7.9220082703977823257446,\
5.5046048713847994804382,4.0850437059998512268066,7.2174380579963326454163,\
4.768535858020186424255,6.3930579042062163352966,9.963865298777818679810,\
1.5747882844880223274231,5.3506936598569154739380,2.1290646074339747428894,\
5.59145063161849975586,4.304965981282293796539,0.2280548494309186935425,\
5.7614597817882895469666,7.1491303853690624237061,9.3216359661892056465149,\
1.2326993141323328018188,2.8655522270128130912781,0.1247995719313621520996,\
5.7694048294797539710999,3.9386960770934820175171,6.8885837262496352195740,\
9.7023218311369419097900,8.51576429326087236404,3.3933044690638780593872,\
8.7725317804142832756042,1.1314024776220321655273,5.2641283208504319190979,\
5.297394050285220146179,9.2917560925707221031189,9.7654302977025508880615,\
6.2254639761522412300110,9.822583282366394996643,7.5429888023063540458679,\
5.4547880962491035461426,7.2860160330310463905334,0.2525969501584768295288,\
4.0251684701070189476013,0.9831319935619831085205,2.6086253346875309944153,\
3.6363423336297273635864,1.7466178117319941520691,9.2341394722461700439453,\
7.6051409030333161354065,5.6402041297405958175659,3.7970651825889945030212,\
8.7762261740863323211670,8.21742579806596040726,6.787058124318718910217,\
0.8220098121091723442078,2.5527314469218254089355,7.4444567272439599037170,\
2.2695036139339208602905,6.836930788122117519379,9.3650726415216922760010,\
5.0530174048617482185364,2.5248145777732133865356,6.8188397912308573722839,\
2.8363681584596633911133,1.409485661424696445465,6.7591095995157957077026,\
4.5126775791868567466736,7.5430292449891567230225,1.3702143030241131782532,\
6.6082405392080545425415,3.8900542212650179862976,7.001820541918277740479,\
9.168005720712244510651,2.1228999551385641098022,2.6978330826386809349060,\
3.1998893804848194122314,0.2321802498772740364075,7.26544727571308612823,\
1.5340585587546229362488,2.3552638292312622070312,0.8797382796183228492737,\
7.1059537213295698165894,6.8887275597080588340759,6.5953194908797740936279,\
1.8151161121204495429993,3.9049659762531518936157,1.5869047446176409721375,\
6.2407150492072105407715,6.3760355720296502113342,4.2704886104911565780640,\
1.0716815060004591941833,2.3822965659201145172119,9.4629473658278584480286,\
4.5766852516680955886841,8.9644787041470408439636,4.4384705275297164916992,\
8.08956819120794534683,6.8317985069006681442261,0.3401931514963507652283,\
2.3805456422269344329834,9.4920115964487195014954,2.1827886346727609634399,\
6.1546878470107913017273,8.3135433867573738098145,7.7340125897899270057678,\
4.2441909667104482650757,7.262125960551202297211,7.0999773032963275909424,\
4.7457459988072514533997,9.4386920798569917678833,1.4596485672518610954285,\
0.7141010463237762451172,6.7337385797873139381409,6.536924717947840690613,\
1.996896131895482540131,6.01412517949938774109,1.8993748771026730537415,\
2.5839814636856317520142,0.9878737432882189750671,0.6199027225375175476074,\
0.4034968325868248939514,7.4001471605151891708374,6.1626600986346602439880,\
6.5835834480822086334229,2.5145971449092030525208,3.8433500844985246658325,\
4.3964602379128336906433,6.5407369285821914672852,5.878106378950178623200,\
6.0208318661898374557495,0.4535020282492041587830,2.0294443331658840179443,\
7.844273825176060199738,2.6375361625105142593384}


#define ZSOURCE2I {4.3832763982936739921570,8.6648589745163917541504,3.7921421090140938758850,\
7.6687160786241292953491,6.0066213225945830345154,7.85673560574650764465,\
7.3871155502274632453918,5.5442603398114442825317,9.9291495559737086296082,\
9.757428467273712158203,3.709622272290289402008,3.0322382133454084396362,\
9.5195201179012656211853,7.1278580836951732635498,1.192370061762630939484,\
5.0091631803661584854126,3.2900535268709063529968,4.8089468106627464294434,\
3.3036959776654839515686,6.3044753577560186386108,2.1171907847747206687927,\
4.4860231317579746246338,5.9145097108557820320129,6.8067426700145006179810,\
0.7392961112782359123230,9.4336947053670883178711,1.2863306934013962745667,\
2.0190807711333036422729,1.9693034281954169273376,8.9286901615560054779053,\
4.6179189579561352729797,6.2512917164713144302368,7.0597065938636660575867,\
7.0181696489453315734863,4.0879997471347451210022,0.6362213846296072006226,\
0.6573933875188231468201,5.3310041315853595733643,0.3315818728879094123840,\
3.157835649326443672180,3.785823243670165538788,4.6195234358310699462891,\
6.2873698258772492408752,2.8785153012722730636597,3.2920487364754080772400,\
4.7192330472171306610107,3.3537696348503232002258,5.5530697200447320938110,\
1.196080814115703105927,7.6139996573328971862793,4.7909884760156273841858,\
2.8169692959636449813843,2.380097783170640468597,3.2942054606974124908447,\
2.3067280324175953865051,2.1362966019660234451294,4.0549980429932475090027,\
3.0953712016344070434570,6.762971603311598300934,9.7069163154810667037964,\
5.4417965700849890708923,0.2047479711472988128662,8.9413649635389447212219,\
3.4903638903051614761353,1.1053651524707674980164,2.0233777537941932678223,\
1.3046909729018807411194,8.573952978476881980896,6.3780163740739226341248,\
4.0711227245628833770752,6.6919379355385899543762,2.042601602151989936829,\
8.3104313490912318229675,0.1221632957458496093750,4.8844617092981934547424,\
9.549877075478434562683,0.5874312063679099082947,8.2584649138152599334717,\
2.9807415651157498359680,0.7757596764713525772095,5.8460923237726092338562,\
7.528713606297969818115,0.5172297963872551918030,5.9586250688880681991577,\
3.8337053125724196434021,4.9002202786505222320557,5.2727950783446431159973,\
0.6889454741030931472778,8.843077751807868480682,7.1912937611341476440430,\
0.6942595774307847023010,1.1522095929831266403198,4.862680672667920589447,\
7.6715826056897640228271,0.8805298106744885444641,7.0085612777620553970337,\
1.879138792864978313446,2.0178856328129768371582,4.0628212550655007362366,\
4.0966569539159536361694,1.769564501009881496429,3.31293122842907905579,\
0.5184767069295048713684,4.1492417920380830764771,7.2212355909869074821472,\
0.7746253907680511474609,5.8558783913031220436096,3.7079446297138929367065,\
2.1161167463287711143494,1.903268527239561080933,5.607953821308910846710,\
9.4247916433960199356079,6.8177247745916247367859,2.7342410013079643249512,\
2.0717754075303673744202,1.9379387702792882919312,6.797837591730058193207,\
5.88365742936730384827,9.331753817386925220490,5.509122880175709724426,\
8.0405469564720988273621,1.074489727616310119629,7.4039250845089554786682,\
5.6103316973894834518433,7.6611549546942114830017,7.8306589089334011077881,\
1.4388314681127667427063,1.6471924725919961929321,3.1774142337962985038757,\
5.0265956297516822814941,6.9204960623756051064,7.0065794046968221664429,\
8.8706119870766997337341,6.9797694869339466094971,6.7989911558106541633606,\
3.6159398127347230911255,2.6739976881071925163269,0.7736870646476745605469,\
1.494100340642035007477,3.2018390577286481857300,2.0260545751079916954041,\
4.4988587312400341033936,7.7075743721798062324524,2.4352242145687341690063,\
2.1261148853227496147156,1.0992341861128807067871,6.9814807781949639320374,\
4.1509064938873052597046,5.0298188393935561180115,7.51160675659775733948,\
9.9401472182944416999817,1.82876241393387317657,3.021917375735938549042,\
3.7854864448308944702148,7.1531985932961106300354,9.5241537224501371383667,\
4.7039186349138617515564,1.8709417246282100677490,2.55718790460377931595,\
4.4350660685449838638306,7.2340781940147280693054,8.7619100883603096008301,\
0.3733208635821938514710,4.2934664245694875717163,3.1572330510243773460388,\
3.682477343827486038208,1.4587742509320378303528,6.7683792579919099807739,\
5.2619793592020869255066,4.003625661134719848633,0.0291080260649323463440,\
3.0681814532727003097534,7.9026939114555716514587,9.5779503695666790008545,\
6.6892711864784359931946,2.9296159837394952774048,8.2238993747159838676453,\
0.1798455044627189636231,8.7107013771310448646545,3.1810243334621191024780,\
5.7244732743129134178162,5.7386581040918827056885,3.4920182498171925544739,\
7.06729766912758350372,3.5992007283493876457214,4.0523112565279006958008,\
6.1408105725422501564026,6.5240467619150876998901,0.2951709320768713951111,\
5.6688958965241909027100,7.1140170888975262641907,4.5884906593710184097290,\
4.7205173922702670097351,0.6237313523888587951660,0.8544011274352669715881,\
0.1345641072839498519898,3.5430019116029143333435,6.7193946428596973419189,\
1.3606189610436558723450,2.1197437215596437454224}


#define ZRESULT2R {1.7718546901199148102535,2.2873385372432406548171,1.6228701567171754938101,\
2.2346263074245684698838,1.8473969837167181218263,2.0814403666906242662549,\
2.000040135761198101250,1.930738025076279118508,2.2955316341715112926636,\
2.2979125914561788768253,1.52676863913911398107,1.5225454413433419098567,\
2.2756589535249842626285,2.0461560089912054216654,1.10158579014350732628,\
1.7596676151017560663092,1.886619744318301705732,1.6609534913253483079387,\
2.0341867590624715944614,2.1522631887405574424577,1.5490800609419352884544,\
1.8243154431583954444562,1.9046961835587756795007,2.1880745312667504443027,\
1.462943224821960486182,2.6082576924848916988253,1.0397086540972344526068,\
1.5754847768676314423431,0.746979645400304148595,2.2287521705924668857790,\
1.5403790183895167409389,2.29053332003721576982,1.9561479629741382879615,\
2.056062919004959077540,1.5124829204355532130677,0.7957872878063905197621,\
1.1657936572577645151227,2.247663310479210085902,-0.4549625893688244437918,\
2.273939094117130466088,1.7851157264602297569667,1.705510493291471751931,\
1.838553591041654167171,2.2452631537104275061267,2.1984262619387999748710,\
1.858482175867823826820,2.1354614286115483068329,1.7449625890299069741474,\
0.5066316450005309279803,2.2309587833094872699746,1.8633839241242127204856,\
1.9110608576794807511590,2.2575857867741544460216,1.23571911173189863398,\
1.581562045830424700910,2.2691047577207688057399,1.4031989962500943658341,\
2.2741179432518765501925,2.4527182982567738989133,2.5833963585371355620168,\
2.2776279862384747332271,-1.1249835300913728630690,2.1906906716320380112961,\
1.8180097251363194210683,1.440608273684235829393,2.157337396250079031290,\
1.6456014738468727198750,2.5276363856092047832647,2.0501201476301127435420,\
1.9792596577711849548109,2.325636279713856779949,2.1018269082301319627959,\
2.2993946557097193483798,1.407779382548410174181,2.1650335217497893580685,\
2.3678319878208848869861,1.8594164774388513006187,2.56043452139564964298,\
1.2152594801616827258073,1.6876273083151080989239,1.8280452566376663714465,\
2.2383606348726785562064,1.4669353168458199032642,1.7855716392006990567154,\
1.9344712649878033072781,2.1595582205209731263551,2.3711393709457433409682,\
0.3451198452895575252697,2.2295598849908442318224,1.9730216569827605521681,\
1.7597572254564382010500,1.4119056335367026200345,2.1320313551579719302254,\
2.5151804905590435801344,2.1472364706413502588589,2.052431577045615185284,\
2.1940570121896025845842,0.8387289948467516742525,1.8945610375322186058611,\
1.901605848224737327357,2.2469410116186243620007,2.3333167208432867845147,\
1.8321040495156570848678,2.3667788410376999763685,2.345870799293293007537,\
1.7064766326923879180555,2.2351179984798275057756,1.3127927306468758494873,\
1.5145818637157286712380,0.7618288453812751548355,1.8221250086585414340590,\
2.3127298919002594601579,1.9513099157402993277799,2.2649290827240116108499,\
2.0646178740610454660498,1.7857162805439725783430,2.0523808897592226152540,\
2.357637781206334715023,2.5204455223537904906550,2.1680868421848340510394,\
2.08969579055791898625,1.0187212773133276222381,2.351321025745570558740,\
1.8003855797977157404688,2.3290564194645368978343,2.5020530275623595883872,\
1.6589662323678027178175,1.1034736729371952268508,2.0179385634489594991692,\
1.7529535621370035958222,1.9548092141654069830992,2.2757671672542376661852,\
2.2978225629400212959297,2.329897705001075625120,1.9366802551403343723990,\
2.0192737614105338295190,1.5519072144028889237433,1.9522381258437428996899,\
2.228825942499146339770,1.3459088341323246496017,1.2160693133443531976923,\
1.708519320712721833999,2.042657041378174831436,2.0363649964518035773153,\
0.9638512795498686003270,0.9551846741593900125267,1.951137961258366582129,\
2.107724763084950492242,2.1435395035941335883933,2.30219731892690226971,\
2.3129821080069814520641,1.4613961122338947618005,1.2276638750511146280786,\
1.98774702803650615834,2.2599263943254159769936,2.3454288218721179859472,\
1.5736974684351636710744,1.1082826047896976451312,2.2826248447267389884985,\
1.852079302129498561413,2.4440219801181322090144,2.2846216839061130876587,\
2.0916390604994830049179,2.0880185293365247645170,1.1554676622252344486697,\
1.4781743340729813773748,2.2621227047071905680298,1.9617338719614783038026,\
2.0915485321054503309313,2.222172100020261886755,2.0456349034700243016971,\
1.6557620395745074048932,2.3732960033711649749932,2.4784302018604411621538,\
2.1043456955600268187823,2.2908052004546388680239,2.1225525715426596384816,\
-0.3059820602804464440006,2.398801697565509982724,1.9837316998415748248163,\
1.8021669050328577021958,2.1177911026101683411582,1.3800624471185749531088,\
2.0182134290564768264176,1.3170274339145702224840,1.4108532825842892144408,\
1.817110834423457665920,2.2890298175330245911141,1.8196542505912531861867,\
2.1619335403208914669904,2.0209326327770549269758,1.7893311710629888899859,\
1.8641960608110765829082,1.882576152038281991352,1.7816883851861540222217,\
1.7954751269073565556056,1.2730999018963571334240,1.9486466131391497746961,\
2.074605067637334876451,1.2189909546635331327735}


#define ZRESULT2I {0.8408843669071919268987,1.0754371807248737091811,0.8455094310786673839075,\
0.962808271271232585242,1.2435335418309885202603,1.371120256581034091425,\
1.5461888319559713433904,0.9342369007616236897817,1.56013775123029430070,\
1.3720388608498168547811,0.9371355532144381994542,0.7228179279461685036168,\
1.360325287393417292847,1.1709945644102059958414,0.4074578726347549695319,\
1.0393742565506918218432,0.5221182542768327827787,1.1517977305599864656926,\
0.4467977216337457035955,0.8222975857540034683169,0.4665224019878621564139,\
0.8091797065019556978172,1.0768746352304479074746,0.8683388375483406251831,\
0.1720341159830799382391,0.7682977019562435838651,0.4721387487057847609506,\
0.4309811115589534114001,1.20279143843462255070,1.2916347740244560338141,\
1.4265839008392693365579,0.6850460436644268957807,1.5117462274209296779759,\
1.1152532149987959275705,1.1217014706271768442747,0.2911766403909815670303,\
0.2063546073155473614680,0.5982511040925977408023,0.5499105526382754849379,\
0.3309697617869979402450,0.6882370204600587459964,0.9959451809388051302108,\
1.5661574844082004620560,0.3097639368523368297304,0.3740022155825183380884,\
0.8268049495959598482742,0.407572856709710940049,1.3246230944084764757918,\
0.8047604843662868878695,0.9578156211088914018248,0.8379992820836518196970,\
0.4298072736875270249968,0.2516111351341220880862,1.2777930133692467773443,\
0.4942674920588698839197,0.2227403824735175175142,1.4902323819071812138759,\
0.3241206854947055737704,0.6212066791677098853697,0.8227777158663325263177,\
0.5918914368525474145599,0.6824004867135488039409,1.5685992315253338702519,\
0.602441091725517741118,0.2648167750385964080984,0.2361574036342227733698,\
0.2544057494452062195833,0.7540670573431564882583,0.9631160038064509043565,\
0.5974222702744066415548,0.7127866343417466055143,0.2523427003112133637508,\
0.9857721947818851582213,0.0298961055939373325507,0.5949566736712420533806,\
1.1076852186579833059454,0.0916284996635063769821,0.6920814866116709040966,\
1.0847494758718594365376,0.1439797822740493671301,1.2215400197911927548944,\
0.9319943094964961982640,0.1195740768674621451462,1.5325419323859537090726,\
0.5871287736405550461427,0.6008795873685909283424,0.5147800680430554276512,\
0.5096442477271476700906,1.2574287319730830247977,1.55344381002968989769,\
0.1197588579388608048815,0.2845949117488152935174,0.6146775806026560928785,\
0.6690416852557365956,0.1030338183393550155476,1.1198962694059428901738,\
0.2110181909408466172096,1.0597850788835401214527,0.6573038229366630069706,\
0.6582686240328038396186,0.1881909924839933190288,0.3270668956957688000564,\
0.0830914673081940696742,0.3996821407672082604456,0.763608851537480148863,\
0.1410651270101331844487,0.677001919140020169685,1.5027782434779339837405,\
0.4840122714003086690227,1.0939971143713191903402,1.1354027775868176242113,\
1.2025671422981056846169,1.3200023979900399329068,0.2878762084297626921980,\
0.2659639364881328793544,0.3309563133803885004447,1.0613976119428301103653,\
0.5905886949329369750572,0.84881047253311037171,0.6818405058224251691357,\
1.4689172047242584628890,0.3984077871527766379067,0.7826684691736193189016,\
1.1863976071520063726439,0.8421875864316380466690,0.6964016273061860440308,\
0.2774051332309265816001,0.5780614975169666713839,0.4360596809152573194446,\
1.0570616474517706695480,1.3698760574306645398934,0.8033735187122362786383,\
1.100195299896877587642,0.7466330742895204153342,1.3719281224888897341430,\
0.5006805450256617273652,0.6022149721715611692119,0.1100515320096066840261,\
0.1615487638997855912582,0.9853189831543425203364,0.6441365190650450989196,\
0.9525486295501676137221,1.540681786544560338825,0.3234105928346787672822,\
0.9457654725170446807780,0.4366658824494836776964,1.4454467286135332937391,\
0.5286797419321711544171,0.6306769685466229180548,0.8502600566998695930110,\
1.3901817278534140953639,0.4379816003966337523146,1.0872460520812594619855,\
0.5452429334871597976786,0.8427783441184910628863,1.1492861648773524674283,\
1.346792368827264718689,0.665745289338786183642,0.2639277343938546960267,\
0.7696845111061191291313,0.6789773815510785626159,1.1019111077295657974418,\
0.0461157104075398602272,0.5610787453255564605215,1.4634600366382779501606,\
0.9969191986962234741654,0.1524913254966685227654,1.2588290814744897971877,\
0.7073635046287626293449,0.4488022872724745648831,0.0037636205385015429094,\
0.6259389684526723840463,0.8276134607557569244918,0.9328971084913546540918,\
0.9537519653655091023126,0.3009556732582234217510,1.3951370123387065724785,\
0.2467179687642131191705,0.9127106501576134345299,0.4528896475979662383793,\
1.2351598243895067774645,0.7619639996129009551495,1.0726338584530288322583,\
1.220269965181696392165,1.3029226301867964377124,1.4189980227900089726489,\
1.5051832236136615250643,0.7225617055791342391302,0.0478600995604049964105,\
0.710883123025403795836,1.2310328539390928970221,0.8735414139313334436210,\
0.8209275679220129351421,0.0950735258592600440686,0.1443422571457730618771,\
0.0223460331642115414552,1.443489200421151252840,1.2774801572114198311425,\
0.1717450012966928174496,0.6769828145758884918593}




	/* in is between 0 and 1
	   in2 between 0 and 10 */



void dlog1psTest(void) {
	double in[]=SOURCE;
	double res[]=RESULT;
	double out;
	double in2[]=SOURCE2;
	double res2[]=RESULT2;
	int i;
	
	for (i=0;i<200;i++) {
		in[i]=in[i]-1;
		in2[i]=in2[i]-1;
	}

	for (i=0;i<200;i++){
	out=dlog1ps(in[i]);
	assert(( (fabs(out-res[i]))/(fabs(out)) )<3e-16);
	}
	
	
	for (i=0;i<200;i++){
	out=dlog1ps(in2[i]);
	assert(( (fabs(out-res2[i]))/(fabs(out)) )<3e-16);
	}
  
}


void zlog1psTest(void) {
	double inR[]=ZSOURCER;
	double inI[]=ZSOURCEI;
	double resR[]=ZRESULTR;
	double resI[]=ZRESULTI;
	double in2R[]=ZSOURCE2R;
	double in2I[]=ZSOURCE2I;
	double res2R[]=ZRESULT2R;
	double res2I[]=ZRESULT2I;
	doubleComplex in,in2,out;
	int i;

	for (i=0;i<200;i++){
		in=DoubleComplex(inR[i]-1,inI[i]);
		out=zlog1ps(in);
		assert(( (fabs(zreals(out)-resR[i]))/(fabs(zreals(out))) )<3e-15);	
		assert(( (fabs(zimags(out)-resI[i]))/(fabs(zimags(out))) )<3e-15);			
	}
	
	for (i=0;i<200;i++){
		in2=DoubleComplex(in2R[i]-1,in2I[i]);
		out=zlog1ps(in2);
		assert(( (fabs(zreals(out)-res2R[i]))/(fabs(zreals(out))) )<3e-16);	
		assert(( (fabs(zimags(out)-res2I[i]))/(fabs(zimags(out))) )<1e-16);			
	}
	
}

void dlog1paTest(void) {
	double in[]=SOURCE;
	double res[]=RESULT;
	double out[200];
	double in2[]=SOURCE2;
	double res2[]=RESULT2;
	int i;

	for (i=0;i<200;i++) {
		in[i]=in[i]-1;
		in2[i]=in2[i]-1;
	}

	dlog1pa(in,200,out);
	for (i=0;i<200;i++){
		assert(( (fabs(out[i]-res[i]))/(fabs(out[i])) )<3e-16);
	}
	
	dlog1pa(in2,200,out);
	for (i=0;i<200;i++){
		assert(( (fabs(out[i]-res2[i]))/(fabs(out[i])) )<3e-16);
	}
}

void zlog1paTest(void) {
	double inR[]=ZSOURCER;
	double inI[]=ZSOURCEI;
	double resR[]=ZRESULTR;
	double resI[]=ZRESULTI;
	double in2R[]=ZSOURCE2R;
	double in2I[]=ZSOURCE2I;
	double res2R[]=ZRESULT2R;
	double res2I[]=ZRESULT2I;
	doubleComplex *in,*in2,out[200];
	int i;
	
	
	for (i=0;i<200;i++) {
		inR[i]=inR[i]-1;		
		in2R[i]=in2R[i]-1;
	}

	in=DoubleComplexMatrix(inR,inI,200);
	zlog1pa(in,200,out);

	for (i=0;i<200;i++){
		assert(( (fabs(zreals(out[i])-resR[i]))/(fabs(zreals(out[i]))) )<3e-15);	
		assert(( (fabs(zimags(out[i])-resI[i]))/(fabs(zimags(out[i]))) )<3e-15);			
	}
	
	in2=DoubleComplexMatrix(in2R,in2I,200);
	zlog1pa(in2,200,out);

	for (i=0;i<200;i++){
		assert(( (fabs(zreals(out[i])-res2R[i]))/(fabs(zreals(out[i]))) )<3e-16);	
		assert(( (fabs(zimags(out[i])-res2I[i]))/(fabs(zimags(out[i]))) )<1e-16);			
	}
	
}





int testLog1p(void) {
  printf("\n>>>> Double Logarithm x + 1 Tests\n");
  dlog1psTest();
  zlog1psTest();
  dlog1paTest();
  zlog1paTest();

  return 0;
}

int main(void) {
  assert(testLog1p() == 0);
  return 0;
}