path: root/src/elementaryFunctions/log/testDoubleLog.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 <assert.h>
#include <math.h>
#include "testLog.h"

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;
    }
}

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);
    }
}

int testLog(void) {
  printf("\n>>>> Double Logarithm Tests\n");
  dlogsTest();
  zlogsTest();
  /* FIXME : Implement some test here . */
  /*
    dlogaTest();
    zlogaTest();
  */
  return 0;
}

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