function F = k733(k)
   
A = 7/256+1/256*21^(1/2);

h0 = [
A
7*A-5/128
20*A-7/32
28*A-7/16
14*A-7/32
-14*A+35/64
-28*A+35/32
-20*A+7/8
-7*A+11/32
-A+7/128
]';

if (k == 1) | (k == 2)

if k == 1
   B = 1/33265657776681412629632*(1143669615207452182802718460155762471113055-23908827267681199855899583689948421795207040*A-9096078298311323765915*(6908888259343036215029286741851562123083776*A^2-631618284815552078709449150283113030705024*A+14456576594627597331222559374660858557503)^(1/2))^(1/2);
elseif k == 2
   B = 1/33265657776681412629632*(1143669615207452182802718460155762471113055-23908827267681199855899583689948421795207040*A+9096078298311323765915*(6908888259343036215029286741851562123083776*A^2-631618284815552078709449150283113030705024*A+14456576594627597331222559374660858557503)^(1/2))^(1/2);
end
   
C = 1/11590518620431467670157652512*(53592079407148875587283225607026587187632119182859470+2023045359359384952536418982901605537197637762732831801344*B^2*A-27501321797362773266246383967373602620152057124061151232*B^2-1098245236631034489366411780709456257747783845534570240*A)^(1/2);

h1 = [
B
640/7*B*A+2*B
-18956205018422329967246311424/25581577378781689622455*B^3*A+17418411432268754298634240/5116315475756337924491*B^3+155596886984220215050752/730902210822333989213*B*A+3051842094295400610291/730902210822333989213*B
-873115129319434154639439691776/179071041651471827357185*B^3*A+182932174570961961466380288/5116315475756337924491*B^3+221878104049971866146688/5116315475756337924491*B*A+5872898477348370983866/730902210822333989213*B
-4685782289473267171492641112064/639539434469542240561375*B^3*A+45405169270061632285321428992/639539434469542240561375*B^3-4011686875652326832050176/18272555270558349730325*B*A-182767201524923517038307/18272555270558349730325*B
76781418653618858854317129990144/4476776041286795683929625*B^3*A-78971258611119614417071128576/639539434469542240561375*B^3-99801438585668073824274304/127907886893908448112275*B*A-798690589469583957366854/18272555270558349730325*B
-315312845161512697218031/18272555270558349730325*B+28915023838932170594967521067008/639539434469542240561375*B^3*A-257311716206668994898343133184/639539434469542240561375*B^3-24498474262857662760488448/18272555270558349730325*B*A
-342817025338670162996315765604352/4476776041286795683929625*B^3*A+402989850255849190560863961088/639539434469542240561375*B^3+411627633195527871875469952/127907886893908448112275*B*A+2080124974149184391695862/18272555270558349730325*B
1444578542889494229549056/72270613330644841*B^3*A-39400353432189528670208/258109333323731575*B^3-34956986594464566272/51621866664746315*B*A-394519325598785518/7374552380678045*B
370056941152943401336832/51621866664746315*B^3*A-15953871393017683820544/258109333323731575*B^3-4042205484101420288/7374552380678045*B*A-33802953410867684/7374552380678045*B
]';

h2 = [
C
640/7*C*A+2*C
-68085370722427561999148253184/63042288169999389628125*C*B^2*A+475309046045667553242570752/63042288169999389628125*C*B^2+170390902788110731408768/600402744476184663125*C*A-5754673322305010180573/7204832933714215957500*C
-3031985375929723303883019124736/441296017189995727396875*C*B^2*A+515743269419451678153838592/9006041167142769946875*C*B^2+1071249590397984824197216/12608457633999877925625*C*A-16870709428411599024503/3602416466857107978750*C
-709836958538604080727879319552/189126864509998168884375*C*B^2*A+1177049742984526205988241408/27018123501428309840625*C*B^2-4536137420477575937557888/5403624700285661968125*C*A-9581334729016116879421/1543892771510189133750*C
5585349383183699545666729541632/88259203437999145479375*C*B^2*A-2310243731797688630453641216/4202819211333292641875*C*B^2-5549644845092449855223872/2521691526799975585125*C*A+1334372647539495628958/360241646685710797875*C
-36373705643062909006069874819072/441296017189995727396875*C*B^2*A+44250606979065990717171212288/63042288169999389628125*C*B^2+58156727623558316701234432/12608457633999877925625*C*A+107610996602893551059963/7204832933714215957500*C
40835483804163611111935007260672/1323888051569987182190625*C*B^2*A-49286737003139155123975794688/189126864509998168884375*C*B^2-76879243705972924923384032/37825372901999633776875*C*A-15365134451490576681017/1543892771510189133750*C
0
0
]';

elseif (k == 3) | (k == 4)

if k == 3
   B = 1/188788540945357952*(48466980846931897102088579270655-983245269816062943610766036051840*A+51621866664746315*(362790847485380478974462266064896*A^2-26998021636070769168881055403904*A+480419612082462247915209800863)^(1/2))^(1/2);
elseif k == 4
   B = 1/188788540945357952*(48466980846931897102088579270655-983245269816062943610766036051840*A-51621866664746315*(362790847485380478974462266064896*A^2-26998021636070769168881055403904*A+480419612082462247915209800863)^(1/2))^(1/2);
end
   
C = 1/56538280293200*(2168461700908060479940235+175382233365724650317149110272*B^2*A+89936081632916799286902784*B^2-54394341069642946454741120*A)^(1/2);

h1 = [
B
640/7*B*A+2*B
1218957733/7632057275*B-134444395102470144/267122004625*B^3*A+863072521388032/267122004625*B^3+2168159768064/7632057275*B*A
-21199367274/7632057275*B-6035408946332696576/1869854032375*B^3*A+6977879226466304/267122004625*B^3+9329628464256/53424400925*B*A
-221783756423/22896171825*B-2085565836795314176/801366013875*B^3*A+22620684929302528/801366013875*B^3-12585779605504/22896171825*B*A
-50989306138/7632057275*B+46296366289485037568/1869854032375*B^3*A-55893841716559872/267122004625*B^3-121271887913088/53424400925*B*A
-7522839167816957952/373970806475*B^3*A+8554713706430464/53424400925*B^3+25975933409792/10684880185*B*A+49734719267/1526411455*B
-13267516402/915846873*B-512395464518139904/160273202775*B^3*A+5308410155450368/160273202775*B^3+3105440390528/4579234365*B*A
-10123814/3296785*B+116541632806912/32308493*B^3*A-3477306179584/115387475*B^3-13594541056/23077495*B*A
3165068/3296785*B+29543593148416/23077495*B^3*A-69530370048/6073025*B^3-43492096/173515*B*A
]';

h2 = [
C
640/7*C*A+2*C
-48314155147039/21153268376100*C-310038519908112269312/185091098290875*C*B^2*A+2509475797778702336/185091098290875*C*B^2+1972605653279872/5288317094025*C*A
-13090099811681/1175181576450*C-1509535884991014633472/143959743115125*C*B^2*A+5709943759822680064/61697032763625*C*B^2+7078984461222496/12339406552725*C*A
50322299443017839280128/1295637688036125*C*B^2*A-62051511994469875712/185091098290875*C*B^2-164664723680272768/37018219658175*C*A+114865485048569/10576634188050*C
32215683414856/5288317094025*C-47749264145970868781056/1295637688036125*C*B^2*A+8325827189830623232/26441585470125*C*B^2+177722210906582336/37018219658175*C*A
-10984834305329/1410217891740*C+648418001289911730176/86375845869075*C*B^2*A-109273797914140672/1762772364675*C*B^2-264788146761984/274209034505*C*A
2665495745237/2115326837610*C+14109335868899065856/5288317094025*C*B^2*A-878967326121291776/37018219658175*C*B^2-449737237435552/1057663418805*C*A
0
0
]';

elseif (k == 5) | (k == 6)

if k == 5
   B = -1/421988480*(484926687032655-9535041965805440*A+23077495*(170713507906207744*A^2-11419307696671616*A+169606415611927)^(1/2))^(1/2);
elseif k == 6
   B = -1/421988480*(484926687032655-9535041965805440*A-23077495*(170713507906207744*A^2-11419307696671616*A+169606415611927)^(1/2))^(1/2);
end
   
C = -1/151764040252182895546080*(-58989258302518894587632769791362130918348910+3848151610865189741151828772397599970503006617600*B^2*A+28744089220769467970154767193597855426991718400*B^2+864670941504079952261124570016181791422293760*A)^(1/2);

h1 = [
B
640/7*B*A+2*B
-1444927673113000213/2048650651352360901*B-5203811293263046975160320/14340554559466526307*B^3*A+34406404399055785984000/14340554559466526307*B^3+620922719571416355328/2048650651352360901*B*A
-3585147956221854866/682883550450786967*B-77655551518164532917698560/33461293972088561383*B^3*A+90695562480399781478400/4780184853155508769*B^3+1092577070298953913984/4780184853155508769*B*A
-42314393997434519957/3414417752253934835*B+196742688958055917358678016/33461293972088561383*B^3*A-212381366031363128393728/4780184853155508769*B^3-43540914883261331542016/23900924265777543845*B*A
233644751157047517698/10243253256761804505*B-20907444062232700572925952/14340554559466526307*B^3*A+105207945501869765476352/14340554559466526307*B^3+4106270648273229642112/10243253256761804505*B*A
-5765746660505667081/3414417752253934835*B-83306858692484923897413632/33461293972088561383*B^3*A+100175139451639589666816/4780184853155508769*B^3+26408068305383404442112/23900924265777543845*B*A
-21516190290000716998/3414417752253934835*B-711724355641328332177408/4780184853155508769*B^3*A+11594082955585759920128/4780184853155508769*B^3+491634593261260608128/3414417752253934835*B*A
48026588364166922240000/72270613330644841*B^3*A-57319654266299187200/10324373332949263*B^3-3324201852365347840/10324373332949263*B*A-247628478364310/1474910476135609*B
2434971868445016064000/10324373332949263*B^3*A-21776534696776089600/10324373332949263*B^3-190470692623663360/1474910476135609*B*A+1027518993178220/1474910476135609*B
]';

h2 = [
C
640/7*C*A+2*C
-232783294224520553/11320644997903500*C-219715425923642547503104/27735580244863575*C*B^2*A+270164976282465329152/3962225749266225*C*B^2+65010164133218036864/19811128746331125*C*A
56079110652856139/1886774166317250*C+182187361998735321595904/9245193414954525*C*B^2*A-222448226700805271552/1320741916422075*C*B^2-55993280545558125664/6603709582110375*C*A
-18664617197293/5989759258150*C-7571094443104532430848/616346227663635*C*B^2*A+27075492831456919552/264148383284415*C*B^2+6833777580050637184/1320741916422075*C*A
-5804984165787238/404308749925125*C-8588643845956919361536/3962225749266225*C*B^2*A+1714717150495514624/80861749985025*C*B^2+3298267055802688576/2830161249475875*C*A
11277684428875189/3773548332634500*C+18222516431965875863552/9245193414954525*C*B^2*A-22628539722261733376/1320741916422075*C*B^2-5898334400298783232/6603709582110375*C*A
4388220861995681/1886774166317250*C+919311785378159525888/1320741916422075*C*B^2*A-8362736619799441408/1320741916422075*C*B^2-107002469630003936/314462361052875*C*A
0
0
]';

elseif (k == 7) | (k == 8)

if k == 7
   B = -1/943942704726789760*(6578201978966350292765101973134695-104333096265894924273013815357119360*A+51621866664746315*(4084856293924899386173801214704500736*A^2-348535195340540527230057279096543104*A+8565695844712398123959415174607663)^(1/2))^(1/2);
elseif k == 8
   B = -1/943942704726789760*(6578201978966350292765101973134695-104333096265894924273013815357119360*A-51621866664746315*(4084856293924899386173801214704500736*A^2-348535195340540527230057279096543104*A+8565695844712398123959415174607663)^(1/2))^(1/2);
end
   
C = -1/89351410301958635671897937392513400*(-719485888242130093256353940677539969891570027678997754363099416126770+2305151627253673582784670512673370366832559533138921360115516547085107200*B^2*A+208156044140633914985290914538025738961264503016805280562472187466444800*B^2+31269097019352092372197477412831687980821178881106509197010982012054720*A)^(1/2);

h1 = [
B
640/7*B*A+2*B
-1435980106392218940359240771960832/6310675382586770540051755517*B^3*A+849537003379343267588912480256/901525054655252934293107931*B^3+2372679902038289387483738424832/4507625273276264671465539655*B*A-400730498636670599699941441/643946467610894953066505665*B
28550629156767136137156916936704/128789293522178990613301133*B^3*A+106980218753333908087769055232/901525054655252934293107931*B^3-299034478587756325852282937728/643946467610894953066505665*B*A-11027932291305076949357993182/643946467610894953066505665*B
2115323904252992862744302640431104/6310675382586770540051755517*B^3*A-2966097658595752954212900831232/901525054655252934293107931*B^3-5921574628898871432093780987904/4507625273276264671465539655*B*A+10597628455656338302296447817/643946467610894953066505665*B
-186979829850528138698965777383424/901525054655252934293107931*B^3*A+842123601561936220282819231744/901525054655252934293107931*B^3+425801134328382960092870231424/643946467610894953066505665*B*A+3621661089440393601638626386/643946467610894953066505665*B
-1375934958728041892100054135603200/6310675382586770540051755517*B^3*A+1655009224812962578244002611200/901525054655252934293107931*B^3+746218871718119064629233937920/901525054655252934293107931*B*A-736608162636584156707111975/128789293522178990613301133*B
-201644087266919864654154956800/901525054655252934293107931*B^3*A+198226949880807245016387174400/901525054655252934293107931*B^3+4903919449941244170804888960/128789293522178990613301133*B*A-413175766582616226047882010/128789293522178990613301133*B
902861589305933893468160000/12734509617635853272281*B^3*A-985008835804738216755200/1819215659662264753183*B^3-483267588478451911613440/1819215659662264753183*B*A+234136140684700553290/259887951380323536169*B
180126391418905167020/259887951380323536169*B+46257117644117925167104000/1819215659662264753183*B^3*A-398846784825442095513600/1819215659662264753183*B^3-26284764140739471765760/259887951380323536169*B*A
]';

h2 = [
C
-202861285139595933482242539520/9723838184289469629031713*C*B^2*A+255031177180610185059202334720/204200601870078862209665973*C*B^2+8181923205157202962226913664/29171514552868408887095139*C*A-51569511277721558405191234/3241279394763156543010571*C
25823854389018593021088726983928971264/505965188304653353600177202909805*C*B^2*A-1479053097086588930614370887924097024/505965188304653353600177202909805*C*B^2-238205820088895895101324814070052224/361403705931895252571555144935575*C*A+47487730935659660656084172986228111/1445614823727581010286220579742300*C
-15166914672728209599154815495180910592/505965188304653353600177202909805*C*B^2*A+15434345759405063028980824647446528/10325820169482721502044432712445*C*B^2+123645145823762581229040630703389472/361403705931895252571555144935575*C*A-1605163254360485542504708353840197/103258201694827215020444327124450*C
-555697116723897274822787714010578944/72280741186379050514311028987115*C*B^2*A+297418189387240418583388922508771328/505965188304653353600177202909805*C*B^2+46345282672389910727022573697113728/361403705931895252571555144935575*C*A-4787464872372220593925592096083921/722807411863790505143110289871150*C
2766278158263488818959139323155316736/505965188304653353600177202909805*C*B^2*A-16872518688256227275793598378221568/72280741186379050514311028987115*C*B^2-19327016237569279174169360082723776/361403705931895252571555144935575*C*A+118725642823765809221962462545488/51629100847413607510222163562225*C
203789540969213177998296017569054720/101193037660930670720035440581961*C*B^2*A-15476028407866203763787504623083520/101193037660930670720035440581961*C*B^2-484987842372609099804394063112704/14456148237275810102862205797423*C*A+96310058290764591816408647011831/57824592949103240411448823189692*C
658775011846140756849608960245760/101193037660930670720035440581961*C*B^2*A-105454161950792133585727499816960/4818716079091936700954068599141*C*B^2-67925162192971635770649801387232/14456148237275810102862205797423*C*A+1091054743708330713322170188557/4130328067793088600817773084978*C
0
0
]';

end

F = [h0; h1; h2]/sqrt(2);


