function [a,b,b2,c,ord]=rkho12_9()
% Autor: Dieter Kaiser
%        Numerische Mathematik
%        Friedrich-Schiller-Universität Jena
%        http://users.minet.uni-jena.de/~kaiserd/
%        dieter.kaiser@uni-jena.de
%
% originales RK:
% http://www.peterstone.name/Maplepgs/Maple/nmthds/RKcoeff/Runge_Kutta_schemes/RK12/RKcoeff12h%289%29_1.pdf
% und dortige Literaturangabe
%
ord=9; % Ordnung des 'niedrigeren' Verfahrens für Fehlerschätzer
c=zeros(29,1);
b=c';
c(1)=0;
c(2)=.4351851851851851851851851851851851851851851851851851851851851851851851851851851851852;
c(3)=.4429824561403508771929824561403508771929824561403508771929824561403508771929824561404;
c(4)=.6644736842105263157894736842105263157894736842105263157894736842105263157894736842105;
c(5)=.1069403994175161223216143124609943831911795298522987310172664863740378614520490950697;
c(6)=.1644736842105263157894736842105263157894736842105263157894736842105263157894736842105;
c(7)=.5843251088534107402031930333817126269956458635703918722786647314949201741654571843251;
c(8)=.6382358235823582358235823582358235823582358235823582358235823582358235823582358235824e-1;
c(9)=.2;
c(10)=.3333333333333333333333333333333333333333333333333333333333333333333333333333333333333;
c(11)=.9446116054065563496847375720237340591364440847545279548637407620203329280139199114088;
c(12)=.5179584680428461035835615460185207449756996828425551866437683588600807071775316523299e-1;
c(13)=.8488805186071653506398389301626743020641481756400195420459339398355773991365476236893e-1;
c(14)=.2655756032646428930981140590456168352972012641640776214486652703185222349414361456016;
c(15)=.5;
c(16)=.7344243967353571069018859409543831647027987358359223785513347296814777650585638543984;
c(17)=.9151119481392834649360161069837325697935851824359980457954066060164422600863452376311;
c(18)=.9446116054065563496847375720237340591364440847545279548637407620203329280139199114088;
c(19)=.3333333333333333333333333333333333333333333333333333333333333333333333333333333333333;
c(20)=.2;
c(21)=.5843251088534107402031930333817126269956458635703918722786647314949201741654571843251;
c(22)=.1644736842105263157894736842105263157894736842105263157894736842105263157894736842105;
c(23)=.4429824561403508771929824561403508771929824561403508771929824561403508771929824561404;
c(24)=.4351851851851851851851851851851851851851851851851851851851851851851851851851851851852;
c(25)=1;
c(26)=.4970267001007476028032930885363848318550815967070143979104342007017543082576391973337;
c(27)=.8043478260869565217391304347826086956521739130434782608695652173913043478260869565217;
c(28)=.8717948717948717948717948717948717948717948717948717948717948717948717948717948717949;
c(29)=1;
a=zeros(29);
a(2,1)=.4351851851851851851851851851851851851851851851851851851851851851851851851851851851852;
a(3,1)=.2175227402212137286104398734798923400326123258875071216675507357419304139407870179368;
a(3,2)=.2254597159191371485825425826604585371603701302528437555254317203984204632521954382036;
a(4,1)=.1661184210526315789473684210526315789473684210526315789473684210526315789473684210526;
a(4,2)=0;
a(4,3)=.4983552631578947368421052631578947368421052631578947368421052631578947368421052631579;
a(5,1)=.8681163193918508865080629713483674348617570159685880673878476405659784672427434203840e-1;
a(5,2)=0;
a(5,3)=.3456981948164897000739691452644149026866903085576649936607708344667115529230058847943e-1;
a(5,4)=-.1444105200331793633658889920028385056366520260032657508759536112923114056452583544813e-1;
a(6,1)=.3850951504524952575244726520324404860898823844950484490138343541601000605579674908780e-1;
a(6,2)=0;
a(6,3)=0;
a(6,4)=.9889604363651382462812798900870548282288802143553903392828423536490053424426345577709e-4;
a(6,5)=.1258652731216402762123982910182735616976625577395859318541619645591514091994326716669;
a(7,1)=.5247404461891304721708365639844356354386624470737997647397329116437616959059854701778;
a(7,2)=0;
a(7,3)=0;
a(7,4)=.7610651429965941990931946190296373660533922130208900643092560661920652146268815424885e-1;
a(7,5)=-2.135538596825204678401302463372339475781988628449683891486081018353295131152366999963;
a(7,6)=2.119016745189825526524339470866652730733632823644186992594087231585247087949150559862;
a(8,1)=.3572122856624484555412656871410309454657254402954350529356994466234212462699695879099e-1;
a(8,2)=0;
a(8,3)=0;
a(8,4)=0;
a(8,5)=.4596205641509305161863483311675360886293026632692961086374314175410528945129931429031e-1;
a(8,6)=-.1800016957713219812376781513215261066354472582005125759344515744644655947135707070493e-1;
a(8,7)=.1404669540301245333646491248782654898654978218139650184903068535815036288843799818693e-3;
a(9,1)=.1888176809184108413680419706237505704281864015973418413153299364663524364341955734913e-1;
a(9,2)=0;
a(9,3)=0;
a(9,4)=0;
a(9,5)=0;
a(9,6)=.8381198329740939383758467268684128106638290469173528975872944409244863365387981657651e-1;
a(9,7)=.9031585241436450659339626877786556727134244569192456020771509670971435444573825121328e-5;
a(9,8)=.9729721702550808557495179062390587533407132090396133365371679075124515126725605224924e-1;
a(10,1)=-.4080067703469846387001599007585094416645285179656696882006645696781274941696191338570e-1;
a(10,2)=0;
a(10,3)=0;
a(10,4)=0;
a(10,5)=0;
a(10,6)=-.6005539308646711394173617417282635784603029781694346062080009050806164919590318269156;
a(10,7)=.1585222658367901823092810289995660365558277114283363946284113044047141269675809741481e-2;
a(10,8)=.3026658851734428583799288358366834830670493200050903757742452562250879940584583879948;
a(10,9)=.6704368334008921764176894190107687125274815661799611686408713261126274393811928758984;
a(11,1)=6.344326927733666873696263058980778771328558370914152084380122688263116113189631874466;
a(11,2)=0;
a(11,3)=0;
a(11,4)=0;
a(11,5)=0;
a(11,6)=0;
a(11,7)=1.975263319684766813850955500728188106557880392559127720135666889111189136253813975729;
a(11,8)=-13.82822337504897849061527131653164721900473695395858210726164571154383357718661916508;
a(11,9)=14.82423926991066347292103944504014293055447712090877566105421769783705551827529470930;
a(11,10)=-8.370994536873562320168249116193728530299734845668945403444620801647194262518201483006;
a(12,1)=-.9910783781470375735018424706990342484478259963427121190616343432259493286903501070750e-1;
a(12,2)=0;
a(12,3)=0;
a(12,4)=0;
a(12,5)=0;
a(12,6)=-1.046319958132641377892211373672215159710875883372049858922517534871447317958500644882;
a(12,7)=-.4662578801256029967826301701912208605727776822301916928051722653634090636623902615221e-3;
a(12,8)=.4243518408197806737520879584209906999975132950474577957967837636354467847566731274758;
a(12,9)=.8350767448298191909277817680995907515365477233544915021061336714983604939879298121048;
a(12,10)=-.6204379562043795620437956204379562043795620437956204379562043795620437956204379562044e-1;
a(12,11)=.3051106025934401220442410373760488176964149504195270785659801678108314263920671243326e-3;
a(13,1)=.1731635805893703684448829089734942070445562382116745420114094326722705203174775140332e-1;
a(13,2)=0;
a(13,3)=0;
a(13,4)=0;
a(13,5)=0;
a(13,6)=0;
a(13,7)=0;
a(13,8)=0;
a(13,9)=.8690027159880925811795093256330430220184719404902985010762237927304116502630885425916e-3;
a(13,10)=-.9198044746158460357290146202828770811642343120551843217420771155968903404182588708338e-4;
a(13,11)=.1833594777349928706130754092439075395240645268074916590065144720493485758190652981058e-6;
a(13,12)=.6679448817377525524901838117990401028051762116902291244289142812068791591710992924480e-1;
a(14,1)=.1497702285787817250603134142375551527881374815295532946701659971640303704469333256722e-1;
a(14,2)=0;
a(14,3)=0;
a(14,4)=0;
a(14,5)=0;
a(14,6)=0;
a(14,7)=0;
a(14,8)=0;
a(14,9)=.1299053198125687130806056561360945267563487713700848629960379786258472215118648828622;
a(14,10)=.4444252090193421415880477613428889941728587016143899156135432416265141679149665438354e-2;
a(14,11)=-.2185380330434085597487818850115824768660155325792369439283645364044817815712239904765e-5;
a(14,12)=.6235770138025566019351747531432668514647398310437277172705875380249580436468314885283e-1;
a(14,13)=.5389349250407735998767659637686133399860483467584655047185578940287507515886082812093e-1;
a(15,1)=.1956886038861791180930007029621719896471785620210633245797118818081004119873004962774;
a(15,2)=0;
a(15,3)=0;
a(15,4)=0;
a(15,5)=0;
a(15,6)=0;
a(15,7)=0;
a(15,8)=0;
a(15,9)=1.132878041352190960246053936692850204846641933665191609652843227265803479941175715645;
a(15,10)=.9754686357770750130309903534180324613492470735016258589778436907188769670738143543989;
a(15,11)=.4607633555393391875625052489818876130584589587566695260680043303699764560744838206512e-3;
a(15,12)=-.4833419929869440350491944569648386990066349467457051943375195864364996227787596872297;
a(15,13)=.2837255261146423361717978265203569959020643630988946562818139270625464117810614651744;
a(15,14)=-1.604879577498682731680210867877554840351555444499826924680761144749197624460666828087;
a(16,1)=-.6628581660952109109950216641584960475848453023977418371554567406302394052049642993363;
a(16,2)=0;
a(16,3)=0;
a(16,4)=0;
a(16,5)=0;
a(16,6)=0;
a(16,7)=0;
a(16,8)=0;
a(16,9)=-5.301219753823165631138506283750981613687493380976143446419698251739201243786272433269;
a(16,10)=-5.493744530005151771950832780438489668352801158207831962667055860430416893664761589330;
a(16,11)=.6448107716343851659685115053410322161204197332247306929859781244843876115320017653542e-2;
a(16,12)=2.226911096857986220827171118161838780361655511952909244621862410327793805385281866476;
a(16,13)=-.8260094546883369994121948528168152647220748853112540011094140493170779782006783468229;
a(16,14)=9.736973734199539440165209948098457305642565726332220268712929325968631361580234056276;
a(16,15)=1.047923362573352907746375340805459350884588027111516805638308114257144242834404582751;
a(17,1)=9.451896878619703179615895147719645120861585484250220485534769741441232402797149004402;
a(17,2)=0;
a(17,3)=0;
a(17,4)=0;
a(17,5)=0;
a(17,6)=0;
a(17,7)=0;
a(17,8)=0;
a(17,9)=74.07837676951819392708315469048815926453257791083353986411194358002277837032529121349;
a(17,10)=80.08971633421252928663933464653279322909492698803384552922422585968931770071180510457;
a(17,11)=-.1241702484260160323471778040612055855620194337087768444994146945534716737633295008233;
a(17,12)=-32.04108125365225923900659816438329678215226279318337501510105142207810131441066638158;
a(17,13)=15.51919421000708125838831543558938623465692911684926717234376165413330242668122537342;
a(17,14)=-136.4444237346563024309541869705527862321862115141467999073204884062451779712319267938;
a(17,15)=-11.36109896858298168444633695622136642878717316645309025294277498926997344146696251530;
a(17,16)=1.746701961099335199963616081872403749335232589961167014444435282876535760443759733215;
a(18,1)=1.059086740089530572084686602455620391446019980075022020682291957643879144548290466243;
a(18,2)=0;
a(18,3)=0;
a(18,4)=0;
a(18,5)=0;
a(18,6)=0;
a(18,7)=1.975263319684766813850955500728188106557880392559127720135666889111189136253813975729;
a(18,8)=-13.82822337504897849061527131653164721900473695395858210726164571154383357718661916508;
a(18,9)=-26.72676722061492102175215840759265382960786498230207636418025793583833107088763635551;
a(18,10)=-53.49798986553787152824955918158085193982743760760492627590775850823540448031315562431;
a(18,11)=.7179812487812968675250181644918743516316099586081748670146732996043783143974128607587e-1;
a(18,12)=18.05559723664965139501142471462605880255358278669785143935434349294122071206578011157;
a(18,13)=-8.765163819232982113792324392383185125858432915348234208512916467037776994687248464210;
a(18,14)=76.87522358555575651988028075659565616302805855797883225625477685501643635288672453023;
a(18,15)=6.541007260506904941709851688460080123863085658071943624909334991972860537373864701434;
a(18,16)=-.8461837296739539683436767973109554382501241857205608248520628152174372445350689400749;
a(18,17)=.3096334815052354314802658810823658907325235844531318754050068324709258105543338930304e-1;
a(19,1)=-.9776673260040047976710026469624134014469714141641816253185153958371390334954366206102e-1;
a(19,2)=0;
a(19,3)=0;
a(19,4)=0;
a(19,5)=0;
a(19,6)=-.6005539308646711394173617417282635784603029781694346062080009050806164919590318269156;
a(19,7)=.1585222658367901823092810289995660365558277114283363946284113044047141269675809741481e-2;
a(19,8)=.3026658851734428583799288358366834830670493200050903757742452562250879940584583879948;
a(19,9)=.4285248952296136656501504776128834912424841890282487604085652387338305228046948965999;
a(19,10)=-.2494936049956423479331713062821820760626388763661853215936426940474748269791918051828e-1;
a(19,11)=.2011342149874705950638155217740310555133571768677965217932407885434178872356469888792e-1;
a(19,12)=.1265809640150575117740069284741749647793461966567090378701137188708013785394651655531;
a(19,13)=-.7625505511021937468044360160133448561674800889340550320120549846220783051800508863794e-2;
a(19,14)=.2257683215130023640661938534278959810874704491725768321513002364066193853427895981087;
a(19,15)=-.2745492489167708483879226183906024865124767290578864277433486220883760763766017543321e-1;
a(19,16)=.7783761260627937338705544952370637303437265442198231246348540202794422441986844495010e-2;
a(19,17)=.1680830476266175444138000910160343423421707378563384687234091879582812751321589095322e-4;
a(19,18)=-.2135549195295375067495229039525877007339581782873806009604806379884885927885993014667e-1;
a(20,1)=.4918722777774214635454694806095471334564471116346374258920200467475606642975663633169e-1;
a(20,2)=0;
a(20,3)=0;
a(20,4)=0;
a(20,5)=0;
a(20,6)=.8381198329740939383758467268684128106638290469173528975872944409244863365387981657651e-1;
a(20,7)=.9031585241436450659339626877786556727134244569192456020771509670971435444573825121328e-5;
a(20,8)=.9729721702550808557495179062390587533407132090396133365371679075124515126725605224924e-1;
a(20,9)=-.7780700010332922911083090560520956762627768671838912755501179322945892692289272010345e-1;
a(20,10)=.2322816011687352870985186646759446719321113455516507860765563208248738749278233611786;
a(20,11)=-.1069713522971685698540328329852038445947544770807964964519088069861375575524890552230e-1;
a(20,12)=-.1273357855008010164642613326804825893357151796749893640146110897003842493364412495521;
a(20,13)=.1195596306045770335798408097988199315656849089154404333183111529360783290389646594900;
a(20,14)=.1268882175226586102719033232628398791540785498489425981873111782477341389728096676737;
a(20,15)=.2044989775051124744376278118609406952965235173824130879345603271983640081799591002045e-1;
a(20,16)=-.3909856506984242164691157929655038995858933888334921275260056794557284704385445582377e-2;
a(20,17)=-.9117410119332842109125953032188840693633119317454401715027062207348542639139803659651e-5;
a(20,18)=.1126093151077456154585623418197514536662349793737574398626301058923382946852045056475e-1;
a(20,19)=-.3209868434922071245903287586373535845929558438862699119277778588606558307508436673461;
a(21,1)=.5247404461891304721708365639844356354386624470737997647397329116437616959059854701778;
a(21,2)=0;
a(21,3)=0;
a(21,4)=.7610651429965941990931946190296373660533922130208900643092560661920652146268815424885e-1;
a(21,5)=-2.135538596825204678401302463372339475781988628449683891486081018353295131152366999963;
a(21,6)=2.119016745189825526524339470866652730733632823644186992594087231585247087949150559862;
a(21,7)=0;
a(21,8)=0;
a(21,9)=-.6068669292751351984511141135476525247489731841233590933089036540462466843434512014723;
a(21,10)=-.6975023816048118989159659127206041759560640169551283418432821453966450135301718130674;
a(21,11)=-.2539552135383387231958801508125376392283214913791972115937570999107334296436460657368e-1;
a(21,12)=0;
a(21,13)=0;
a(21,14)=0;
a(21,15)=0;
a(21,16)=0;
a(21,17)=0;
a(21,18)=.2539552135383387231958801508125376392283214913791972115937570999107334296436460657368e-1;
a(21,19)=.6975023816048118989159659127206041759560640169551283418432821453966450135301718130674;
a(21,20)=.6068669292751351984511141135476525247489731841233590933089036540462466843434512014723;
a(22,1)=.3850951504524952575244726520324404860898823844950484490138343541601000605579674908780e-1;
a(22,2)=0;
a(22,3)=0;
a(22,4)=.9889604363651382462812798900870548282288802143553903392828423536490053424426345577709e-4;
a(22,5)=.1258652731216402762123982910182735616976625577395859318541619645591514091994326716669;
a(22,6)=0;
a(22,7)=.1148546657824708136802241649776446744025406100582655444423341878411637297467351936831;
a(22,8)=0;
a(22,9)=-.1299246462925958527077352114079744607750386324042347411360003531859939834460301561195;
a(22,10)=-.3664591598580916638621456622089859363144583004356560608229075984337239720284817960193;
a(22,11)=0;
a(22,12)=0;
a(22,13)=0;
a(22,14)=0;
a(22,15)=0;
a(22,16)=0;
a(22,17)=0;
a(22,18)=0;
a(22,19)=.3664591598580916638621456622089859363144583004356560608229075984337239720284817960193;
a(22,20)=.1299246462925958527077352114079744607750386324042347411360003531859939834460301561195;
a(22,21)=-.1148546657824708136802241649776446744025406100582655444423341878411637297467351936831;
a(23,1)=.2175227402212137286104398734798923400326123258875071216675507357419304139407870179368;
a(23,2)=.2254597159191371485825425826604585371603701302528437555254317203984204632521954382036;
a(23,3)=0;
a(23,4)=0;
a(23,5)=0;
a(23,6)=-.7003676470588235294117647058823529411764705882352941176470588235294117647058823529412;
a(23,7)=-.3841432262252079340469853296205751191707035527677198880717241749265840367609120672261;
a(23,8)=0;
a(23,9)=0;
a(23,10)=0;
a(23,11)=0;
a(23,12)=0;
a(23,13)=0;
a(23,14)=0;
a(23,15)=0;
a(23,16)=0;
a(23,17)=0;
a(23,18)=0;
a(23,19)=0;
a(23,20)=0;
a(23,21)=.3841432262252079340469853296205751191707035527677198880717241749265840367609120672261;
a(23,22)=.7003676470588235294117647058823529411764705882352941176470588235294117647058823529412;
a(24,1)=.4351851851851851851851851851851851851851851851851851851851851851851851851851851851852;
a(24,2)=0;
a(24,3)=-.4244806610219170956648818689597945762515945523075081224120777274585003570971510665439;
a(24,4)=0;
a(24,5)=0;
a(24,6)=0;
a(24,7)=0;
a(24,8)=0;
a(24,9)=0;
a(24,10)=0;
a(24,11)=0;
a(24,12)=0;
a(24,13)=0;
a(24,14)=0;
a(24,15)=0;
a(24,16)=0;
a(24,17)=0;
a(24,18)=0;
a(24,19)=0;
a(24,20)=0;
a(24,21)=0;
a(24,22)=0;
a(24,23)=.4244806610219170956648818689597945762515945523075081224120777274585003570971510665439;
a(25,1)=14.54990971513478580914495526598245283940024810265087163382498896386800769812364397026;
a(25,2)=-2.609444444444444444444444444444444444444444444444444444444444444444444444444444444444;
a(25,3)=-2.016004609236637754870351028563643794559738431497207211298306162299623087053267335725;
a(25,4)=0;
a(25,5)=0;
a(25,6)=-1.666875;
a(25,7)=-1.840010137609049715480551028603992780751854184812582730319893278211480604766702319850;
a(25,8)=0;
a(25,9)=112.8850026879393650927243496060343039004107661597559344830054269802155904451112935844;
a(25,10)=123.3942086822776167534198661922997568027612066045886506351026838994566451157760161079;
a(25,11)=-.7912126656078716671206667350992937018785263673658058027818457299775466324638082312137;
a(25,12)=-50.05149873558555185701853277950418028083920384013973228797374663569746882026502756132;
a(25,13)=24.88778291494286023489265916235844707524170235927746532159915897878512972222657954044;
a(25,14)=-212.1164197057320847511194729602871445996396409264694299135694995667783941778631290781;
a(25,15)=-17.89082255740024165397920079197116480379826062999613139163493416384514698556677051724;
a(25,16)=2.509716434086569985363077956674238286724267256774032757480361264001771307725305753519;
a(25,17)=.1162475886937088360535666476065014131326443901611275096836079807311057386735832665899;
a(25,18)=.5840328281597421751021178306186155103094570763962374837158281176580253234011237044692;
a(25,19)=1.584417806712708397483834073813399023446091584920600008797782958694409008929749703075;
a(25,20)=1.338635006378392645053446531474068534729248229446179562750186952887872256191439757181;
a(25,21)=1.840010137609049715480551028603992780751854184812582730319893278211480604766702319850;
a(25,22)=1.666875;
a(25,23)=2.016004609236637754870351028563643794559738431497207211298306162299623087053267335725;
a(25,24)=2.609444444444444444444444444444444444444444444444444444444444444444444444444444444444;
a(26,1)=.4213659219087082450668941175898637044576077571412870755532166081975824639155816025423;
a(26,2)=0;
a(26,3)=0;
a(26,4)=0;
a(26,5)=0;
a(26,6)=2.360375290413766425107807321597798068298832670876354152068674897991709951684675057597;
a(26,7)=.7887926811836902144270824477231365437442962856383491851349713361086542561144935964760e-1;
a(26,8)=-1.881850641776530466652474803895333308262409829541779704822719782535259533895036456964;
a(26,9)=-1.304700734906095391371228323883517431348033016096248869612640797091741378769699510853;
a(26,10)=.1146971532060496506611311517441641422873299688900135018999537656144573134542692746612;
a(26,11)=-.5223613182942077907170609676910338480915071906000186351215047373740452623507436746018e-2;
a(26,12)=.7134840563194221964556259902880063405282394887795535106616674222878805188799073074497;
a(26,13)=0;
a(26,14)=0;
a(26,15)=0;
a(26,16)=0;
a(26,17)=0;
a(26,18)=0;
a(26,19)=0;
a(26,20)=0;
a(26,21)=0;
a(26,22)=0;
a(26,23)=0;
a(26,24)=0;
a(26,25)=0;
a(27,1)=-1.016867684065179179311540011641152067739527559831057381007428484343486238202737995538;
a(27,2)=0;
a(27,3)=0;
a(27,4)=0;
a(27,5)=0;
a(27,6)=-7.712044352285817603610736737545203003182107799250377304475316992902646516184627861475;
a(27,7)=-.4034008409374858753410643280039779311650023076266296210030337872976327092081717454860;
a(27,8)=6.739165476490825275476530741799137001781411805688541615342712456896969009075069743117;
a(27,9)=6.014994643407224294180918860565568523540180411761624603152605084567461778121724411633;
a(27,10)=-1.138427387973993086846707441740657423236451007119331997503516596250482644801941463866;
a(27,11)=.5009271973181599563449431362188397685579770251743883251930235916805543539186803311245e-1;
a(27,12)=-3.113250932564715585587456369457050044282973515833171733791753110672694235302567710668;
a(27,13)=0;
a(27,14)=0;
a(27,15)=0;
a(27,16)=0;
a(27,17)=0;
a(27,18)=0;
a(27,19)=0;
a(27,20)=0;
a(27,21)=0;
a(27,22)=0;
a(27,23)=0;
a(27,24)=0;
a(27,25)=0;
a(27,26)=1.384086184284282287144691407184059663080846182736441247635994288225760468937471545692;
a(28,1)=1.131093475949031458408970675798323789793651098141584053672723684523337489654810813567;
a(28,2)=0;
a(28,3)=0;
a(28,4)=0;
a(28,5)=0;
a(28,6)=-11.30475611955440577592346561419842170756276153921836803995513790246783417109406727002;
a(28,7)=.8673508908529372037894544277195364499375277491231106383198729858086287127092489733738e-1;
a(28,8)=4.971317844154333915807514558966554931901059536397301577948574837963960265600948244094;
a(28,9)=14.86493772010299652718002500847699984298963300991290479767277341466986550270499895786;
a(28,10)=-5.526130551905351405702373768620234518347747212552226033118137855980983127699224086148;
a(28,11)=.1017790491986200061558195486579246543940163889995857946318495764475820398967567810759;
a(28,12)=-5.412708567655345677389304794550103449135846140313886894023804835964789906470796078495;
a(28,13)=0;
a(28,14)=0;
a(28,15)=0;
a(28,16)=0;
a(28,17)=0;
a(28,18)=0;
a(28,19)=0;
a(28,20)=0;
a(28,21)=0;
a(28,22)=0;
a(28,23)=0;
a(28,24)=0;
a(28,25)=0;
a(28,26)=2.119905903216124397337756706998226742489167533804374626293399155463227287948398852330;
a(28,27)=-.1603789707964253713820928925063521366431305782887091520824325014403564569409562398070;
a(29,1)=46.12864603958015905056850990838704062569763496465412763519385202873225169326091596022;
a(29,2)=0;
a(29,3)=0;
a(29,4)=0;
a(29,5)=0;
a(29,6)=27.91300163119399908845158457840426795358131126287389180101909720743727165524743997096;
a(29,7)=16.11362689862451240990975288339484000039234961533373225370151713993919933068137837655;
a(29,8)=-125.4696763444318726329250646477825268481685879278990572088898486327607587168793188547;
a(29,9)=76.57182020120529497684089567511627659347626021577320126137924234653281598557298427556;
a(29,10)=-48.97805558723490361747755876313897556229903489002597907918723603724236906416246304792;
a(29,11)=-1.242830487244052672528847080627776989497284066852925470069357906835696725179561610962;
a(29,12)=18.85807213383620068645464308722546866214730809725606975205204214283143331463602851729;
a(29,13)=0;
a(29,14)=0;
a(29,15)=0;
a(29,16)=0;
a(29,17)=0;
a(29,18)=0;
a(29,19)=0;
a(29,20)=0;
a(29,21)=0;
a(29,22)=0;
a(29,23)=0;
a(29,24)=0;
a(29,25)=0;
a(29,26)=-8.871982194511738170929283011936752038683182063824370821380217475185779921363890310462;
a(29,27)=-2.069534982695615656321598541301254038890059866116256078922522295738656144906973495868;
a(29,28)=2.046912691678016537956965912259391642243284658827565955103431482290288593093460219351;
b(1)=.2380952380952380952380952380952380952380952380952380952380952380952380952380952380952e-1;
b(2)=-.11;
b(3)=-.17;
b(4)=0;
b(5)=0;
b(6)=-.19;
b(7)=-.21;
b(8)=0;
b(9)=-.23;
b(10)=-.27;
b(11)=-.29;
b(12)=0;
b(13)=.1384130236807829740053502031450331467488136400899412345912671194817223119377730668077;
b(14)=.2158726906049313117089355111406811389654720741957730511230185948039919737765126474781;
b(15)=.2438095238095238095238095238095238095238095238095238095238095238095238095238095238095;
b(16)=.2158726906049313117089355111406811389654720741957730511230185948039919737765126474781;
b(17)=.1384130236807829740053502031450331467488136400899412345912671194817223119377730668077;
b(18)=.29;
b(19)=.27;
b(20)=.23;
b(21)=.21;
b(22)=.19;
b(23)=.17;
b(24)=.11;
b(25)=.2380952380952380952380952380952380952380952380952380952380952380952380952380952380952e-1;
b(26)=0;
b(27)=0;
b(28)=0;
b(29)=0;
b2=b;
b2(1)=.1357267366422036691624508570375039921213961405197383540990729271585608575744367221422e-1;
b2(2)=0;
b2(3)=0;
b2(4)=0;
b2(5)=0;
b2(6)=0;
b2(7)=0;
b2(8)=0;
b2(9)=.1957242608025905233613155193355413222756712243739956539857744660017249157522413539338;
b2(10)=.6188866347435608661616060238380345321740579185698262925072441030810461130118224626650e-1;
b2(11)=.2356461254963383884566009189531765712282459575681722654363888116993755654359289982043;
b2(12)=.9356981277656948171659125355126822887878370575133833270918675400840988929847712528189e-1;
b2(13)=0;
b2(14)=0;
b2(15)=0;
b2(16)=0;
b2(17)=0;
b2(18)=0;
b2(19)=0;
b2(20)=0;
b2(21)=0;
b2(22)=0;
b2(23)=0;
b2(24)=0;
b2(25)=0;
b2(26)=.2788382624223597882496809755901865993371492355322230983832374605891024297949723722505;
b2(27)=.4265887719284871852244002213010235951116369449606049493109912099005098392090245967637;
b2(28)=-.2878025166474501962999477241233861487151201542084751225511851437798538088192303308430;
b2(29)=-.1802605391747162424104685269536402054591231988681564193502526144322952773004003407203e-1;
