path: root/2.3-1/src/c/elementaryFunctions/sinh/testDoubleSinh.c

/*
 *  Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 *  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
 *  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 "testSinh.h"

#define SOURCE {0.7062616096809506416321,0.4090520101599395275116,0.3011248558759689331055,\
0.1880126395262777805328,0.1796709178015589714050,0.2828889950178563594818,\
0.7232380937784910202026,0.7360379849560558795929,0.1852612206712365150452,\
0.7703790138475596904755,0.1914967410266399383545,0.7521587223745882511139,\
0.6205883463844656944275,0.2807604051195085048676,0.2289868686348199844360,\
0.5049233403988182544708,0.8354099662974476814270,0.8174716415815055370331,\
0.0030740275979042053223,0.3677616142667829990387,0.8278525872156023979187,\
0.72754097869619727135,0.5323124285787343978882,0.9267726917751133441925,\
0.9542504185810685157776,0.3162104780785739421845,0.5789009965956211090088,\
0.6881225542165338993073,0.3714061146602034568787,0.1705444059334695339203,\
0.1954363007098436355591,0.978800852317363023758,0.9300233917310833930969,\
0.5357720064930617809296,0.3947123587131500244141,0.1344871171750128269196,\
0.7380615202710032463074,0.588114650454372167587,0.9113173168152570724487,\
0.5682763461954891681671,0.1127616921439766883850,0.9478473584167659282684,\
0.5237770043313503265381,0.8140139640308916568756,0.1400952627882361412048,\
0.2763446993194520473480,0.9059953633695840835571,0.1379901585169136524200,\
0.5603838684037327766419,0.3008610638789832592011,0.4767417535185813904,\
0.8127435916103422641754,0.1988414181396365165710,0.1107953130267560482025,\
0.2159351315349340438843,0.6467244853265583515167,0.6597879612818360328674,\
0.0691898013465106487274,0.9164751060307025909424,0.8635670826770365238190,\
0.5032854294404387474060,0.1832137755118310451508,0.8403698671609163284302,\
0.9247214836068451404572,0.6229452537372708320618,0.2773811477236449718475,\
0.2479109913110733032227,0.3891948559321463108063,0.0436578569933772087097,\
0.8132526441477239131928,0.7686451207846403121948,0.4041520212776958942413,\
0.8579940209165215492249,0.6993723283521831035614,0.0828925184905529022217,\
0.9201254160143435001373,0.5200281282886862754822,0.9351884997449815273285,\
0.8825624976307153701782,0.2245844271965324878693,0.2153332801535725593567,\
0.4327089670114219188690,0.5800157263875007629395,0.8876141034997999668121,\
0.5258982880041003227234,0.859640696551650762558,0.7337234076112508773804,\
0.7134532411582767963409,0.1087165409699082374573,0.8477638359181582927704,\
0.6594733335077762603760,0.7916418449021875858307,0.6067967480048537254334,\
0.4102901122532784938812,0.1958728153258562088013,0.241527963895350694656,\
0.5113455550745129585266,0.9119556057266891002655,0.0928984880447387695313,\
0.7438839026726782321930,0.1938720373436808586121,0.4355978979729115962982,\
0.9922429900616407394409,0.4533818070776760578156,0.8269640663638710975647,\
0.8889675955288112163544,0.4682085178792476654053,0.3856786251999437808991,\
0.4124865522608160972595,0.6955242282710969448090,0.0978972557932138442993,\
0.8728604433126747608185,0.6359515609219670295715,0.4129665228538215160370,\
0.0294486805796623229980,0.1809961968101561069489,0.7658103061839938163757,\
0.1232470511458814144135,0.0170737411826848983765,0.8835507561452686786652,\
0.3164170170202851295471,0.9378212536685168743134,0.3916359134018421173096,\
0.0844073877669870853424,0.6934146797284483909607,0.4618808380328118801117,\
0.9355291295796632766724,0.0842495900578796863556,0.5402926551178097724915,\
0.5613215523771941661835,0.1306025832891464233398,0.5840523042716085910797,\
0.0048661706969141960144,0.2761953338049352169037,0.7478824090212583541870,\
0.0194325004704296588898,0.6444276878610253334045,0.2243968318216502666473,\
0.2478402368724346160889,0.1196091384626924991608,0.1883201440796256065369,\
0.3393343067727982997894,0.959958622232079505920,0.2847225037403404712677,\
0.8766820700839161872864,0.2853349032811820507050,0.5103433504700660705566,\
0.8752629184164106845856,0.5941145820543169975281,0.3945342986844480037689,\
0.4661326166242361068726,0.0073588271625339984894,0.5170202488079667091370,\
0.4690007264725863933563,0.6654530800879001617432,0.9476742581464350223541,\
0.4933638339862227439880,0.2918433747254312038422,0.2016727942973375320435,\
0.7016656589694321155548,0.8736049132421612739563,0.191055159550160169601,\
0.5307010114192962646484,0.8889481076039373874664,0.0115523664280772209167,\
0.4998398735187947750092,0.6700848620384931564331,0.4995208983309566974640,\
0.1538907447829842567444,0.2571737091057002544403,0.9586529098451137542725,\
0.6246025026775896549225,0.9371285131201148033142,0.9923511571250855922699,\
0.3454555813223123550415,0.7558249053545296192169,0.2107181670144200325012,\
0.9372652801685035228729,0.6767524704337120056152,0.7465373151935636997223,\
0.4050982249900698661804,0.5101723610423505306244,0.9497965183109045028687,\
0.0289692510850727558136,0.1634070957079529762268,0.4146909262053668498993,\
0.0021650679409503936768,0.1810030029155313968658,0.4556188201531767845154,\
0.1977851442061364650726,0.6053877938538789749146,0.4363054675050079822540,\
0.8938506888225674629211,0.6104825991205871105194,0.4316215068101882934570,\
0.2315693595446646213532,0.4675927339121699333191,0.6150764389894902706146,\
0.8621218334883451461792,0.3846137975342571735382}

#define RESULT {0.7664580028254754928696,0.4205551659468407255105,0.3056963415200024125618,\
0.1891222676242167166638,0.1806391579088424403921,0.2866772088777344573707,\
0.7879588923423612722985,0.8043199087726096152551,0.1863227880624591659142,\
0.8488736885251115804607,0.1926692851046332977116,0.8251135119137460449679,\
0.6611970121102711539507,0.2844635257838270536723,0.2309932755888478017603,\
0.5266533298916223904129,0.9360312470542428986420,0.9116099093552539889274,\
0.0030740324393184245005,0.3761077290387422333851,0.9257063259676088229355,\
0.7934443680694276412879,0.5578100394371053871723,1.0652568032347091708800,\
1.1058113484469005438626,0.3215064844139553512648,0.6117813058051149166516,\
0.7437286582384788902189,0.3800039829530417190284,0.1713723342659267123711,\
0.1966828051044853253870,1.1427508290431065418602,1.0700119918415624820085,\
0.5617747940982125154363,0.4050417184145185811595,0.1348928905465842098543,\
0.8069184166073162245425,0.6226085497916535871354,1.0428015042623968167135,\
0.599360373550158476164,0.1130008086773218733967,1.0962875524202524424311,\
0.5480567058218726028684,0.9069365704321199483928,0.1405539802560804574227,\
0.2798753950272672152977,1.0351270996105206290139,0.1384284939283927651221,\
0.5901774101693750829156,0.3054205096845967748465,0.4950072868345940513279,\
0.9052222830609093495724,0.2001543065651501807079,0.1110221320487437962621,\
0.2176171514122479666575,0.6927590813444466366633,0.7087105942005499370495,\
0.0692450191279527643706,1.0502673603752690212332,0.9749750092666438217037,\
0.5248028600685283873162,0.1842404954551666029783,0.9428365029551442066946,\
1.0622620507764020114649,0.6640243707694319930113,0.2809518213531947417039,\
0.2504582355084098987952,0.3990949339123049943723,0.0436717270227189244269,\
0.9059090417535855532805,0.8466005962798425210636,0.4152445147326426222456,\
0.9672066028315211561051,0.7577960172200091104600,0.0829874792017267076671,\
1.0555680256611981171488,0.5437855687819154182350,1.0775908909563920446,\
1.0016820806611792527008,0.2264771318543304656767,0.2170012532427569029725,\
0.4463391386879682620759,0.6130884787237118604963,1.0088449524118139333240,\
0.5504769168224112885213,0.9694988006053883999869,0.8013516989017863689782,\
0.7755389514921953164617,0.1089308262191755055648,0.9530245458199384511744,\
0.7083249989659490264415,0.8769583844905950442694,0.6447256579530228348673,\
0.4218986249201953087074,0.1971277014550009420990,0.2438831089846125732557,\
0.533922660930493120368,1.0437239139050094038907,0.0930321667054502116079,\
0.8144136536953445748566,0.1950888127224135459858,0.4495046404602288658836,\
1.1632667385972190743360,0.4690747173387543877965,0.9244959100750387293033,\
1.0107684876711933164017,0.4855037229984789926007,0.3953114776639800043157,\
0.4242835646837694318911,0.7529734313215303842526,0.0980537032157421939438,\
0.9879966883143458389327,0.6796935751591178798137,0.4248049987494686430267,\
0.0294529372018587365378,0.1819860446417611021808,0.8428897015241260115559,\
0.1235593052805215308343,0.0170745707299980210847,1.00308135457124825152,\
0.3217234423590110692359,1.0814650488452381971172,0.4017244052147506683248,\
0.0845076517232198759499,0.7503344007980436991545,0.4784793780524976836155,\
1.0780917143422910076112,0.0843492926084187938374,0.5669657003997248256866,\
0.5912664777040658181662,0.1309741822002446487439,0.6178283036240778125503,\
0.0048661899017801981890,0.2797202929941594029550,0.8195769639564471908955,\
0.0194337235170454029898,0.6899668115272159507612,0.2262847895615458237995,\
0.2503852962589531161441,0.1198945374904236832458,0.1894352321040725928292,\
0.3458841682539985917799,1.114339839966214773526,0.2885850554536735224076,\
0.9933761739682215319292,0.2892224999614779745727,0.5327868189334407089675,\
0.9913768259985344943885,0.6296876098817790756712,0.4048496130982584539915,\
0.4831971402378967828106,0.0073588935789954878705,0.5403641862154227037962,\
0.4863845156450118945024,0.7156655787491872366957,1.0960307119322381108617,\
0.5136236116845008803367,0.2960038943626104313012,0.2030426468819693797130,\
0.7606754386337204465463,0.9890435019692191964680,0.1922196010078167094370,\
0.5559656008212838784743,1.0107407789878923853877,0.0115526233874804207247,\
0.5209147493956211016908,0.72136900661981750993,0.5205551177967873144326,\
0.1544988804781949887079,0.2600179378248433925691,1.112385813317804839073,\
0.6660146232231449747729,1.080444939603935505801,1.163432674859314452931,\
0.3523677837341518959136,0.8298721326257240127333,0.212281022488974985274,\
1.0806462976206427928361,0.729606491474904528260,0.8178385727082368994445,\
0.4162692379888194293969,0.5325930826611361412759,1.099181921047706733674,\
0.0289733031722175932154,0.1641352799703627574068,0.4266791772900341284114,\
0.0021650696324170431474,0.1819929625387523564051,0.4715467862637556795136,\
0.1990771937658423751394,0.6430498957811131566231,0.4502805198476966808130,\
1.0177235844677285925286,0.6491155460121008635710,0.4451485373036410675418,\
0.2336445425260662012157,0.4848192931203018085640,0.6545992099992568036271,\
0.9729575479551634265008,0.394166691840286298465}

#define ZSOURCER {0.6045256052166223526001,0.9455216196365654468536,0.4476299257948994636536,\
0.8624908211641013622284,0.1751048639416694641113,0.2067177616991102695465,\
0.6848411662504076957703,0.1348653226159512996674,0.0069159921258687973022,\
0.1496290047653019428253,0.5665438110008835792542,0.4359452719800174236298,\
0.6547604538500308990479,0.3381605879403650760651,0.4259321158751845359802,\
0.3060420057736337184906,0.7704779822379350662231,0.7058695447631180286408,\
0.2373670237138867378235,0.8205849635414779186249,0.6789963841438293457031,\
0.5250809141434729099274,0.3359806565567851066589,0.8941988362930715084076,\
0.5461782198399305343628,0.7568633262999355792999,0.0259526828303933143616,\
0.3250150899402797222138,0.6072143577039241791,0.8756139636971056461334,\
0.2962085595354437828064,0.4229678637348115444183,0.4243144039064645767212,\
0.7620028969831764698029,0.3622896494343876838684,0.5658242437057197093964,\
0.6424440070986747741699,0.7580267959274351596832,0.2531452132388949394226,\
0.5266989110969007015228,0.2118590380996465682983,0.4779220153577625751495,\
0.1615962767973542213440,0.9168031658045947551727,0.5461866445839405059815,\
0.4686870560981333255768,0.7772213732823729515076,0.5871783248148858547211,\
0.5848031807690858840942,0.3139644009061157703400,0.3204141603782773017883,\
0.3331634956412017345429,0.2282590121030807495117,0.2750317254103720188141,\
0.4963629124686121940613,0.7453477247618138790131,0.1155001949518918991089,\
0.0626524840481579303741,0.0877018878236413002014,0.5507565210573375225067,\
0.2116370312869548797607,0.8335358710028231143951,0.4045845707878470420837,\
0.2880227542482316493988,0.1750094983726739883423,0.0051561561413109302521,\
0.3109287889674305915833,0.6602919283322989940643,0.9722995534539222717285,\
0.9826813959516584873200,0.0455837054178118705750,0.4096118300221860408783,\
0.7104403134435415267944,0.3917615194804966449738,0.5571686858311295509338,\
0.0565565521828830242157,0.1540721096098423004150,0.9109257892705500125885,\
0.5713340407237410545349,0.3488348922692239284515,0.8972954172641038894653,\
0.2973396372981369495392,0.1091936426237225532532,0.7626331257633864879608,\
0.6584706604480743408203,0.6996708759106695652008,0.6756794182583689689636,\
0.9004421546123921871185,0.6668148916214704513550,0.8518152837641537189484,\
0.8365677157416939735413,0.1291190306656062602997,0.6095453463494777679443,\
0.2412315667606890201569,0.4029275467619299888611,0.3019328541122376918793,\
0.1083198729902505874634,0.8456356939859688282013,0.9417407037690281867981,\
0.9083450469188392162323,0.1937242373824119567871,0.5318046086467802524567,\
0.8314437521621584892273,0.4952740012668073177338,0.7465563025325536727905,\
0.7102393140085041522980,0.5811418974772095680237,0.7035941029898822307587,\
0.3746570833027362823486,0.3394373343326151371002,0.6322447275742888450623,\
0.7636191300116479396820,0.6940386760979890823364,0.8735245508141815662384,\
0.3612738298252224922180,0.7933200257830321788788,0.4830590635538101196289,\
0.2469964125193655490875,0.5025922833010554313660,0.7430270477198064327240,\
0.6783937942236661911011,0.4903185223229229450226,0.709806025959551334381,\
0.3303662906400859355927,0.6815545372664928436279,0.0701365978457033634186,\
0.4745870968326926231384,0.8091805852018296718597,0.9447045121341943740845,\
0.5478458073921501636505,0.1216687532141804695129,0.9161847713403403759003,\
0.3045207932591438293457,0.6502694808878004550934,0.0987624628469347953796,\
0.8391053467057645320892,0.0328534897416830062866,0.3461971958167850971222,\
0.2801467711105942726135,0.5500544901005923748016,0.0729318000376224517822,\
0.0225322381593286991119,0.50267804320901632309,0.3478884599171578884125,\
0.4298669416457414627075,0.3537984383292496204376,0.0529730813577771186829,\
0.9533003675751388072968,0.1842019557952880859375,0.958756382111459970474,\
0.3245136169716715812683,0.0003973259590566158295,0.0972583871334791183472,\
0.4378789965994656086,0.3634226778522133827210,0.2685119728557765483856,\
0.2770298384130001068115,0.8854365111328661441803,0.5216628303751349449158,\
0.4979983693920075893,0.8733724001795053482056,0.4699407932348549365997,\
0.9364062966778874397278,0.1337622734718024730682,0.2712419554591178894043,\
0.1766990595497190952301,0.0543269468471407890320,0.8402757882140576839447,\
0.7507283594459295272827,0.3062269617803394794464,0.9195641661062836647034,\
0.1318263853900134563446,0.0826364941895008087158,0.8222710476256906986237,\
0.4441085970029234886169,0.9617503038607537746429,0.0283641982823610305786,\
0.1431905967183411121368,0.3793597565963864326477,0.6144003230147063732147,\
0.2128270715475082397461,0.4704488315619528293610,0.2076055286452174186707,\
0.7435979112051427364349,0.3391801547259092330933,0.2479635034687817096710,\
0.6721735307946801185608,0.9013197491876780986786,0.2140864841639995574951,\
0.8460668534971773624420,0.1650043567642569541931,0.4003686285577714443207,\
0.5522825215011835098267,0.0638249483890831470490,0.6903966935351490974426,\
0.8547787251882255077362,0.0291904583573341369629,0.5434663915075361728668,\
0.6236743135377764701843,0.2417052476666867733002}

#define ZSOURCEI {0.5503273960202932357788,0.6906704087741672992706,0.9835249418392777442932,\
0.8285484607331454753876,0.2062614001333713531494,0.1944643096067011356354,\
0.4367609983310103416443,0.8090620837174355983734,0.8818644303828477859497,\
0.7404803228564560413361,0.7542522149160504341126,0.9921960639767348766327,\
0.9886121451854705810547,0.0113218077458441257477,0.9367801276966929435730,\
0.3874237253330647945404,0.2886805813759565353394,0.567788839805871248245,\
0.7295644441619515419006,0.0303032915107905864716,0.2795897088944911956787,\
0.7047131718136370182037,0.7442112853750586509705,0.8920237845741212368012,\
0.1081438604742288589478,0.8751525697298347949982,0.9068333031609654426575,\
0.2166852983646094799042,0.4824190363287925720215,0.7766945236362516880035,\
0.4510916722938418388367,0.1300636469386518001556,0.5505470838397741317749,\
0.6936193336732685565949,0.1749099576845765113831,0.8636093880049884319305,\
0.2150467522442340850830,0.1886725709773600101471,0.1796098565682768821716,\
0.4374312213622033596039,0.8514516223222017288208,0.7381969136185944080353,\
0.8102188156917691230774,0.1460137623362243175507,0.8999849110841751098633,\
0.4043733575381338596344,0.0156995235010981559753,0.6904196902178227901459,\
0.2990311514586210250855,0.1383218024857342243195,0.8478512773290276527405,\
0.3007262717001140117645,0.229154746979475021362,0.8078110129572451114655,\
0.3176332255825400352478,0.6924462593160569667816,0.1364154014736413955689,\
0.5433279541321098804474,0.3276594849303364753723,0.2006831648759543895721,\
0.5037304237484931945801,0.4962565028108656406403,0.8996161324903368949890,\
0.9357709079049527645111,0.3390339072793722152710,0.6029155333526432514191,\
0.4153500730171799659729,0.3041478390805423259735,0.8489827848970890045166,\
0.4482063786126673221588,0.0903797810897231101990,0.7382151386700570583344,\
0.2669597584754228591919,0.8226196658797562122345,0.3985779182985424995422,\
0.9789295899681746959686,0.3041231036186218261719,0.0663515278138220310211,\
0.6667758254334330558777,0.7548807277344167232513,0.1922533493489027023315,\
0.7942791883833706378937,0.5580398896709084510803,0.2016023616306483745575,\
0.787146832793951034546,0.0955459238030016422272,0.6623697867617011070252,\
0.864868474658578634262,0.7013061288744211196899,0.8015053984709084033966,\
0.9135685982182621955872,0.6317234965972602367401,0.9346773549914360046387,\
0.9157753759063780307770,0.0510348035022616386414,0.4329969524405896663666,\
0.9721843507140874862671,0.8001508046872913837433,0.8452261472120881080627,\
0.0610524858348071575165,0.8168097324669361114502,0.2101262793876230716705,\
0.3055453812703490257263,0.9465212575159966945648,0.9269728232175111770630,\
0.7737778765149414539337,0.5893978821113705635071,0.2377697187475860118866,\
0.5269544571638107299805,0.0077543654479086399078,0.8311711428686976432800,\
0.0268517597578465938568,0.2591186594218015670776,0.4641277943737804889679,\
0.6098861405625939369202,0.0656952331773936748505,0.6466812007129192352295,\
0.1018534512259066104889,0.2742705782875418663025,0.8162728524766862392426,\
0.3357750270515680313110,0.4765891996212303638458,0.8440040023997426033020,\
0.1785074654035270214081,0.5855625644326210021973,0.8426241897977888584137,\
0.7058847947046160697937,0.7396617024205625057221,0.9751448985189199447632,\
0.7606669445522129535675,0.8236690396443009376526,0.8889620001427829265595,\
0.7960178293287754058838,0.3052428201772272586823,0.6803312664851546287537,\
0.6412069997750222682953,0.0988248009234666824341,0.4654508423991501331329,\
0.6714970665052533149719,0.5131103205494582653046,0.8631567060947418212891,\
0.8328299173153936862946,0.1687975851818919181824,0.2961277081631124019623,\
0.2591485660523176193237,0.1700844173319637775421,0.9718958893790841102600,\
0.0695185582153499126434,0.4696230851113796234131,0.9544191421009600162506,\
0.3679352095350623130798,0.2973918146453797817230,0.0415310803800821304321,\
0.4892336544580757617950,0.5171590568497776985169,0.3534862431697547435761,\
0.2354387864470481872559,0.6779259913600981235504,0.3834532154724001884460,\
0.3174350797198712825775,0.3418120350688695907593,0.0535557498224079608917,\
0.9285596096888184547424,0.3862650538794696331024,0.4328473098576068878174,\
0.1581165478564798831940,0.7887120461091399192810,0.7448797873221337795258,\
0.5185996759682893753052,0.8651678604073822498322,0.1524438308551907539368,\
0.2392775672487914562225,0.5761575847864151000977,0.7395762302912771701813,\
0.0583172617480158805847,0.6962534948252141475678,0.4206145536154508590698,\
0.0281158541329205036163,0.8313249954953789710999,0.2333360086195170879364,\
0.8865877203643321990967,0.3746785433031618595123,0.87671328987926244736,\
0.4027077830396592617035,0.2890332732349634170532,0.8538430598564445972443,\
0.5499771209433674812317,0.5128610017709434032440,0.6321087554097175598145,\
0.4165538274683058261871,0.3217771751806139945984,0.9717370062135159969330,\
0.5348322447389364242554,0.3416590173728764057159,0.9565287167206406593323,\
0.9951003189198672771454,0.3422884084284305572510,0.7870580093003809452057,\
0.9234123295173048973084,0.5238970420323312282562}

#define ZRESULTR {0.5472322176851935893183,0.8423815144738766580446,0.2563943802472780086887,\
0.6580149781735437075625,0.172270452907771959294,0.2042689977544929758047,\
0.6702103597375301813344,0.0933634309412847973597,0.0043966214876582573878,\
0.1108604362841248136551,0.4353327109259368388194,0.2460210551978029014375,\
0.3863009441992301673530,0.3446203724316067584788,0.2600144972151141042893,\
0.2878039319893796466054,0.8138720272443707992593,0.6457782886418844681131,\
0.1786150863987957249091,0.9154066811177691276313,0.7039465385045338141623,\
0.4186412388856993738173,0.251831143580886374078,0.6392775639808577770040,\
0.5703895608242733894,0.5327133470263697434532,0.0159949490007091424393,\
0.3230326909984754801819,0.5715867388279289862396,0.70743658734176706471,\
0.2704947225723857706647,0.4320127595486245031253,0.3725662344034775808055,\
0.6443049465819230547936,0.3646176810862393202761,0.3875469668337525042112,\
0.6717212085417494371598,0.8179578243363959666468,0.2517417237838881494128,\
0.4994735839970788071618,0.1406387935502509678454,0.3671229322416942886243,\
0.1118802149170177451243,1.0395621212598731286647,0.3566561127022580546253,\
0.4468365274738785863917,0.8577631106167230568005,0.4791678319520160100886,\
0.5912541631998992075481,0.3160997340804129196457,0.2156306076938400706489,\
0.3241312167359722828941,0.2242273866635746126796,0.1924748395730505323709,\
0.4911358423279918450355,0.6282969869096745041404,0.1146817647308075033275,\
0.0536651752624737465869,0.0831424755428421952130,0.5674049454933377534260,\
0.1867359129769284864508,0.8208629596874984502009,0.2585362736705908437429,\
0.1732265992600796333800,0.16589114027651630234,0.0042470718039759334031,\
0.2890982749320905043078,0.6767719859275036498048,0.7485620199211779901560,\
1.0351949282063730439774,0.0454133801589929955722,0.3115216746749414067352,\
0.7443929466921332949170,0.2733866129562390612229,0.5404777583133708596108,\
0.0315703580162773125850,0.147584010699447737425,1.039942513447497107748,\
0.4737927564457495854811,0.2592593650600479859847,1.0038035523317359043460,\
0.2114594061381599998661,0.0928125663229541070232,0.8217516921908377680595,\
0.4991177362348290791339,0.7547125896791468946390,0.5742746733474036746614,\
0.6663538162766660111203,0.5480484998281744957183,0.6668472960736752108701,\
0.5728135406334763368719,0.1044902427136027156518,0.3849616107773408679726,\
0.1483818586286529961349,0.4133800608325002845511,0.2782513626438464227064,\
0.0611572839884242727693,0.6618291251618653170397,0.7214555888399967198410,\
1.0365769046431902999927,0.1334450193993464428566,0.5449721531302730292978,\
0.8875031186053717879858,0.3014734616304127201580,0.4909287752495701262490,\
0.5518178196952380210050,0.5107438627596426750088,0.7416305403413676611280,\
0.3314614008027890745822,0.3459827842193233804480,0.4551032028697677422890,\
0.8397231818014913029558,0.7260395894674003258729,0.8843138378471343541420,\
0.3026251045027910646645,0.8772951459166481447127,0.4006929045316259263565,\
0.2482223780387364797662,0.5044338903508289728705,0.5570690492655497871866,\
0.6907809922454775097833,0.4533479549350135084929,0.5122634930781091444629,\
0.3310630379415674395816,0.613016054683563793581,0.0467146352521808638780,\
0.3748904897125588941975,0.6651387060224456249102,0.6124566220104487035414,\
0.4169978608497757477380,0.0828821922879106609550,0.6616323773282192233225,\
0.2163376802382008246006,0.6648529631046872223621,0.0768992913125638027916,\
0.7541728606139842527867,0.0326990726296657319150,0.3155854015657582611887,\
0.2222045454294520605565,0.5037531760449395212831,0.0474507678257595696958,\
0.0151606295675061168715,0.5166679862331013950438,0.3394987264597518761278,\
0.4284286045731299230610,0.3560134790628905476773,0.0298767286161388812005,\
1.1017278018047820253855,0.1651905315864863887931,0.6431406060888099629480,\
0.3081371323272805162752,0.0003798849528566614498,0.0973277933130341499357,\
0.3989833287694000141244,0.3228967085282569149385,0.2549483000782091224323,\
0.2728461176861247117209,0.7833569024666595659312,0.5060212064439562063001,\
0.4929175980688511038430,0.9315180933744126035023,0.4867312349946628091679,\
0.6465368595829137365882,0.1242768439875277936002,0.2492570609243859591775,\
0.1754042926970652005458,0.0383062756502238338507,0.6930494891633879328552,\
0.7150128880873719561251,0.2017103771899077802043,1.0425200734321566908847,\
0.1284418402888304333587,0.0693747355415850891491,0.6782611829725390117929,\
0.4580719788105512280119,0.8570372579890597197760,0.0258953949937216834631,\
0.1436236317560128927795,0.2618257507714434328960,0.6360738131964667196883,\
0.1355372871482912744412,0.4541408129960864403785,0.1337573051159255954623,\
0.7489238330244115671164,0.3313805035932426146239,0.1646094396781437041444,\
0.6171903594464053233182,0.8960982240646825358610,0.1740438285898232018134,\
0.8693877096502734547201,0.1572467731529608725438,0.2318339325462937250411,\
0.4996847882291703402125,0.0601767100407825661357,0.4302901718551004339730,\
0.5241328386970756092467,0.0275009970661485095289,0.4028168044525495261610,\
0.4010021931852675303176,0.2113305958381946625391}

#define ZRESULTI {0.6214715223992962611632,0.9436786189504819954976,0.9172582471851381535899,\
1.0284753878837631368981,0.2079498059841204116172,0.1973845021659479948006,\
0.5261415139330058998723,0.7302311658604533350925,0.7719439236164448159272,\
0.6822088697503370102737,0.7976066327178688020183,0.9180538587851772014403,\
1.0207957462450507613028,0.0119750831911820069392,0.879846633700931413102,\
0.3956357637150365591516,0.3734519291784937355949,0.6773972534299040892947,\
0.6854109454702602688414,0.0410850121880191737622,0.3420572770093958103743,\
0.7391907226260076013702,0.7159858470768458715838,1.1108178290074384175767,\
0.1244362063872984924817,0.9982082241998391225479,0.7878214785460178060106,\
0.2264493394334471387808,0.552110320407191546010,0.9872379452017052692270,\
0.4552134557945506365684,0.1414727851379618539518,0.5709593924198277381521,\
0.8340926447704026802654,0.1855652888756788854163,0.8851645482631337324975,\
0.2589660662395600887464,0.2440703736645542243355,0.1844003846229365917164,\
0.4837426621723381336970,0.7691827103731639914130,0.7512840132775820967126,\
0.7339173856842455823113,0.2110467570718085883463,0.9030907830676864200825,\
0.4374528982447763447716,0.0206840630038046084660,0.7498395827082200426617,\
0.3464215069230207055817,0.1447328712349580659424,0.7886833031982384278891,\
0.312806155477839797907,0.2330978063822336521227,0.7502851663968435058649,\
0.3515894758711366474557,0.8241207799426445435032,0.1369007991441129890031,\
0.5180025607419450617286,0.3230663992238576032179,0.2303438195780269093227,\
0.4935463909681327976387,0.6513439726551492059414,0.8480586102235279089001,\
0.8386806876018545464646,0.3376822861028858646648,0.5670539014238122899059,\
0.4231729333084569000256,0.3671714099084233406956,1.13425596729819333497,\
0.6599735877547936446774,0.0903505740838268234238,0.7302185329365624699705,\
0.3332210660971928195551,0.7898975683733762132022,0.4499243250096228718959,\
0.8312282843326663783756,0.303017954499597730322,0.0957670218140728168876,\
0.7221703011467139887714,0.7273159314358644822463,0.2732920828342843555525,\
0.7451259889709352934872,0.5326844296662366362583,0.2613476456913891299294,\
0.8675343198300645708443,0.1197200851202140647889,0.7607940863441885470664,\
1.090938503691738947765,0.7940557967113777149137,0.9951827798045931317006,\
1.0852570666616287997641,0.595465988685999203511,0.9585290107353723332295,\
0.8162216959679288175167,0.0552099482904373911607,0.4388645680780451363567,\
0.8309698024824113682385,0.9896452984090404747519,1.1051208602025746063902,\
0.0879648640386297558935,0.7426871822259456523696,0.2387805138959819828415,\
0.4109188911191957171987,0.9129531289726338094681,1.033237369823349904863,\
0.8826396237315312642835,0.6523964780046094258381,0.2962811673651402077923,\
0.538613833971326338990,0.0082053089862361757584,0.8913512641166435601647,\
0.0350642631947976693,0.3204573641970900332865,0.6295687491907059341045,\
0.6105613490275437760246,0.0874124111159134270510,0.6742190253215021300548,\
0.104794765122307897975,0.3057785774947048840211,0.9391488111872891009213,\
0.4082750199603700225204,0.5150095094925122296559,0.9436041246896892387142,\
0.1873390728066921528949,0.686076538028982052531,0.7482286603321709472780,\
0.7231441171996566552593,0.9070157682190420622703,1.2254699773201918056031,\
0.7954755918374329937137,0.7390808722803764441167,1.1257197223371009364712,\
0.7479651939595457488252,0.3663340286526505784615,0.6321209550080593153609,\
0.8213953702909778664676,0.0987172713829019138343,0.4759918803039691614920,\
0.6467330123916542605755,0.5670425014955073894640,0.7619202005568085356302,\
0.7400260728625026596106,0.1896730654043395358777,0.3096563558430623364082,\
0.2803008416090244647734,0.1799702823909465065899,0.8271151236999281231022,\
0.1034896632231103036359,0.4602495369086131438152,1.2206297477145873209281,\
0.3787956849306995388282,0.2930275328196350614896,0.0417156660446471733161,\
0.5157276686593796899416,0.5274236913745330435077,0.3587249786695337894216,\
0.2422782860407424743165,0.8895205282611465813503,0.4261958074481287384039,\
0.3516419517981719256028,0.4713702889404160489839,0.0595506543369787033626,\
1.1782482373185512170011,0.3801066173107530143938,0.4349822461068365009318,\
0.1599230612164924403285,0.7104933564880103746830,0.9316143186085994454260,\
0.6420254878605806680980,0.7971748574811535759110,0.2207115251543733114303,\
0.2390631455930626592110,0.5466671036053578625058,0.9149528397614811181526,\
0.0641270748267019075062,0.9615389273937551273264,0.4084857821404656030850,\
0.0284008421665001876966,0.7926291386522584803132,0.2762568577554586624068,\
0.792535972676840283491,0.407224868689896601914,0.785264393436451157982,\
0.5053477011274932761964,0.3015786475260285870448,0.7771045707144023095836,\
0.6452560689270674387785,0.7038409533210520097057,0.6044393344259090250503,\
0.5582751049083489736091,0.3205680190439157417615,0.8929464541247862374718,\
0.5894255515487558660936,0.3357333458035489104354,1.0198128299863529200309,\
1.1643703264707510047771,0.3357866330198117088557,0.8154766229713432679205,\
0.9578920067258681614320,0.5149424663113579825335}



void dsinhsTest(void) {
	double in[]=SOURCE;
	double res[]=RESULT;
	double out;
	int i;

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

void zsinhsTest(void) {
	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=zsinhs(in);
		assert(( (fabs(zreals(out)-resR[i]))/(fabs(zreals(out))) )<3e-15);	
		assert(( (fabs(zimags(out)-resI[i]))/(fabs(zimags(out))) )<3e-15);			
	}
}

void dsinhaTest(void) {
	double in[]=SOURCE;
	double res[]=RESULT;
	double out[200];
	int i;

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

void zsinhaTest(void) {
	double inR[]=ZSOURCER;
	double inI[]=ZSOURCEI;
	double resR[]=ZRESULTR;
	double resI[]=ZRESULTI;
	doubleComplex *in,out[200];
	int i;
	double mon_testR[9]={1,8,3,2,8,4,3,4,5};
	double mon_testI[9]={0,0,4,0,-1,0,3,0,0};
	double mon_resR[9]={1.1752011936438013783857,1490.4788257895500009909,- 6.548120040911003414408,
	3.6268604078470190188455,805.30914642173127049318,27.289917197127749659558,
	- 9.9176210100175374861919,27.289917197127749659558,74.203210577788766499907};
	double mon_resI[9]={0,0,- 7.6192317203214106058340,
	0,- 1254.1949676545177680964,0,
	1.4207485419881773491824,0,0};
	doubleComplex* mon_test;
	doubleComplex mon_out[9];
	
mon_test=DoubleComplexMatrix(mon_testR,mon_testI,9);
	in=DoubleComplexMatrix(inR,inI,200);
	zsinha(in,200,out);

	for (i=0;i<200;i++){
		assert(( (fabs(zreals(out[i])-resR[i]))/(fabs(zreals(out[i]))) )<3e-15);	
		assert(( (fabs(zimags(out[i])-resI[i]))/(fabs(zimags(out[i]))) )<3e-15);			
	}
	zsinha(mon_test,9,mon_out);
	for (i=0;i<9;i++){
	printf("%f + %f*i\n",zreals(mon_out[i]),zimags(mon_out[i]));
		assert(( (fabs(zreals(mon_out[i])-mon_resR[i]))/(fabs(zreals(mon_out[i]))) )<3e-16);	
		if (zimags(mon_out[i])!=0) assert(( (fabs(zimags(mon_out[i])-mon_resI[i]))/(fabs(zimags(mon_out[i]))) )<3e-16);			
	}
}

int testSinh() {
  printf("\n>>>> Double Hyperbolic Sine Tests\n");
  dsinhsTest();
  zsinhsTest();
  dsinhaTest();
  zsinhaTest();
  return 0;
}

int main() {
  assert(testSinh() == 0);
  return 0;
}