diff options
Diffstat (limited to 'src/c/elementaryFunctions/acos/testRealsAcos.c')
| -rw-r--r-- | src/c/elementaryFunctions/acos/testRealsAcos.c | 647 |
1 files changed, 647 insertions, 0 deletions
diff --git a/src/c/elementaryFunctions/acos/testRealsAcos.c b/src/c/elementaryFunctions/acos/testRealsAcos.c new file mode 100644 index 0000000..0609a7c --- /dev/null +++ b/src/c/elementaryFunctions/acos/testRealsAcos.c @@ -0,0 +1,647 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Arnaud TORSET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt + * + */ + +#include "testAcos.h" +#include <math.h> +#include <stdio.h> +#include <assert.h> + + +#define InRF {0.2146485899575054645538f,0.0151845822110772132874f,0.0480025182478129863739f, \ +0.2151292376220226287842f,0.3335768491961061954498f,0.4239571234211325645447f, \ +0.8191771185956895351410f,0.1142293009907007217407f,0.2984248069114983081818f, \ +0.7708469005301594734192f,0.9841971280984580516815f,0.4902752116322517395020f, \ +0.1607228242792189121246f,0.4278817875310778617859f,0.3875273256562650203705f, \ +0.9808397348970174789429f,0.9092800100333988666534f,0.482719236053526401520f, \ +0.665830671321600675583f,0.2464372254908084869385f,0.7713316814042627811432f, \ +0.8996570175513625144958f,0.9153267047367990016937f,0.9860265571624040603638f, \ +0.2070462000556290149689f,0.6318158404901623725891f,0.9118843185715377330780f, \ +0.5755609273910522460938f,0.6911411830224096775055f,0.9032438425347208976746f, \ +0.7275989069603383541107f,0.2983345370739698410034f,0.8753590886481106281281f, \ +0.3796929577365517616272f,0.0876038889400660991669f,0.6358761452138423919678f, \ +0.2255521775223314762115f,0.446817158721387386322f,0.3108666068874299526215f, \ +0.5881394986063241958618f,0.7271268484182655811310f,0.3145425738766789436340f, \ +0.1787185999564826488495f,0.4917406365275382995605f,0.7525973492302000522614f, \ +0.1663594795390963554382f,0.5748702525161206722260f,0.3049920704215764999390f, \ +0.6849988629110157489777f,0.0722861671820282936096f,0.2406598175875842571259f, \ +0.8284838385879993438721f,0.3909099684096872806549f,0.8842546856030821800232f, \ +0.4892868152819573879242f,0.8299614358693361282349f,0.1368344766087830066681f, \ +0.8326684581115841865540f,0.2227798062376677989960f,0.5422506183385848999023f, \ +0.0426926412619650363922f,0.0428817747160792350769f,0.0954485400579869747162f, \ +0.5029790829867124557495f,0.6661717449314892292023f,0.6903511593118309974670f, \ +0.1675704787485301494598f,0.2048450224101543426514f,0.8116860599257051944733f, \ +0.0132086118683218955994f,0.8930616951547563076019f,0.5251825544983148574829f, \ +0.1576961842365562915802f,0.9010067256167531013489f,0.7848821463994681835175f, \ +0.4035740271210670471191f,0.7961377524770796298981f,0.2783856792375445365906f, \ +0.6019253223203122615814f,0.7362591978162527084351f,0.2777095218189060688019f, \ +0.0024121040478348731995f,0.4011422689072787761688f,0.9560912884771823883057f, \ +0.2567708329297602176666f,0.4923398261889815330505f,0.2986499867402017116547f, \ +0.2667899150401353836060f,0.3295984459109604358673f,0.8105424838140606880188f, \ +0.2835742044262588024139f,0.0002408921718597412109f,0.1597527512349188327789f, \ +0.4133680192753672599792f,0.9283765270374715328217f,0.0655929129570722579956f, \ +0.4843033556826412677765f,0.2906650463119149208069f,0.3394159595482051372528f, \ +0.9589011035859584808350f,0.0946640432812273502350f,0.7127310922369360923767f, \ +0.1914948052726686000824f,0.3020674530416727066040f,0.3857871112413704395294f, \ +0.303432715125381946564f,0.1901389393024146556854f,0.3798281177878379821777f, \ +0.5674670808948576450348f,0.6582474960014224052429f,0.8053624569438397884369f, \ +0.6435376014560461044312f,0.1315037836320698261261f,0.2259779060259461402893f, \ +0.6206666971556842327118f,0.6504998095333576202393f,0.6684748218394815921783f, \ +0.6728870486840605735779f,0.1410236409865319728851f,0.4075959790498018264771f, \ +0.627867404837161302567f,0.4480062769725918769836f,0.4035936850123107433319f, \ +0.5879594832658767700195f,0.1153195598162710666656f,0.7683646855875849723816f, \ +0.2349277897737920284271f,0.5894475113600492477417f,0.3207207177765667438507f, \ +0.7428904781118035316467f,0.4984040032140910625458f,0.9036596231162548065186f, \ +0.6709216744638979434967f,0.8537342092022299766541f,0.1756483591161668300629f, \ +0.7642531786113977432251f,0.3008039263077080249786f,0.5137639017775654792786f, \ +0.6256901505403220653534f,0.5433056429028511047363f,0.9364583813585340976715f, \ +0.9189820392057299613953f,0.8656015782617032527924f,0.8644737657159566879272f, \ +0.7842234452255070209503f,0.9146144324913620948792f,0.2163717742078006267548f, \ +0.9016996361315250396729f,0.5193324820138514041901f,0.0936209624633193016052f, \ +0.1577651998959481716156f,0.8322136122733354568481f,0.9679206502623856067657f, \ +0.8463781969621777534485f,0.7359144198708236217499f,0.9125841259956359863281f, \ +0.5761411138810217380524f,0.5802838830277323722839f,0.3673972501419484615326f, \ +0.1465643625706434249878f,0.2601406280882656574249f,0.8280333140864968299866f, \ +0.3835482816211879253387f,0.0134858153760433197021f,0.7306445003487169742584f, \ +0.4633175721392035484314f,0.1587547785602509975433f,0.2259487155824899673462f, \ +0.8859009263105690479279f,0.7426936449483036994934f,0.1664869519881904125214f, \ +0.9855593368411064147949f,0.3667347007431089878082f,0.3923764182254672050476f, \ +0.8068126081489026546478f,0.7054641749709844589233f,0.8674603034742176532745f, \ +0.4587025428190827369690f,0.34914617193862795830f,0.6684310026466846466064f, \ +0.2964043603278696537018f,0.1410161769017577171326f,0.8339820853434503078461f, \ +0.5892267990857362747192f,0.3797874790616333484650f,0.3257266031578183174133f, \ +0.277362580876797437668f,0.5500425547361373901367f,0.8027154603041708469391f, \ +0.0402877209708094596863f,0.0218298300169408321381f,0.2777149509638547897339f, \ +0.4810298834927380084991f,0.5458494136109948158264f,0.5776124666444957256317f, \ +0.2314949147403240203857f,0.0577680678106844425201f,0.2873307904228568077087f, \ +0.7977964854799211025238f,0.4701130483299493789673f} + + +#define InIF {0.0394321014173328876495f,0.3370208526030182838440f,0.6783407176844775676727f, \ +0.2560503073036670684814f,0.5241241441108286380768f,0.9488922869786620140076f, \ +0.3087073317728936672211f,0.7950635720044374465942f,0.9224105221219360828400f, \ +0.4595228182151913642883f,0.7807972389273345470428f,0.226513788104057312012f, \ +0.9408814110793173313141f,0.6131632206961512565613f,0.4430119856260716915131f, \ +0.2909095119684934616089f,0.8606127654202282428741f,0.8565102526918053627014f, \ +0.9051895807497203350067f,0.6799235455691814422607f,0.5336262793280184268951f, \ +0.7887798985466361045837f,0.7137753940187394618988f,0.4034583661705255508423f, \ +0.1977087226696312427521f,0.1879524858668446540833f,0.7047274294309318065643f, \ +0.4047584310173988342285f,0.2033406519331037998199f,0.8319396777078509330750f, \ +0.8779059736989438533783f,0.3923193570226430892944f,0.2464844961650669574738f, \ +0.8334233397617936134338f,0.1366976196877658367157f,0.3573439754545688629150f, \ +0.2009820179082453250885f,0.7071162825450301170349f,0.7366236648522317409515f, \ +0.7454952616244554519653f,0.1443111491389572620392f,0.8881948785856366157532f, \ +0.7866828846745193004608f,0.751696139574050903f,0.6704522022046148777008f, \ +0.9206535546109080314636f,0.6471786811016499996185f,0.7067261617630720138550f, \ +0.0836134557612240314484f,0.0343311587348580360413f,0.5677806059829890727997f, \ +0.0243650637567043304443f,0.5665661157108843326569f,0.3293592026457190513611f, \ +0.4095702595077455043793f,0.6778331939131021499634f,0.9173386511392891407013f, \ +0.2867819787934422492981f,0.7948215636424720287323f,0.6742788180708885192871f, \ +0.9480205052532255649567f,0.8240985525771975517273f,0.5282654105685651302338f, \ +0.4960622992366552352905f,0.1394251813180744647980f,0.6144766295328736305237f, \ +0.6335886861197650432587f,0.9775871522724628448486f,0.6453627035953104496002f, \ +0.8883882975205779075623f,0.8489176682196557521820f,0.5864279735833406448364f, \ +0.240271453280001878738f,0.4364176439121365547180f,0.925035800319164991379f, \ +0.5775052458047866821289f,0.3039593794383108615875f,0.0319902477785944938660f, \ +0.5700858398340642452240f,0.9890570174902677536011f,0.4372045849449932575226f, \ +0.9927745470777153968811f,0.3845063815824687480927f,0.9491574577987194061279f, \ +0.8019652874208986759186f,0.0995050808414816856384f,0.6299527562223374843597f, \ +0.2615322861820459365845f,0.7799491551704704761505f,0.5909776063635945320129f, \ +0.1759523036889731884003f,0.7394210770726203918457f,0.0432920181192457675934f, \ +0.4539660913869738578796f,0.4680440216325223445892f,0.2562364395707845687866f, \ +0.6310959537513554096222f,0.7268115812912583351135f,0.8611525888554751873016f, \ +0.9817700721323490142822f,0.125576748047024011612f,0.0354329412803053855896f, \ +0.1619467637501657009125f,0.7726956922560930252075f,0.5215707314200699329376f, \ +0.0805094735696911811829f,0.7239321577362716197968f,0.1861188411712646484375f, \ +0.8831509896554052829742f,0.2945854095742106437683f,0.9390283836983144283295f, \ +0.0849235635250806808472f,0.3811029498465359210968f,0.3878462770953774452209f, \ +0.4693805794231593608856f,0.3036659620702266693115f,0.8050093413330614566803f, \ +0.0013171425089240074158f,0.0631553060375154018402f,0.3437646273523569107056f, \ +0.1436945316381752490997f,0.1862327279523015022278f,0.2980708214454352855682f, \ +0.5667379423975944519043f,0.3277782374061644077301f,0.9283294035121798515320f, \ +0.0964117287658154964447f,0.8542382624000310897827f,0.7280886103399097919464f, \ +0.4358090544119477272034f,0.3552779997698962688446f,0.2036329694092273712158f, \ +0.5036846981383860111237f,0.4097248231992125511169f,0.5358183733187615871429f, \ +0.2278824020177125930786f,0.3932382804341614246368f,0.0155387269333004951477f, \ +0.5551981288008391857147f,0.0284646600484848022461f,0.0435250797308981418610f, \ +0.7746011493727564811707f,0.8250512345694005489349f,0.4100972842425107955933f, \ +0.4687753473408520221710f,0.0943022081628441810608f,0.7801668713800609111786f, \ +0.9060058109462261199951f,0.7346338243223726749420f,0.6556449970230460166931f, \ +0.7411603308282792568207f,0.5824892017990350723267f,0.4604790774174034595490f, \ +0.3769907029345631599426f,0.4548782887868583202362f,0.0915321484208106994629f, \ +0.2338522099889814853668f,0.1727255983278155326843f,0.1562884538434445858002f, \ +0.9402142520993947982788f,0.5307449479587376117706f,0.2255999082699418067932f, \ +0.495603590738028287888f,0.4456660784780979156494f,0.2354971007443964481354f, \ +0.9914885526522994041443f,0.1743899188004434108734f,0.3443220872431993484497f, \ +0.354053397197276353836f,0.6553237633779644966125f,0.6344098853878676891327f, \ +0.5242204368114471435547f,0.0143296965397894382477f,0.2569495765492320060730f, \ +0.6429493143223226070404f,0.8490996640175580978394f,0.3474385743029415607452f, \ +0.2056481996551156044006f,0.1183789293281733989716f,0.5430422388017177581787f, \ +0.3435242832638323307037f,0.4020882537588477134705f,0.0397002524696290493011f, \ +0.1044149938970804214478f,0.2759570893831551074982f,0.6864448906853795051575f, \ +0.7838258775882422924042f,0.217856429517269134521f,0.7876369827426970005035f, \ +0.8314417852088809013367f,0.7343441187404096126556f,0.6330608930438756942749f, \ +0.2331567634828388690948f,0.79906500224024057388f,0.5055180336348712444305f, \ +0.4791096337139606475830f,0.3705745027400553226471f,0.4796987390145659446716f, \ +0.6252688220702111721039f,0.9830987323075532913208f} + + +#define ResRF {1.3544643076000049131125f,1.555611161001190234643f,1.5227753545043396510295f, \ +1.3539721626852589953f,1.2307011179667750599975f,1.132986233674521114878f, \ +0.6108215211136103217626f,1.4563171387342028761935f,1.26775449603837397916f, \ +0.6906267709340139226981f,0.1780149993077420056409f,1.0583908356731808186879f, \ +1.4093733723685308856233f,1.1286484374252463425137f,1.1728485230904668323859f, \ +0.1960702202025065843394f,0.4292455238079518897720f,1.0670393141498673017509f, \ +0.8421897142243505163250f,1.3217939513349721281088f,0.6898654070878095234676f, \ +0.4518130294310849226491f,0.4144778912738525944448f,0.1673685006122558327490f, \ +1.3622415598200958708475f,0.886902683876586550582f,0.4229445354426950576254f, \ +0.9575064117084541859271f,0.8077294519947597617460f,0.4435267853313298869189f, \ +0.7559810258252398496026f,1.2678490741689776299950f,0.5046182820452449480086f, \ +1.1813319501282872892034f,1.4830799972889596727299f,0.8816531266139947531357f, \ +1.3432865448676185593513f,1.107591898499146854107f,1.2546916476714633503775f, \ +0.9420398538652174913466f,0.7566689041304636154095f,1.2508215962260114118010f, \ +1.3911123978681665391832f,1.0567086722755880678903f,0.7187986332601904448936f, \ +1.4036597839870441628563f,0.9583507556750017197800f,1.260866223812947772842f, \ +0.8161941887163420839002f,1.49844705842773628923f,1.327750735837211149004f, \ +0.5944014578559909667277f,1.1691763062196611766552f,0.4859006803898779369710f, \ +1.0595245187218389482098f,0.5917577795331790957434f,1.4335312043991983443902f, \ +0.5868872597311183270108f,1.3461313138241890463576f,0.9976829092544128307907f, \ +1.5280907058444337387471f,1.5279013990243792697754f,1.4752022598870020431150f, \ +1.0437541728877690605515f,0.8417324807407642328627f,0.8088220073687144573427f, \ +1.4024315436728629347130f,1.3644909573371579725176f,0.6237633497149321915032f, \ +1.5575873308176619858045f,0.4666916888200717261626f,1.0178667076465526264428f, \ +1.4124391178254291911998f,0.4487116894768009012218f,0.6682904180063654608901f, \ +1.1553765634714785459636f,0.6499108421939678859047f,1.2886833903313061888696f, \ +0.9248863868474237470707f,0.7432707317726728879492f,1.2893873050266133617470f, \ +1.5683842204080198357019f,1.1580328237052455175871f,0.297435226780083439291f, \ +1.3111168037999454405451f,1.0560204013836156367034f,1.267518556897496040392f, \ +1.300735649674872540515f,1.2349181037163743379637f,0.6257185580692986581752f, \ +1.2832770556580765930477f,1.5705554346207071247932f,1.4103561444004117930717f, \ +1.1446465290134530956578f,0.3807759856686916410951f,1.5051562877181774435797f, \ +1.065229590564843231704f,1.2758745069326440368940f,1.2245003981556386030149f, \ +0.2876926938040382797368f,1.475990325123716528921f,0.7774122140225130372926f, \ +1.3781114155823581679527f,1.263935652317189628491f,1.1747355003768786829710f, \ +1.2625031633451624379916f,1.379492661159100963530f,1.1811858445520480032087f, \ +0.9673699297198078417281f,0.8523079182101511719338f,0.6345096623572386019f, \ +0.8716851786364174792254f,1.438910541717890456681f,1.3428495335058063808731f, \ +0.9012036112561767620122f,0.8625540038617608429306f,0.8386401358861846899728f, \ +0.8326916717391449340724f,1.4293010137458141972644f,1.1509764487838076707504f, \ +0.8919861503219816967203f,1.1062622764047711498847f,1.1553550780909149775511f, \ +0.9422624178970196995309f,1.4552196270328432436969f,0.6945142387614549051023f, \ +1.33365204874339027263f,0.940421593525194388086f,1.244306023462703247873f, \ +0.7334183218187529940124f,1.049039471207045437495f,0.4425568980368907445744f, \ +0.8353452979806201827984f,0.5476812518090538040028f,1.3942319989111211508970f, \ +0.7009138051156860171886f,1.2652608172154014010147f,1.0312300888962582234853f, \ +0.8947803803621411367075f,0.9964267421930456114509f,0.3584025169927071985398f, \ +0.4053053537674792816681f,0.52444580540694141213f,0.5266937610818180903749f, \ +0.6693527332761076698020f,0.4162430398171838019650f,1.3526996566064570792776f, \ +0.4471117451927261177147f,1.0247266752134434053545f,1.4770380592585463652711f, \ +1.4123692272878969333760f,0.5877081129044480212187f,0.2539777406414896465670f, \ +0.5616486929670342354015f,0.7437800898892800161022f,0.4212363058629264855881f, \ +0.9567967508657543307393f,0.9517191061460341661160f,1.1945873210943909192849f, \ +1.4237020985347941248733f,1.307628484293123394266f,0.5952054691773595029858f, \ +1.1771609573131449621997f,1.5573101026141118463642f,0.7515308864404272037874f, \ +1.08906115052591578873f,1.4113670182151965004635f,1.3428794989819419214427f, \ +0.4823637262878405218558f,0.7337123123270111735295f,1.403530508718869640461f, \ +0.1701502458411716656173f,1.1952995905474013138559f,1.1675825417504139824842f, \ +0.632059235534878305351f,0.7877184695580223827704f,0.5207218041934291719031f, \ +1.0942618099823884225685f,1.2141365475300021081750f,0.8386990520942673166260f, \ +1.2698707048803585806240f,1.4293085531739009308438f,0.5845108665288674121285f, \ +0.9406947904242937141817f,1.1812297752030191944073f,1.2390161854573771282872f, \ +1.2897484327948283144849f,0.9883811343629644863285f,0.6389615878853852626307f, \ +1.5304976993530934326060f,1.5489647626028015814370f,1.2893816535780269205702f, \ +1.0689672707047077615528f,0.9933937851799321538948f,0.9549954566636918995570f, \ +1.337182267875798302725f,1.5129960805231705833762f,1.2793573801230322395384f, \ +0.6471646932978184496577f,1.0813774684738581832733f} + +#define ResIF {1.5313539994534084431876f,1.2270454945240594213374f,0.8252943559980340237914f, \ +1.3118622512767883492302f,1.0191099717030900340120f,0.3210890168818836265530f, \ +1.2569626427487261555171f,0.6516839411893488032135f,0.3965201754844740467121f, \ +1.0933384694570118522705f,0.6748555027471666578620f,1.3422993862285261812417f, \ +0.3455732962500616678447f,0.9107376302950138668990f,1.1118407738194451273017f, \ +1.2756190002512473036234f,0.534324627989826939078f,0.5423264441023638582351f, \ +0.4389707532009931023609f,0.8231379603724421345490f,1.0079137337479666669537f, \ +0.6619748165277959950359f,0.7759222830602500176056f,1.1555029726809751267069f, \ +1.3717763753859233410992f,1.3817192645680580476153f,0.7887574388774107880806f, \ +1.154081687844786152652f,1.3660276734930973940862f,0.5882019906981408308155f, \ +0.4993250010048232434556f,1.1676445771431656073247f,1.3217451760779403979740f, \ +0.5855226957110959418173f,1.4336693595120120203745f,1.205373778014949381898f, \ +1.3684360354595728193061f,0.7853847263571438475083f,0.7427319788503217168341f, \ +0.7295187281370371090716f,1.425979527467823082532f,0.4773949303589768988765f, \ +0.6653789652250786668120f,0.7201661840055592067600f,0.8359782312775623225320f, \ +0.4010449856231582121957f,0.8669186056114237537429f,0.7859362957809750138694f, \ +1.4870851367060453629421f,1.536458420533861612967f,0.9669891090554120216538f, \ +1.5464288516482158630794f,0.9684637239770992334087f,1.2351714956359907127137f, \ +1.1488133772379154340371f,0.8259848817840680368363f,0.4094531852851721054343f, \ +1.2799303040161731370716f,0.6520828442366262134300f,0.8308086408007220313721f, \ +0.3238399424616983379721f,0.6021873821209878796523f,1.0142399690964163383455f, \ +1.0517384795139694819710f,1.4309154243829336206062f,0.9090739203715231253611f, \ +0.8846133529122768290875f,0.2121182423802339123142f,0.8692983189363326923527f, \ +0.47697379514371801568f,0.5568622476164218904060f,0.9441544643774535394698f, \ +1.3281508401476103120586f,1.1191830432760909719292f,0.3896665024665909582424f, \ +0.9551267985697193818595f,1.2619503910172775729137f,1.5388006201603028344493f, \ +0.9641859946151247751089f,0.1480742995944135109720f,1.1183082300559199495638f, \ +0.1202844206176664348940f,1.1761232908094509941321f,0.3202477413820724594373f, \ +0.6402184399260194558323f,1.4711263056909940072359f,0.8893039482321445365898f, \ +1.3061869235485943363528f,0.6762117558368399006241f,0.9385261464846976764420f, \ +1.3939232457675478915604f,0.7385862765729950263349f,1.5274907742828045531525f, \ +1.0995848226997599894617f,1.0837202329455530858127f,1.3116696951046082908476f, \ +0.8878310767922412694020f,0.7571280287683522791653f,0.5332636611081145172619f, \ +0.1912359123928325799202f,1.44488716691460328256f,1.5353559670190242147925f, \ +1.4081331860416281820392f,0.6877194039437647399282f,1.02210543863474323523f, \ +1.4901996245029442977881f,0.7613110787878502039305f,1.3835858489414398775352f, \ +0.4882587676373527640905f,1.2717746792548134671108f,0.3510027969902725919482f, \ +1.48577035226708975557f,1.1798073422108839025668f,1.1725025103978652385450f, \ +1.082207178445642403730f,1.262258365804196147408f,0.6351051130420296564338f, \ +1.5694791839051283055539f,1.5075989617580312085465f,1.2198734065895773248656f, \ +1.4266026395050115383f,1.3834699355835038403484f,1.2681253600974256023903f, \ +0.9682551856135412915449f,1.2368453959617209392263f,0.3809027641084558046813f, \ +1.4742346083993373984100f,0.5467124691036475692130f,0.7552669049014355540095f, \ +1.1198593352029904135492f,1.2075848742491721576897f,1.3657291093636882983731f, \ +1.0429375766976551886955f,1.1486439448135470353662f,1.0053196235121615309538f, \ +1.3408940198345395966584f,1.166645348645906299367f,1.555256974484105159107f, \ +0.9821951633092294020599f,1.5423278214913895833860f,1.5272574927805724342988f, \ +0.6847121192620346796787f,0.6005034615094222427700f,1.1482356007343721415737f, \ +1.0828924838534597085982f,1.4763537862006439471685f,0.6758638036045827579557f, \ +0.4370463027476746975530f,0.7456695165395208491077f,0.8557598004935614843802f, \ +0.7359992024987982439654f,0.9490086268240732758628f,1.0922615019568577832132f, \ +1.184251206507022535774f,1.098560786595480287531f,1.4791358826505083268188f, \ +1.334758450002002438950f,1.3972001359840415801727f,1.4138645236300337870716f, \ +0.3475374929910621246698f,1.0113170412320249269555f,1.3432375513394290145186f, \ +1.0522666912154046148231f,1.1088781475531621634190f,1.3330663041014356728908f, \ +0.1305645353871486558095f,1.3955101678176036195111f,1.2192797033375830650925f, \ +1.2088946193116594240990f,0.8561851579342378837367f,0.8835514575659523250906f, \ +1.0189969006408940987995f,1.5564661397993202474055f,1.3109318548790835912143f, \ +0.8724535168872261658990f,0.5565178057806303701938f,1.215958206971465838109f, \ +1.3636703086937589368688f,1.4521391539839998419126f,0.9967404603545287899991f, \ +1.2201293368773795666726f,1.1569998731124000457271f,1.5310856382606727876805f, \ +1.4661906653829819280332f,1.2912110119575965772043f,0.8142075135673421115712f, \ +0.6699932176804166417128f,1.3511787210901111677686f,0.6638319846196626405899f, \ +0.5890987081162550875746f,0.7460964201464012068854f,0.8852953565042832595466f, \ +1.3354736682149619397819f,0.6450578234482783335224f,1.0408140682934756693356f, \ +1.0711562631188329408616f,1.1911688411902121575991f,1.0704849901046198379362f, \ +0.8953203785098390321551f,0.1841145960893279809323f} + + +#define InRD {0.3596746218390762805939,0.9327730434015393257141,0.6520409691147506237030, \ +0.4466360807418823242188,0.5597501345910131931305,0.1586764482781291007996, \ +0.1349689974449574947357,0.5309285502880811691284,0.7984495465643703937531, \ +0.5877699116244912147522,0.5329149584285914897919,0.3033532761037349700928, \ +0.0826407433487474918365,0.2014105310663580894470,0.2214868194423615932465, \ +0.5626921299844980239868,0.594995748717337846756,0.3364775599911808967590, \ +0.9449067446403205394745,0.2256392762064933776855,0.0615444355644285678864, \ +0.3346643997356295585632,0.9560257433913648128510,0.1118353512138128280640, \ +0.875087611842900514603,0.9554424667730927467346,0.2715726937167346477509, \ +0.6644485183060169219971,0.0682194815017282962799,0.7714469349011778831482, \ +0.8863877407275140285492,0.5750523973256349563599,0.7297094804234802722931, \ +0.2650343524292111396790,0.2903900700621306896210,0.7815508693456649780273, \ +0.9579934873618185520172,0.8447621343657374382019,0.1320300563238561153412, \ +0.8078997563570737838745,0.9455244098789989948273,0.500539929606020450592, \ +0.3719757865183055400848,0.9143753759562969207764,0.2877321452833712100983, \ +0.3162028631195425987244,0.7707839584909379482269,0.0271399710327386856079, \ +0.1103429165668785572052,0.5582566531375050544739,0.0543051543645560741425, \ +0.9158540144562721252441,0.1088079833425581455231,0.5595446033403277397156, \ +0.6005734889768064022064,0.5880853887647390365601,0.0935917277820408344269, \ +0.1165864700451493263245,0.9919306333176791667938,0.3692654408514499664307, \ +0.1350691155530512332916,0.6193392043933272361755,0.2761342129670083522797, \ +0.6369419116526842117310,0.9017825317569077014923,0.6321295695379376411438, \ +0.2802005815319716930389,0.6780787408351898193359,0.2858079918660223484039, \ +0.1445086328312754631042,0.8207319690845906734467,0.6381527464836835861206, \ +0.9089807276614010334015,0.2107781330123543739319,0.1544780055992305278778, \ +0.0307971797883510589600,0.6037301481701433658600,0.1969387223944067955017, \ +0.5128816193901002407074,0.7767421547323465347290,0.4622741756029427051544, \ +0.3538100840523838996887,0.0643593105487525463104,0.2408019527792930603027, \ +0.54792295629158616066,0.9350729240104556083679,0.148065799381583929062, \ +0.2356592025607824325562,0.8622419466264545917511,0.5789828384295105934143, \ +0.1228930498473346233368,0.4611959345638751983643,0.6618243739940226078033, \ +0.1725060557946562767029,0.6754536679945886135101,0.3481215108186006546021, \ +0.7184230727143585681915,0.9166270541027188301086,0.9307986753992736339569, \ +0.7746474295854568481445,0.6161916949786245822906,0.8115780530497431755066, \ +0.2096196576021611690521,0.6249590050429105758667,0.6797852967865765094757, \ +0.2807403812184929847717,0.7756852875463664531708,0.6582339219748973846436, \ +0.6270702988840639591217,0.1519677182659506797791,0.4172622240148484706879, \ +0.6569576654583215713501,0.5401938227005302906036,0.7150812121108174324036, \ +0.2062703850679099559784,0.3232858255505561828613,0.2487624012865126132965, \ +0.0742864711210131645203,0.2789225964806973934174,0.8922032769769430160522, \ +0.7188800652511417865753,0.5142624313011765480042,0.9815986151807010173798, \ +0.9302302338182926177979,0.5417958036996424198151,0.0986720984801650047302, \ +0.2257035276852548122406,0.2884251791983842849731,0.1159104001708328723907, \ +0.2198451654985547065735,0.3952605235390365123749,0.6784346699714660644531, \ +0.6158926435746252536774,0.3183825043961405754089,0.6509880437515676021576, \ +0.8403400164097547531128,0.3426549141295254230499,0.4914325335994362831116, \ +0.9746113042347133159637,0.7710508368909358978271,0.5479381443001329898834, \ +0.2083894601091742515564,0.7971581942401826381683,0.98199548758566379547, \ +0.327256154734641313553,0.8527633966878056526184,0.5549895497970283031464, \ +0.2548583671450614929199,0.6749493652023375034332,0.3089723540470004081726, \ +0.0173138021491467952728,0.8641140963882207870483,0.2950978805311024188995, \ +0.3128061080351471900940,0.7289360011927783489227,0.7351085729897022247314, \ +0.2620439515449106693268,0.7843119418248534202576,0.4119912139140069484711, \ +0.5064369011670351028442,0.1242738110013306140900,0.8618522631004452705383, \ +0.6704122978262603282928,0.9653681963682174682617,0.5454088845290243625641, \ +0.8560840962454676628113,0.8408820494078099727631,0.8250672649592161178589, \ +0.0760563765652477741241,0.8426104495301842689514,0.3340197275392711162567, \ +0.3123631589114665985107,0.1502692312933504581451,0.1120535572990775108337, \ +0.3095519519411027431488,0.5348146054893732070923,0.9003654685802757740021, \ +0.1962999971583485603333,0.0292179766111075878143,0.0958223119378089904785, \ +0.8838568949140608310699,0.6896676821634173393250,0.7311593382619321346283, \ +0.926538145169615745544,0.3162371893413364887238,0.5837447280064225196838, \ +0.3695438797585666179657,0.8033211864531040191650,0.9033793644048273563385, \ +0.3346501952037215232849,0.0631741485558450222015,0.5194906610995531082153, \ +0.8672926020808517932892,0.3814667062833905220032,0.5968301701359450817108, \ +0.1801257431507110595703,0.2589884647168219089508,0.3345949379727244377136, \ +0.8190965964458882808685,0.5886622350662946701050} + + +#define InID {0.9229331132955849170685,0.3624883117154240608215,0.4197423788718879222870, \ +0.1054803654551506042480,0.9433643990196287631989,0.2429116321727633476257, \ +0.5323819159530103206635,0.6621514465659856796265,0.3330680062063038349152, \ +0.5687411213293671607971,0.8901842678897082805634,0.3511209674179553985596, \ +0.0435834513045847415924,0.3901510154828429222107,0.6022473922930657863617, \ +0.1305641103535890579224,0.7857504826970398426056,0.3076619254425168037415, \ +0.1008732873015105724335,0.4706113189458847045898,0.23320029163733124733, \ +0.7386203287169337272644,0.0550201400183141231537,0.9430699776858091354370, \ +0.3567060981877148151398,0.8223499367013573646545,0.7739888499490916728973, \ +0.6216929666697978973389,0.9831431121565401554108,0.1827249368652701377869, \ +0.9450939274393022060394,0.2617440912872552871704,0.1728078690357506275177, \ +0.2669151099398732185364,0.0490687671117484569550,0.7276103869080543518066, \ +0.5088469409383833408356,0.4790528221055865287781,0.2969552963040769100189, \ +0.6372112985700368881226,0.8925450225360691547394,0.8275718921795487403870, \ +0.4322279985062777996063,0.6919547356665134429932,0.9382223919965326786041, \ +0.3049683338031172752380,0.2419023117981851100922,0.6609900016337633132935, \ +0.5614917469210922718048,0.7187329726293683052063,0.1203774022869765758514, \ +0.4885075986385345458984,0.8546244152821600437164,0.1922059385105967521667, \ +0.5297633125446736812592,0.4928359072655439376831,0.8427759413607418537140, \ +0.0541030326858162879944,0.7004424850456416606903,0.1260847412049770355225, \ +0.214821046683937311172,0.3354639699682593345642,0.4156156606040894985199, \ +0.2630857769399881362915,0.6225479659624397754669,0.5927724959328770637512, \ +0.2235821518115699291229,0.4883798584342002868652,0.6419621580280363559723, \ +0.2759983791038393974304,0.9215044914744794368744,0.3500011768192052841187, \ +0.9904493917711079120636,0.3603112781420350074768,0.6544074560515582561493, \ +0.0488083250820636749268,0.0935482070781290531158,0.4602164840325713157654, \ +0.4731614640913903713226,0.5321122277528047561646,0.5950817507691681385040, \ +0.1448625372722744941711,0.6952003496699035167694,0.4603509455919265747070, \ +0.9043989875353872776031,0.6732707200571894645691,0.9117235108278691768646, \ +0.0155613552778959274292,0.3744752858765423297882,0.8682364234700798988342, \ +0.9851324330084025859833,0.0203977040946483612061,0.2046223790384829044342, \ +0.3476523896679282188416,0.8804515874944627285004,0.3364470396190881729126, \ +0.6615577009506523609161,0.8320038290694355964661,0.6744837048463523387909, \ +0.0105915144085884094238,0.7125830971635878086090,0.7467854125425219535828, \ +0.5864494233392179012299,0.1381675656884908676147,0.6646229107864201068878, \ +0.8385901385918259620667,0.3738613124005496501923,0.9116719700396060943604, \ +0.9028714434243738651276,0.0236200755462050437927,0.9373822710476815700531, \ +0.8237647730857133865356,0.3227997911162674427032,0.1873689787462353706360, \ +0.4784183013252913951874,0.4933190941810607910156,0.5492720552720129489899, \ +0.1542267827317118644714,0.0531956567429006099701,0.0832678060978651046753, \ +0.5365209286101162433624,0.5457559684291481971741,0.8670723657123744487762, \ +0.7789970897138118743896,0.6427326560951769351959,0.7463898053392767906189, \ +0.1528341299854218959808,0.2960368636995553970337,0.772991370875388383865, \ +0.6953024687245488166809,0.9767245980910956859589,0.8857980892062187194824, \ +0.6843328052200376987457,0.7232010317966341972351,0.8159600137732923030853, \ +0.8081069495528936386108,0.0466573764570057392120,0.1527893329039216041565, \ +0.2514782394282519817352,0.7392859049141407012939,0.3532526479102671146393, \ +0.8816537177190184593201,0.6196721545420587062836,0.0845316220074892044067, \ +0.2746751648373901844025,0.6663206564262509346008,0.9668574291281402111053, \ +0.6633397787809371948242,0.5497416653670370578766,0.32623623590916395187, \ +0.1502246721647679805756,0.7367267441004514694214,0.0073796664364635944366, \ +0.5864175269380211830139,0.4290259550325572490692,0.8449981324374675750732, \ +0.8130874247290194034576,0.7775258263573050498962,0.3897457099519670009613, \ +0.4248142335563898086548,0.533753272611647844315,0.1121117742732167243958, \ +0.5490060034207999706268,0.6743023172020912170410,0.1145843290723860263824, \ +0.7557823462411761283875,0.4779561846517026424408,0.6349658127874135971069, \ +0.3618945856578648090363,0.4120397204533219337463,0.7918969090096652507782, \ +0.9591403640806674957275,0.0255023674108088016510,0.6395420199260115623474, \ +0.8488885364495217800140,0.3317467588931322097778,0.0744871688075363636017, \ +0.6205359296873211860657,0.5010939049534499645233,0.0150907337665557861328, \ +0.2600558646954596042633,0.5992111889645457267761,0.7426054789684712886810, \ +0.48545965366065502167,0.5592682962305843830109,0.7087269583716988563538, \ +0.5975068728439509868622,0.6302660666406154632568,0.5933722318150103092194, \ +0.4056600620970129966736,0.0919187492690980434418,0.4744881335645914077759, \ +0.6144977030344307422638,0.2306251050904393196106,0.6537790927104651927948, \ +0.9051569327712059020996,0.1544607155956327915192,0.1138164652511477470398, \ +0.7841078578494489192963,0.3626406397670507431030} + + +#define ResRD {1.2028771717397248597337,0.3687655164040291033700,0.8605230767316590645422, \ +1.1077942947750605284796,0.9767120864552386594326,1.4114463541323842843411, \ +1.4354141532486464072349,1.0111003946929904007135,0.6460807643012056455945, \ +0.942496758054768402069,1.0087545936051280914825,1.262586531900748765267, \ +1.4880612274536648698131,1.3679985766801496804845,1.3474574320651662162618, \ +0.9731575131888534624380,0.9335359675538464907518,1.2276224867355149950043, \ +0.3334867299422681341525,1.3431971414533188102780,1.5092129727018919194137, \ +1.2295472552241557551156,0.2976587959346745915212,1.4587265301529550587389, \ +0.5051795104327043706149,0.2996411780017103065887,1.2957695643431932364109, \ +0.8440406830828603990113,1.50252381975481164034,0.6896842944166139410811, \ +0.4813132194495245430588,0.9581281339053301371322,0.7528993595207621458698, \ +1.3025567781811444589835,1.2761618784887454047805,0.6736483673578720354769, \ +0.2908743485069323897463,0.5646758064966191925649,1.438379639941827381477, \ +0.6302168108311377858755,0.3315946371104716572376,1.0465739819013770706135, \ +1.1896596872617526408078,0.4168338903307298726197,1.2789383292392024760176, \ +1.2490720222420119700502,0.6907255719643182745315,1.5436530228729308245050, \ +1.4602282599819302877364,0.9785132735167261230913,1.5164644455125539934670, \ +0.4131665402940313813751,1.4617724919866201815921,0.976960093696471187918, \ +0.9265781639066993369269,0.9421067569746168768319,1.4770674228670064298541, \ +1.4539441129892149984215,0.1271238965902136142105,1.1925778534654034590545, \ +1.4353131098866320769503,0.9028955486769573157702,1.291026727930056683391, \ +0.8802714396298314536438,0.4469199799286652230457,0.8864978673073259374249, \ +1.2867932721224226710888,0.8256508509224979031060,1.280946841714904582687, \ +1.4257799518141858197140,0.6081052805119846471626,0.8786997656642617782197, \ +0.4299640690276578247619,1.358425418880489399243,1.4156972317305263064924, \ +1.539994276579740084543,0.9226243343869420243664,1.3725618187689798688211, \ +1.0322581557317391798279,0.6813198095430882395007,1.0902381815309389878621, \ +1.2091547718013440082530,1.5063925025508968502663,1.3276042940716099582943, \ +0.9909170452840954101958,0.3623315827204681149887,1.4221840996178074512102, \ +1.3328995078730689893831,0.5311168124493514941520,0.9533157205028358616161, \ +1.4475918193576946535472,1.0914537614762709338834,0.8475465668021775478280, \ +1.397423024242874678436,0.8292165733697762775023,1.2152298005000905511963, \ +0.7692636520177893455497,0.4112369685450336653787,0.3742045597954955504783, \ +0.6846389399063078640140,0.9068981756365698254641,0.6239482394976629819894, \ +1.3596103677318518432315,0.8957173083282501391267,0.8233264779021800539027, \ +1.2862309003134888563125,0.6829961273496524265525,0.8523259494147855663826, \ +0.8930098639160600759723,1.4182375163347213931075,1.140365661220332116343, \ +0.8540200113324175612561,1.00012891553026617153,0.7740560507824159053314, \ +1.3630344917090961853745,1.2415966072092310401587,1.3193940476076928547400, \ +1.4964413607109372517101,1.2881243295307911456149,0.4685959659402677002227, \ +0.7686064589523176060482,1.0306489046710447521349,0.1921358819063216094580, \ +0.3757565999820682289823,0.9982241210548544740888,1.4719634077784360393082, \ +1.343131188620912519482,1.2782146146919892704119,1.4546247978060928840449, \ +1.34914057669922526905,1.1644448741462574137273,0.8251664782779083440190, \ +0.9072778206884453133796,1.2467736163145475281055,0.8619109958260211534764, \ +0.5728861415513620825024,1.2210548843020616605060,1.057062476566032582781, \ +0.2258178915663380803558,0.6903065678994606546581,0.9908988891861231218527, \ +1.3608683482364234418327,0.6482226075956507571618,0.1900463122401400695161, \ +1.2373979549105573738643,0.5495428169674564378155,0.9824459232054076895935, \ +1.3130950959292289059732,0.8299002502243607581889,1.2566839986965321340762, \ +1.5534816595091374136217,0.5274088279670856582726,1.2712383671403899576546, \ +1.2526503588977928593806,0.7540298966945283565266,0.7449695106054331494860, \ +1.3056567692434561944737,0.6692100940463061586883,1.1461580467200653821180, \ +1.0397487722058409431725,1.4462003916605226105929,0.5318856797809271563793, \ +0.8360320128831254526958,0.2639453129802519226743,0.9939194594428718554369, \ +0.5431515558502996166013,0.5718854142758250658218,0.6004750914590427646189, \ +1.494666433096084601218,0.5686839111974200111632,1.2302312925591223358168, \ +1.253116675176039196415,1.4199557361545380729240,1.4585069438499760341443, \ +1.2560745223234066614282,1.0065080046249368361799,0.4501876422711190706138, \ +1.37321326022231460229,1.541574191402776516924,1.474826766905839248167, \ +0.4867517858084012272180,0.8097662970595214115832,0.7507765257710836692695, \ +0.3856924750031833770691,1.249035839325627783580,0.9474631507713823230787, \ +1.1922782211545606134706,0.6379451906902231517194,0.4432108724859483706027, \ +1.2295623289060186866806,1.5075800815380702157853,1.0245415674248141701952, \ +0.5210587890871913874236,1.1794138612822491207766,0.9312516456662516262099, \ +1.3896820429875444968815,1.3088215387819075452569,1.2296209664609143441538, \ +0.6109619018903345022409,0.9413933583319856746030} + +#define ResID {0.3951648575239898320000,1.1998599191854182333117,1.1376348605752844012073, \ +1.465119377848908444051,0.3381668921842964636859,1.3254300655944222242510, \ +1.0093844168860410803745,0.8471101875532934810664,1.2312408252616013903946, \ +0.9658218036234816894492,0.4730468665045839404826,1.2120282989381994109834, \ +1.5271990657633036647667,1.1700007263913658750454,0.9244830082340818044884, \ +1.4398583874714105945714,0.6668878269832446692433,1.2580615360595837071145, \ +1.469751180044867489016,1.0808128388866473645891,1.3354289061467599086797, \ +0.7397748903744012505257,1.5157483892532124247765,0.3390532325241176758723, \ +1.2060566608171623403933,0.6052674782943161524429,0.6856796849056999709759, \ +0.8998940392728933534983,0.1838720261619849749568,1.3870389861749277127245, \ +0.3329144266647406369408,1.3059674741482103499379,1.3971166092654940804607, \ +1.3006057440568965510863,1.5217078474803023002693,0.7559642911271701182230, \ +1.0369514991511814550051,1.0712209857356591591326,1.269293794668532759928, \ +0.8799219498148160845119,0.4678387125772855426042,0.5960279397443470905671, \ +1.1238342982646878365216,0.8066031631951199321051,0.3533394355311441636935, \ +1.2608911478449162935078,1.3264704147976305037560,0.8486590233944532046806, \ +0.9746088733052290509207,0.7688180390299395039477,1.4501262863697272909036, \ +1.0604177661273477273340,0.5459692445499627622141,1.3773868224199956600273, \ +1.0124748504563416684476,1.0554503653691549303062,0.5683765307039274627954, \ +1.51666686477275236555,0.7947790388807016714878,1.444375103731482257174, \ +1.3542877317815249504918,1.2286986304625879817820,1.1421767363912749271293, \ +1.3045770615336993447642,0.8988019765557795359712,0.9362993172800923025179, \ +1.3453082070226998201434,1.0605641572328137200998,0.8737416901115169221015, \ +1.291168053919788061279,0.3988595901749554806237,1.2132239668698467927044, \ +0.1383173844378887129558,1.202194763365512786280,0.8573976133064432625375, \ +1.521968601948950672309,1.477111135350419379719,1.0925573022860231020559, \ +1.0779203988995060825573,1.0097029754548383362334,0.9334289595014243490212, \ +1.4254222838750787438755,0.8020977417833006217762,1.0924058427012042216120, \ +0.4408272680981772384534,0.8321728959279414139516,0.4233361516656445888707, \ +1.555234343403203434164,1.1869655070484292913591,0.5191596559668992805214, \ +0.1726531465878520799073,1.5503972079690304664013,1.36471841886514577702, \ +1.2157301769255985934848,0.4939825241386303633639,1.2276548967083007468659, \ +0.8479022368018470645623,0.5880863647395992988010,0.8305311605615690595528, \ +1.5602046143499832542290,0.7776231797042172377843,0.7275809483667111665639, \ +0.9441279829885425023406,1.4321853316086308183230,0.843807306082328567598, \ +0.5761063109755523159450,1.1876275724298643865495,0.4234615972962428864790, \ +0.4443937992506357126388,1.5471740543923786503910,0.3557593635626380978998, \ +0.6027763814257049990175,1.2421101770287796828285,1.38231332584564192700, \ +1.0719437082101082037155,1.0548949687688948806397,0.9893034572407536364480, \ +1.4159515018071209269124,1.5175755494012541646498,1.4874319959560586834613, \ +1.0044873206933038201072,0.9935053064241541331825,0.5215010392624837010089, \ +0.6777315702665774876934,0.8727363606570205378787,0.7281755897232153884602, \ +1.4173608641957105014342,1.2702554699418613370909,0.68725347232280220577, \ +0.8019556663866970191989,0.2161770444474211128050,0.4825853710330196832956, \ +0.8171080273286167594549,0.7623702910110113917241,0.6164084604410411394326, \ +0.6298651458963931970558,1.5241220055757684903597,1.4174061936572994735428, \ +1.3165890509097089022816,0.7387870320346577868165,1.2097506908133905945135, \ +0.4914411126250278760708,0.9024714041224581873024,1.486163708235356928355, \ +1.2925444697673078575662,0.8415327957004463677038,0.2581754363689663378523, \ +0.8455232994143846436685,0.9887413792308584747914,1.2384771061229662425518, \ +1.4200008069038045910304,0.7425795503893282134555,1.563416593374662655336, \ +0.9441673613882943794096,1.127382154057082752630,0.5642346520145214983089, \ +0.621360123138604558690,0.6800745718063847533585,1.1704408755783293205610, \ +1.1320396542439032927518,1.0077635667413964437600,1.458448357717931243016, \ +0.9896218035143569125012,0.8307768192585568423070,1.4559597641231585285482, \ +0.7139482848605868126057,1.0724698824433842592185,0.8828320605509567542413, \ +1.2004968934363549060151,1.146104811676569967815,0.6568872036374757694688, \ +0.2868482517606141812827,1.545291194242470300679,0.8768939505825917857251, \ +0.5569173641664709739629,1.232641734141120881674,1.4962401054388050347654, \ +0.9013703796371622667394,1.04593395730292670898,1.5557050202002185024241, \ +1.3077162690478547624195,0.9282808676410991832739,0.7338439661737942154573, \ +1.0639074721436194703728,0.9772934382272977504869,0.7831042538275899689282, \ +0.9304079984506387068777,0.8889004609716527616214,0.9355544417368609755314, \ +1.1530954621848632513093,1.4787476451204033534026,1.076413879615883972818, \ +0.9090472087664583922262,1.3380762696952535062422,0.8582283270195686375459, \ +0.4390475642403208755837,1.4157147317770455430264,1.4567326846157102604451, \ +0.6695389988269940806376,1.199696469825039413237} + + + +void sacossTest(void) { + int i=0; + float tIn1[]=InRF; + float tRes1[]=ResRF; + float tIn2[]=InIF; + float tRes2[]=ResIF; + + for(i=0;i<200;i++){ + assert ( ( fabs(sacoss(tIn1[i]) - tRes1[i]) / fabs(sacoss(tIn1[i])) ) < 1e-6); + assert ( ( fabs(sacoss(tIn2[i]) - tRes2[i]) / fabs(sacoss(tIn2[i])) ) < 3e-6); + } +} + + +void dacossTest(void) { + int i=0; + double tIn1[]=InRD; + double tRes1[]=ResRD; + double tIn2[]=InID; + double tRes2[]=ResID; + + for(i=0;i<200;i++){ + assert ( ( (fabs(dacoss(tIn1[i])) - tRes1[i]) / fabs(dacoss(tIn1[i])) ) < 3e-15); + assert ( ( (fabs(dacoss(tIn2[i])) - tRes2[i]) / fabs(dacoss(tIn2[i])) ) < 3e-15); + } +} + + +void sacosaTest(void){ + int i=0; + float tIn1[]=InRF; + float tRes1[]=ResRF; + float tIn2[]=InIF; + float tRes2[]=ResIF; + float out1[200]; + float out2[200]; + sacosa(tIn1,200,out1); + sacosa(tIn2,200,out2); + for(i=0;i<200;i++){ + assert( (fabs(out1[i]-tRes1[i])/fabs(out1[i])) <1e-6); + assert( (fabs(out2[i]-tRes2[i])/fabs(out2[i])) <3e-6); + } +} + +void dacosaTest(void){ + int i=0; + double tIn1[]=InRD; + double tRes1[]=ResRD; + double tIn2[]=InID; + double tRes2[]=ResID; + double out1[200]; + double out2[200]; + dacosa(tIn1,200,out1); + dacosa(tIn2,200,out2); + for(i=0;i<200;i++){ + assert( (fabs(out1[i]-tRes1[i])/fabs(out1[i])) <3e-15); + assert( (fabs(out2[i]-tRes2[i])/fabs(out2[i])) <3e-15); + } +} + + + + +int testAcos(void) { + printf("\n>>>> Reals ArcCosine Tests\n"); + sacossTest(); + dacossTest(); + sacosaTest(); + dacosaTest(); + return 0; +} + +int main(void) { + assert(testAcos() == 0); + return 0; +} + + |