diff options
Diffstat (limited to 'src/elementaryFunctions/log/testDoubleLog.c')
| -rw-r--r-- | src/elementaryFunctions/log/testDoubleLog.c | 1167 |
1 files changed, 465 insertions, 702 deletions
diff --git a/src/elementaryFunctions/log/testDoubleLog.c b/src/elementaryFunctions/log/testDoubleLog.c index 8f743d47..2930c205 100644 --- a/src/elementaryFunctions/log/testDoubleLog.c +++ b/src/elementaryFunctions/log/testDoubleLog.c @@ -1,6 +1,6 @@ /* * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * Copyright (C) 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 @@ -10,719 +10,482 @@ * */ -#include <assert.h> -#include <math.h> #include "testLog.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} + + + + void dlogsTest(void) { - double value = 0; - double maxValue = 1; - double increment = 1e-3; - printf(">> Double scalar\n"); - while (value <= maxValue) - { - printf("dlogs(%e) = %e\n", value, dlogs(value)); - assert(dlogs(value) == log(value)); - value += increment; - } + double in[]=SOURCE; + double res[]=RESULT; + double out; + int i; + + for (i=0;i<200;i++){ + out=dlogs(in[i]); + assert(( (fabs(out-res[i]))/(fabs(out)) )<1e-15); + } } void zlogsTest(void) { - doubleComplex z; - doubleComplex result; - double real_z = 0; - double imag_z = 1; - double increment = 1e-3; - int i = 0; - double imag_results[1001] = {1.570796326794896557999,1.5697953261282306947066,1.5687923214615888678480, - 1.5677873087950919828160,1.5667802841290545678987,1.5657712434640842502631, - 1.564760182801179899670,1.56374709814183332490,1.5627319854881296379290, - 1.5617148408428498385092,1.5606956602095747310699,1.559674439592788397491, - 1.5586511749979845564695,1.5576258624317718126662,1.556598497901982236513, - 1.5555690774177792778943,1.5545375969897670120901,1.553504052630100940036, - 1.5524684403525998988016,1.5514307561728579720750,1.5503909961083586210862, - 1.5493491561785892596248,1.5483052324051571613239,1.5472592208119066992111, - 1.5462111174250365852600,1.5451609182732191083431,1.5441086193877209264969, - 1.543054216802523415097,1.5419977065544454575274,1.5409390846832671240207, - 1.539878347231854016641,1.5388154902462822803955,1.53775050977596672297, - 1.5366834018737876021987,1.5356141625962203001166,1.5345427880034654410935, - 1.5334692741595803422427,1.5323936171326106858714,1.531315812994725744645, - 1.5302358578223516083483,1.529153747696308185411,1.5280694787019462044242, - 1.5269830469292851038432,1.525894448473152920087,1.5248036794333270638191, - 1.523710735914676206448,1.5226156140273030548116,1.5215183098866889022105, - 1.5204188196138388455836,1.5193171393354292231237,1.5182132651839548298511, - 1.5171071932978785756774,1.515998919821781143469,1.5148884409065135336903, - 1.5137757527093491649595,1.5126608513941386391366,1.5115437331314642843694, - 1.5104243940987973626733,1.5093028304806559436457,1.5081790384687634443139, - 1.5070530142622096114735,1.5059247540676112819824,1.5047942540992766957686, - 1.503661510579368476570,1.5025265197380690551654,1.5013892778137485351, - 1.5002497810531314481608,1.4991080257114668405904,1.4979640080526985812526, - 1.4968177243496376682685,1.4956691708841345356262,1.4945183439472546904625, - 1.4933652398394536842119,1.4922098548707547482906,1.49105218536092731796, - 1.489892227639666000272,1.4887299780467728727018,1.4875654329323388935791, - 1.486398588656928421159,1.4852294415917637326885,1.4840579881189115418749, - 1.4828842246314710706656,1.4817081475337632312517,1.4805297532415202521605, - 1.4793490381820781909283,1.4781659987945705569956,1.4769806315301210464241, - 1.4757929328520416056847,1.474602899236027608865,1.4734105271703576978126, - 1.4722158131560936222826,1.4710187537072805241678,1.4698193453511505524034, - 1.4686175846283266999137,1.467413468093027972827,1.466206992313275891959, - 1.4649981538711029926958,1.4637869493627619910114,1.4625733753989369478887, - 1.4613574286049553219158,1.4601391056210009100624,1.4589184031023301191254, - 1.4576953177194871269506,1.456469846158521930235,1.4552419851212090584625, - 1.4540117313252691744196,1.452779081504589342444,1.4515440324094470714300, - 1.4503065808067345798804,1.44906672348018505936,1.4478244572305993820294, - 1.4465797788760752506931,1.4453326852522365708609,1.4440831732124654873672, - 1.442831239628135309161,1.4415768813888432120507,1.4403200954026473823433, - 1.4390608785963028282140,1.4377992279155000776569,1.4365351403251040984799, - 1.4352686128093958828345,1.4339996423723140317463,1.4327282260376990041806, - 1.4314543608495373661071,1.4301780438722087041015,1.4288992721907327609898, - 1.4276180429110183478514,1.42633435316011403238,1.425048200086459271319, - 1.4237595808601379854252,1.4224684926731319123405,1.4211749327395766240301, - 1.4198788982960188764793,1.4185803866016732932565,1.417279394938683934058, - 1.4159759206123831987156,1.4146699609515545059679,1.41336151330869608245, - 1.412050575060284973716,1.410737143607043275750,1.4094212163742050325510, - 1.4081027908117846880742,1.406781864394846870425,1.4054584346237766201426, - 1.404132499024553171196,1.4028040551490210674501,1.4014731005751663861503, - 1.4001396329073920732355,1.3988036497767948329596,1.3974651488414431277363, - 1.3961241277866569543420,1.3947805843252880642069,1.393434516198001738019, - 1.392085921173560114639,1.3907347970491055200171,1.389381141650446238600, - 1.3880249528323420626919,1.3866662284787927283958,1.3853049665033256854230, - 1.3839411648492856432568,1.3825748214901258936749,1.3812059344296994112256, - 1.3798345017025526182408,1.3784605213742178175806,1.3770839915415098442253, - 1.3757049103328202743768,1.3743232759084158534080,1.3729390864607358135885, - 1.3715523402146905240784,1.3701630354279619172786,1.3687711703913041372260, - 1.3673767434288452982116,1.3659797528983903536215,1.3645801971917246309118, - 1.3631780747349182547623,1.3617733839886319024970,1.3603661234484230035946, - 1.3589562916450523832879,1.3575438871447929046,1.3561289085497376661, - 1.354711354498110198463,1.3532912236645742165564,1.3518685147605449259345, - 1.3504432265345009955837,1.349015357772297418748,1.3475849072974774855993, - 1.3461518739715887527097,1.3447162566944956818560,1.3432780544046969417593, - 1.3418372660796391571,1.3403938907360350984987,1.338947927430179873909, - 1.3374993752582693407049,1.3360482333567174073607,1.3345945009024753336035, - 1.3331381771133508085114,1.3316792612483276947444,1.3302177526078862168646, - 1.328753650534323593746,1.3272869544120742268944,1.3258176636680325533035, - 1.3243457777718732337746,1.3228712962363746719063,1.3213942186177398685487, - 1.3199145445159203848817,1.3184322735749383070925,1.3169474054832097653644, - 1.3154599399738684528671,1.3139698768250889227005,1.3124772158604098848400, - 1.3109819569490586133043,1.3094841000062746872,1.3079836449936335096567, - 1.3064805919193711591930,1.3049749408387070204185,1.303466691854169301479, - 1.3019558451159176648559,1.3004424008220680786252,1.2989263592190158913553, - 1.2974077206017595731424,1.295886485314224012555,1.2943626537495847017567, - 1.2928362263505888130055,1.2913072036098802719550,1.2897755860703199459749, - 1.288241374325309163140,1.2867045690191112328193,1.2851651708471720780835, - 1.2836231805564422003840,1.2820785989456959796939,1.2805314268658525289624, - 1.278981665220294328122,1.2774293149651869683225,1.2758743771097962316219, - 1.2743168527168069470434,1.2727567429026385159574,1.2711940488377622138216, - 1.2696287717470162714761,1.2680609129099198462143,1.2664904736609883251219, - 1.2649174553900444095689,1.263341859542532086,1.2617636876198263795601, - 1.2601829411795437696497,1.2585996218358515008617,1.257013731259776001536, - 1.2554252711795088615077,1.2538342433807134757018,1.2522406497068294672914, - 1.2506444920593762226702,1.2490457723982544280261,1.24744449274204782796, - 1.2458406551683223195681,1.2442342618139237142572,1.242625314875275499560, - 1.2410138166086728261917,1.2393997693305771612415,1.2377831754179078327383, - 1.2361640373083335742166,1.2345423575005600724808,1.2329181385546181815016, - 1.2312913830921494717785,1.2296620937966895592552,1.2280302734139503240129, - 1.2263959247520994644276,1.2247590506820398292831,1.2231196541376838649029, - 1.2214777381162298386386,1.2198333056784325112432,1.2181863599488738092447, - 1.2165369041162303886949,1.214884941433540310740,1.213230475218465720388, - 1.2115735088535537489207,1.2099140457864971942570,1.20825208953038898407, - 1.2065876436639777491422,1.204920711831919399870,1.2032512977450251501210, - 1.2015794051805095410401,1.1999050379822342460301,1.19822820006094832301, - 1.1965488953945284666958,1.1948671280282132656225,1.1931829020748381253725, - 1.1914962217150639745000,1.18980709119760530434,1.1881155148394548781710, - 1.186421497026104665551,1.1847250422117647783438,1.18302615491957752170, - 1.1813248397418318891283,1.1796211013401700640202,1.1779149444457950313137, - 1.176206373859671527882,1.1744953944527267708509,1.1727820111660447466306, - 1.17106622901105983381,1.1693480530697442087984,1.1676274884947945853497, - 1.1659045405098131809041,1.1641792144094857963665,1.162451515559756565210, - 1.1607214493979982616878,1.1589890214331801665537,1.1572542372460294934911, - 1.1555171024891925934952,1.1537776228873888317850,1.1520358042375624663123, - 1.1502916524090305294692,1.148545173343624492546,1.146796373055831930188, - 1.1450452576329288589818,1.1432918332351125201285,1.1415361060956270566891, - 1.1397780825208860822073,1.1380177688905903643501,1.1362551716578412897007, - 1.1344902973492503317487,1.1327231525650432,1.1309537439791603752326, - 1.1291820783393522464877,1.1274081624672693813238,1.1256320032585505064304, - 1.1238536076829019894063,1.1220729827841755543716,1.1202901356804402244194, - 1.1185050735640489349976,1.1167178037017011504872,1.1149283334344997076215, - 1.1131366701780036621017,1.1113428214222749179640,1.109546794731919971966, - 1.1077485977461289934354,1.1059482381787049121158,1.104145723818092728052, - 1.102341062527399495607,1.1005342622444107547608,1.0987253309816022994738, - 1.0969142768261448406264,1.095101107939904450106,1.093285832559437675826, - 1.0914684589959806615411,1.089648995635432715545,1.0878274509383352164349, - 1.0860038334398436354888,1.0841781517496953402002,1.0823504145521702923816, - 1.0805206306060477494668,1.07868880874455563834,1.0768549578753152662358, - 1.0750190869802800364141,1.0731812051156675025254,1.0713413214118872041070, - 1.0694994450734611746157,1.067655585378939564478,1.0658097516808091587137, - 1.0639619534053976757093,1.0621122000527702944339,1.0602605011966212966712, - 1.0584068664841590479142,1.056551305635985427145,1.0546938284459690393646, - 1.0528344447811124329206,1.05097316458141221140,1.0491099978597144826153, - 1.0472449547015627580038,1.0453780452650414112270,1.0435092797806102549174, - 1.0416386685509357867829,1.0397662219507142200570,1.037891950426488962833, - 1.0360158644964616581063,1.0341379747502967845207,1.0322582918489204839574, - 1.0303768265243125057395,1.02849358957929193359,1.0266085918872964732884, - 1.0247218443921561892296,1.0228333581078588032653,1.0209431441183116628935, - 1.0190512135770939395,1.0171575777072057178430,1.015262247800807537956, - 1.0133652352189561618445,1.0114665513913321248651,1.0095662078159624019946, - 1.0076642160589341923327,1.0057605877541055949820,1.0038553346028069590545, - 1.001948468373537570741,1.0000400009016550129104,0.9981299440890585294994, - 0.9962183099038656175495,0.9943051103800828460777,0.9923903576172693474788, - 0.9904740637801946467889,0.9885562410984901626776,0.9866369018662933809694, - 0.9847160584418865880707,0.9827937232473290540824,0.9808699087680825545732, - 0.9789446275526308971493,0.9770178922120928977080,0.9750897154198289173976, - 0.9731601099110416264182,0.9712290884823702175055,0.9692966639914780691001, - 0.9673628493566341912668,0.9654276575562896756111,0.9634911016286458185220, - 0.9615531946712180255687,0.9596139498403923884240,0.9576733803509768216955, - 0.955731499475745649441,0.9537883205449780854579,0.9518438569459916065441, - 0.9498981221226678872682,0.9479511295749735166893,0.9460028928584756080511, - 0.9440534255838497479374,0.9421027414163830604465,0.9401508540754719422949, - 0.9381977773341128035156,0.9362435250183880341979,0.9342881110069455319334, - 0.9323315492304732332585,0.9303738536711673168256,0.9284150383621952995483, - 0.9264551173871538036764,0.9244941048795195515098,0.9225320150220966963772, - 0.9205688620464572702318,0.9186046602323768572873,0.9166394239072653826739, - 0.9146731674455913507771,0.9127059052683024198416,0.9107376518422396483032, - 0.9087684216795471892070,0.9067982293370766555540,0.9048270894157867116903, - 0.9028550165601375576685,0.9008820254574807506742,0.8989081308374433643138, - 0.8969333474713091503006,0.8949576901713925947135,0.8929811737904106427877, - 0.8910038132208482064556,0.8890256233943200081526,0.8870466192809270955522, - 0.8850668158886103586980,0.8830862282624984960222,0.8811048714842520945822, - 0.879122760671403380428,0.8771399109766925272780,0.87515633758739885817, - 0.8731720557246687164366,0.8711870806428393398946,0.8692014276287590712755, - 0.8672151120011029057366,0.8652281491096855958745,0.8632405543347704268697, - 0.8612523430863743278962,0.8592635308035696528606,0.8572741329537831855845, - 0.8552841650320908151173,0.8532936425605093244684,0.8513025810872857368494, - 0.8493109961861823320461,0.8473189034557596643893,0.8453263185186561390339, - 0.8433332570208652567700,0.8413397346310093061206,0.8393457670396108349919, - 0.8373513699583621239242,0.8353565591193911066270,0.8333613502745249590475, - 0.8313657591945528002597,0.8293698016684838414392,0.8273734935028056458606, - 0.8253768505207383920919,0.823379888561488582077,0.8213826234794999736621, - 0.8193850711437031808515,0.8173872474367634977099,0.8153891682543262797722, - 0.8133908495042622144311,0.8113923071059100378122,0.8093935569893182524481, - 0.8073946150944851796183,0.8053954973705989006660,0.8033962197752745337809, - 0.8013967982737918438474,0.7993972488383314090044,0.7973975874472095659584, - 0.7953978300841135773425,0.7933979927373349116948,0.7913980913990035226391, - 0.7893981420643197965958,0.7873981607307880548063,0.7853981633974482789995, - 0.7833981660641086142149,0.7813981847305768724254,0.7793982353958931463822, - 0.7773983340575616463042,0.7753984967107830916788,0.7733987393476869920406, - 0.7713990779565652600169,0.7693995285211047141516,0.7674001070196221352404, - 0.7654008294242977683552,0.7634017117004113783807,0.7614027698055784165732, - 0.7594040196889865201868,0.7574054772906344545902,0.7554071585405703892491, - 0.7534090793581331713114,0.7514112556511933771475,0.7494137033153966953591, - 0.7474164382334080869441,0.7454194762741582769294,0.7434228332920909121384, - 0.7414265251264127165598,0.7394305676003437577393,0.7374349765203715989514, - 0.7354397676755054513720,0.7334449568365344340748,0.7314505597552857230070, - 0.7294565921638872518784,0.7274630697740313012289,0.7254700082762404189651, - 0.7234774233391368936097,0.7214853306087142259528,0.719493745707610821150, - 0.7175026842343872335306,0.7155121617628057428817,0.7135221938411133724145, - 0.7115327959913269051384,0.7095439837085222301027,0.7075557724601261311292, - 0.7055681776852109621245,0.7035812147937936522624,0.7015948991661374867235, - 0.6996092461520572181044,0.697624271070227841562,0.6956399892074978108525, - 0.6936564158182040307210,0.6916735661234931775709,0.6896914553106445744390, - 0.6877100985323980619768,0.6857295109062861993010,0.6837497075139695734691, - 0.6817707034005766608686,0.6797925135740482405211,0.6778151530044858041890, - 0.6758386366235039632855,0.6738629793235874076984,0.6718881959574530826629, - 0.6699143013374158073248,0.6679413102347588893082,0.6659692373791098463087, - 0.6639980974578199024450,0.6620279051153493687920,0.6600586749526569096957, - 0.6580904215265941381574,0.6561231593493052072219,0.6541569028876311753251, - 0.6521916665625195896894,0.6502274647484392877672,0.6482643117727997505995, - 0.6463022219153768954669,0.6443412094077427543226,0.6423812884327011474284, - 0.6404224731237292411734,0.6384647775644233247405,0.6365082157879510260656, - 0.6345528017765085238011,0.6325985494607837544834,0.6306454727194247267263, - 0.6286935853785136085747,0.6267429012110469210839,0.6247934339364209499479, - 0.6228451972199230413096,0.6208982046722287817531,0.6189524698489049514549, - 0.6170080062499184725411,0.6150648273191509085578,0.6131229464439197363035, - 0.6111823769545041695750,0.6092431321236785324302,0.6073052251662507394769, - 0.6053686692386068823879,0.6034334774382623667321,0.60149966280341848890, - 0.5995672383125262294712,0.5976362168838549315808,0.5957066113750676406013, - 0.5937784345828036602910,0.5918516992422656608497,0.5899264180268140034258, - 0.5880026035475675039166,0.5860802683530099699283,0.5841594249286031770296, - 0.5822400856964063953214,0.5803222630147019112101,0.5784059691776272105201, - 0.5764912164148137119213,0.5745780168910309404495,0.5726663827058381395219, - 0.57075632589324154509,0.5688478584213590982799,0.5669409921920897099668, - 0.5650357390407910740393,0.5631321107359624766886,0.5612301189789342670267, - 0.5593297754035644331339,0.5574310915759405071768,0.5555340789940891310650, - 0.5536387490876909511783,0.5517451132178026185215,0.5498531826765850061278, - 0.5479629686870377547336,0.5460744824027404797917,0.5441877349076000847106, - 0.5423027372156047354324,0.5404195002705841632817,0.5385380349459761850639, - 0.5366583520445998845005,0.5347804622984350109149,0.5329043763684075951659, - 0.5310301048441823379420,0.5291576582439608822384,0.5272870470142864141039, - 0.5254182815298552577943,0.5235513720933337999952,0.5216863289351821864059, - 0.5198231622134843465943,0.5179618820137841250784,0.5161024983489275186344, - 0.5142450211589112418764,0.5123894603107377321294,0.5105358255982753723501, - 0.5086841267421262635651,0.5068343733894988822897,0.5049865751140873992853, - 0.5031407414159571045431,0.5012968817214354944056,0.4994550053830094649143, - 0.4976151216792291109847,0.4957772398146165215849,0.4939413689195811807409, - 0.4921075180503408641464,0.4902756961888487530210,0.4884459122427262101063, - 0.4866181750452012177988,0.4847924933550528669990,0.4829688758565612860529, - 0.4811473311594637869426,0.4793278677989158409467,0.4775104942354588266618, - 0.475695218854992052382,0.4738820499687516618614,0.4720709958132941475029, - 0.4702620645504857477270,0.4684552642674971179026,0.4666506029768038299466, - 0.4648480886161916458832,0.4630477290487676756,0.4612495320629764750109, - 0.4594535053726217510572,0.4576596566168927848750,0.4558679933603967393552, - 0.4540785230931954630229,0.4522912532308477895349,0.4505061911144565001131, - 0.4487233440107211146497,0.4469427191119946796150,0.4451643235363461070797, - 0.4433881643276271766752,0.4416142484555444780447,0.4398425828157361272552, - 0.4380731742298533126778,0.4363060294456462817614,0.4345411551370553238094, - 0.4327785579043062491600,0.4310182442740104757917,0.4292602206992695013099, - 0.4275044935597840933816,0.4257510691619678100395,0.4239999537390647388335, - 0.4222511534512720099421,0.4205046743858661395521,0.4187605225573339806644, - 0.4170187039075077262140,0.4152792243057039089926,0.413542089548867008997, - 0.4118073053617164469564,0.4100748773968981852889,0.4083448112351400483000, - 0.4066171123854107616324,0.4048917862850833770949,0.4031688383001019726493, - 0.4014482737251524047117,0.3997300977838368352124,0.3980143156288518113683, - 0.3963009323421698981704,0.3945899529352250856284,0.392881382349101637708, - 0.3911752254547264384676,0.3894714870530646688707,0.3877701718753189807920, - 0.3860712845831319461887,0.3843748297687918369370,0.3826808119554416798280, - 0.3809892355972912536544,0.3793001050798326390101,0.3776134247200584326265, - 0.3759291987666832368653,0.3742474314003681468144,0.3725681267339481794743, - 0.3708912888126623674800,0.3692169216143869614477,0.3675450290498715189003, - 0.3658756149629772691512,0.3642086831309186978345,0.3625442372645075739257, - 0.3608822810083993637420,0.3592228179413426980560,0.3575658515764308931217, - 0.3559113853613561362366,0.3542594226786661137929,0.3526099668460228042655, - 0.3509630211164639912447,0.3493185886786666638493,0.3476766726572126375849, - 0.3460372761128568397382,0.3444004020427970935714,0.3427660533809463450083, - 0.3411342329982069987437,0.3395049437027470862205,0.3378781882402784320085, - 0.3362539692943366520517,0.3346322894865630948047,0.3330131513769887252607, - 0.3313965574643195077797,0.3297825101862238428296,0.328171011919621113950, - 0.3265620649809728437418,0.3249556716265743494532,0.3233518340528487855501, - 0.3217505543966421854840,0.3201518347355203908400,0.3185556770880670907076, - 0.3169620834141831378084,0.3153710556153878075136,0.3137825955351206674848, - 0.312196704959045057137,0.3106133856153528993715,0.3090326391750702339500, - 0.3074544672523644162077,0.3058788714048521484301,0.3043058531339083438993, - 0.3027354138849767117847,0.3011675550478803420340,0.2996022779571342886662, - 0.2980395838922579865304,0.2964794740780896109555,0.2949219496851002708659, - 0.2933670118297096451876,0.2918146615746022853877,0.2902648999290441400589, - 0.2887177278492006338162,0.2871731462384544131261,0.2856311559477244799155, - 0.2840917577757854362019,0.2825549524695874503699,0.2810207407245767230464, - 0.2794891231850163970662,0.2779601004443076894823,0.2764336730453119672646, - 0.2749098414806724899329,0.2733886061931370958789,0.2718699675758806666437, - 0.2703539259728284238626,0.2688404816789788376319,0.2673296349407273675425, - 0.2658213859561895930916,0.2643157348755255653394,0.2628126818012631038535, - 0.2613122267886220373434,0.2598143698458381112282,0.258319110934486839692, - 0.2568264499698077463208,0.2553363868210280496207,0.2538489213116867371234, - 0.2523640532199582509065,0.2508817822789761176061,0.2494021081771566061835, - 0.247925030558521886093,0.2464505490230232687132,0.2449786631268641157178, - 0.2435093723828223866157,0.2420426762605731030309,0.2405785741870103133788, - 0.2391170655465688632546,0.2376581496815458327543,0.2362018258924213076622, - 0.2347480934381791783938,0.2332969515366271895385,0.2318483993647166008234, - 0.2304024360588615150114,0.2289590607152574286420,0.2275182723901996439952, - 0.2260800701004007651207,0.2246444528233079163115,0.2232114194974190723997, - 0.2217809690225992780288,0.2203531002603955069041,0.2189278120343516598201, - 0.2175051031303223969537,0.2160849722967863872913,0.2146674182451589196763, - 0.2132524396501037644569,0.2118400351498442302223,0.2104302033464735821600, - 0.2090229428062645999908,0.2076182520599783032367,0.2062161296031719548427, - 0.2048165738965061488663,0.2034195833660511765206,0.2020251564035923375062, - 0.2006332913669345296981,0.1992439865802059506539,0.1978572403341606888993, - 0.1964730508864806213243,0.1950914164620763113778,0.193712335253386824796, - 0.1923358054206787126628,0.1909618250923439952693,0.1895903923651970912623, - 0.1882215053047707475908,0.1868551619456109424977,0.1854913602915709003316, - 0.1841300983161037740921,0.1827713739625544397960,0.181415185144450374910, - 0.1800615297457910102263,0.1787104056213364711159,0.177361810596894875491, - 0.1760157424696086603255,0.1746721990082396869237,0.1733311779534534302627, - 0.1719926770181017250394,0.1706566938875044570079,0.1693232262197302273599, - 0.167992271645875629327,0.1666638277703435255805,0.1653378921711199101008, - 0.1640144624000498263516,0.1626935359831118421692,0.1613751104206914421813, - 0.1600591831878531989819,0.1587457517346115565271,0.1574348134862005310630, - 0.1561263658433421352978,0.154820406182513470306,0.1535169318562126239414, - 0.1522159401932232092314,0.1509174284988777925420,0.1496213940553199062133, - 0.1483278341217647011696,0.1470367459347586003293,0.1457481267084373144360, - 0.1444619736347826643996,0.1431782838838783211699,0.1418970546041639080315, - 0.14061828292268785390,0.1393419659453591641363,0.1380681007571975815740, - 0.1367966844225825262527,0.1355277139855007029201,0.1342611864697924317635, - 0.1329970988793964803421,0.1317354481985936742738,0.1304762313922492034113, - 0.1292194454060534014594,0.1279650871667613598603,0.1267131535824309873650, - 0.1254636415426600704048,0.1242165479188213905726,0.1229718695642971343363, - 0.1217296033147114708850,0.1204897459881619503630,0.1192522943854495420801, - 0.11801724529030725719,0.1167845954696273835793,0.1155543416736874440254, - 0.1143264806363747249085,0.1131010090754094032928,0.1118779236925663556068, - 0.1106572211738956201810,0.1094388981899413609833,0.1082229513959596378658, - 0.1070093774321346363765,0.1057981729237936763255,0.1045893344816207215509, - 0.1033828587018685990495,0.1021787421665698025741,0.1009769814437460333512, - 0.0997775730876161448535,0.0985805136388030051053,0.0973857996245388046752, - 0.0961934275588689907677,0.0950033939428549939477,0.0938156952647754421859, - 0.0926303280003260703923,0.0914472886128183115595,0.0902665735533764307386, - 0.0890881792611334238918,0.0879121021634254734556,0.0867383386759850993908, - 0.0855668852031329085772,0.0843977381379681090845,0.0832308938625576089088, - 0.0820663487481237130527,0.0809040991552305716050,0.0797441414339693233071, - 0.0785864719241417958306,0.0774310869554429292982,0.0762779828476419508032, - 0.0751271559107620501283,0.0739786024452589452416,0.0728323187421979212353, - 0.0716883010834297451641,0.0705465457417651653493,0.0694070489811480784148, - 0.0682698070568275028336,0.0671348162155281785735,0.0660020726956198205970, - 0.0648715727272852482610,0.0637433125326870575478,0.0626172883261330720517, - 0.0614934963142405657810,0.0603719326960991398145,0.0592525936634323291408, - 0.0581354754007579882513,0.0570205740855473999784,0.0559078858883830936977, - 0.0547974069731154561635,0.0536891334970180447717,0.0525830616109416934534, - 0.0514791874594673765086,0.0503775071810577956821,0.0492780169082077945664, - 0.0481807127675935101263,0.0470855908802202821617,0.0459926473615694317298, - 0.0449018783217436864841,0.0438132798656115721170,0.0427268480929504368415, - 0.0416425790985884072826,0.0405604689725450398563,0.0394805138001709035600, - 0.0384027096622858721275,0.0373270526353163198396,0.0362535387914310822111, - 0.0351821641986762925769,0.0341129249211090529448,0.0330458170189299321740, - 0.0319808365486143192369,0.0309179795630426246245,0.0298572421116293819365, - 0.0287986202404511282271,0.0277421099923732678016,0.0266877074071757182383, - 0.0256354085216774600642,0.0245852093698600351890,0.0235371059829898345017, - 0.0224910943897393758584,0.0214471706163074336826,0.0204053306865380652824, - 0.0193655706220386310268,0.0183278864422966349113,0.0172922741647955485744, - 0.0162587298051295667256,0.0152272493771172801047,0.0141978288929142971997, - 0.0131704643631248077829,0.0121451517969121264295,0.0111218872021081639778, - 0.0101006665853218859097,0.0090814859520467264287,0.0080643413067669911937, - 0.0070492286530632391681,0.0060361439937166513903,0.0050250833308123901352, - 0.0040160426658419658141,0.0030090179998046046733,0.0020040053333076268335, - 0.0010010006666658444272,0}; - double real_results[1001] = {0,-0.0009999993323325344352,-0.0019999946506410685304,-0.0029999819188056050384, - -0.0039999570765141554199,-0.0049999160391667610628,-0.0059998546977795283799, - -0.0069997689188886916614,-0.0079996545444547054182,-0.0089995073917663610114, - -0.0099993232533449744048,-0.0109990978968485808576,-0.0119988270649762310965, - -0.0129985064753723074393,-0.0139981318205309405306,-0.0149976987677004763855, - -0.0159972029587880440471,-0.0169966400102642030412,-0.0179960055130676879753, - -0.0189952950325102572215,-0.0199945041081816508866,-0.0209936282538546632737, - -0.0219926629573903437143,-0.0229916036806433361772,-0.0239904458593673472477, - -0.0249891849031207528842,-0.0259878161951723994638,-0.0269863350924075123816, - -0.0279847369252338336321,-0.0289830169974878808226,-0.0299811705863414490469, - -0.0309791929422082584766,-0.0319770792886508309349,-0.0329748248222875919855, - -0.0339724247127001638402,-0.0349698741023408907203,-0.0359671681064406417727, - -0.0369643018129167874597,-0.0379612702822815228920,-0.0389580685475503715742, - -0.0399546916141510013998,-0.0409511344598323528965,-0.0419473920345739825777, - -0.0429434592604957879325,-0.0439393310317679960941,-0.0449350022145214716973, - -0.0459304676467583994359,-0.0469257221382632649931,-0.0479207604705141898549, - -0.0489155773965946408244,-0.0499101676411055142357,-0.0509045259000775809910, - -0.0518986468408843271138,-0.0528925251021552522701,-0.0538861552936894389054, - -0.0548795319963697458832,-0.0558726497620772311059,-0.0568655031136061916985, - -0.0578580865445795233803,-0.0588503945193646765821,-0.0598424214729899386911, - -0.0608341618110613754911,-0.0618256099096801195469,-0.0628167601153602622732, - -0.0638076067449473011139,-0.0647981440855368573395,-0.0657883663943947261110, - -0.0667782678988761563277,-0.0677678427963468860140,-0.0687570852541043719963, - -0.0697459894092994497905,-0.0707345493688587984016,-0.0717227592094079741125, - -0.0727106129771950271401,-0.0736981046880148954470,-0.0746852283271343259097, - -0.0756719778492175032536,-0.0766583471782524977778,-0.0776443302074781432909, - -0.0786299207993119420035,-0.0796151127852784273875,-0.0805998999659385123584, - -0.0815842761108193093023,-0.0825682349583450603259,-0.0835517702157685115960, - -0.0845348755591033423906,-0.0855175446330572741616,-0.0864997710509660538980, - -0.0874815483947282285238,-0.0884628702147409184953,-0.0894437300298361742668, - -0.0904241213272185678784,-0.0914040375624034368007,-0.0923834721591561269793, - -0.0933624185094322073253,-0.0943408699733185307501,-0.0953188198789752805240, - -0.0962962615225792101237,-0.0972731881682673965583,-0.0982495930480825896414, - -0.0992254693619191163734,-0.1002008102774699649373,-0.1011756089301752148391, - -0.1021498584231709527703,-0.1031235518272398815620,-0.1040966821807625952712, - -0.1050692424896702420467,-0.1060412257273982139516,-0.1070126248348409747635, - -0.1079834327203081506541,-0.1089536422594816894582,-0.109923246295374366088, - -0.1108922376382893704161,-0.1118606090657812413003,-0.1128283533226181051257, - -0.113795463120744871910,-0.1147619311392482910339,-0.1157277500243226869836, - -0.1166929123892375685934,-0.1176574108143061819787,-0.1186212378468556871702, - -0.1195843860011985976266,-0.1205468477586056630368,-0.1215086155672801399019, - -0.1224696818423335609172,-0.1234300389657628921336,-0.1243896792864292444314, - -0.125348595120037958894,-0.1263067787491203852746,-0.1272642224230169927246, - -0.1282209183578622291311,-0.1291768587365708098602,-0.1301320357088255330602, - -0.1310864413910670933650,-0.1320400678664849225541,-0.1329929071850103339258, - -0.1339449513633106658705,-0.1348961923847856736458,-0.1358466221995653921972, - -0.1367962327245096365580,-0.1377450158432094728944,-0.1386929634059902716192, - -0.1396400672299166756396,-0.1405863190987991229175,-0.1415317107632027282538, - -0.1424762339404573863177,-0.1434198803146701228783,-0.1443626415367393056588, - -0.1453045092243705760371,-0.1462454749620949734368,-0.147185530301288808319, - -0.1481246667601954503102,-0.1490628758239495033067,-0.1500001489446024516283, - -0.1509364775411507486602,-0.1518718529995656818521,-0.1528062666728255969417, - -0.1537397098809499262906,-0.1546721739110356319546,-0.1556036500172954251120, - -0.156534129421098427981,-0.1574636033110130006740,-0.1583920628428514831842, - -0.1593194991397176574210,-0.1602459032920559023339,-0.1611712663577029303053, - -0.1620955793619418550122,-0.1630188332975583409556,-0.1639410191248991677249, - -0.1648621277719333200196,-0.1657821501343151315844,-0.1667010770754499549007, - -0.1676188994265625231694,-0.1685356079867670331396,-0.1694511935231405586055, - -0.1703656467707982125059,-0.171278958432971389891,-0.1721911191810877872488, - -0.1731021196548547247396,-0.1740119504623447999059,-0.1749206021800837063118, - -0.1758280653531410497870,-0.1767343304952238292049,-0.177639388088772331997, - -0.1785432285850588052245,-0.1794458424042886524052,-0.1803472199357046557022, - -0.1812473515376937516219,-0.1821462275378961381822,-0.1830438382333181290829, - -0.1839401738904466454549,-0.1848352247453673713462,-0.1857289810038852129193, - -0.1866214328416482270967,-0.1875125704042734098298,-0.1884023838074763423922, - -0.1892908631372031691420,-0.1901779984497658226861,-0.1910637797719798580687, - -0.1919481971013056731401,-0.1928312404059922824384,-0.1937128996252243384735, - -0.1945931646692721228575,-0.1954720254196445905492,-0.1963494717292453839441, - -0.1972254934225319278340,-0.1981000802956779660580,-0.1989732221167385128879, - -0.1998449086258186346843,-0.2007151295352448960863,-0.2015838745297403866719, - -0.2024511332666024121529,-0.2033168953758839603285,-0.2041811504605777483068, - -0.2050438880968042665298,-0.2059050978340024595781,-0.2067647691951235711105, - -0.2076228916768294574524,-0.2084794547496921779395,-0.2093344478583989698439, - -0.2101878604219592494573,-0.2110396818339151936428,-0.2118899014625563459457, - -0.2127385086511363598838,-0.2135854927180947104848,-0.2144308429572800989149, - -0.2152745486381790196440,-0.21611659900614607621,-0.2169569832826390154423, - -0.2177956906654569813053,-0.2186327103289810724895,-0.2194680314244206731367, - -0.2203016430800609215535,-0.2211335344015150361496,-0.2219636944719801385784, - -0.2227921123524960189677,-0.2236187770822075093768,-0.2244436776786312426335, - -0.2252668031379252977509,-0.2260881424351621205027,-0.2269076845246055518235, - -0.2277254183399917419894,-0.2285413327948128126010,-0.2293554167826048761913, - -0.2301676591772392199697,-0.2309780488332174308574,-0.2317865745859697401698, - -0.2325932252521577814353,-0.2333979896299799849935,-0.2342008564994816632865, - -0.2350018146228677884402,-0.2358008527448203772714,-0.2365979595928186240972, - -0.2373931238774636687250,-0.2381863342928060289783,-0.238977579516677862692, - -0.2397668482110275611774,-0.2405541290222596717552,-0.2413394105815767909373, - -0.2421226815053265368771,-0.2429039303953514361556,-0.2436831458393429183928, - -0.2444603164111986137730,-0.2452354306713840081944,-0.2460084771672969849998, - -0.2467794444336363635095,-0.2475483209927745731349,-0.2483150953551338524505, - -0.2490797560195654181125,-0.2498422914737329081358,-0.2506026901945000440186, - -0.2513609406483210406691,-0.2521170312916345412901,-0.2528709505712631866459, - -0.2536226869248135451507,-0.2543722287810830096078,-0.2551195645604683037710, - -0.2558646826753780412211,-0.2566075715306496141110,-0.2573482195239686354249, - -0.2580866150462929886622,-0.2588227464822797641020,-0.2595566022107160808474, - -0.2602881706049538501624,-0.2610174400333471478319,-0.2617443988596940829261, - -0.2624690354436819417216,-0.2631913381413353292260,-0.2639112953054690291488, - -0.2646288952861429177865,-0.2653441264311212632876,-0.2660569770863354666091, - -0.2667674355963499110977,-0.2674754903048314202962,-0.2681811295550222129513, - -0.2688843416902159666471,-0.2695851150542377117070,-0.2702834379919266671877, - -0.2709792988496222965189,-0.2716726859756544709690,-0.2723635877208361311119, - -0.2730519924389590569191,-0.2737378884872943562989,-0.2744212642270936752809, - -0.2751021080240962368713,-0.2757804082490372676872,-0.2764561532781600328157, - -0.2771293314937315344082,-0.2777999312845602641886,-0.2784679410465177862299, - -0.2791333491830636504005,-0.2797961441057716935887,-0.280456314234861503465, - -0.2811138479997306038882,-0.2817687338394916918283,-0.2824209602035108179763, - -0.2830705155519494531369,-0.2837173883563096077332,-0.2843615670999805611352, - -0.2850030402787890326799,-0.2856417964015524058041,-0.2862778239906340060905, - -0.2869111115825012103819,-0.2875416477282854987862,-0.2881694209943464479728, - -0.2887944199628365016252,-0.2894166332322696821855,-0.2900360494180919679330, - -0.2906526571532537239761,-0.2912664450887852973793,-0.2918774018943741666021, - -0.292485516258944477919,-0.2930907768912393018823,-0.2936931725204039445032, - -0.2942926918965726446054,-0.2948893237914559928292,-0.2954830569989316813029, - -0.2960738803356355863805,-0.2966617826415566816500,-0.2972467527806319509409, - -0.2978287796413440213783,-0.2984078521373209613721,-0.2989839592079361341170, - -0.2995570898189119923849,-0.3001272329629230961601,-0.3006943776602022944111, - -0.3012585129591476285071,-0.3018196279369308454577,-0.3023777117001072989311, - -0.3029327533852268494741,-0.3034847421594464300654,-0.3040336672211434443369, - -0.3045795178005303860402,-0.3051222831602706242471,-0.3056619525960945771281, - -0.3061985154374181061776,-0.3067319610479605218600,-0.3072622788263634219241, - -0.3077894582068115281182,-0.3083134886596528012603,-0.308834359692019888577, - -0.3093520608484515710401,-0.3098665817115158205297,-0.3103779119024316357489, - -0.3108860410816928765421,-0.3113909589496909324779,-0.3118926552473386126785, - -0.3123911197566937580916,-0.3128863423015830758089,-0.3133783127482255848051, - -0.3138670210058566167888,-0.3143524570273512619423,-0.3148346108098476481274, - -0.3153134723953699425358,-0.3157890318714510757836,-0.3162612793717552439610, - -0.3167302050766992449482,-0.3171957992140740922871,-0.3176580520596652967846, - -0.3181169539378728705614,-0.3185724952223303318988,-0.3190246663365224888409, - -0.3194734577544034448415,-0.3199188600010122729422,-0.3203608636530880793281, - -0.3207994593396844007493,-0.3212346377427811594529,-0.3216663895978970066913, - -0.3220947056946986131187,-0.3225195768776090710084,-0.3229409940464155193141, - -0.3233589481568737711292,-0.3237734302213124970571,-0.324184431309234355467, - -0.3245919425479165676407,-0.3249959551230088283802,-0.3253964602791288851513, - -0.325793449320456895979,-0.3261869136113267342303,-0.3265768445768157390852, - -0.3269632337033319680053,-0.3273460725391983960897,-0.3277253526952353390733, - -0.3281010658453403228130,-0.3284732037270646776150,-0.3288417581421881341619, - -0.3292067209572900887693,-0.3295680841043177600191,-0.3299258395811529021024, - -0.3302799794521731890917,-0.3306304958488117673454,-0.3309773809701143654216, - -0.3313206270832910194102,-0.3316602265242665770195,-0.3319961716982264832154, - -0.3323284550801589576352,-0.3326570692153948405334,-0.3329820067201425537462, - -0.3333032602820193424087,-0.3336208226605795190700,-0.3339346866878384334498, - -0.3342448452687918347692,-0.3345512913819320699460,-0.3348540180797598964091, - -0.3351530184892915764650,-0.3354482858125628075285,-0.3357398133271266571498, - -0.3360275943865487224826,-0.3363116224208967941500,-0.3365918909372263567725, - -0.3368683935200610934935,-0.3371411238318690606341,-0.337410075613533810834, - -0.337675242684820742234,-0.3379366189448385071614,-0.3381941983724953693091, - -0.3384479750269505093918,-0.3386979430480602792919,-0.3389440966568191826447, - -0.3391864301557951377752,-0.3394249379295605772988,-0.3396596144451163312716, - -0.3398904542523121796727,-0.3401174519842599663910,-0.3403406023577418837434, - -0.3405599001736135389429,-0.3407753403172001926968,-0.3409869177586883903786, - -0.3411946275535105432830,-0.3413984648427251245018,-0.3415984248533884826138, - -0.3417945028989236577743,-0.3419866943794803160195,-0.3421749947822901871675, - -0.3423593996820158968930,-0.342539904741093137464,-0.3427165057100674538937, - -0.3428891984279230920052,-0.3430579788224067949720,-0.3432228429103447719939, - -0.3433837867979530611429,-0.3435408066811407867824,-0.3436938988458074217824, - -0.3438430596681333328846,-0.3439882856148637757521,-0.3441295732435846188579, - -0.3442669192029936264809,-0.3444003202331631374733,-0.3445297731657959716678, - -0.3446552749244756186364,-0.3447768225249075446648,-0.3448944130751553927006, - -0.3450080437758688001182,-0.3451177119205040555450,-0.3452234148955390935498, - -0.3453251501806791079474,-0.3454229153490567805207,-0.3455167080674249047156, - -0.3456065260963402385741,-0.3456923672903425837077,-0.3457742295981240943092, - -0.3458521110626927574927,-0.3459260098215278800282,-0.3459959241067283031157, - -0.3460618522451529566197,-0.3461237926585545299218,-0.3461817438637048716110, - -0.3462357044725128396578,-0.3462856731921358233173,-0.3463316488250827718254, - -0.3463736302693092294902,-0.3464116165183053208665,-0.3464456066611769635699, - -0.3464755998827179772626,-0.3465015954634749761887,-0.3465235927798059889504, - -0.3465415913039289197428,-0.3465555906039647915406,-0.3465655903439719409675, - -0.3465715902839726081375,-0.3465735902799726431134,-0.3465715902839726081375, - -0.3465655903439719409675,-0.3465555906039647915406,-0.3465415913039289197428, - -0.3465235927798059889504,-0.3465015954634749761887,-0.3464755998827179772626, - -0.3464456066611769635699,-0.3464116165183053208665,-0.3463736302693092294902, - -0.3463316488250827718254,-0.3462856731921358233173,-0.3462357044725128396578, - -0.3461817438637048716110,-0.3461237926585545299218,-0.3460618522451529566197, - -0.3459959241067283031157,-0.3459260098215278800282,-0.3458521110626927574927, - -0.3457742295981240943092,-0.3456923672903425837077,-0.3456065260963402385741, - -0.3455167080674249047156,-0.3454229153490567805207,-0.3453251501806791079474, - -0.3452234148955390935498,-0.3451177119205041665673,-0.3450080437758688001182, - -0.3448944130751555037229,-0.3447768225249075446648,-0.3446552749244756186364, - -0.3445297731657959716678,-0.3444003202331631374733,-0.3442669192029937375032, - -0.3441295732435846188579,-0.3439882856148638867744,-0.3438430596681334439069, - -0.3436938988458074217824,-0.3435408066811407867824,-0.3433837867979531721652, - -0.3432228429103447719939,-0.3430579788224067949720,-0.3428891984279230920052, - -0.3427165057100675649160,-0.342539904741093137464,-0.3423593996820158968930, - -0.3421749947822901871675,-0.3419866943794803160195,-0.3417945028989236577743, - -0.3415984248533884826138,-0.3413984648427251245018,-0.3411946275535105432830, - -0.3409869177586881683339,-0.340775340317200081675,-0.3405599001736133168983, - -0.3403406023577417727211,-0.3401174519842597443464,-0.3398904542523120686504, - -0.3396596144451161647382,-0.3394249379295603552542,-0.3391864301557950822641, - -0.3389440966568190161112,-0.3386979430480602792919,-0.3384479750269503983695, - -0.3381941983724952582868,-0.3379366189448383961391,-0.3376752426848206312116, - -0.3374100756135335887897,-0.3371411238318689496118,-0.3368683935200609824712, - -0.3365918909372261347279,-0.3363116224208966831277,-0.3360275943865486114603, - -0.3357398133271265461275,-0.3354482858125626965062,-0.3351530184892915764650, - -0.3348540180797598964091,-0.3345512913819320699460,-0.3342448452687918347692, - -0.3339346866878384334498,-0.3336208226605795190700,-0.3333032602820193424087, - -0.3329820067201425537462,-0.3326570692153949515557,-0.3323284550801589576352, - -0.3319961716982264832154,-0.3316602265242666880418,-0.3313206270832910194102, - -0.3309773809701143654216,-0.3306304958488117673454,-0.3302799794521731890917, - -0.3299258395811530131247,-0.3295680841043178710414,-0.3292067209572900887693, - -0.3288417581421882451842,-0.3284732037270646776150,-0.3281010658453403228130, - -0.3277253526952354500956,-0.3273460725391985071120,-0.3269632337033319680053, - -0.32657684457681585011,-0.3261869136113267342303,-0.325793449320456895979, - -0.3253964602791289961736,-0.3249959551230089394025,-0.3245919425479166786630, - -0.324184431309234355467,-0.3237734302213124970571,-0.3233589481568737711292, - -0.3229409940464155193141,-0.3225195768776090710084,-0.3220947056946986131187, - -0.3216663895978970066913,-0.3212346377427811594529,-0.3207994593396844007493, - -0.3203608636530880793281,-0.3199188600010122729422,-0.3194734577544034448415, - -0.3190246663365224888409,-0.3185724952223303318988,-0.3181169539378728705614, - -0.3176580520596652967846,-0.3171957992140740922871,-0.3167302050766992449482, - -0.3162612793717552439610,-0.3157890318714510757836,-0.3153134723953699425358, - -0.3148346108098476481274,-0.3143524570273512619423,-0.3138670210058566167888, - -0.3133783127482255848051,-0.3128863423015830758089,-0.3123911197566937580916, - -0.3118926552473386126785,-0.3113909589496909324779,-0.3108860410816928765421, - -0.3103779119024316357489,-0.3098665817115158205297,-0.3093520608484515710401, - -0.308834359692019888577,-0.3083134886596528012603,-0.3077894582068115281182, - -0.3072622788263634219241,-0.3067319610479605218600,-0.3061985154374181061776, - -0.3056619525960945771281,-0.3051222831602706242471,-0.3045795178005303860402, - -0.3040336672211434443369,-0.3034847421594464300654,-0.3029327533852268494741, - -0.3023777117001072989311,-0.3018196279369308454577,-0.3012585129591476285071, - -0.3006943776602022944111,-0.3001272329629230961601,-0.2995570898189119923849, - -0.2989839592079362451393,-0.2984078521373209613721,-0.2978287796413440768895, - -0.2972467527806320619632,-0.2966617826415566816500,-0.2960738803356356974028, - -0.2954830569989316813029,-0.2948893237914561038515,-0.2942926918965726446054, - -0.2936931725204039445032,-0.2930907768912393018823,-0.2924855162589445889409, - -0.2918774018943741666021,-0.2912664450887853528904,-0.2906526571532537239761, - -0.2900360494180919679330,-0.2894166332322696821855,-0.2887944199628365016252, - -0.2881694209943464479728,-0.2875416477282854987862,-0.2869111115825012103819, - -0.2862778239906340060905,-0.2856417964015522947818,-0.2850030402787888106353, - -0.2843615670999803390906,-0.28371738835630949671,-0.2830705155519494531369, - -0.2824209602035106514428,-0.2817687338394915252948,-0.2811138479997305483771, - -0.2804563142348613369315,-0.2797961441057716935887,-0.2791333491830635393782, - -0.2784679410465177307188,-0.2777999312845601531663,-0.2771293314937314233859, - -0.2764561532781600328157,-0.2757804082490372121761,-0.2751021080240962368713, - -0.2744212642270935642586,-0.2737378884872942452766,-0.2730519924389590014080, - -0.2723635877208359645785,-0.271672685975654359947,-0.2709792988496221299854, - -0.2702834379919265006542,-0.2695851150542377117070,-0.2688843416902159666471, - -0.2681811295550222129513,-0.2674754903048314202962,-0.2667674355963499110977, - -0.2660569770863354666091,-0.2653441264311212632876,-0.2646288952861429177865, - -0.2639112953054690291488,-0.2631913381413353292260,-0.2624690354436819417216, - -0.2617443988596940829261,-0.2610174400333471478319,-0.2602881706049539611847, - -0.2595566022107160808474,-0.2588227464822797641020,-0.2580866150462929886622, - -0.2573482195239686909360,-0.2566075715306496141110,-0.2558646826753781522434, - -0.2551195645604683037710,-0.2543722287810831206301,-0.2536226869248135451507, - -0.2528709505712632421570,-0.2521170312916346523124,-0.2513609406483210406691, - -0.2506026901945001550409,-0.2498422914737329081358,-0.2490797560195654181125, - -0.2483150953551339634728,-0.2475483209927746841572,-0.2467794444336363635095, - -0.2460084771672969849998,-0.2452354306713840081944,-0.2444603164111986137730, - -0.2436831458393429183928,-0.2429039303953514361556,-0.2421226815053265368771, - -0.2413394105815767909373,-0.2405541290222596717552,-0.2397668482110275611774, - -0.238977579516677862692,-0.2381863342928060289783,-0.2373931238774636687250, - -0.2365979595928186240972,-0.2358008527448203772714,-0.2350018146228677884402, - -0.2342008564994816632865,-0.2333979896299799849935,-0.2325932252521577814353, - -0.2317865745859697401698,-0.2309780488332174308574,-0.2301676591772392199697, - -0.2293554167826048761913,-0.2285413327948128126010,-0.2277254183399917419894, - -0.2269076845246055518235,-0.2260881424351621205027,-0.2252668031379252977509, - -0.2244436776786312426335,-0.2236187770822075093768,-0.2227921123524960189677, - -0.2219636944719801385784,-0.2211335344015150361496,-0.2203016430800609215535, - -0.2194680314244206731367,-0.2186327103289810724895,-0.2177956906654569813053, - -0.2169569832826390154423,-0.21611659900614607621,-0.2152745486381790196440, - -0.2144308429572800989149,-0.2135854927180947104848,-0.2127385086511363598838, - -0.2118899014625563459457,-0.2110396818339151936428,-0.2101878604219592494573, - -0.2093344478583990531106,-0.2084794547496921779395,-0.2076228916768294574524, - -0.2067647691951236543773,-0.2059050978340024595781,-0.2050438880968042665298, - -0.2041811504605777483068,-0.2033168953758839603285,-0.2024511332666024121529, - -0.2015838745297403866719,-0.2007151295352448960863,-0.1998449086258186346843, - -0.1989732221167385128879,-0.1981000802956779660580,-0.1972254934225319833452, - -0.1963494717292453839441,-0.1954720254196445905492,-0.194593164669272178369, - -0.1937128996252243384735,-0.1928312404059922824384,-0.1919481971013056731401, - -0.1910637797719798580687,-0.1901779984497658226861,-0.1892908631372032246531, - -0.188402383807476397903,-0.1875125704042734653409,-0.1866214328416482826078, - -0.1857289810038852129193,-0.1848352247453672603239,-0.1839401738904465344326, - -0.1830438382333180180606,-0.1821462275378960271599,-0.1812473515376936405996, - -0.1803472199357045446799,-0.1794458424042885136274,-0.1785432285850586664466, - -0.1776393880887722209749,-0.1767343304952237181826,-0.1758280653531409387647, - -0.1749206021800835952895,-0.1740119504623446888836,-0.1731021196548545859617, - -0.1721911191810875929598,-0.1712789584329712788691,-0.1703656467707981014836, - -0.1694511935231403920721,-0.1685356079867669221173,-0.1676188994265623843916, - -0.1667010770754498438784,-0.1657821501343149928065,-0.1648621277719332089973, - -0.1639410191248990567026,-0.1630188332975583409556,-0.1620955793619418550122, - -0.1611712663577029303053,-0.1602459032920559023339,-0.1593194991397176574210, - -0.1583920628428515109398,-0.1574636033110130006740,-0.156534129421098427981, - -0.1556036500172954251120,-0.1546721739110356319546,-0.1537397098809499262906, - -0.1528062666728255969417,-0.1518718529995656818521,-0.1509364775411507764158, - -0.1500001489446024793839,-0.1490628758239495588178,-0.1481246667601954503102, - -0.147185530301288808319,-0.1462454749620949734368,-0.1453045092243705760371, - -0.1443626415367393056588,-0.1434198803146701228783,-0.1424762339404573863177, - -0.1415317107632027282538,-0.1405863190987991506731,-0.1396400672299166756396, - -0.1386929634059902993748,-0.1377450158432094728944,-0.1367962327245096365580, - -0.1358466221995653921972,-0.1348961923847856736458,-0.1339449513633106658705, - -0.1329929071850103339258,-0.1320400678664849225541,-0.1310864413910670933650, - -0.1301320357088255330602,-0.1291768587365708098602,-0.1282209183578622291311, - -0.1272642224230169927246,-0.1263067787491203852746,-0.1253485951200379866499, - -0.1243896792864292444314,-0.1234300389657628921336,-0.1224696818423335609172, - -0.1215086155672801399019,-0.1205468477586056630368,-0.1195843860011985976266, - -0.1186212378468556871702,-0.1176574108143061958565,-0.1166929123892375824711, - -0.1157277500243227008614,-0.1147619311392482910339,-0.113795463120744871910, - -0.1128283533226181051257,-0.1118606090657812413003,-0.1108922376382893704161, - -0.109923246295374366088,-0.1089536422594816894582,-0.1079834327203081506541, - -0.1070126248348409747635,-0.1060412257273982139516,-0.1050692424896702420467, - -0.1040966821807625952712,-0.1031235518272398815620,-0.1021498584231709527703, - -0.1011756089301752148391,-0.1002008102774699649373,-0.0992254693619191163734, - -0.0982495930480826035192,-0.0972731881682673965583,-0.0962962615225792101237, - -0.0953188198789752805240,-0.0943408699733185307501,-0.0933624185094322073253, - -0.0923834721591561408571,-0.0914040375624034368007,-0.0904241213272185678784, - -0.0894437300298361742668,-0.0884628702147409184953,-0.0874815483947282285238, - -0.0864997710509660538980,-0.0855175446330572741616,-0.0845348755591033423906, - -0.0835517702157685115960,-0.0825682349583450603259,-0.0815842761108193093023, - -0.0805998999659385123584,-0.0796151127852784412653,-0.0786299207993119420035, - -0.0776443302074781432909,-0.0766583471782524977778,-0.0756719778492175171314, - -0.0746852283271343259097,-0.0736981046880148954470,-0.0727106129771950271401, - -0.0717227592094079741125,-0.0707345493688588122794,-0.0697459894092994497905, - -0.0687570852541043719963,-0.0677678427963468998918,-0.0667782678988761563277, - -0.0657883663943947399888,-0.0647981440855368712173,-0.0638076067449471900916, - -0.0628167601153601373731,-0.0618256099096800015857,-0.0608341618110612575299, - -0.0598424214729898207299,-0.0588503945193645516820,-0.0578580865445794123580, - -0.0568655031136060737373,-0.0558726497620771200836,-0.0548795319963696279220, - -0.0538861552936893209442,-0.0528925251021551343089,-0.0518986468408842160915, - -0.0509045259000774560909,-0.0499101676411053962745,-0.0489155773965945228632, - -0.0479207604705140788326,-0.0469257221382631470319,-0.0459304676467582814747, - -0.0449350022145213537361,-0.0439393310317678781329,-0.0429434592604956769102, - -0.0419473920345738715554,-0.0409511344598322418742,-0.0399546916141510083387, - -0.0389580685475503715742,-0.0379612702822815228920,-0.0369643018129167874597, - -0.0359671681064406417727,-0.0349698741023408907203,-0.0339724247127001707791, - -0.0329748248222875919855,-0.0319770792886508309349,-0.0309791929422082584766, - -0.0299811705863414490469,-0.0289830169974878808226,-0.0279847369252338336321, - -0.0269863350924075123816,-0.0259878161951723994638,-0.0249891849031207528842, - -0.0239904458593673472477,-0.0229916036806433361772,-0.0219926629573903471837, - -0.0209936282538546632737,-0.0199945041081816508866,-0.0189952950325102572215, - -0.0179960055130676879753,-0.0169966400102642030412,-0.0159972029587880440471, - -0.0149976987677004763855,-0.0139981318205309405306,-0.0129985064753723074393, - -0.0119988270649762310965,-0.0109990978968485808576,-0.0099993232533449744048, - -0.0089995073917663610114,-0.0079996545444547054182,-0.0069997689188886925288, - -0.0059998546977795292473,-0.0049999160391667610628,-0.0039999570765141562873, - -0.0029999819188056050384,-0.0019999946506410685304,-0.0009999993323325344352,0}; - printf(">> Complex Double scalar\n"); - for (i = 0 ; i < 1001 ; ++i) - { - z = DoubleComplex(real_z, imag_z); - result = zlogs(z); - printf("[%d] dlogs(%e + %e I) = %e + %e I \n", i, real_z, imag_z, zreals(result), zimags(result)); - real_z += increment; - imag_z -= increment; - assert(fabs(zreals(result) - real_results[i]) < 1e-15); - assert(fabs(zimags(result) - imag_results[i]) < 2e-15); - } + double inR[]=ZSOURCER; + double inI[]=ZSOURCEI; + double resR[]=ZRESULTR; + double resI[]=ZRESULTI; + doubleComplex in,out; + int i; + + for (i=0;i<200;i++){ + in=DoubleComplex(inR[i],inI[i]); + out=zlogs(in); + assert(( (fabs(zreals(out)-resR[i]))/(fabs(zreals(out))) )<1e-14); + assert(( (fabs(zimags(out)-resI[i]))/(fabs(zimags(out))) )<1e-15); + } +} + +void dlogaTest(void) { + double in[]=SOURCE; + double res[]=RESULT; + double out[200]; + int i; + + dloga(in,200,out); + for (i=0;i<200;i++){ + assert(( (fabs(out[i]-res[i]))/(fabs(out[i])) )<1e-15); + } } +void zlogaTest(void) { + double inR[]=ZSOURCER; + double inI[]=ZSOURCEI; + double resR[]=ZRESULTR; + double resI[]=ZRESULTI; + doubleComplex *in,out[200]; + int i; + + + in=DoubleComplexMatrix(inR,inI,200); + zloga(in,200,out); + + for (i=0;i<200;i++){ + assert(( (fabs(zreals(out[i])-resR[i]))/(fabs(zreals(out[i]))) )<1e-14); + assert(( (fabs(zimags(out[i])-resI[i]))/(fabs(zimags(out[i]))) )<1e-15); + } +} int testLog(void) { printf("\n>>>> Double Logarithm Tests\n"); dlogsTest(); zlogsTest(); - /* FIXME : Implement some test here . */ - /* - dlogaTest(); - zlogaTest(); - */ + dlogaTest(); + zlogaTest(); return 0; } |