12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480 |
- // (C) Copyright John Maddock 2006-7.
- // Use, modification and distribution are subject to the
- // Boost Software License, Version 1.0. (See accompanying file
- // LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
- #ifndef BOOST_MATH_TEST_RATIONAL_HPP
- #define BOOST_MATH_TEST_RATIONAL_HPP
- #include <boost/test/tools/floating_point_comparison.hpp>
- #include <boost/test/unit_test.hpp>
- #include <boost/array.hpp>
- #include <boost/math/tools/rational.hpp>
- #include <boost/math/tools/precision.hpp>
- template <class T, class U>
- void do_test_spots1(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Everything past this point is generated by the program
- // ../tools/generate_rational_test.cpp
- //
- //
- // Polynomials of order 0
- //
- static const U n1c[1] = { 2 };
- static const boost::array<U, 1> n1a = {{ 2 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1c, static_cast<T>(0.125), 1),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1c, static_cast<T>(0.25), 1),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1c, static_cast<T>(0.75), 1),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1c, static_cast<T>(1.0f - 1.0f/64.0f), 1),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1c, static_cast<T>(6.5), 1),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1c, static_cast<T>(10247.25), 1),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1c, static_cast<T>(0.125)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1c, static_cast<T>(0.25)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1c, static_cast<T>(0.75)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1c, static_cast<T>(6.5)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1c, static_cast<T>(10247.25)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1a, static_cast<T>(0.125)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1a, static_cast<T>(0.25)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1a, static_cast<T>(0.75)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1a, static_cast<T>(6.5)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n1a, static_cast<T>(10247.25)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1c, static_cast<T>(0.125), 1),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1c, static_cast<T>(0.25), 1),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1c, static_cast<T>(0.75), 1),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1c, static_cast<T>(1.0f - 1.0f/64.0f), 1),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1c, static_cast<T>(6.5f), 1),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1c, static_cast<T>(10247.25f), 1),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1c, static_cast<T>(0.125)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1c, static_cast<T>(0.25)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1c, static_cast<T>(0.75)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1c, static_cast<T>(6.5f)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1c, static_cast<T>(10247.25f)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1a, static_cast<T>(0.125)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1a, static_cast<T>(0.25)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1a, static_cast<T>(0.75)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1a, static_cast<T>(6.5f)),
- static_cast<T>(0.2e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n1a, static_cast<T>(10247.25f)),
- static_cast<T>(0.2e1L),
- tolerance);
- //
- // Rational functions of order 0
- //
- static const U d1c[1] = { 3 };
- static const boost::array<U, 1> d1a = {{ 3 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1c, d1c, static_cast<T>(0.125), 1),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1c, d1c, static_cast<T>(0.25), 1),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1c, d1c, static_cast<T>(0.75), 1),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1c, d1c, static_cast<T>(1.0f - 1.0f/64.0f), 1),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1c, d1c, static_cast<T>(6.5f), 1),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1c, d1c, static_cast<T>(10247.25f), 1),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1c, d1c, static_cast<T>(0.125)),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1c, d1c, static_cast<T>(0.25)),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1c, d1c, static_cast<T>(0.75)),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1c, d1c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1c, d1c, static_cast<T>(6.5f)),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1c, d1c, static_cast<T>(10247.25f)),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1a, d1a, static_cast<T>(0.125)),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1a, d1a, static_cast<T>(0.25)),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1a, d1a, static_cast<T>(0.75)),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1a, d1a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1a, d1a, static_cast<T>(6.5f)),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n1a, d1a, static_cast<T>(10247.25f)),
- static_cast<T>(0.6666666666666666666666666666666666666667e0L),
- tolerance);
- //
- // Polynomials of order 1
- //
- static const U n2c[2] = { 3, 1 };
- static const boost::array<U, 2> n2a = {{ 3, 1 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2c, static_cast<T>(0.125), 2),
- static_cast<T>(0.3125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2c, static_cast<T>(0.25), 2),
- static_cast<T>(0.325e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2c, static_cast<T>(0.75), 2),
- static_cast<T>(0.375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2c, static_cast<T>(1.0f - 1.0f/64.0f), 2),
- static_cast<T>(0.3984375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2c, static_cast<T>(6.5), 2),
- static_cast<T>(0.95e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2c, static_cast<T>(10247.25), 2),
- static_cast<T>(0.1025025e5L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2c, static_cast<T>(0.125)),
- static_cast<T>(0.3125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2c, static_cast<T>(0.25)),
- static_cast<T>(0.325e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2c, static_cast<T>(0.75)),
- static_cast<T>(0.375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.3984375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2c, static_cast<T>(6.5)),
- static_cast<T>(0.95e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2c, static_cast<T>(10247.25)),
- static_cast<T>(0.1025025e5L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2a, static_cast<T>(0.125)),
- static_cast<T>(0.3125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2a, static_cast<T>(0.25)),
- static_cast<T>(0.325e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2a, static_cast<T>(0.75)),
- static_cast<T>(0.375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.3984375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2a, static_cast<T>(6.5)),
- static_cast<T>(0.95e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n2a, static_cast<T>(10247.25)),
- static_cast<T>(0.1025025e5L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2c, static_cast<T>(0.125), 2),
- static_cast<T>(0.3015625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2c, static_cast<T>(0.25), 2),
- static_cast<T>(0.30625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2c, static_cast<T>(0.75), 2),
- static_cast<T>(0.35625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2c, static_cast<T>(1.0f - 1.0f/64.0f), 2),
- static_cast<T>(0.3968994140625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2c, static_cast<T>(6.5f), 2),
- static_cast<T>(0.4525e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2c, static_cast<T>(10247.25f), 2),
- static_cast<T>(0.1050061355625e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2c, static_cast<T>(0.125)),
- static_cast<T>(0.3015625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2c, static_cast<T>(0.25)),
- static_cast<T>(0.30625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2c, static_cast<T>(0.75)),
- static_cast<T>(0.35625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.3968994140625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2c, static_cast<T>(6.5f)),
- static_cast<T>(0.4525e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2c, static_cast<T>(10247.25f)),
- static_cast<T>(0.1050061355625e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2a, static_cast<T>(0.125)),
- static_cast<T>(0.3015625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2a, static_cast<T>(0.25)),
- static_cast<T>(0.30625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2a, static_cast<T>(0.75)),
- static_cast<T>(0.35625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.3968994140625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2a, static_cast<T>(6.5f)),
- static_cast<T>(0.4525e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n2a, static_cast<T>(10247.25f)),
- static_cast<T>(0.1050061355625e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2c, static_cast<T>(0.125), 2),
- static_cast<T>(0.3125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2c, static_cast<T>(0.25), 2),
- static_cast<T>(0.325e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2c, static_cast<T>(0.75), 2),
- static_cast<T>(0.375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2c, static_cast<T>(1.0f - 1.0f/64.0f), 2),
- static_cast<T>(0.3984375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2c, static_cast<T>(6.5f), 2),
- static_cast<T>(0.95e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2c, static_cast<T>(10247.25f), 2),
- static_cast<T>(0.1025025e5L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2c, static_cast<T>(0.125)),
- static_cast<T>(0.3125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2c, static_cast<T>(0.25)),
- static_cast<T>(0.325e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2c, static_cast<T>(0.75)),
- static_cast<T>(0.375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.3984375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2c, static_cast<T>(6.5f)),
- static_cast<T>(0.95e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2c, static_cast<T>(10247.25f)),
- static_cast<T>(0.1025025e5L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2a, static_cast<T>(0.125)),
- static_cast<T>(0.3125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2a, static_cast<T>(0.25)),
- static_cast<T>(0.325e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2a, static_cast<T>(0.75)),
- static_cast<T>(0.375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.3984375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2a, static_cast<T>(6.5f)),
- static_cast<T>(0.95e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n2a, static_cast<T>(10247.25f)),
- static_cast<T>(0.1025025e5L),
- tolerance);
- //
- // Rational functions of order 1
- //
- static const U d2c[2] = { 5, 9 };
- static const boost::array<U, 2> d2a = {{ 5, 9 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2c, d2c, static_cast<T>(0.125), 2),
- static_cast<T>(0.5102040816326530612244897959183673469388e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2c, d2c, static_cast<T>(0.25), 2),
- static_cast<T>(0.4482758620689655172413793103448275862069e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2c, d2c, static_cast<T>(0.75), 2),
- static_cast<T>(0.3191489361702127659574468085106382978723e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2c, d2c, static_cast<T>(1.0f - 1.0f/64.0f), 2),
- static_cast<T>(0.2874859075535512965050732807215332581736e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2c, d2c, static_cast<T>(6.5f), 2),
- static_cast<T>(0.1496062992125984251968503937007874015748e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2c, d2c, static_cast<T>(10247.25f), 2),
- static_cast<T>(0.1111376148281068304596377002122405609873e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2c, d2c, static_cast<T>(0.125)),
- static_cast<T>(0.5102040816326530612244897959183673469388e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2c, d2c, static_cast<T>(0.25)),
- static_cast<T>(0.4482758620689655172413793103448275862069e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2c, d2c, static_cast<T>(0.75)),
- static_cast<T>(0.3191489361702127659574468085106382978723e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2c, d2c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.2874859075535512965050732807215332581736e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2c, d2c, static_cast<T>(6.5f)),
- static_cast<T>(0.1496062992125984251968503937007874015748e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2c, d2c, static_cast<T>(10247.25f)),
- static_cast<T>(0.1111376148281068304596377002122405609873e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2a, d2a, static_cast<T>(0.125)),
- static_cast<T>(0.5102040816326530612244897959183673469388e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2a, d2a, static_cast<T>(0.25)),
- static_cast<T>(0.4482758620689655172413793103448275862069e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2a, d2a, static_cast<T>(0.75)),
- static_cast<T>(0.3191489361702127659574468085106382978723e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2a, d2a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.2874859075535512965050732807215332581736e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2a, d2a, static_cast<T>(6.5f)),
- static_cast<T>(0.1496062992125984251968503937007874015748e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n2a, d2a, static_cast<T>(10247.25f)),
- static_cast<T>(0.1111376148281068304596377002122405609873e0L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots2(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 2
- //
- static const U n3c[3] = { 10, 6, 11 };
- static const boost::array<U, 3> n3a = {{ 10, 6, 11 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3c, static_cast<T>(0.125), 3),
- static_cast<T>(0.10921875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3c, static_cast<T>(0.25), 3),
- static_cast<T>(0.121875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3c, static_cast<T>(0.75), 3),
- static_cast<T>(0.206875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3c, static_cast<T>(1.0f - 1.0f/64.0f), 3),
- static_cast<T>(0.26565185546875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3c, static_cast<T>(6.5), 3),
- static_cast<T>(0.51375e3L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3c, static_cast<T>(10247.25), 3),
- static_cast<T>(0.11551289516875e10L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3c, static_cast<T>(0.125)),
- static_cast<T>(0.10921875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3c, static_cast<T>(0.25)),
- static_cast<T>(0.121875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3c, static_cast<T>(0.75)),
- static_cast<T>(0.206875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.26565185546875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3c, static_cast<T>(6.5)),
- static_cast<T>(0.51375e3L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3c, static_cast<T>(10247.25)),
- static_cast<T>(0.11551289516875e10L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3a, static_cast<T>(0.125)),
- static_cast<T>(0.10921875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3a, static_cast<T>(0.25)),
- static_cast<T>(0.121875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3a, static_cast<T>(0.75)),
- static_cast<T>(0.206875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.26565185546875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3a, static_cast<T>(6.5)),
- static_cast<T>(0.51375e3L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n3a, static_cast<T>(10247.25)),
- static_cast<T>(0.11551289516875e10L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3c, static_cast<T>(0.125), 3),
- static_cast<T>(0.10096435546875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3c, static_cast<T>(0.25), 3),
- static_cast<T>(0.1041796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3c, static_cast<T>(0.75), 3),
- static_cast<T>(0.1685546875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3c, static_cast<T>(1.0f - 1.0f/64.0f), 3),
- static_cast<T>(0.26142410933971405029296875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3c, static_cast<T>(6.5f), 3),
- static_cast<T>(0.198991875e5L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3c, static_cast<T>(10247.25f), 3),
- static_cast<T>(0.12128916726310335635546875e18L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3c, static_cast<T>(0.125)),
- static_cast<T>(0.10096435546875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3c, static_cast<T>(0.25)),
- static_cast<T>(0.1041796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3c, static_cast<T>(0.75)),
- static_cast<T>(0.1685546875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.26142410933971405029296875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3c, static_cast<T>(6.5f)),
- static_cast<T>(0.198991875e5L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3c, static_cast<T>(10247.25f)),
- static_cast<T>(0.12128916726310335635546875e18L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3a, static_cast<T>(0.125)),
- static_cast<T>(0.10096435546875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3a, static_cast<T>(0.25)),
- static_cast<T>(0.1041796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3a, static_cast<T>(0.75)),
- static_cast<T>(0.1685546875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.26142410933971405029296875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3a, static_cast<T>(6.5f)),
- static_cast<T>(0.198991875e5L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n3a, static_cast<T>(10247.25f)),
- static_cast<T>(0.12128916726310335635546875e18L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3c, static_cast<T>(0.125), 3),
- static_cast<T>(0.10771484375e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3c, static_cast<T>(0.25), 3),
- static_cast<T>(0.11671875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3c, static_cast<T>(0.75), 3),
- static_cast<T>(0.19140625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3c, static_cast<T>(1.0f - 1.0f/64.0f), 3),
- static_cast<T>(0.26398639678955078125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3c, static_cast<T>(6.5f), 3),
- static_cast<T>(0.3069875e4L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3c, static_cast<T>(10247.25f), 3),
- static_cast<T>(0.11836265072405359375e14L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3c, static_cast<T>(0.125)),
- static_cast<T>(0.10771484375e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3c, static_cast<T>(0.25)),
- static_cast<T>(0.11671875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3c, static_cast<T>(0.75)),
- static_cast<T>(0.19140625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.26398639678955078125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3c, static_cast<T>(6.5f)),
- static_cast<T>(0.3069875e4L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3c, static_cast<T>(10247.25f)),
- static_cast<T>(0.11836265072405359375e14L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3a, static_cast<T>(0.125)),
- static_cast<T>(0.10771484375e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3a, static_cast<T>(0.25)),
- static_cast<T>(0.11671875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3a, static_cast<T>(0.75)),
- static_cast<T>(0.19140625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.26398639678955078125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3a, static_cast<T>(6.5f)),
- static_cast<T>(0.3069875e4L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n3a, static_cast<T>(10247.25f)),
- static_cast<T>(0.11836265072405359375e14L),
- tolerance);
- //
- // Rational functions of order 2
- //
- static const U d3c[3] = { 3, 4, 10 };
- static const boost::array<U, 3> d3a = {{ 3, 4, 10 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3c, d3c, static_cast<T>(0.125), 3),
- static_cast<T>(0.2987179487179487179487179487179487179487e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3c, d3c, static_cast<T>(0.25), 3),
- static_cast<T>(0.2635135135135135135135135135135135135135e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3c, d3c, static_cast<T>(0.75), 3),
- static_cast<T>(0.1779569892473118279569892473118279569892e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3c, d3c, static_cast<T>(1.0f - 1.0f/64.0f), 3),
- static_cast<T>(0.1597671277126831703520981998649164537633e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3c, d3c, static_cast<T>(6.5f), 3),
- static_cast<T>(0.1137873754152823920265780730897009966777e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3c, d3c, static_cast<T>(10247.25f), 3),
- static_cast<T>(0.1100015619716026431429617996316152069115e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3c, d3c, static_cast<T>(0.125)),
- static_cast<T>(0.2987179487179487179487179487179487179487e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3c, d3c, static_cast<T>(0.25)),
- static_cast<T>(0.2635135135135135135135135135135135135135e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3c, d3c, static_cast<T>(0.75)),
- static_cast<T>(0.1779569892473118279569892473118279569892e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3c, d3c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.1597671277126831703520981998649164537633e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3c, d3c, static_cast<T>(6.5f)),
- static_cast<T>(0.1137873754152823920265780730897009966777e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3c, d3c, static_cast<T>(10247.25f)),
- static_cast<T>(0.1100015619716026431429617996316152069115e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3a, d3a, static_cast<T>(0.125)),
- static_cast<T>(0.2987179487179487179487179487179487179487e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3a, d3a, static_cast<T>(0.25)),
- static_cast<T>(0.2635135135135135135135135135135135135135e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3a, d3a, static_cast<T>(0.75)),
- static_cast<T>(0.1779569892473118279569892473118279569892e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3a, d3a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.1597671277126831703520981998649164537633e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3a, d3a, static_cast<T>(6.5f)),
- static_cast<T>(0.1137873754152823920265780730897009966777e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n3a, d3a, static_cast<T>(10247.25f)),
- static_cast<T>(0.1100015619716026431429617996316152069115e1L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots3(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 3
- //
- static const U n4c[4] = { 1, 4, 9, 11 };
- static const boost::array<U, 4> n4a = {{ 1, 4, 9, 11 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4c, static_cast<T>(0.125), 4),
- static_cast<T>(0.1662109375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4c, static_cast<T>(0.25), 4),
- static_cast<T>(0.2734375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4c, static_cast<T>(0.75), 4),
- static_cast<T>(0.13703125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4c, static_cast<T>(1.0f - 1.0f/64.0f), 4),
- static_cast<T>(0.24150836944580078125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4c, static_cast<T>(6.5), 4),
- static_cast<T>(0.3428125e4L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4c, static_cast<T>(10247.25), 4),
- static_cast<T>(0.11837210107094921875e14L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4c, static_cast<T>(0.125)),
- static_cast<T>(0.1662109375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4c, static_cast<T>(0.25)),
- static_cast<T>(0.2734375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4c, static_cast<T>(0.75)),
- static_cast<T>(0.13703125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.24150836944580078125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4c, static_cast<T>(6.5)),
- static_cast<T>(0.3428125e4L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4c, static_cast<T>(10247.25)),
- static_cast<T>(0.11837210107094921875e14L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4a, static_cast<T>(0.125)),
- static_cast<T>(0.1662109375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4a, static_cast<T>(0.25)),
- static_cast<T>(0.2734375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4a, static_cast<T>(0.75)),
- static_cast<T>(0.13703125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.24150836944580078125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4a, static_cast<T>(6.5)),
- static_cast<T>(0.3428125e4L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n4a, static_cast<T>(10247.25)),
- static_cast<T>(0.11837210107094921875e14L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4c, static_cast<T>(0.125), 4),
- static_cast<T>(0.1064739227294921875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4c, static_cast<T>(0.25), 4),
- static_cast<T>(0.1287841796875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4c, static_cast<T>(0.75), 4),
- static_cast<T>(0.8055419921875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4c, static_cast<T>(1.0f - 1.0f/64.0f), 4),
- static_cast<T>(0.23334727106775972060859203338623046875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4c, static_cast<T>(6.5f), 4),
- static_cast<T>(0.845843359375e6L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4c, static_cast<T>(10247.25f), 4),
- static_cast<T>(0.12736106409103529349764202508544921875e26L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4c, static_cast<T>(0.125)),
- static_cast<T>(0.1064739227294921875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4c, static_cast<T>(0.25)),
- static_cast<T>(0.1287841796875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4c, static_cast<T>(0.75)),
- static_cast<T>(0.8055419921875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.23334727106775972060859203338623046875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4c, static_cast<T>(6.5f)),
- static_cast<T>(0.845843359375e6L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4c, static_cast<T>(10247.25f)),
- static_cast<T>(0.12736106409103529349764202508544921875e26L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4a, static_cast<T>(0.125)),
- static_cast<T>(0.1064739227294921875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4a, static_cast<T>(0.25)),
- static_cast<T>(0.1287841796875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4a, static_cast<T>(0.75)),
- static_cast<T>(0.8055419921875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.23334727106775972060859203338623046875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4a, static_cast<T>(6.5f)),
- static_cast<T>(0.845843359375e6L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n4a, static_cast<T>(10247.25f)),
- static_cast<T>(0.12736106409103529349764202508544921875e26L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4c, static_cast<T>(0.125), 4),
- static_cast<T>(0.1517913818359375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4c, static_cast<T>(0.25), 4),
- static_cast<T>(0.21513671875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4c, static_cast<T>(0.75), 4),
- static_cast<T>(0.104072265625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4c, static_cast<T>(1.0f - 1.0f/64.0f), 4),
- static_cast<T>(0.23689246584661304950714111328125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4c, static_cast<T>(6.5f), 4),
- static_cast<T>(0.13013059375e6L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4c, static_cast<T>(10247.25f), 4),
- static_cast<T>(0.12428804224649080826343115234375e22L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4c, static_cast<T>(0.125)),
- static_cast<T>(0.1517913818359375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4c, static_cast<T>(0.25)),
- static_cast<T>(0.21513671875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4c, static_cast<T>(0.75)),
- static_cast<T>(0.104072265625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.23689246584661304950714111328125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4c, static_cast<T>(6.5f)),
- static_cast<T>(0.13013059375e6L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4c, static_cast<T>(10247.25f)),
- static_cast<T>(0.12428804224649080826343115234375e22L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4a, static_cast<T>(0.125)),
- static_cast<T>(0.1517913818359375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4a, static_cast<T>(0.25)),
- static_cast<T>(0.21513671875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4a, static_cast<T>(0.75)),
- static_cast<T>(0.104072265625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.23689246584661304950714111328125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4a, static_cast<T>(6.5f)),
- static_cast<T>(0.13013059375e6L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n4a, static_cast<T>(10247.25f)),
- static_cast<T>(0.12428804224649080826343115234375e22L),
- tolerance);
- //
- // Rational functions of order 3
- //
- static const U d4c[4] = { 10, 2, 5, 4 };
- static const boost::array<U, 4> d4a = {{ 10, 2, 5, 4 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4c, d4c, static_cast<T>(0.125), 4),
- static_cast<T>(0.1608087679516250944822373393801965230537e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4c, d4c, static_cast<T>(0.25), 4),
- static_cast<T>(0.2514367816091954022988505747126436781609e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4c, d4c, static_cast<T>(0.75), 4),
- static_cast<T>(0.8564453125e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4c, d4c, static_cast<T>(1.0f - 1.0f/64.0f), 4),
- static_cast<T>(0.1170714951947222939292918160495461743806e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4c, d4c, static_cast<T>(6.5f), 4),
- static_cast<T>(0.2572219095854436315888201087975989495404e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4c, d4c, static_cast<T>(10247.25f), 4),
- static_cast<T>(0.2749884125808399380227005558292823797886e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4c, d4c, static_cast<T>(0.125)),
- static_cast<T>(0.1608087679516250944822373393801965230537e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4c, d4c, static_cast<T>(0.25)),
- static_cast<T>(0.2514367816091954022988505747126436781609e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4c, d4c, static_cast<T>(0.75)),
- static_cast<T>(0.8564453125e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4c, d4c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.1170714951947222939292918160495461743806e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4c, d4c, static_cast<T>(6.5f)),
- static_cast<T>(0.2572219095854436315888201087975989495404e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4c, d4c, static_cast<T>(10247.25f)),
- static_cast<T>(0.2749884125808399380227005558292823797886e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4a, d4a, static_cast<T>(0.125)),
- static_cast<T>(0.1608087679516250944822373393801965230537e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4a, d4a, static_cast<T>(0.25)),
- static_cast<T>(0.2514367816091954022988505747126436781609e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4a, d4a, static_cast<T>(0.75)),
- static_cast<T>(0.8564453125e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4a, d4a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.1170714951947222939292918160495461743806e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4a, d4a, static_cast<T>(6.5f)),
- static_cast<T>(0.2572219095854436315888201087975989495404e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n4a, d4a, static_cast<T>(10247.25f)),
- static_cast<T>(0.2749884125808399380227005558292823797886e1L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots4(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 4
- //
- static const U n5c[5] = { 10, 10, 4, 11, 9 };
- static const boost::array<U, 5> n5a = {{ 10, 10, 4, 11, 9 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5c, static_cast<T>(0.125), 5),
- static_cast<T>(0.11336181640625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5c, static_cast<T>(0.25), 5),
- static_cast<T>(0.1295703125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5c, static_cast<T>(0.75), 5),
- static_cast<T>(0.2723828125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5c, static_cast<T>(1.0f - 1.0f/64.0f), 5),
- static_cast<T>(0.42662663042545318603515625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5c, static_cast<T>(6.5), 5),
- static_cast<T>(0.193304375e5L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5c, static_cast<T>(10247.25), 5),
- static_cast<T>(0.9924842756673782995703125e17L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5c, static_cast<T>(0.125)),
- static_cast<T>(0.11336181640625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5c, static_cast<T>(0.25)),
- static_cast<T>(0.1295703125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5c, static_cast<T>(0.75)),
- static_cast<T>(0.2723828125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.42662663042545318603515625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5c, static_cast<T>(6.5)),
- static_cast<T>(0.193304375e5L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5c, static_cast<T>(10247.25)),
- static_cast<T>(0.9924842756673782995703125e17L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5a, static_cast<T>(0.125)),
- static_cast<T>(0.11336181640625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5a, static_cast<T>(0.25)),
- static_cast<T>(0.1295703125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5a, static_cast<T>(0.75)),
- static_cast<T>(0.2723828125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.42662663042545318603515625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5a, static_cast<T>(6.5)),
- static_cast<T>(0.193304375e5L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n5a, static_cast<T>(10247.25)),
- static_cast<T>(0.9924842756673782995703125e17L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5c, static_cast<T>(0.125), 5),
- static_cast<T>(0.10157269060611724853515625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5c, static_cast<T>(0.25), 5),
- static_cast<T>(0.106434478759765625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5c, static_cast<T>(0.75), 5),
- static_cast<T>(0.197494049072265625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5c, static_cast<T>(1.0f - 1.0f/64.0f), 5),
- static_cast<T>(0.4138858164296656028113829961512237787247e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5c, static_cast<T>(6.5f), 5),
- static_cast<T>(0.2951521370703125e8L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5c, static_cast<T>(10247.25f), 5),
- static_cast<T>(0.1094211231602999407223950000397888253311e34L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5c, static_cast<T>(0.125)),
- static_cast<T>(0.10157269060611724853515625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5c, static_cast<T>(0.25)),
- static_cast<T>(0.106434478759765625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5c, static_cast<T>(0.75)),
- static_cast<T>(0.197494049072265625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4138858164296656028113829961512237787247e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5c, static_cast<T>(6.5f)),
- static_cast<T>(0.2951521370703125e8L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5c, static_cast<T>(10247.25f)),
- static_cast<T>(0.1094211231602999407223950000397888253311e34L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5a, static_cast<T>(0.125)),
- static_cast<T>(0.10157269060611724853515625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5a, static_cast<T>(0.25)),
- static_cast<T>(0.106434478759765625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5a, static_cast<T>(0.75)),
- static_cast<T>(0.197494049072265625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4138858164296656028113829961512237787247e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5a, static_cast<T>(6.5f)),
- static_cast<T>(0.2951521370703125e8L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n5a, static_cast<T>(10247.25f)),
- static_cast<T>(0.1094211231602999407223950000397888253311e34L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5c, static_cast<T>(0.125), 5),
- static_cast<T>(0.11258152484893798828125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5c, static_cast<T>(0.25), 5),
- static_cast<T>(0.1257379150390625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5c, static_cast<T>(0.75), 5),
- static_cast<T>(0.2299920654296875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5c, static_cast<T>(1.0f - 1.0f/64.0f), 5),
- static_cast<T>(0.4188681309761682314274366945028305053711e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5c, static_cast<T>(6.5f), 5),
- static_cast<T>(0.45408105703125e7L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5c, static_cast<T>(10247.25f), 5),
- static_cast<T>(0.106780963829612765105169679718983215332e30L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5c, static_cast<T>(0.125)),
- static_cast<T>(0.11258152484893798828125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5c, static_cast<T>(0.25)),
- static_cast<T>(0.1257379150390625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5c, static_cast<T>(0.75)),
- static_cast<T>(0.2299920654296875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4188681309761682314274366945028305053711e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5c, static_cast<T>(6.5f)),
- static_cast<T>(0.45408105703125e7L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5c, static_cast<T>(10247.25f)),
- static_cast<T>(0.106780963829612765105169679718983215332e30L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5a, static_cast<T>(0.125)),
- static_cast<T>(0.11258152484893798828125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5a, static_cast<T>(0.25)),
- static_cast<T>(0.1257379150390625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5a, static_cast<T>(0.75)),
- static_cast<T>(0.2299920654296875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4188681309761682314274366945028305053711e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5a, static_cast<T>(6.5f)),
- static_cast<T>(0.45408105703125e7L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n5a, static_cast<T>(10247.25f)),
- static_cast<T>(0.106780963829612765105169679718983215332e30L),
- tolerance);
- //
- // Rational functions of order 4
- //
- static const U d5c[5] = { 6, 9, 6, 2, 5 };
- static const boost::array<U, 5> d5a = {{ 6, 9, 6, 2, 5 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5c, d5c, static_cast<T>(0.125), 5),
- static_cast<T>(0.1569265605461489066882963263374902835513e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5c, d5c, static_cast<T>(0.25), 5),
- static_cast<T>(0.1493471409275101305718144979738856371004e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5c, d5c, static_cast<T>(0.75), 5),
- static_cast<T>(0.1468309117708991366603495472731101284481e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5c, d5c, static_cast<T>(1.0f - 1.0f/64.0f), 5),
- static_cast<T>(0.1564121691159921277310988862398683772017e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5c, d5c, static_cast<T>(6.5f), 5),
- static_cast<T>(0.1973991741181125982091000185089449263153e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5c, d5c, static_cast<T>(10247.25f), 5),
- static_cast<T>(0.1800144410401676792233921448870747965702e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5c, d5c, static_cast<T>(0.125)),
- static_cast<T>(0.1569265605461489066882963263374902835513e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5c, d5c, static_cast<T>(0.25)),
- static_cast<T>(0.1493471409275101305718144979738856371004e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5c, d5c, static_cast<T>(0.75)),
- static_cast<T>(0.1468309117708991366603495472731101284481e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5c, d5c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.1564121691159921277310988862398683772017e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5c, d5c, static_cast<T>(6.5f)),
- static_cast<T>(0.1973991741181125982091000185089449263153e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5c, d5c, static_cast<T>(10247.25f)),
- static_cast<T>(0.1800144410401676792233921448870747965702e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5a, d5a, static_cast<T>(0.125)),
- static_cast<T>(0.1569265605461489066882963263374902835513e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5a, d5a, static_cast<T>(0.25)),
- static_cast<T>(0.1493471409275101305718144979738856371004e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5a, d5a, static_cast<T>(0.75)),
- static_cast<T>(0.1468309117708991366603495472731101284481e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5a, d5a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.1564121691159921277310988862398683772017e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5a, d5a, static_cast<T>(6.5f)),
- static_cast<T>(0.1973991741181125982091000185089449263153e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n5a, d5a, static_cast<T>(10247.25f)),
- static_cast<T>(0.1800144410401676792233921448870747965702e1L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots5(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 5
- //
- static const U n6c[6] = { 6, 8, 12, 5, 7, 5 };
- static const boost::array<U, 6> n6a = {{ 6, 8, 12, 5, 7, 5 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6c, static_cast<T>(0.125), 6),
- static_cast<T>(0.7199127197265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6c, static_cast<T>(0.25), 6),
- static_cast<T>(0.88603515625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6c, static_cast<T>(0.75), 6),
- static_cast<T>(0.242607421875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6c, static_cast<T>(1.0f - 1.0f/64.0f), 6),
- static_cast<T>(0.41466238017193973064422607421875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6c, static_cast<T>(6.5), 6),
- static_cast<T>(0.7244809375e5L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6c, static_cast<T>(10247.25), 6),
- static_cast<T>(0.5650228315695522094919501953125e21L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6c, static_cast<T>(0.125)),
- static_cast<T>(0.7199127197265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6c, static_cast<T>(0.25)),
- static_cast<T>(0.88603515625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6c, static_cast<T>(0.75)),
- static_cast<T>(0.242607421875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.41466238017193973064422607421875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6c, static_cast<T>(6.5)),
- static_cast<T>(0.7244809375e5L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6c, static_cast<T>(10247.25)),
- static_cast<T>(0.5650228315695522094919501953125e21L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6a, static_cast<T>(0.125)),
- static_cast<T>(0.7199127197265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6a, static_cast<T>(0.25)),
- static_cast<T>(0.88603515625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6a, static_cast<T>(0.75)),
- static_cast<T>(0.242607421875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.41466238017193973064422607421875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6a, static_cast<T>(6.5)),
- static_cast<T>(0.7244809375e5L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n6a, static_cast<T>(10247.25)),
- static_cast<T>(0.5650228315695522094919501953125e21L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6c, static_cast<T>(0.125), 6),
- static_cast<T>(0.6127949182875454425811767578125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6c, static_cast<T>(0.25), 6),
- static_cast<T>(0.654820728302001953125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6c, static_cast<T>(0.75), 6),
- static_cast<T>(0.1616912555694580078125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6c, static_cast<T>(1.0f - 1.0f/64.0f), 6),
- static_cast<T>(0.4001137167344577683526091194110563264985e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6c, static_cast<T>(6.5f), 6),
- static_cast<T>(0.6958411633369140625e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6c, static_cast<T>(0.125)),
- static_cast<T>(0.6127949182875454425811767578125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6c, static_cast<T>(0.25)),
- static_cast<T>(0.654820728302001953125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6c, static_cast<T>(0.75)),
- static_cast<T>(0.1616912555694580078125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4001137167344577683526091194110563264985e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6c, static_cast<T>(6.5f)),
- static_cast<T>(0.6958411633369140625e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6a, static_cast<T>(0.125)),
- static_cast<T>(0.6127949182875454425811767578125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6a, static_cast<T>(0.25)),
- static_cast<T>(0.654820728302001953125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6a, static_cast<T>(0.75)),
- static_cast<T>(0.1616912555694580078125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4001137167344577683526091194110563264985e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n6a, static_cast<T>(6.5f)),
- static_cast<T>(0.6958411633369140625e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6c, static_cast<T>(0.125), 6),
- static_cast<T>(0.7023593463003635406494140625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6c, static_cast<T>(0.25), 6),
- static_cast<T>(0.8192829132080078125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6c, static_cast<T>(0.75), 6),
- static_cast<T>(0.19558834075927734375e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6c, static_cast<T>(1.0f - 1.0f/64.0f), 6),
- static_cast<T>(0.4055123471588142408661425974969461094588e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6c, static_cast<T>(6.5f), 6),
- static_cast<T>(0.107052491744140625e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6c, static_cast<T>(10247.25f), 6),
- static_cast<T>(0.6229253367792843599034768117351560896265e37L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6c, static_cast<T>(0.125)),
- static_cast<T>(0.7023593463003635406494140625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6c, static_cast<T>(0.25)),
- static_cast<T>(0.8192829132080078125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6c, static_cast<T>(0.75)),
- static_cast<T>(0.19558834075927734375e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4055123471588142408661425974969461094588e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6c, static_cast<T>(6.5f)),
- static_cast<T>(0.107052491744140625e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6c, static_cast<T>(10247.25f)),
- static_cast<T>(0.6229253367792843599034768117351560896265e37L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6a, static_cast<T>(0.125)),
- static_cast<T>(0.7023593463003635406494140625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6a, static_cast<T>(0.25)),
- static_cast<T>(0.8192829132080078125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6a, static_cast<T>(0.75)),
- static_cast<T>(0.19558834075927734375e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4055123471588142408661425974969461094588e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6a, static_cast<T>(6.5f)),
- static_cast<T>(0.107052491744140625e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n6a, static_cast<T>(10247.25f)),
- static_cast<T>(0.6229253367792843599034768117351560896265e37L),
- tolerance);
- //
- // Rational functions of order 5
- //
- static const U d6c[6] = { 5, 11, 7, 12, 10, 5 };
- static const boost::array<U, 6> d6a = {{ 5, 11, 7, 12, 10, 5 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6c, d6c, static_cast<T>(0.125), 6),
- static_cast<T>(0.1105787665293227020667219792530925829572e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6c, d6c, static_cast<T>(0.25), 6),
- static_cast<T>(0.1052430112515949425820670455863588910799e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6c, d6c, static_cast<T>(0.75), 6),
- static_cast<T>(0.9120378868534087154447666948125848966555e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6c, d6c, static_cast<T>(1.0f - 1.0f/64.0f), 6),
- static_cast<T>(0.8626539746676637108178973543021882567334e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6c, d6c, static_cast<T>(6.5f), 6),
- static_cast<T>(0.9109197333022141385660730837432462113756e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6c, d6c, static_cast<T>(10247.25f), 6),
- static_cast<T>(0.9999414458034701919327379302959430043671e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6c, d6c, static_cast<T>(0.125)),
- static_cast<T>(0.1105787665293227020667219792530925829572e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6c, d6c, static_cast<T>(0.25)),
- static_cast<T>(0.1052430112515949425820670455863588910799e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6c, d6c, static_cast<T>(0.75)),
- static_cast<T>(0.9120378868534087154447666948125848966555e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6c, d6c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8626539746676637108178973543021882567334e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6c, d6c, static_cast<T>(6.5f)),
- static_cast<T>(0.9109197333022141385660730837432462113756e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6c, d6c, static_cast<T>(10247.25f)),
- static_cast<T>(0.9999414458034701919327379302959430043671e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6a, d6a, static_cast<T>(0.125)),
- static_cast<T>(0.1105787665293227020667219792530925829572e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6a, d6a, static_cast<T>(0.25)),
- static_cast<T>(0.1052430112515949425820670455863588910799e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6a, d6a, static_cast<T>(0.75)),
- static_cast<T>(0.9120378868534087154447666948125848966555e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6a, d6a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8626539746676637108178973543021882567334e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6a, d6a, static_cast<T>(6.5f)),
- static_cast<T>(0.9109197333022141385660730837432462113756e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n6a, d6a, static_cast<T>(10247.25f)),
- static_cast<T>(0.9999414458034701919327379302959430043671e0L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots6(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 6
- //
- static const U n7c[7] = { 3, 4, 11, 5, 10, 7, 9 };
- static const boost::array<U, 7> n7a = {{ 3, 4, 11, 5, 10, 7, 9 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7c, static_cast<T>(0.125), 7),
- static_cast<T>(0.3684329986572265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7c, static_cast<T>(0.25), 7),
- static_cast<T>(0.4813720703125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7c, static_cast<T>(0.75), 7),
- static_cast<T>(0.20723876953125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7c, static_cast<T>(1.0f - 1.0f/64.0f), 7),
- static_cast<T>(0.46413680258337990380823612213134765625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7c, static_cast<T>(6.5), 7),
- static_cast<T>(0.779707859375e6L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7c, static_cast<T>(10247.25), 7),
- static_cast<T>(0.10421241651331160693970241510986328125e26L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7c, static_cast<T>(0.125)),
- static_cast<T>(0.3684329986572265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7c, static_cast<T>(0.25)),
- static_cast<T>(0.4813720703125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7c, static_cast<T>(0.75)),
- static_cast<T>(0.20723876953125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.46413680258337990380823612213134765625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7c, static_cast<T>(6.5)),
- static_cast<T>(0.779707859375e6L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7c, static_cast<T>(10247.25)),
- static_cast<T>(0.10421241651331160693970241510986328125e26L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7a, static_cast<T>(0.125)),
- static_cast<T>(0.3684329986572265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7a, static_cast<T>(0.25)),
- static_cast<T>(0.4813720703125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7a, static_cast<T>(0.75)),
- static_cast<T>(0.20723876953125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.46413680258337990380823612213134765625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7a, static_cast<T>(6.5)),
- static_cast<T>(0.779707859375e6L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n7a, static_cast<T>(10247.25)),
- static_cast<T>(0.10421241651331160693970241510986328125e26L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7c, static_cast<T>(0.125), 7),
- static_cast<T>(0.3065205223058001138269901275634765625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7c, static_cast<T>(0.25), 7),
- static_cast<T>(0.3294349253177642822265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7c, static_cast<T>(0.75), 7),
- static_cast<T>(0.11300772249698638916015625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7c, static_cast<T>(1.0f - 1.0f/64.0f), 7),
- static_cast<T>(0.4400013192129567626077980251194602528964e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7c, static_cast<T>(6.5f), 7),
- static_cast<T>(0.52166734985505126953125e11L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7c, static_cast<T>(0.125)),
- static_cast<T>(0.3065205223058001138269901275634765625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7c, static_cast<T>(0.25)),
- static_cast<T>(0.3294349253177642822265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7c, static_cast<T>(0.75)),
- static_cast<T>(0.11300772249698638916015625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4400013192129567626077980251194602528964e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7c, static_cast<T>(6.5f)),
- static_cast<T>(0.52166734985505126953125e11L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7a, static_cast<T>(0.125)),
- static_cast<T>(0.3065205223058001138269901275634765625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7a, static_cast<T>(0.25)),
- static_cast<T>(0.3294349253177642822265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7a, static_cast<T>(0.75)),
- static_cast<T>(0.11300772249698638916015625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4400013192129567626077980251194602528964e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n7a, static_cast<T>(6.5f)),
- static_cast<T>(0.52166734985505126953125e11L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7c, static_cast<T>(0.125), 7),
- static_cast<T>(0.3521641784464009106159210205078125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7c, static_cast<T>(0.25), 7),
- static_cast<T>(0.41773970127105712890625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7c, static_cast<T>(0.75), 7),
- static_cast<T>(0.140676963329315185546875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7c, static_cast<T>(1.0f - 1.0f/64.0f), 7),
- static_cast<T>(0.4465092766607814731253821207562770823074e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7c, static_cast<T>(6.5f), 7),
- static_cast<T>(0.802565153877001953125e10L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7c, static_cast<T>(0.125)),
- static_cast<T>(0.3521641784464009106159210205078125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7c, static_cast<T>(0.25)),
- static_cast<T>(0.41773970127105712890625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7c, static_cast<T>(0.75)),
- static_cast<T>(0.140676963329315185546875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4465092766607814731253821207562770823074e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7c, static_cast<T>(6.5f)),
- static_cast<T>(0.802565153877001953125e10L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7a, static_cast<T>(0.125)),
- static_cast<T>(0.3521641784464009106159210205078125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7a, static_cast<T>(0.25)),
- static_cast<T>(0.41773970127105712890625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7a, static_cast<T>(0.75)),
- static_cast<T>(0.140676963329315185546875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4465092766607814731253821207562770823074e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n7a, static_cast<T>(6.5f)),
- static_cast<T>(0.802565153877001953125e10L),
- tolerance);
- //
- // Rational functions of order 6
- //
- static const U d7c[7] = { 2, 8, 10, 8, 1, 11, 1 };
- static const boost::array<U, 7> d7a = {{ 2, 8, 10, 8, 1, 11, 1 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7c, d7c, static_cast<T>(0.125), 7),
- static_cast<T>(0.1161348466465698540596242849979738853664e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7c, d7c, static_cast<T>(0.25), 7),
- static_cast<T>(0.1010247476558897371522262642824204539632e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7c, d7c, static_cast<T>(0.75), 7),
- static_cast<T>(0.103079575951134804308491906398377636644e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7c, d7c, static_cast<T>(1.0f - 1.0f/64.0f), 7),
- static_cast<T>(0.1183671559390403425417413542214181025989e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7c, d7c, static_cast<T>(6.5f), 7),
- static_cast<T>(0.3757457624476840396478985178609736319955e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7c, d7c, static_cast<T>(10247.25f), 7),
- static_cast<T>(0.8991031618241406513349732955332873069556e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7c, d7c, static_cast<T>(0.125)),
- static_cast<T>(0.1161348466465698540596242849979738853664e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7c, d7c, static_cast<T>(0.25)),
- static_cast<T>(0.1010247476558897371522262642824204539632e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7c, d7c, static_cast<T>(0.75)),
- static_cast<T>(0.103079575951134804308491906398377636644e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7c, d7c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.1183671559390403425417413542214181025989e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7c, d7c, static_cast<T>(6.5f)),
- static_cast<T>(0.3757457624476840396478985178609736319955e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7c, d7c, static_cast<T>(10247.25f)),
- static_cast<T>(0.8991031618241406513349732955332873069556e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7a, d7a, static_cast<T>(0.125)),
- static_cast<T>(0.1161348466465698540596242849979738853664e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7a, d7a, static_cast<T>(0.25)),
- static_cast<T>(0.1010247476558897371522262642824204539632e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7a, d7a, static_cast<T>(0.75)),
- static_cast<T>(0.103079575951134804308491906398377636644e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7a, d7a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.1183671559390403425417413542214181025989e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7a, d7a, static_cast<T>(6.5f)),
- static_cast<T>(0.3757457624476840396478985178609736319955e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n7a, d7a, static_cast<T>(10247.25f)),
- static_cast<T>(0.8991031618241406513349732955332873069556e1L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots7(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 7
- //
- static const U n8c[8] = { 9, 5, 6, 1, 12, 2, 11, 1 };
- static const boost::array<U, 8> n8a = {{ 9, 5, 6, 1, 12, 2, 11, 1 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8c, static_cast<T>(0.125), 8),
- static_cast<T>(0.9723736286163330078125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8c, static_cast<T>(0.25), 8),
- static_cast<T>(0.1069219970703125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8c, static_cast<T>(0.75), 8),
- static_cast<T>(0.2290960693359375e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8c, static_cast<T>(1.0f - 1.0f/64.0f), 8),
- static_cast<T>(0.4470947054706607559637632220983505249023e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8c, static_cast<T>(6.5), 8),
- static_cast<T>(0.13650267734375e7L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8c, static_cast<T>(10247.25), 8),
- static_cast<T>(0.1187728773094625678513681460864459228516e29L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8c, static_cast<T>(0.125)),
- static_cast<T>(0.9723736286163330078125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8c, static_cast<T>(0.25)),
- static_cast<T>(0.1069219970703125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8c, static_cast<T>(0.75)),
- static_cast<T>(0.2290960693359375e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4470947054706607559637632220983505249023e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8c, static_cast<T>(6.5)),
- static_cast<T>(0.13650267734375e7L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8c, static_cast<T>(10247.25)),
- static_cast<T>(0.1187728773094625678513681460864459228516e29L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8a, static_cast<T>(0.125)),
- static_cast<T>(0.9723736286163330078125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8a, static_cast<T>(0.25)),
- static_cast<T>(0.1069219970703125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8a, static_cast<T>(0.75)),
- static_cast<T>(0.2290960693359375e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4470947054706607559637632220983505249023e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8a, static_cast<T>(6.5)),
- static_cast<T>(0.13650267734375e7L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n8a, static_cast<T>(10247.25)),
- static_cast<T>(0.1187728773094625678513681460864459228516e29L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8c, static_cast<T>(0.125), 8),
- static_cast<T>(0.9079594375725946520105935633182525634766e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8c, static_cast<T>(0.25), 8),
- static_cast<T>(0.93363673128187656402587890625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8c, static_cast<T>(0.75), 8),
- static_cast<T>(0.155691558457911014556884765625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8c, static_cast<T>(1.0f - 1.0f/64.0f), 8),
- static_cast<T>(0.4258457138999176910226338119632657870077e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8c, static_cast<T>(6.5f), 8),
- static_cast<T>(0.30319406120433428955078125e12L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8c, static_cast<T>(0.125)),
- static_cast<T>(0.9079594375725946520105935633182525634766e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8c, static_cast<T>(0.25)),
- static_cast<T>(0.93363673128187656402587890625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8c, static_cast<T>(0.75)),
- static_cast<T>(0.155691558457911014556884765625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4258457138999176910226338119632657870077e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8c, static_cast<T>(6.5f)),
- static_cast<T>(0.30319406120433428955078125e12L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8a, static_cast<T>(0.125)),
- static_cast<T>(0.9079594375725946520105935633182525634766e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8a, static_cast<T>(0.25)),
- static_cast<T>(0.93363673128187656402587890625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8a, static_cast<T>(0.75)),
- static_cast<T>(0.155691558457911014556884765625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4258457138999176910226338119632657870077e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n8a, static_cast<T>(6.5f)),
- static_cast<T>(0.30319406120433428955078125e12L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8c, static_cast<T>(0.125), 8),
- static_cast<T>(0.9636755005807572160847485065460205078125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8c, static_cast<T>(0.25), 8),
- static_cast<T>(0.1034546925127506256103515625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8c, static_cast<T>(0.75), 8),
- static_cast<T>(0.1775887446105480194091796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8c, static_cast<T>(1.0f - 1.0f/64.0f), 8),
- static_cast<T>(0.4311765982475354321499772058039525455316e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8c, static_cast<T>(6.5f), 8),
- static_cast<T>(0.466452401928975830078125e11L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8c, static_cast<T>(0.125)),
- static_cast<T>(0.9636755005807572160847485065460205078125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8c, static_cast<T>(0.25)),
- static_cast<T>(0.1034546925127506256103515625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8c, static_cast<T>(0.75)),
- static_cast<T>(0.1775887446105480194091796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4311765982475354321499772058039525455316e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8c, static_cast<T>(6.5f)),
- static_cast<T>(0.466452401928975830078125e11L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8a, static_cast<T>(0.125)),
- static_cast<T>(0.9636755005807572160847485065460205078125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8a, static_cast<T>(0.25)),
- static_cast<T>(0.1034546925127506256103515625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8a, static_cast<T>(0.75)),
- static_cast<T>(0.1775887446105480194091796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4311765982475354321499772058039525455316e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n8a, static_cast<T>(6.5f)),
- static_cast<T>(0.466452401928975830078125e11L),
- tolerance);
- //
- // Rational functions of order 7
- //
- static const U d8c[8] = { 7, 10, 10, 11, 2, 4, 1, 7 };
- static const boost::array<U, 8> d8a = {{ 7, 10, 10, 11, 2, 4, 1, 7 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8c, d8c, static_cast<T>(0.125), 8),
- static_cast<T>(0.1153693678861771369296601206130394355814e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8c, d8c, static_cast<T>(0.25), 8),
- static_cast<T>(0.103714470093009762768860970830101771981e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8c, d8c, static_cast<T>(0.75), 8),
- static_cast<T>(0.834289461108456229648481346061946410909e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8c, d8c, static_cast<T>(1.0f - 1.0f/64.0f), 8),
- static_cast<T>(0.8981362736388035283180082845549732926578e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8c, d8c, static_cast<T>(6.5f), 8),
- static_cast<T>(0.383383275200627223098571833372266642165e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8c, d8c, static_cast<T>(10247.25f), 8),
- static_cast<T>(0.1430085023641929377426860779365964126311e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8c, d8c, static_cast<T>(0.125)),
- static_cast<T>(0.1153693678861771369296601206130394355814e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8c, d8c, static_cast<T>(0.25)),
- static_cast<T>(0.103714470093009762768860970830101771981e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8c, d8c, static_cast<T>(0.75)),
- static_cast<T>(0.834289461108456229648481346061946410909e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8c, d8c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8981362736388035283180082845549732926578e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8c, d8c, static_cast<T>(6.5f)),
- static_cast<T>(0.383383275200627223098571833372266642165e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8c, d8c, static_cast<T>(10247.25f)),
- static_cast<T>(0.1430085023641929377426860779365964126311e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8a, d8a, static_cast<T>(0.125)),
- static_cast<T>(0.1153693678861771369296601206130394355814e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8a, d8a, static_cast<T>(0.25)),
- static_cast<T>(0.103714470093009762768860970830101771981e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8a, d8a, static_cast<T>(0.75)),
- static_cast<T>(0.834289461108456229648481346061946410909e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8a, d8a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8981362736388035283180082845549732926578e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8a, d8a, static_cast<T>(6.5f)),
- static_cast<T>(0.383383275200627223098571833372266642165e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n8a, d8a, static_cast<T>(10247.25f)),
- static_cast<T>(0.1430085023641929377426860779365964126311e0L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots8(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 8
- //
- static const U n9c[9] = { 3, 9, 3, 9, 5, 6, 10, 7, 10 };
- static const boost::array<U, 9> n9a = {{ 3, 9, 3, 9, 5, 6, 10, 7, 10 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9c, static_cast<T>(0.125), 9),
- static_cast<T>(0.419089901447296142578125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9c, static_cast<T>(0.25), 9),
- static_cast<T>(0.5606536865234375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9c, static_cast<T>(0.75), 9),
- static_cast<T>(0.21955535888671875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9c, static_cast<T>(1.0f - 1.0f/64.0f), 9),
- static_cast<T>(0.577754343750660055434309470001608133316e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9c, static_cast<T>(6.5), 9),
- static_cast<T>(0.3613143234375e8L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9c, static_cast<T>(10247.25), 9),
- static_cast<T>(0.1215873306624182859977656082228297326996e34L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9c, static_cast<T>(0.125)),
- static_cast<T>(0.419089901447296142578125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9c, static_cast<T>(0.25)),
- static_cast<T>(0.5606536865234375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9c, static_cast<T>(0.75)),
- static_cast<T>(0.21955535888671875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.577754343750660055434309470001608133316e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9c, static_cast<T>(6.5)),
- static_cast<T>(0.3613143234375e8L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9c, static_cast<T>(10247.25)),
- static_cast<T>(0.1215873306624182859977656082228297326996e34L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9a, static_cast<T>(0.125)),
- static_cast<T>(0.419089901447296142578125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9a, static_cast<T>(0.25)),
- static_cast<T>(0.5606536865234375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9a, static_cast<T>(0.75)),
- static_cast<T>(0.21955535888671875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.577754343750660055434309470001608133316e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9a, static_cast<T>(6.5)),
- static_cast<T>(0.3613143234375e8L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n9a, static_cast<T>(10247.25)),
- static_cast<T>(0.1215873306624182859977656082228297326996e34L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9c, static_cast<T>(0.125), 9),
- static_cast<T>(0.3141392057908696244794555241242051124573e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9c, static_cast<T>(0.25), 9),
- static_cast<T>(0.35764986560679972171783447265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9c, static_cast<T>(0.75), 9),
- static_cast<T>(0.119936861679889261722564697265625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9c, static_cast<T>(1.0f - 1.0f/64.0f), 9),
- static_cast<T>(0.5392583642412261279423815221065846904997e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9c, static_cast<T>(6.5f), 9),
- static_cast<T>(0.103274449934495763275146484375e15L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9c, static_cast<T>(0.125)),
- static_cast<T>(0.3141392057908696244794555241242051124573e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9c, static_cast<T>(0.25)),
- static_cast<T>(0.35764986560679972171783447265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9c, static_cast<T>(0.75)),
- static_cast<T>(0.119936861679889261722564697265625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.5392583642412261279423815221065846904997e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9c, static_cast<T>(6.5f)),
- static_cast<T>(0.103274449934495763275146484375e15L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9a, static_cast<T>(0.125)),
- static_cast<T>(0.3141392057908696244794555241242051124573e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9a, static_cast<T>(0.25)),
- static_cast<T>(0.35764986560679972171783447265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9a, static_cast<T>(0.75)),
- static_cast<T>(0.119936861679889261722564697265625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.5392583642412261279423815221065846904997e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n9a, static_cast<T>(6.5f)),
- static_cast<T>(0.103274449934495763275146484375e15L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9c, static_cast<T>(0.125), 9),
- static_cast<T>(0.4131136463269569958356441929936408996582e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9c, static_cast<T>(0.25), 9),
- static_cast<T>(0.530599462427198886871337890625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9c, static_cast<T>(0.75), 9),
- static_cast<T>(0.1499158155731856822967529296875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9c, static_cast<T>(1.0f - 1.0f/64.0f), 9),
- static_cast<T>(0.5473418303402932093382923399178003205076e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9c, static_cast<T>(6.5f), 9),
- static_cast<T>(0.1588837691300188665771484375e14L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9c, static_cast<T>(0.125)),
- static_cast<T>(0.4131136463269569958356441929936408996582e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9c, static_cast<T>(0.25)),
- static_cast<T>(0.530599462427198886871337890625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9c, static_cast<T>(0.75)),
- static_cast<T>(0.1499158155731856822967529296875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.5473418303402932093382923399178003205076e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9c, static_cast<T>(6.5f)),
- static_cast<T>(0.1588837691300188665771484375e14L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9a, static_cast<T>(0.125)),
- static_cast<T>(0.4131136463269569958356441929936408996582e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9a, static_cast<T>(0.25)),
- static_cast<T>(0.530599462427198886871337890625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9a, static_cast<T>(0.75)),
- static_cast<T>(0.1499158155731856822967529296875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.5473418303402932093382923399178003205076e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n9a, static_cast<T>(6.5f)),
- static_cast<T>(0.1588837691300188665771484375e14L),
- tolerance);
- //
- // Rational functions of order 8
- //
- static const U d9c[9] = { 12, 3, 10, 4, 6, 6, 6, 10, 7 };
- static const boost::array<U, 9> d9a = {{ 12, 3, 10, 4, 6, 6, 6, 10, 7 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9c, d9c, static_cast<T>(0.125), 9),
- static_cast<T>(0.3341827920887278954826517708316980450243e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9c, d9c, static_cast<T>(0.25), 9),
- static_cast<T>(0.4162555242250224594229316089330159747956e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9c, d9c, static_cast<T>(0.75), 9),
- static_cast<T>(0.7844550246723573100342976024389406178802e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9c, d9c, static_cast<T>(1.0f - 1.0f/64.0f), 9),
- static_cast<T>(0.959335028097323235424759017468360386113e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9c, d9c, static_cast<T>(6.5f), 9),
- static_cast<T>(0.1302420407483849169746727326286868117535e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9c, d9c, static_cast<T>(10247.25f), 9),
- static_cast<T>(0.1428469874366314841691622991213446692856e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9c, d9c, static_cast<T>(0.125)),
- static_cast<T>(0.3341827920887278954826517708316980450243e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9c, d9c, static_cast<T>(0.25)),
- static_cast<T>(0.4162555242250224594229316089330159747956e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9c, d9c, static_cast<T>(0.75)),
- static_cast<T>(0.7844550246723573100342976024389406178802e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9c, d9c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.959335028097323235424759017468360386113e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9c, d9c, static_cast<T>(6.5f)),
- static_cast<T>(0.1302420407483849169746727326286868117535e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9c, d9c, static_cast<T>(10247.25f)),
- static_cast<T>(0.1428469874366314841691622991213446692856e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9a, d9a, static_cast<T>(0.125)),
- static_cast<T>(0.3341827920887278954826517708316980450243e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9a, d9a, static_cast<T>(0.25)),
- static_cast<T>(0.4162555242250224594229316089330159747956e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9a, d9a, static_cast<T>(0.75)),
- static_cast<T>(0.7844550246723573100342976024389406178802e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9a, d9a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.959335028097323235424759017468360386113e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9a, d9a, static_cast<T>(6.5f)),
- static_cast<T>(0.1302420407483849169746727326286868117535e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n9a, d9a, static_cast<T>(10247.25f)),
- static_cast<T>(0.1428469874366314841691622991213446692856e1L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots9(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 9
- //
- static const U n10c[10] = { 3, 4, 2, 6, 8, 1, 2, 4, 8, 8 };
- static const boost::array<U, 10> n10a = {{ 3, 4, 2, 6, 8, 1, 2, 4, 8, 8 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10c, static_cast<T>(0.125), 10),
- static_cast<T>(0.3544962465763092041015625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10c, static_cast<T>(0.25), 10),
- static_cast<T>(0.4251861572265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10c, static_cast<T>(0.75), 10),
- static_cast<T>(0.14716278076171875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10c, static_cast<T>(1.0f - 1.0f/64.0f), 10),
- static_cast<T>(0.4243246072286939307716124858416151255369e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10c, static_cast<T>(6.5), 10),
- static_cast<T>(0.193326261328125e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10c, static_cast<T>(10247.25), 10),
- static_cast<T>(0.9967777935240642903307419028007759631098e37L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10c, static_cast<T>(0.125)),
- static_cast<T>(0.3544962465763092041015625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10c, static_cast<T>(0.25)),
- static_cast<T>(0.4251861572265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10c, static_cast<T>(0.75)),
- static_cast<T>(0.14716278076171875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4243246072286939307716124858416151255369e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10c, static_cast<T>(6.5)),
- static_cast<T>(0.193326261328125e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10c, static_cast<T>(10247.25)),
- static_cast<T>(0.9967777935240642903307419028007759631098e37L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10a, static_cast<T>(0.125)),
- static_cast<T>(0.3544962465763092041015625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10a, static_cast<T>(0.25)),
- static_cast<T>(0.4251861572265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10a, static_cast<T>(0.75)),
- static_cast<T>(0.14716278076171875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.4243246072286939307716124858416151255369e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10a, static_cast<T>(6.5)),
- static_cast<T>(0.193326261328125e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n10a, static_cast<T>(10247.25)),
- static_cast<T>(0.9967777935240642903307419028007759631098e37L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10c, static_cast<T>(0.125), 10),
- static_cast<T>(0.3063011647232116718697625401546247303486e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10c, static_cast<T>(0.25), 10),
- static_cast<T>(0.3259400503826327621936798095703125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10c, static_cast<T>(0.75), 10),
- static_cast<T>(0.8067807371844537556171417236328125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10c, static_cast<T>(1.0f - 1.0f/64.0f), 10),
- static_cast<T>(0.3922779295817342542834377568121069117613e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10c, static_cast<T>(6.5f), 10),
- static_cast<T>(0.3514067090785774022613525390625e16L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10c, static_cast<T>(0.125)),
- static_cast<T>(0.3063011647232116718697625401546247303486e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10c, static_cast<T>(0.25)),
- static_cast<T>(0.3259400503826327621936798095703125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10c, static_cast<T>(0.75)),
- static_cast<T>(0.8067807371844537556171417236328125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.3922779295817342542834377568121069117613e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10c, static_cast<T>(6.5f)),
- static_cast<T>(0.3514067090785774022613525390625e16L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10a, static_cast<T>(0.125)),
- static_cast<T>(0.3063011647232116718697625401546247303486e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10a, static_cast<T>(0.25)),
- static_cast<T>(0.3259400503826327621936798095703125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10a, static_cast<T>(0.75)),
- static_cast<T>(0.8067807371844537556171417236328125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.3922779295817342542834377568121069117613e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n10a, static_cast<T>(6.5f)),
- static_cast<T>(0.3514067090785774022613525390625e16L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10c, static_cast<T>(0.125), 10),
- static_cast<T>(0.3504093177856933749581003212369978427887e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10c, static_cast<T>(0.25), 10),
- static_cast<T>(0.40376020153053104877471923828125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10c, static_cast<T>(0.75), 10),
- static_cast<T>(0.97570764957927167415618896484375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10c, static_cast<T>(1.0f - 1.0f/64.0f), 10),
- static_cast<T>(0.3980283729084284487958732767615054341702e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10c, static_cast<T>(6.5f), 10),
- static_cast<T>(0.54062570627473700347900390625e15L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10c, static_cast<T>(0.125)),
- static_cast<T>(0.3504093177856933749581003212369978427887e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10c, static_cast<T>(0.25)),
- static_cast<T>(0.40376020153053104877471923828125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10c, static_cast<T>(0.75)),
- static_cast<T>(0.97570764957927167415618896484375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.3980283729084284487958732767615054341702e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10c, static_cast<T>(6.5f)),
- static_cast<T>(0.54062570627473700347900390625e15L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10a, static_cast<T>(0.125)),
- static_cast<T>(0.3504093177856933749581003212369978427887e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10a, static_cast<T>(0.25)),
- static_cast<T>(0.40376020153053104877471923828125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10a, static_cast<T>(0.75)),
- static_cast<T>(0.97570764957927167415618896484375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.3980283729084284487958732767615054341702e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n10a, static_cast<T>(6.5f)),
- static_cast<T>(0.54062570627473700347900390625e15L),
- tolerance);
- //
- // Rational functions of order 9
- //
- static const U d10c[10] = { 3, 11, 1, 12, 8, 8, 7, 10, 8, 8 };
- static const boost::array<U, 10> d10a = {{ 3, 11, 1, 12, 8, 8, 7, 10, 8, 8 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10c, d10c, static_cast<T>(0.125), 10),
- static_cast<T>(0.8027011456035955638016996485812217742707e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10c, d10c, static_cast<T>(0.25), 10),
- static_cast<T>(0.7037718026559713894599659542655668311705e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10c, d10c, static_cast<T>(0.75), 10),
- static_cast<T>(0.5819711007563332500606442409694389231031e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10c, d10c, static_cast<T>(1.0f - 1.0f/64.0f), 10),
- static_cast<T>(0.6021345078884753739086911192013079405483e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10c, d10c, static_cast<T>(6.5f), 10),
- static_cast<T>(0.9827105949744728065574239430024037810213e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10c, d10c, static_cast<T>(10247.25f), 10),
- static_cast<T>(0.9999999928576761766405011572543053028339e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10c, d10c, static_cast<T>(0.125)),
- static_cast<T>(0.8027011456035955638016996485812217742707e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10c, d10c, static_cast<T>(0.25)),
- static_cast<T>(0.7037718026559713894599659542655668311705e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10c, d10c, static_cast<T>(0.75)),
- static_cast<T>(0.5819711007563332500606442409694389231031e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10c, d10c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.6021345078884753739086911192013079405483e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10c, d10c, static_cast<T>(6.5f)),
- static_cast<T>(0.9827105949744728065574239430024037810213e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10c, d10c, static_cast<T>(10247.25f)),
- static_cast<T>(0.9999999928576761766405011572543053028339e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10a, d10a, static_cast<T>(0.125)),
- static_cast<T>(0.8027011456035955638016996485812217742707e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10a, d10a, static_cast<T>(0.25)),
- static_cast<T>(0.7037718026559713894599659542655668311705e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10a, d10a, static_cast<T>(0.75)),
- static_cast<T>(0.5819711007563332500606442409694389231031e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10a, d10a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.6021345078884753739086911192013079405483e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10a, d10a, static_cast<T>(6.5f)),
- static_cast<T>(0.9827105949744728065574239430024037810213e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n10a, d10a, static_cast<T>(10247.25f)),
- static_cast<T>(0.9999999928576761766405011572543053028339e0L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots10(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 10
- //
- static const U n11c[11] = { 2, 2, 8, 11, 3, 4, 10, 11, 5, 1, 6 };
- static const boost::array<U, 11> n11a = {{ 2, 2, 8, 11, 3, 4, 10, 11, 5, 1, 6 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11c, static_cast<T>(0.125), 11),
- static_cast<T>(0.239738257043063640594482421875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11c, static_cast<T>(0.25), 11),
- static_cast<T>(0.31906986236572265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11c, static_cast<T>(0.75), 11),
- static_cast<T>(0.187007007598876953125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11c, static_cast<T>(1.0f - 1.0f/64.0f), 11),
- static_cast<T>(0.5807897685780276847943015550157497273176e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11c, static_cast<T>(6.5), 11),
- static_cast<T>(0.85061053443359375e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11c, static_cast<T>(0.125)),
- static_cast<T>(0.239738257043063640594482421875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11c, static_cast<T>(0.25)),
- static_cast<T>(0.31906986236572265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11c, static_cast<T>(0.75)),
- static_cast<T>(0.187007007598876953125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.5807897685780276847943015550157497273176e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11c, static_cast<T>(6.5)),
- static_cast<T>(0.85061053443359375e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11a, static_cast<T>(0.125)),
- static_cast<T>(0.239738257043063640594482421875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11a, static_cast<T>(0.25)),
- static_cast<T>(0.31906986236572265625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11a, static_cast<T>(0.75)),
- static_cast<T>(0.187007007598876953125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.5807897685780276847943015550157497273176e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n11a, static_cast<T>(6.5)),
- static_cast<T>(0.85061053443359375e9L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11c, static_cast<T>(0.125), 11),
- static_cast<T>(0.2033245269357184586631048794913567689946e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11c, static_cast<T>(0.25), 11),
- static_cast<T>(0.2158985776148256263695657253265380859375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11c, static_cast<T>(0.75), 11),
- static_cast<T>(0.8727145384755203849636018276214599609375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11c, static_cast<T>(1.0f - 1.0f/64.0f), 11),
- static_cast<T>(0.5363972553738812062759598952966094072427e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11c, static_cast<T>(6.5f), 11),
- static_cast<T>(0.1092297265410211371166019439697265625e18L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11c, static_cast<T>(0.125)),
- static_cast<T>(0.2033245269357184586631048794913567689946e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11c, static_cast<T>(0.25)),
- static_cast<T>(0.2158985776148256263695657253265380859375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11c, static_cast<T>(0.75)),
- static_cast<T>(0.8727145384755203849636018276214599609375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.5363972553738812062759598952966094072427e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11c, static_cast<T>(6.5f)),
- static_cast<T>(0.1092297265410211371166019439697265625e18L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11a, static_cast<T>(0.125)),
- static_cast<T>(0.2033245269357184586631048794913567689946e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11a, static_cast<T>(0.25)),
- static_cast<T>(0.2158985776148256263695657253265380859375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11a, static_cast<T>(0.75)),
- static_cast<T>(0.8727145384755203849636018276214599609375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.5363972553738812062759598952966094072427e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n11a, static_cast<T>(6.5f)),
- static_cast<T>(0.1092297265410211371166019439697265625e18L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11c, static_cast<T>(0.125), 11),
- static_cast<T>(0.2265962154857476693048390359308541519567e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11c, static_cast<T>(0.25), 11),
- static_cast<T>(0.26359431045930250547826290130615234375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11c, static_cast<T>(0.75), 11),
- static_cast<T>(0.109695271796736051328480243682861328125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11c, static_cast<T>(1.0f - 1.0f/64.0f), 11),
- static_cast<T>(0.544594037205212653994625925380682572437e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11c, static_cast<T>(6.5f), 11),
- static_cast<T>(0.16804573314003253556400299072265625e17L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11c, static_cast<T>(0.125)),
- static_cast<T>(0.2265962154857476693048390359308541519567e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11c, static_cast<T>(0.25)),
- static_cast<T>(0.26359431045930250547826290130615234375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11c, static_cast<T>(0.75)),
- static_cast<T>(0.109695271796736051328480243682861328125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.544594037205212653994625925380682572437e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11c, static_cast<T>(6.5f)),
- static_cast<T>(0.16804573314003253556400299072265625e17L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11a, static_cast<T>(0.125)),
- static_cast<T>(0.2265962154857476693048390359308541519567e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11a, static_cast<T>(0.25)),
- static_cast<T>(0.26359431045930250547826290130615234375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11a, static_cast<T>(0.75)),
- static_cast<T>(0.109695271796736051328480243682861328125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.544594037205212653994625925380682572437e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n11a, static_cast<T>(6.5f)),
- static_cast<T>(0.16804573314003253556400299072265625e17L),
- tolerance);
- //
- // Rational functions of order 10
- //
- static const U d11c[11] = { 4, 1, 3, 9, 11, 8, 11, 2, 6, 6, 4 };
- static const boost::array<U, 11> d11a = {{ 4, 1, 3, 9, 11, 8, 11, 2, 6, 6, 4 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11c, d11c, static_cast<T>(0.125), 11),
- static_cast<T>(0.5718365676248588095654568811483084403598e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11c, d11c, static_cast<T>(0.25), 11),
- static_cast<T>(0.6888631839546304707516922567568791812269e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11c, d11c, static_cast<T>(0.75), 11),
- static_cast<T>(0.9783539912974912482969079012097816310129e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11c, d11c, static_cast<T>(1.0f - 1.0f/64.0f), 11),
- static_cast<T>(0.9694017102874332007392886881642471036972e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11c, d11c, static_cast<T>(6.5f), 11),
- static_cast<T>(0.1243900864392932237542421996384079347041e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11c, d11c, static_cast<T>(10247.25f), 11),
- static_cast<T>(0.1499804844733304585200728061706913399511e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11c, d11c, static_cast<T>(0.125)),
- static_cast<T>(0.5718365676248588095654568811483084403598e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11c, d11c, static_cast<T>(0.25)),
- static_cast<T>(0.6888631839546304707516922567568791812269e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11c, d11c, static_cast<T>(0.75)),
- static_cast<T>(0.9783539912974912482969079012097816310129e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11c, d11c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.9694017102874332007392886881642471036972e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11c, d11c, static_cast<T>(6.5f)),
- static_cast<T>(0.1243900864392932237542421996384079347041e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11c, d11c, static_cast<T>(10247.25f)),
- static_cast<T>(0.1499804844733304585200728061706913399511e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11a, d11a, static_cast<T>(0.125)),
- static_cast<T>(0.5718365676248588095654568811483084403598e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11a, d11a, static_cast<T>(0.25)),
- static_cast<T>(0.6888631839546304707516922567568791812269e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11a, d11a, static_cast<T>(0.75)),
- static_cast<T>(0.9783539912974912482969079012097816310129e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11a, d11a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.9694017102874332007392886881642471036972e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11a, d11a, static_cast<T>(6.5f)),
- static_cast<T>(0.1243900864392932237542421996384079347041e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n11a, d11a, static_cast<T>(10247.25f)),
- static_cast<T>(0.1499804844733304585200728061706913399511e1L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots11(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 11
- //
- static const U n12c[12] = { 10, 12, 4, 1, 12, 7, 11, 5, 12, 5, 10, 6 };
- static const boost::array<U, 12> n12a = {{ 10, 12, 4, 1, 12, 7, 11, 5, 12, 5, 10, 6 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12c, static_cast<T>(0.125), 12),
- static_cast<T>(0.1156764154392294585704803466796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12c, static_cast<T>(0.25), 12),
- static_cast<T>(0.13322539806365966796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12c, static_cast<T>(0.75), 12),
- static_cast<T>(0.32148390293121337890625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12c, static_cast<T>(1.0f - 1.0f/64.0f), 12),
- static_cast<T>(0.8737331822870016474402916385744166660743e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12c, static_cast<T>(6.5), 12),
- static_cast<T>(0.67419250750654296875e10L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12c, static_cast<T>(0.125)),
- static_cast<T>(0.1156764154392294585704803466796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12c, static_cast<T>(0.25)),
- static_cast<T>(0.13322539806365966796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12c, static_cast<T>(0.75)),
- static_cast<T>(0.32148390293121337890625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8737331822870016474402916385744166660743e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12c, static_cast<T>(6.5)),
- static_cast<T>(0.67419250750654296875e10L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12a, static_cast<T>(0.125)),
- static_cast<T>(0.1156764154392294585704803466796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12a, static_cast<T>(0.25)),
- static_cast<T>(0.13322539806365966796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12a, static_cast<T>(0.75)),
- static_cast<T>(0.32148390293121337890625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8737331822870016474402916385744166660743e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n12a, static_cast<T>(6.5)),
- static_cast<T>(0.67419250750654296875e10L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12c, static_cast<T>(0.125), 12),
- static_cast<T>(0.101884810991335118067599354446661763518e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12c, static_cast<T>(0.25), 12),
- static_cast<T>(0.1076605959896767217287560924887657165527e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12c, static_cast<T>(0.75), 12),
- static_cast<T>(0.2041755737073560794669901952147483825684e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12c, static_cast<T>(1.0f - 1.0f/64.0f), 12),
- static_cast<T>(0.8060387357327405373376954971672611741429e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12c, static_cast<T>(6.5f), 12),
- static_cast<T>(0.4778085851102157284559772014617919921875e19L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12c, static_cast<T>(0.125)),
- static_cast<T>(0.101884810991335118067599354446661763518e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12c, static_cast<T>(0.25)),
- static_cast<T>(0.1076605959896767217287560924887657165527e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12c, static_cast<T>(0.75)),
- static_cast<T>(0.2041755737073560794669901952147483825684e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8060387357327405373376954971672611741429e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12c, static_cast<T>(6.5f)),
- static_cast<T>(0.4778085851102157284559772014617919921875e19L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12a, static_cast<T>(0.125)),
- static_cast<T>(0.101884810991335118067599354446661763518e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12a, static_cast<T>(0.25)),
- static_cast<T>(0.1076605959896767217287560924887657165527e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12a, static_cast<T>(0.75)),
- static_cast<T>(0.2041755737073560794669901952147483825684e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8060387357327405373376954971672611741429e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n12a, static_cast<T>(6.5f)),
- static_cast<T>(0.4778085851102157284559772014617919921875e19L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12c, static_cast<T>(0.125), 12),
- static_cast<T>(0.1150784879306809445407948355732941081442e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12c, static_cast<T>(0.25), 12),
- static_cast<T>(0.1306423839587068869150243699550628662109e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12c, static_cast<T>(0.75), 12),
- static_cast<T>(0.2389007649431414392893202602863311767578e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12c, static_cast<T>(1.0f - 1.0f/64.0f), 12),
- static_cast<T>(0.8172456997919903871367065368048367483356e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12c, static_cast<T>(6.5f), 12),
- static_cast<T>(0.73509013093879343685534954071044921875e18L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12c, static_cast<T>(0.125)),
- static_cast<T>(0.1150784879306809445407948355732941081442e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12c, static_cast<T>(0.25)),
- static_cast<T>(0.1306423839587068869150243699550628662109e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12c, static_cast<T>(0.75)),
- static_cast<T>(0.2389007649431414392893202602863311767578e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8172456997919903871367065368048367483356e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12c, static_cast<T>(6.5f)),
- static_cast<T>(0.73509013093879343685534954071044921875e18L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12a, static_cast<T>(0.125)),
- static_cast<T>(0.1150784879306809445407948355732941081442e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12a, static_cast<T>(0.25)),
- static_cast<T>(0.1306423839587068869150243699550628662109e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12a, static_cast<T>(0.75)),
- static_cast<T>(0.2389007649431414392893202602863311767578e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8172456997919903871367065368048367483356e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n12a, static_cast<T>(6.5f)),
- static_cast<T>(0.73509013093879343685534954071044921875e18L),
- tolerance);
- //
- // Rational functions of order 11
- //
- static const U d12c[12] = { 12, 5, 2, 8, 3, 2, 6, 9, 2, 8, 9, 12 };
- static const boost::array<U, 12> d12a = {{ 12, 5, 2, 8, 3, 2, 6, 9, 2, 8, 9, 12 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12c, d12c, static_cast<T>(0.125), 12),
- static_cast<T>(0.9128003783370762743953357962892418132189e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12c, d12c, static_cast<T>(0.25), 12),
- static_cast<T>(0.9857041905689267091438933694601440838819e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12c, d12c, static_cast<T>(0.75), 12),
- static_cast<T>(0.1248112763387283893598834927961632655902e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12c, d12c, static_cast<T>(1.0f - 1.0f/64.0f), 12),
- static_cast<T>(0.1227813945781309965073515980672922656926e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12c, d12c, static_cast<T>(6.5f), 12),
- static_cast<T>(0.5670462630528956417277364302989555872917e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12c, d12c, static_cast<T>(10247.25f), 12),
- static_cast<T>(0.5000447249679368028702341332079904080375e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12c, d12c, static_cast<T>(0.125)),
- static_cast<T>(0.9128003783370762743953357962892418132189e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12c, d12c, static_cast<T>(0.25)),
- static_cast<T>(0.9857041905689267091438933694601440838819e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12c, d12c, static_cast<T>(0.75)),
- static_cast<T>(0.1248112763387283893598834927961632655902e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12c, d12c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.1227813945781309965073515980672922656926e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12c, d12c, static_cast<T>(6.5f)),
- static_cast<T>(0.5670462630528956417277364302989555872917e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12c, d12c, static_cast<T>(10247.25f)),
- static_cast<T>(0.5000447249679368028702341332079904080375e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12a, d12a, static_cast<T>(0.125)),
- static_cast<T>(0.9128003783370762743953357962892418132189e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12a, d12a, static_cast<T>(0.25)),
- static_cast<T>(0.9857041905689267091438933694601440838819e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12a, d12a, static_cast<T>(0.75)),
- static_cast<T>(0.1248112763387283893598834927961632655902e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12a, d12a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.1227813945781309965073515980672922656926e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12a, d12a, static_cast<T>(6.5f)),
- static_cast<T>(0.5670462630528956417277364302989555872917e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n12a, d12a, static_cast<T>(10247.25f)),
- static_cast<T>(0.5000447249679368028702341332079904080375e0L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots12(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 12
- //
- static const U n13c[13] = { 4, 11, 7, 1, 1, 1, 8, 11, 10, 12, 8, 2, 1 };
- static const boost::array<U, 13> n13a = {{ 4, 11, 7, 1, 1, 1, 8, 11, 10, 12, 8, 2, 1 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13c, static_cast<T>(0.125), 13),
- static_cast<T>(0.5486639239141368307173252105712890625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13c, static_cast<T>(0.25), 13),
- static_cast<T>(0.7210838854312896728515625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13c, static_cast<T>(0.75), 13),
- static_cast<T>(0.22524036943912506103515625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13c, static_cast<T>(1.0f - 1.0f/64.0f), 13),
- static_cast<T>(0.7013317633407797455061737623412208147977e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13c, static_cast<T>(6.5), 13),
- static_cast<T>(0.8801602436469970703125e10L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13c, static_cast<T>(0.125)),
- static_cast<T>(0.5486639239141368307173252105712890625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13c, static_cast<T>(0.25)),
- static_cast<T>(0.7210838854312896728515625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13c, static_cast<T>(0.75)),
- static_cast<T>(0.22524036943912506103515625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7013317633407797455061737623412208147977e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13c, static_cast<T>(6.5)),
- static_cast<T>(0.8801602436469970703125e10L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13a, static_cast<T>(0.125)),
- static_cast<T>(0.5486639239141368307173252105712890625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13a, static_cast<T>(0.25)),
- static_cast<T>(0.7210838854312896728515625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13a, static_cast<T>(0.75)),
- static_cast<T>(0.22524036943912506103515625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7013317633407797455061737623412208147977e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n13a, static_cast<T>(6.5)),
- static_cast<T>(0.8801602436469970703125e10L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13c, static_cast<T>(0.125), 13),
- static_cast<T>(0.4173587859727185607499727379291788731397e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13c, static_cast<T>(0.25), 13),
- static_cast<T>(0.4715104623414053008900737040676176548004e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13c, static_cast<T>(0.75), 13),
- static_cast<T>(0.1338397611887558369403450342360883951187e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13c, static_cast<T>(1.0f - 1.0f/64.0f), 13),
- static_cast<T>(0.6407202225497595548875186059951665936749e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13c, static_cast<T>(6.5f), 13),
- static_cast<T>(0.3403521961549553788009664398431777954102e20L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13c, static_cast<T>(0.125)),
- static_cast<T>(0.4173587859727185607499727379291788731397e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13c, static_cast<T>(0.25)),
- static_cast<T>(0.4715104623414053008900737040676176548004e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13c, static_cast<T>(0.75)),
- static_cast<T>(0.1338397611887558369403450342360883951187e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.6407202225497595548875186059951665936749e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13c, static_cast<T>(6.5f)),
- static_cast<T>(0.3403521961549553788009664398431777954102e20L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13a, static_cast<T>(0.125)),
- static_cast<T>(0.4173587859727185607499727379291788731397e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13a, static_cast<T>(0.25)),
- static_cast<T>(0.4715104623414053008900737040676176548004e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13a, static_cast<T>(0.75)),
- static_cast<T>(0.1338397611887558369403450342360883951187e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.6407202225497595548875186059951665936749e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n13a, static_cast<T>(6.5f)),
- static_cast<T>(0.3403521961549553788009664398431777954102e20L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13c, static_cast<T>(0.125), 13),
- static_cast<T>(0.5388702877817484859997819034334309851175e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13c, static_cast<T>(0.25), 13),
- static_cast<T>(0.6860418493656212035602948162704706192017e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13c, static_cast<T>(0.75), 13),
- static_cast<T>(0.165119681585007782587126712314784526825e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13c, static_cast<T>(1.0f - 1.0f/64.0f), 13),
- static_cast<T>(0.6502554641775335160762093775188993967491e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13c, static_cast<T>(6.5f), 13),
- static_cast<T>(0.5236187633153159677245637536048889160156e19L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13c, static_cast<T>(0.125)),
- static_cast<T>(0.5388702877817484859997819034334309851175e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13c, static_cast<T>(0.25)),
- static_cast<T>(0.6860418493656212035602948162704706192017e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13c, static_cast<T>(0.75)),
- static_cast<T>(0.165119681585007782587126712314784526825e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.6502554641775335160762093775188993967491e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13c, static_cast<T>(6.5f)),
- static_cast<T>(0.5236187633153159677245637536048889160156e19L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13a, static_cast<T>(0.125)),
- static_cast<T>(0.5388702877817484859997819034334309851175e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13a, static_cast<T>(0.25)),
- static_cast<T>(0.6860418493656212035602948162704706192017e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13a, static_cast<T>(0.75)),
- static_cast<T>(0.165119681585007782587126712314784526825e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.6502554641775335160762093775188993967491e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n13a, static_cast<T>(6.5f)),
- static_cast<T>(0.5236187633153159677245637536048889160156e19L),
- tolerance);
- //
- // Rational functions of order 12
- //
- static const U d13c[13] = { 4, 7, 1, 6, 11, 4, 9, 11, 1, 10, 1, 11, 12 };
- static const boost::array<U, 13> d13a = {{ 4, 7, 1, 6, 11, 4, 9, 11, 1, 10, 1, 11, 12 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13c, d13c, static_cast<T>(0.125), 13),
- static_cast<T>(0.1118537310443419140823936840990235560775e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13c, d13c, static_cast<T>(0.25), 13),
- static_cast<T>(0.12106743933208147312270004711488386001e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13c, d13c, static_cast<T>(0.75), 13),
- static_cast<T>(0.1042994706832119738384940706309786965245e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13c, d13c, static_cast<T>(1.0f - 1.0f/64.0f), 13),
- static_cast<T>(0.8849937505065081554917467830175954168154e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13c, d13c, static_cast<T>(6.5f), 13),
- static_cast<T>(0.1125049235146435310211414108934070096386e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13c, d13c, static_cast<T>(10247.25f), 13),
- static_cast<T>(0.8334214878002966556152610218152238753709e-1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13c, d13c, static_cast<T>(0.125)),
- static_cast<T>(0.1118537310443419140823936840990235560775e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13c, d13c, static_cast<T>(0.25)),
- static_cast<T>(0.12106743933208147312270004711488386001e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13c, d13c, static_cast<T>(0.75)),
- static_cast<T>(0.1042994706832119738384940706309786965245e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13c, d13c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8849937505065081554917467830175954168154e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13c, d13c, static_cast<T>(6.5f)),
- static_cast<T>(0.1125049235146435310211414108934070096386e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13c, d13c, static_cast<T>(10247.25f)),
- static_cast<T>(0.8334214878002966556152610218152238753709e-1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13a, d13a, static_cast<T>(0.125)),
- static_cast<T>(0.1118537310443419140823936840990235560775e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13a, d13a, static_cast<T>(0.25)),
- static_cast<T>(0.12106743933208147312270004711488386001e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13a, d13a, static_cast<T>(0.75)),
- static_cast<T>(0.1042994706832119738384940706309786965245e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13a, d13a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8849937505065081554917467830175954168154e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13a, d13a, static_cast<T>(6.5f)),
- static_cast<T>(0.1125049235146435310211414108934070096386e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n13a, d13a, static_cast<T>(10247.25f)),
- static_cast<T>(0.8334214878002966556152610218152238753709e-1L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots13(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 13
- //
- static const U n14c[14] = { 5, 5, 3, 5, 12, 8, 10, 5, 5, 9, 2, 10, 3, 3 };
- static const boost::array<U, 14> n14a = {{ 5, 5, 3, 5, 12, 8, 10, 5, 5, 9, 2, 10, 3, 3 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14c, static_cast<T>(0.125), 14),
- static_cast<T>(0.5684855352437807596288621425628662109375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14c, static_cast<T>(0.25), 14),
- static_cast<T>(0.657317422330379486083984375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14c, static_cast<T>(0.75), 14),
- static_cast<T>(0.2256699807941913604736328125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14c, static_cast<T>(1.0f - 1.0f/64.0f), 14),
- static_cast<T>(0.7710103154409585858207746641830426369713e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14c, static_cast<T>(6.5), 14),
- static_cast<T>(0.1372059025011920166015625e12L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14c, static_cast<T>(0.125)),
- static_cast<T>(0.5684855352437807596288621425628662109375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14c, static_cast<T>(0.25)),
- static_cast<T>(0.657317422330379486083984375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14c, static_cast<T>(0.75)),
- static_cast<T>(0.2256699807941913604736328125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7710103154409585858207746641830426369713e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14c, static_cast<T>(6.5)),
- static_cast<T>(0.1372059025011920166015625e12L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14a, static_cast<T>(0.125)),
- static_cast<T>(0.5684855352437807596288621425628662109375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14a, static_cast<T>(0.25)),
- static_cast<T>(0.657317422330379486083984375e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14a, static_cast<T>(0.75)),
- static_cast<T>(0.2256699807941913604736328125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7710103154409585858207746641830426369713e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n14a, static_cast<T>(6.5)),
- static_cast<T>(0.1372059025011920166015625e12L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14c, static_cast<T>(0.125), 14),
- static_cast<T>(0.5078877218214320312311861835604176527818e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14c, static_cast<T>(0.25), 14),
- static_cast<T>(0.5325630803958699699407475236512254923582e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14c, static_cast<T>(0.75), 14),
- static_cast<T>(0.1183906394403697492911931021808413788676e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14c, static_cast<T>(1.0f - 1.0f/64.0f), 14),
- static_cast<T>(0.7015764398304385537424317046920004042802e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14c, static_cast<T>(6.5f), 14),
- static_cast<T>(0.4205557544065332561152158209905028343201e22L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14c, static_cast<T>(0.125)),
- static_cast<T>(0.5078877218214320312311861835604176527818e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14c, static_cast<T>(0.25)),
- static_cast<T>(0.5325630803958699699407475236512254923582e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14c, static_cast<T>(0.75)),
- static_cast<T>(0.1183906394403697492911931021808413788676e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7015764398304385537424317046920004042802e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14c, static_cast<T>(6.5f)),
- static_cast<T>(0.4205557544065332561152158209905028343201e22L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14a, static_cast<T>(0.125)),
- static_cast<T>(0.5078877218214320312311861835604176527818e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14a, static_cast<T>(0.25)),
- static_cast<T>(0.5325630803958699699407475236512254923582e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14a, static_cast<T>(0.75)),
- static_cast<T>(0.1183906394403697492911931021808413788676e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7015764398304385537424317046920004042802e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n14a, static_cast<T>(6.5f)),
- static_cast<T>(0.4205557544065332561152158209905028343201e22L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14c, static_cast<T>(0.125), 14),
- static_cast<T>(0.5631017745714562498494894684833412222547e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14c, static_cast<T>(0.25), 14),
- static_cast<T>(0.6302523215834798797629900946049019694328e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14c, static_cast<T>(0.75), 14),
- static_cast<T>(0.1411875192538263323882574695744551718235e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14c, static_cast<T>(1.0f - 1.0f/64.0f), 14),
- static_cast<T>(0.7119189230023502768177083984172702519672e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14c, static_cast<T>(6.5f), 14),
- static_cast<T>(0.6470088529331280863353320322930812835693e21L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14c, static_cast<T>(0.125)),
- static_cast<T>(0.5631017745714562498494894684833412222547e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14c, static_cast<T>(0.25)),
- static_cast<T>(0.6302523215834798797629900946049019694328e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14c, static_cast<T>(0.75)),
- static_cast<T>(0.1411875192538263323882574695744551718235e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7119189230023502768177083984172702519672e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14c, static_cast<T>(6.5f)),
- static_cast<T>(0.6470088529331280863353320322930812835693e21L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14a, static_cast<T>(0.125)),
- static_cast<T>(0.5631017745714562498494894684833412222547e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14a, static_cast<T>(0.25)),
- static_cast<T>(0.6302523215834798797629900946049019694328e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14a, static_cast<T>(0.75)),
- static_cast<T>(0.1411875192538263323882574695744551718235e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7119189230023502768177083984172702519672e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n14a, static_cast<T>(6.5f)),
- static_cast<T>(0.6470088529331280863353320322930812835693e21L),
- tolerance);
- //
- // Rational functions of order 13
- //
- static const U d14c[14] = { 1, 2, 1, 8, 5, 8, 2, 11, 3, 6, 5, 9, 7, 10 };
- static const boost::array<U, 14> d14a = {{ 1, 2, 1, 8, 5, 8, 2, 11, 3, 6, 5, 9, 7, 10 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14c, d14c, static_cast<T>(0.125), 14),
- static_cast<T>(0.4431848049037056640776200482297774574883e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14c, d14c, static_cast<T>(0.25), 14),
- static_cast<T>(0.3830343514018902583833597521450902906851e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14c, d14c, static_cast<T>(0.75), 14),
- static_cast<T>(0.1657621200711495617835320787645038062003e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14c, d14c, static_cast<T>(1.0f - 1.0f/64.0f), 14),
- static_cast<T>(0.1117985091800992684003226640313705018678e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14c, d14c, static_cast<T>(6.5f), 14),
- static_cast<T>(0.3280672161259396135368350556553925507681e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14c, d14c, static_cast<T>(10247.25f), 14),
- static_cast<T>(0.3000087891957249835881866421118445480875e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14c, d14c, static_cast<T>(0.125)),
- static_cast<T>(0.4431848049037056640776200482297774574883e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14c, d14c, static_cast<T>(0.25)),
- static_cast<T>(0.3830343514018902583833597521450902906851e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14c, d14c, static_cast<T>(0.75)),
- static_cast<T>(0.1657621200711495617835320787645038062003e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14c, d14c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.1117985091800992684003226640313705018678e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14c, d14c, static_cast<T>(6.5f)),
- static_cast<T>(0.3280672161259396135368350556553925507681e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14c, d14c, static_cast<T>(10247.25f)),
- static_cast<T>(0.3000087891957249835881866421118445480875e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14a, d14a, static_cast<T>(0.125)),
- static_cast<T>(0.4431848049037056640776200482297774574883e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14a, d14a, static_cast<T>(0.25)),
- static_cast<T>(0.3830343514018902583833597521450902906851e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14a, d14a, static_cast<T>(0.75)),
- static_cast<T>(0.1657621200711495617835320787645038062003e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14a, d14a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.1117985091800992684003226640313705018678e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14a, d14a, static_cast<T>(6.5f)),
- static_cast<T>(0.3280672161259396135368350556553925507681e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n14a, d14a, static_cast<T>(10247.25f)),
- static_cast<T>(0.3000087891957249835881866421118445480875e0L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots14(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 14
- //
- static const U n15c[15] = { 6, 2, 10, 2, 4, 11, 4, 6, 5, 5, 10, 12, 8, 6, 2 };
- static const boost::array<U, 15> n15a = {{ 6, 2, 10, 2, 4, 11, 4, 6, 5, 5, 10, 12, 8, 6, 2 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15c, static_cast<T>(0.125), 15),
- static_cast<T>(0.6411486971785507193999364972114562988281e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15c, static_cast<T>(0.25), 15),
- static_cast<T>(0.7184068299829959869384765625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15c, static_cast<T>(0.75), 15),
- static_cast<T>(0.21735079027712345123291015625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15c, static_cast<T>(1.0f - 1.0f/64.0f), 15),
- static_cast<T>(0.8299984286646360949452954853655163780233e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15c, static_cast<T>(6.5), 15),
- static_cast<T>(0.7599432765217742919921875e12L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15c, static_cast<T>(0.125)),
- static_cast<T>(0.6411486971785507193999364972114562988281e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15c, static_cast<T>(0.25)),
- static_cast<T>(0.7184068299829959869384765625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15c, static_cast<T>(0.75)),
- static_cast<T>(0.21735079027712345123291015625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8299984286646360949452954853655163780233e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15c, static_cast<T>(6.5)),
- static_cast<T>(0.7599432765217742919921875e12L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15a, static_cast<T>(0.125)),
- static_cast<T>(0.6411486971785507193999364972114562988281e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15a, static_cast<T>(0.25)),
- static_cast<T>(0.7184068299829959869384765625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15a, static_cast<T>(0.75)),
- static_cast<T>(0.21735079027712345123291015625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8299984286646360949452954853655163780233e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n15a, static_cast<T>(6.5)),
- static_cast<T>(0.7599432765217742919921875e12L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15c, static_cast<T>(0.125), 15),
- static_cast<T>(0.603369928436724862526100235763586452224e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15c, static_cast<T>(0.25), 15),
- static_cast<T>(0.6164622568840771005271861326946236658841e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15c, static_cast<T>(0.75), 15),
- static_cast<T>(0.1204200081304656236302896843426424311474e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15c, static_cast<T>(1.0f - 1.0f/64.0f), 15),
- static_cast<T>(0.7438435296991670658675730793779505088179e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15c, static_cast<T>(6.5f), 15),
- static_cast<T>(0.123975649339443727300884144392229616642e24L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15c, static_cast<T>(0.125)),
- static_cast<T>(0.603369928436724862526100235763586452224e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15c, static_cast<T>(0.25)),
- static_cast<T>(0.6164622568840771005271861326946236658841e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15c, static_cast<T>(0.75)),
- static_cast<T>(0.1204200081304656236302896843426424311474e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7438435296991670658675730793779505088179e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15c, static_cast<T>(6.5f)),
- static_cast<T>(0.123975649339443727300884144392229616642e24L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15a, static_cast<T>(0.125)),
- static_cast<T>(0.603369928436724862526100235763586452224e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15a, static_cast<T>(0.25)),
- static_cast<T>(0.6164622568840771005271861326946236658841e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15a, static_cast<T>(0.75)),
- static_cast<T>(0.1204200081304656236302896843426424311474e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7438435296991670658675730793779505088179e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n15a, static_cast<T>(6.5f)),
- static_cast<T>(0.123975649339443727300884144392229616642e24L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15c, static_cast<T>(0.125), 15),
- static_cast<T>(0.6269594274937989002088018861086916177919e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15c, static_cast<T>(0.25), 15),
- static_cast<T>(0.6658490275363084021087445307784946635365e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15c, static_cast<T>(0.75), 15),
- static_cast<T>(0.1405600108406208315070529124568565748632e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15c, static_cast<T>(1.0f - 1.0f/64.0f), 15),
- static_cast<T>(0.7546981889007411462781694774633148026087e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15c, static_cast<T>(6.5f), 15),
- static_cast<T>(0.1907317682145288112321802221418917179108e23L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15c, static_cast<T>(0.125)),
- static_cast<T>(0.6269594274937989002088018861086916177919e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15c, static_cast<T>(0.25)),
- static_cast<T>(0.6658490275363084021087445307784946635365e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15c, static_cast<T>(0.75)),
- static_cast<T>(0.1405600108406208315070529124568565748632e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7546981889007411462781694774633148026087e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15c, static_cast<T>(6.5f)),
- static_cast<T>(0.1907317682145288112321802221418917179108e23L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15a, static_cast<T>(0.125)),
- static_cast<T>(0.6269594274937989002088018861086916177919e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15a, static_cast<T>(0.25)),
- static_cast<T>(0.6658490275363084021087445307784946635365e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15a, static_cast<T>(0.75)),
- static_cast<T>(0.1405600108406208315070529124568565748632e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7546981889007411462781694774633148026087e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n15a, static_cast<T>(6.5f)),
- static_cast<T>(0.1907317682145288112321802221418917179108e23L),
- tolerance);
- //
- // Rational functions of order 14
- //
- static const U d15c[15] = { 7, 10, 7, 1, 10, 11, 11, 10, 7, 1, 10, 9, 8, 2, 3 };
- static const boost::array<U, 15> d15a = {{ 7, 10, 7, 1, 10, 11, 11, 10, 7, 1, 10, 9, 8, 2, 3 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15c, d15c, static_cast<T>(0.125), 15),
- static_cast<T>(0.7665435387801205084357966990293734431712e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15c, d15c, static_cast<T>(0.25), 15),
- static_cast<T>(0.7179510450452743437979498898508621162489e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15c, d15c, static_cast<T>(0.75), 15),
- static_cast<T>(0.7245051156202447814210400449367214490615e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15c, d15c, static_cast<T>(1.0f - 1.0f/64.0f), 15),
- static_cast<T>(0.8564567127146107292325365412425895512358e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15c, d15c, static_cast<T>(6.5f), 15),
- static_cast<T>(0.8943937154363365123476971638815814742919e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15c, d15c, static_cast<T>(10247.25f), 15),
- static_cast<T>(0.6668184674989563469735607034881326982176e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15c, d15c, static_cast<T>(0.125)),
- static_cast<T>(0.7665435387801205084357966990293734431712e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15c, d15c, static_cast<T>(0.25)),
- static_cast<T>(0.7179510450452743437979498898508621162489e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15c, d15c, static_cast<T>(0.75)),
- static_cast<T>(0.7245051156202447814210400449367214490615e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15c, d15c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8564567127146107292325365412425895512358e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15c, d15c, static_cast<T>(6.5f)),
- static_cast<T>(0.8943937154363365123476971638815814742919e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15c, d15c, static_cast<T>(10247.25f)),
- static_cast<T>(0.6668184674989563469735607034881326982176e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15a, d15a, static_cast<T>(0.125)),
- static_cast<T>(0.7665435387801205084357966990293734431712e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15a, d15a, static_cast<T>(0.25)),
- static_cast<T>(0.7179510450452743437979498898508621162489e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15a, d15a, static_cast<T>(0.75)),
- static_cast<T>(0.7245051156202447814210400449367214490615e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15a, d15a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8564567127146107292325365412425895512358e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15a, d15a, static_cast<T>(6.5f)),
- static_cast<T>(0.8943937154363365123476971638815814742919e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n15a, d15a, static_cast<T>(10247.25f)),
- static_cast<T>(0.6668184674989563469735607034881326982176e0L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots15(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 15
- //
- static const U n16c[16] = { 5, 3, 4, 6, 7, 9, 7, 6, 12, 12, 7, 12, 10, 3, 6, 2 };
- static const boost::array<U, 16> n16a = {{ 5, 3, 4, 6, 7, 9, 7, 6, 12, 12, 7, 12, 10, 3, 6, 2 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16c, static_cast<T>(0.125), 16),
- static_cast<T>(0.545123276921327715172083117067813873291e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16c, static_cast<T>(0.25), 16),
- static_cast<T>(0.613219709135591983795166015625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16c, static_cast<T>(0.75), 16),
- static_cast<T>(0.2195364624075591564178466796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16c, static_cast<T>(1.0f - 1.0f/64.0f), 16),
- static_cast<T>(0.9836568924934260045838041177111855604603e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16c, static_cast<T>(6.5), 16),
- static_cast<T>(0.474557924297607818603515625e13L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16c, static_cast<T>(0.125)),
- static_cast<T>(0.545123276921327715172083117067813873291e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16c, static_cast<T>(0.25)),
- static_cast<T>(0.613219709135591983795166015625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16c, static_cast<T>(0.75)),
- static_cast<T>(0.2195364624075591564178466796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.9836568924934260045838041177111855604603e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16c, static_cast<T>(6.5)),
- static_cast<T>(0.474557924297607818603515625e13L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16a, static_cast<T>(0.125)),
- static_cast<T>(0.545123276921327715172083117067813873291e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16a, static_cast<T>(0.25)),
- static_cast<T>(0.613219709135591983795166015625e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16a, static_cast<T>(0.75)),
- static_cast<T>(0.2195364624075591564178466796875e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.9836568924934260045838041177111855604603e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n16a, static_cast<T>(6.5)),
- static_cast<T>(0.474557924297607818603515625e13L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16c, static_cast<T>(0.125), 16),
- static_cast<T>(0.5047874876401281302859159688868887179229e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16c, static_cast<T>(0.25), 16),
- static_cast<T>(0.5204705680902215943553490440365294489311e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16c, static_cast<T>(0.75), 16),
- static_cast<T>(0.1080276729363941941482185615797106947866e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16c, static_cast<T>(1.0f - 1.0f/64.0f), 16),
- static_cast<T>(0.8750139513999183433264859554731006794881e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16c, static_cast<T>(6.5f), 16),
- static_cast<T>(0.5231073382834479254225049897383445873857e25L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16c, static_cast<T>(0.125)),
- static_cast<T>(0.5047874876401281302859159688868887179229e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16c, static_cast<T>(0.25)),
- static_cast<T>(0.5204705680902215943553490440365294489311e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16c, static_cast<T>(0.75)),
- static_cast<T>(0.1080276729363941941482185615797106947866e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8750139513999183433264859554731006794881e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16c, static_cast<T>(6.5f)),
- static_cast<T>(0.5231073382834479254225049897383445873857e25L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16a, static_cast<T>(0.125)),
- static_cast<T>(0.5047874876401281302859159688868887179229e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16a, static_cast<T>(0.25)),
- static_cast<T>(0.5204705680902215943553490440365294489311e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16a, static_cast<T>(0.75)),
- static_cast<T>(0.1080276729363941941482185615797106947866e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8750139513999183433264859554731006794881e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n16a, static_cast<T>(6.5f)),
- static_cast<T>(0.5231073382834479254225049897383445873857e25L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16c, static_cast<T>(0.125), 16),
- static_cast<T>(0.5382999011210250422873277510951097433836e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16c, static_cast<T>(0.25), 16),
- static_cast<T>(0.5818822723608863774213961761461177957244e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16c, static_cast<T>(0.75), 16),
- static_cast<T>(0.1273702305818589255309580821062809263822e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16c, static_cast<T>(1.0f - 1.0f/64.0f), 16),
- static_cast<T>(0.8881094109459487932205571611155308490038e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16c, static_cast<T>(6.5f), 16),
- static_cast<T>(0.8047805204360737314192426765205301344395e24L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16c, static_cast<T>(0.125)),
- static_cast<T>(0.5382999011210250422873277510951097433836e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16c, static_cast<T>(0.25)),
- static_cast<T>(0.5818822723608863774213961761461177957244e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16c, static_cast<T>(0.75)),
- static_cast<T>(0.1273702305818589255309580821062809263822e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8881094109459487932205571611155308490038e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16c, static_cast<T>(6.5f)),
- static_cast<T>(0.8047805204360737314192426765205301344395e24L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16a, static_cast<T>(0.125)),
- static_cast<T>(0.5382999011210250422873277510951097433836e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16a, static_cast<T>(0.25)),
- static_cast<T>(0.5818822723608863774213961761461177957244e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16a, static_cast<T>(0.75)),
- static_cast<T>(0.1273702305818589255309580821062809263822e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8881094109459487932205571611155308490038e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n16a, static_cast<T>(6.5f)),
- static_cast<T>(0.8047805204360737314192426765205301344395e24L),
- tolerance);
- //
- // Rational functions of order 15
- //
- static const U d16c[16] = { 9, 5, 2, 4, 4, 12, 11, 5, 1, 4, 1, 7, 9, 6, 6, 10 };
- static const boost::array<U, 16> d16a = {{ 9, 5, 2, 4, 4, 12, 11, 5, 1, 4, 1, 7, 9, 6, 6, 10 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16c, d16c, static_cast<T>(0.125), 16),
- static_cast<T>(0.5639916333371058636233240074655101514789e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16c, d16c, static_cast<T>(0.25), 16),
- static_cast<T>(0.5858114501425065583332351775671440891069e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16c, d16c, static_cast<T>(0.75), 16),
- static_cast<T>(0.9254727283150680371198227978127749853934e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16c, d16c, static_cast<T>(1.0f - 1.0f/64.0f), 16),
- static_cast<T>(0.1155192269792597191440811772688208898465e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16c, d16c, static_cast<T>(6.5f), 16),
- static_cast<T>(0.2736469218296852258039959401695110274611e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16c, d16c, static_cast<T>(10247.25f), 16),
- static_cast<T>(0.2000468408076577399196121638600795513365e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16c, d16c, static_cast<T>(0.125)),
- static_cast<T>(0.5639916333371058636233240074655101514789e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16c, d16c, static_cast<T>(0.25)),
- static_cast<T>(0.5858114501425065583332351775671440891069e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16c, d16c, static_cast<T>(0.75)),
- static_cast<T>(0.9254727283150680371198227978127749853934e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16c, d16c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.1155192269792597191440811772688208898465e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16c, d16c, static_cast<T>(6.5f)),
- static_cast<T>(0.2736469218296852258039959401695110274611e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16c, d16c, static_cast<T>(10247.25f)),
- static_cast<T>(0.2000468408076577399196121638600795513365e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16a, d16a, static_cast<T>(0.125)),
- static_cast<T>(0.5639916333371058636233240074655101514789e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16a, d16a, static_cast<T>(0.25)),
- static_cast<T>(0.5858114501425065583332351775671440891069e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16a, d16a, static_cast<T>(0.75)),
- static_cast<T>(0.9254727283150680371198227978127749853934e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16a, d16a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.1155192269792597191440811772688208898465e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16a, d16a, static_cast<T>(6.5f)),
- static_cast<T>(0.2736469218296852258039959401695110274611e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n16a, d16a, static_cast<T>(10247.25f)),
- static_cast<T>(0.2000468408076577399196121638600795513365e0L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots16(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 16
- //
- static const U n17c[17] = { 9, 6, 11, 2, 9, 10, 6, 3, 3, 3, 4, 9, 10, 2, 3, 2, 2 };
- static const boost::array<U, 17> n17a = {{ 9, 6, 11, 2, 9, 10, 6, 3, 3, 3, 4, 9, 10, 2, 3, 2, 2 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17c, static_cast<T>(0.125), 17),
- static_cast<T>(0.9928308216189925872185995103791356086731e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17c, static_cast<T>(0.25), 17),
- static_cast<T>(0.112653836444951593875885009765625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17c, static_cast<T>(0.75), 17),
- static_cast<T>(0.288157429718412458896636962890625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17c, static_cast<T>(1.0f - 1.0f/64.0f), 17),
- static_cast<T>(0.8499409476622319741012411965028222548509e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17c, static_cast<T>(6.5), 17),
- static_cast<T>(0.24291309657542805938720703125e14L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17c, static_cast<T>(0.125)),
- static_cast<T>(0.9928308216189925872185995103791356086731e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17c, static_cast<T>(0.25)),
- static_cast<T>(0.112653836444951593875885009765625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17c, static_cast<T>(0.75)),
- static_cast<T>(0.288157429718412458896636962890625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8499409476622319741012411965028222548509e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17c, static_cast<T>(6.5)),
- static_cast<T>(0.24291309657542805938720703125e14L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17a, static_cast<T>(0.125)),
- static_cast<T>(0.9928308216189925872185995103791356086731e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17a, static_cast<T>(0.25)),
- static_cast<T>(0.112653836444951593875885009765625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17a, static_cast<T>(0.75)),
- static_cast<T>(0.288157429718412458896636962890625e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8499409476622319741012411965028222548509e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n17a, static_cast<T>(6.5)),
- static_cast<T>(0.24291309657542805938720703125e14L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17c, static_cast<T>(0.125), 17),
- static_cast<T>(0.9096443722112564415334975111453014308977e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17c, static_cast<T>(0.25), 17),
- static_cast<T>(0.9418604266644799371155545586464796770088e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17c, static_cast<T>(0.75), 17),
- static_cast<T>(0.1800748238050061998856161277204890325265e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17c, static_cast<T>(1.0f - 1.0f/64.0f), 17),
- static_cast<T>(0.7725414891276907880696219594586980069116e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17c, static_cast<T>(6.5f), 17),
- static_cast<T>(0.2112416072820759278619692697965107844211e27L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17c, static_cast<T>(0.125)),
- static_cast<T>(0.9096443722112564415334975111453014308977e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17c, static_cast<T>(0.25)),
- static_cast<T>(0.9418604266644799371155545586464796770088e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17c, static_cast<T>(0.75)),
- static_cast<T>(0.1800748238050061998856161277204890325265e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7725414891276907880696219594586980069116e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17c, static_cast<T>(6.5f)),
- static_cast<T>(0.2112416072820759278619692697965107844211e27L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17a, static_cast<T>(0.125)),
- static_cast<T>(0.9096443722112564415334975111453014308977e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17a, static_cast<T>(0.25)),
- static_cast<T>(0.9418604266644799371155545586464796770088e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17a, static_cast<T>(0.75)),
- static_cast<T>(0.1800748238050061998856161277204890325265e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7725414891276907880696219594586980069116e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n17a, static_cast<T>(6.5f)),
- static_cast<T>(0.2112416072820759278619692697965107844211e27L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17c, static_cast<T>(0.125), 17),
- static_cast<T>(0.9771549776900515322679800891624114471814e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17c, static_cast<T>(0.25), 17),
- static_cast<T>(0.1067441706657919748462218234585918708035e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17c, static_cast<T>(0.75), 17),
- static_cast<T>(0.210099765073341599847488170293985376702e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17c, static_cast<T>(1.0f - 1.0f/64.0f), 17),
- static_cast<T>(0.7833754810186065148643778635770900387673e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17c, static_cast<T>(6.5f), 17),
- static_cast<T>(0.3249870881262706582491835681484781298786e26L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17c, static_cast<T>(0.125)),
- static_cast<T>(0.9771549776900515322679800891624114471814e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17c, static_cast<T>(0.25)),
- static_cast<T>(0.1067441706657919748462218234585918708035e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17c, static_cast<T>(0.75)),
- static_cast<T>(0.210099765073341599847488170293985376702e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7833754810186065148643778635770900387673e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17c, static_cast<T>(6.5f)),
- static_cast<T>(0.3249870881262706582491835681484781298786e26L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17a, static_cast<T>(0.125)),
- static_cast<T>(0.9771549776900515322679800891624114471814e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17a, static_cast<T>(0.25)),
- static_cast<T>(0.1067441706657919748462218234585918708035e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17a, static_cast<T>(0.75)),
- static_cast<T>(0.210099765073341599847488170293985376702e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7833754810186065148643778635770900387673e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n17a, static_cast<T>(6.5f)),
- static_cast<T>(0.3249870881262706582491835681484781298786e26L),
- tolerance);
- //
- // Rational functions of order 16
- //
- static const U d17c[17] = { 7, 12, 3, 11, 10, 2, 5, 10, 4, 11, 10, 6, 2, 12, 1, 2, 1 };
- static const boost::array<U, 17> d17a = {{ 7, 12, 3, 11, 10, 2, 5, 10, 4, 11, 10, 6, 2, 12, 1, 2, 1 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17c, d17c, static_cast<T>(0.125), 17),
- static_cast<T>(0.1158375951946763080209403673166347533318e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17c, d17c, static_cast<T>(0.25), 17),
- static_cast<T>(0.1082966720285644924561131930917359028989e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17c, d17c, static_cast<T>(0.75), 17),
- static_cast<T>(0.9405394059495731884564238556014726773139e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17c, d17c, static_cast<T>(1.0f - 1.0f/64.0f), 17),
- static_cast<T>(0.8654376623250381987950547557864849720673e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17c, d17c, static_cast<T>(6.5f), 17),
- static_cast<T>(0.1737601600028386310221746538845672721834e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17c, d17c, static_cast<T>(10247.25f), 17),
- static_cast<T>(0.1999804873273333726353229695741031917586e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17c, d17c, static_cast<T>(0.125)),
- static_cast<T>(0.1158375951946763080209403673166347533318e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17c, d17c, static_cast<T>(0.25)),
- static_cast<T>(0.1082966720285644924561131930917359028989e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17c, d17c, static_cast<T>(0.75)),
- static_cast<T>(0.9405394059495731884564238556014726773139e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17c, d17c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8654376623250381987950547557864849720673e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17c, d17c, static_cast<T>(6.5f)),
- static_cast<T>(0.1737601600028386310221746538845672721834e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17c, d17c, static_cast<T>(10247.25f)),
- static_cast<T>(0.1999804873273333726353229695741031917586e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17a, d17a, static_cast<T>(0.125)),
- static_cast<T>(0.1158375951946763080209403673166347533318e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17a, d17a, static_cast<T>(0.25)),
- static_cast<T>(0.1082966720285644924561131930917359028989e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17a, d17a, static_cast<T>(0.75)),
- static_cast<T>(0.9405394059495731884564238556014726773139e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17a, d17a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8654376623250381987950547557864849720673e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17a, d17a, static_cast<T>(6.5f)),
- static_cast<T>(0.1737601600028386310221746538845672721834e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n17a, d17a, static_cast<T>(10247.25f)),
- static_cast<T>(0.1999804873273333726353229695741031917586e1L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots17(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 17
- //
- static const U n18c[18] = { 6, 5, 7, 8, 12, 9, 4, 1, 3, 5, 1, 5, 12, 8, 4, 6, 1, 10 };
- static const boost::array<U, 18> n18a = {{ 6, 5, 7, 8, 12, 9, 4, 1, 3, 5, 1, 5, 12, 8, 4, 6, 1, 10 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18c, static_cast<T>(0.125), 18),
- static_cast<T>(0.6753220299099845114199069939786568284035e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18c, static_cast<T>(0.25), 18),
- static_cast<T>(0.7869269511546008288860321044921875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18c, static_cast<T>(0.75), 18),
- static_cast<T>(0.25590585466590709984302520751953125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18c, static_cast<T>(1.0f - 1.0f/64.0f), 18),
- static_cast<T>(0.9432688198514753127308115619023015607828e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18c, static_cast<T>(6.5), 18),
- static_cast<T>(0.680830157865510950897216796875e15L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18c, static_cast<T>(0.125)),
- static_cast<T>(0.6753220299099845114199069939786568284035e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18c, static_cast<T>(0.25)),
- static_cast<T>(0.7869269511546008288860321044921875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18c, static_cast<T>(0.75)),
- static_cast<T>(0.25590585466590709984302520751953125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.9432688198514753127308115619023015607828e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18c, static_cast<T>(6.5)),
- static_cast<T>(0.680830157865510950897216796875e15L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18a, static_cast<T>(0.125)),
- static_cast<T>(0.6753220299099845114199069939786568284035e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18a, static_cast<T>(0.25)),
- static_cast<T>(0.7869269511546008288860321044921875e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18a, static_cast<T>(0.75)),
- static_cast<T>(0.25590585466590709984302520751953125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.9432688198514753127308115619023015607828e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n18a, static_cast<T>(6.5)),
- static_cast<T>(0.680830157865510950897216796875e15L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18c, static_cast<T>(0.125), 18),
- static_cast<T>(0.6079865225649211447450201991749585071453e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18c, static_cast<T>(0.25), 18),
- static_cast<T>(0.6341988806453956744898332268528529098717e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18c, static_cast<T>(0.75), 18),
- static_cast<T>(0.1439378129034890784564674906867431936064e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18c, static_cast<T>(1.0f - 1.0f/64.0f), 18),
- static_cast<T>(0.8374908316692411299816073455081075151876e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18c, static_cast<T>(6.5f), 18),
- static_cast<T>(0.4367459075155664096657376949959960997093e29L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18c, static_cast<T>(0.125)),
- static_cast<T>(0.6079865225649211447450201991749585071453e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18c, static_cast<T>(0.25)),
- static_cast<T>(0.6341988806453956744898332268528529098717e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18c, static_cast<T>(0.75)),
- static_cast<T>(0.1439378129034890784564674906867431936064e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8374908316692411299816073455081075151876e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18c, static_cast<T>(6.5f)),
- static_cast<T>(0.4367459075155664096657376949959960997093e29L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18a, static_cast<T>(0.125)),
- static_cast<T>(0.6079865225649211447450201991749585071453e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18a, static_cast<T>(0.25)),
- static_cast<T>(0.6341988806453956744898332268528529098717e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18a, static_cast<T>(0.75)),
- static_cast<T>(0.1439378129034890784564674906867431936064e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8374908316692411299816073455081075151876e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n18a, static_cast<T>(6.5f)),
- static_cast<T>(0.4367459075155664096657376949959960997093e29L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18c, static_cast<T>(0.125), 18),
- static_cast<T>(0.6638921805193691579601615933996680571626e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18c, static_cast<T>(0.25), 18),
- static_cast<T>(0.7367955225815826979593329074114116394867e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18c, static_cast<T>(0.75), 18),
- static_cast<T>(0.1719170838713187712752899875823242581419e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18c, static_cast<T>(1.0f - 1.0f/64.0f), 18),
- static_cast<T>(0.8498319559814513066479820652780774757461e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18c, static_cast<T>(6.5f), 18),
- static_cast<T>(0.6719167807931790917934426081938401533989e28L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18c, static_cast<T>(0.125)),
- static_cast<T>(0.6638921805193691579601615933996680571626e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18c, static_cast<T>(0.25)),
- static_cast<T>(0.7367955225815826979593329074114116394867e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18c, static_cast<T>(0.75)),
- static_cast<T>(0.1719170838713187712752899875823242581419e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8498319559814513066479820652780774757461e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18c, static_cast<T>(6.5f)),
- static_cast<T>(0.6719167807931790917934426081938401533989e28L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18a, static_cast<T>(0.125)),
- static_cast<T>(0.6638921805193691579601615933996680571626e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18a, static_cast<T>(0.25)),
- static_cast<T>(0.7367955225815826979593329074114116394867e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18a, static_cast<T>(0.75)),
- static_cast<T>(0.1719170838713187712752899875823242581419e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8498319559814513066479820652780774757461e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n18a, static_cast<T>(6.5f)),
- static_cast<T>(0.6719167807931790917934426081938401533989e28L),
- tolerance);
- //
- // Rational functions of order 17
- //
- static const U d18c[18] = { 6, 2, 11, 2, 12, 4, 1, 5, 7, 12, 5, 7, 5, 7, 5, 7, 2, 9 };
- static const boost::array<U, 18> d18a = {{ 6, 2, 11, 2, 12, 4, 1, 5, 7, 12, 5, 7, 5, 7, 5, 7, 2, 9 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18c, d18c, static_cast<T>(0.125), 18),
- static_cast<T>(0.1050457095586493221315235501384188635425e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18c, d18c, static_cast<T>(0.25), 18),
- static_cast<T>(0.1082394733850278225180153358339433604182e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18c, d18c, static_cast<T>(0.75), 18),
- static_cast<T>(0.1117650157149023587583496399377426188558e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18c, d18c, static_cast<T>(1.0f - 1.0f/64.0f), 18),
- static_cast<T>(0.9882013696252427983431096654690843223851e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18c, d18c, static_cast<T>(6.5f), 18),
- static_cast<T>(0.1086348665080997883580887205673821889245e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18c, d18c, static_cast<T>(10247.25f), 18),
- static_cast<T>(0.1111097856940394090609547290690047016487e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18c, d18c, static_cast<T>(0.125)),
- static_cast<T>(0.1050457095586493221315235501384188635425e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18c, d18c, static_cast<T>(0.25)),
- static_cast<T>(0.1082394733850278225180153358339433604182e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18c, d18c, static_cast<T>(0.75)),
- static_cast<T>(0.1117650157149023587583496399377426188558e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18c, d18c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.9882013696252427983431096654690843223851e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18c, d18c, static_cast<T>(6.5f)),
- static_cast<T>(0.1086348665080997883580887205673821889245e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18c, d18c, static_cast<T>(10247.25f)),
- static_cast<T>(0.1111097856940394090609547290690047016487e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18a, d18a, static_cast<T>(0.125)),
- static_cast<T>(0.1050457095586493221315235501384188635425e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18a, d18a, static_cast<T>(0.25)),
- static_cast<T>(0.1082394733850278225180153358339433604182e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18a, d18a, static_cast<T>(0.75)),
- static_cast<T>(0.1117650157149023587583496399377426188558e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18a, d18a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.9882013696252427983431096654690843223851e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18a, d18a, static_cast<T>(6.5f)),
- static_cast<T>(0.1086348665080997883580887205673821889245e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n18a, d18a, static_cast<T>(10247.25f)),
- static_cast<T>(0.1111097856940394090609547290690047016487e1L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots18(T, U)
- {
- //
- // Tolerance is 4 eps expressed as a persentage:
- //
- T tolerance = boost::math::tools::epsilon<T>() * 4 * 100;
- //
- // Polynomials of order 18
- //
- static const U n19c[19] = { 7, 2, 4, 2, 4, 3, 9, 1, 9, 3, 7, 2, 10, 4, 2, 5, 11, 3, 9 };
- static const boost::array<U, 19> n19a = {{ 7, 2, 4, 2, 4, 3, 9, 1, 9, 3, 7, 2, 10, 4, 2, 5, 11, 3, 9 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19c, static_cast<T>(0.125), 19),
- static_cast<T>(0.7317509740045990140888676478425622917712e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19c, static_cast<T>(0.25), 19),
- static_cast<T>(0.7802219584656995721161365509033203125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19c, static_cast<T>(0.75), 19),
- static_cast<T>(0.17609299321266007609665393829345703125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19c, static_cast<T>(1.0f - 1.0f/64.0f), 19),
- static_cast<T>(0.8327888521934174049333133442289010778727e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19c, static_cast<T>(6.5), 19),
- static_cast<T>(0.4179028813935817562572479248046875e16L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19c, static_cast<T>(0.125)),
- static_cast<T>(0.7317509740045990140888676478425622917712e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19c, static_cast<T>(0.25)),
- static_cast<T>(0.7802219584656995721161365509033203125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19c, static_cast<T>(0.75)),
- static_cast<T>(0.17609299321266007609665393829345703125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8327888521934174049333133442289010778727e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19c, static_cast<T>(6.5)),
- static_cast<T>(0.4179028813935817562572479248046875e16L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19a, static_cast<T>(0.125)),
- static_cast<T>(0.7317509740045990140888676478425622917712e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19a, static_cast<T>(0.25)),
- static_cast<T>(0.7802219584656995721161365509033203125e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19a, static_cast<T>(0.75)),
- static_cast<T>(0.17609299321266007609665393829345703125e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8327888521934174049333133442289010778727e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_polynomial(n19a, static_cast<T>(6.5)),
- static_cast<T>(0.4179028813935817562572479248046875e16L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19c, static_cast<T>(0.125), 19),
- static_cast<T>(0.7032234433238304833197011488540991991734e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19c, static_cast<T>(0.25), 19),
- static_cast<T>(0.7141177719741940632063571816842174888595e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19c, static_cast<T>(0.75), 19),
- static_cast<T>(0.107671418972012709727788225142148040292e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19c, static_cast<T>(1.0f - 1.0f/64.0f), 19),
- static_cast<T>(0.7205306905267900876445365429703520869133e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19c, static_cast<T>(6.5f), 19),
- static_cast<T>(0.1670453627683043936397442394984734181614e31L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19c, static_cast<T>(0.125)),
- static_cast<T>(0.7032234433238304833197011488540991991734e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19c, static_cast<T>(0.25)),
- static_cast<T>(0.7141177719741940632063571816842174888595e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19c, static_cast<T>(0.75)),
- static_cast<T>(0.107671418972012709727788225142148040292e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7205306905267900876445365429703520869133e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19c, static_cast<T>(6.5f)),
- static_cast<T>(0.1670453627683043936397442394984734181614e31L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19a, static_cast<T>(0.125)),
- static_cast<T>(0.7032234433238304833197011488540991991734e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19a, static_cast<T>(0.25)),
- static_cast<T>(0.7141177719741940632063571816842174888595e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19a, static_cast<T>(0.75)),
- static_cast<T>(0.107671418972012709727788225142148040292e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7205306905267900876445365429703520869133e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_even_polynomial(n19a, static_cast<T>(6.5f)),
- static_cast<T>(0.1670453627683043936397442394984734181614e31L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19c, static_cast<T>(0.125), 19),
- static_cast<T>(0.7257875465906438665576091908327935933871e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19c, static_cast<T>(0.25), 19),
- static_cast<T>(0.7564710878967762528254287267368699554382e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19c, static_cast<T>(0.75), 19),
- static_cast<T>(0.120228558629350279637050966856197387056e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19c, static_cast<T>(1.0f - 1.0f/64.0f), 19),
- static_cast<T>(0.7308565745034058033214339484143259295627e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19c, static_cast<T>(6.5f), 19),
- static_cast<T>(0.2569928657973913748303757530804975664022e30L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19c, static_cast<T>(0.125)),
- static_cast<T>(0.7257875465906438665576091908327935933871e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19c, static_cast<T>(0.25)),
- static_cast<T>(0.7564710878967762528254287267368699554382e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19c, static_cast<T>(0.75)),
- static_cast<T>(0.120228558629350279637050966856197387056e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7308565745034058033214339484143259295627e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19c, static_cast<T>(6.5f)),
- static_cast<T>(0.2569928657973913748303757530804975664022e30L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19a, static_cast<T>(0.125)),
- static_cast<T>(0.7257875465906438665576091908327935933871e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19a, static_cast<T>(0.25)),
- static_cast<T>(0.7564710878967762528254287267368699554382e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19a, static_cast<T>(0.75)),
- static_cast<T>(0.120228558629350279637050966856197387056e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.7308565745034058033214339484143259295627e2L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_odd_polynomial(n19a, static_cast<T>(6.5f)),
- static_cast<T>(0.2569928657973913748303757530804975664022e30L),
- tolerance);
- //
- // Rational functions of order 18
- //
- static const U d19c[19] = { 3, 2, 3, 3, 10, 6, 2, 6, 9, 8, 8, 10, 5, 7, 6, 4, 6, 9, 7 };
- static const boost::array<U, 19> d19a = {{ 3, 2, 3, 3, 10, 6, 2, 6, 9, 8, 8, 10, 5, 7, 6, 4, 6, 9, 7 }};
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19c, d19c, static_cast<T>(0.125), 19),
- static_cast<T>(0.2213824709533496994632324982010106870288e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19c, d19c, static_cast<T>(0.25), 19),
- static_cast<T>(0.2063899260318829004588039751781791436716e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19c, d19c, static_cast<T>(0.75), 19),
- static_cast<T>(0.1085337280046506127330919833145641152667e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19c, d19c, static_cast<T>(1.0f - 1.0f/64.0f), 19),
- static_cast<T>(0.8530644127293554041631338796773621506306e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19c, d19c, static_cast<T>(6.5f), 19),
- static_cast<T>(0.1140014406058131768268407547610620204626e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19c, d19c, static_cast<T>(10247.25f), 19),
- static_cast<T>(0.1285594810697167354761598106316532892359e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19c, d19c, static_cast<T>(0.125)),
- static_cast<T>(0.2213824709533496994632324982010106870288e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19c, d19c, static_cast<T>(0.25)),
- static_cast<T>(0.2063899260318829004588039751781791436716e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19c, d19c, static_cast<T>(0.75)),
- static_cast<T>(0.1085337280046506127330919833145641152667e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19c, d19c, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8530644127293554041631338796773621506306e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19c, d19c, static_cast<T>(6.5f)),
- static_cast<T>(0.1140014406058131768268407547610620204626e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19c, d19c, static_cast<T>(10247.25f)),
- static_cast<T>(0.1285594810697167354761598106316532892359e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19a, d19a, static_cast<T>(0.125)),
- static_cast<T>(0.2213824709533496994632324982010106870288e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19a, d19a, static_cast<T>(0.25)),
- static_cast<T>(0.2063899260318829004588039751781791436716e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19a, d19a, static_cast<T>(0.75)),
- static_cast<T>(0.1085337280046506127330919833145641152667e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19a, d19a, static_cast<T>(1.0f - 1.0f/64.0f)),
- static_cast<T>(0.8530644127293554041631338796773621506306e0L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19a, d19a, static_cast<T>(6.5f)),
- static_cast<T>(0.1140014406058131768268407547610620204626e1L),
- tolerance);
- BOOST_CHECK_CLOSE(
- boost::math::tools::evaluate_rational(n19a, d19a, static_cast<T>(10247.25f)),
- static_cast<T>(0.1285594810697167354761598106316532892359e1L),
- tolerance);
- }
- template <class T, class U>
- void do_test_spots(T t, U u)
- {
- do_test_spots1(t, u);
- do_test_spots2(t, u);
- do_test_spots3(t, u);
- do_test_spots4(t, u);
- do_test_spots5(t, u);
- do_test_spots6(t, u);
- do_test_spots7(t, u);
- do_test_spots8(t, u);
- do_test_spots9(t, u);
- do_test_spots10(t, u);
- do_test_spots11(t, u);
- do_test_spots12(t, u);
- do_test_spots13(t, u);
- do_test_spots14(t, u);
- do_test_spots15(t, u);
- do_test_spots16(t, u);
- do_test_spots17(t, u);
- do_test_spots18(t, u);
- }
- #endif
|