(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 1852047, 44031] NotebookOptionsPosition[ 1846561, 43960] NotebookOutlinePosition[ 1846976, 43977] CellTagsIndexPosition[ 1846933, 43974] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "A", ",", "a", ",", "B", ",", "b", ",", "pmax", ",", "qmax", ",", "Comm", ",", "msize", ",", "Eqn", ",", "Collectrule", ",", "ASym", ",", "BSym", ",", "CommSym", ",", "MatrixFormCollect", ",", "MatrixFormCollectDeleteZeros", ",", "ListToHoldedPlus", ",", "ScriptLift", ",", "ScriptLiftSym"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.8406998626503468`*^9, 3.840699864386554*^9}, { 3.840748345239275*^9, 3.8407483458172197`*^9}, {3.840755069183525*^9, 3.840755087152954*^9}, {3.84075515592045*^9, 3.8407551725115266`*^9}, { 3.8407582808121243`*^9, 3.840758281357278*^9}, {3.840758490603115*^9, 3.8407584910593505`*^9}, {3.840760409570463*^9, 3.840760411690305*^9}, 3.8407607234637227`*^9, {3.8407651921033535`*^9, 3.840765197893005*^9}, { 3.84096259433912*^9, 3.8409625982596655`*^9}, {3.8409627615909567`*^9, 3.840962763464903*^9}, 3.84096451516776*^9, {3.8409694743335724`*^9, 3.840969474583912*^9}, {3.8410185911763544`*^9, 3.841018591505083*^9}, { 3.841196166888709*^9, 3.84119616731542*^9}}, CellLabel-> "In[603]:=",ExpressionUUID->"376bbb6f-a541-45a3-ac16-c0e2b94b1857"], Cell["\<\ 2021-09-18: coded and checked on Mathematica 12.1. (The displays might be \ distorted in another version.) 2025-08-08: also worked on Mathematica 14.2.\ \>", "Text", CellChangeTimes->{{3.840965137879939*^9, 3.8409651827582154`*^9}, 3.840965226750615*^9, {3.840965330350638*^9, 3.8409653897743583`*^9}, { 3.8410453676672497`*^9, 3.841045381626053*^9}, {3.8411053199893107`*^9, 3.841105344345882*^9}, {3.8411054876009464`*^9, 3.8411055192663827`*^9}, { 3.9636613723163853`*^9, 3.963661372667225*^9}},ExpressionUUID->"dd2b0d4c-0a7c-4104-b002-\ f530cb325321"], Cell[TextData[{ StyleBox["\[FilledCircle] Computation of semi-commuting pair of differential \ operators \[FilledCircle]", FontSize->16, FontWeight->"Bold", FontVariations->{"Underline"->True}], StyleBox[" ", FontSize->16, FontWeight->"Bold"] }], "Text", CellChangeTimes->{{3.840962821412001*^9, 3.840962858473071*^9}, { 3.840968880358351*^9, 3.840968882357865*^9}},ExpressionUUID->"03396217-ea2e-4df0-b094-\ 316bd3c70b04"], Cell[TextData[{ Cell[BoxData[{ RowBox[{ RowBox[{ "\[Bullet]We", " ", "write", " ", "two", " ", "matrix", " ", "differential", " ", "operators", " ", "and", " ", "their", " ", "commutator"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ OverscriptBox["L", "^"], " ", "=", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "pmax"], TagBox[ RowBox[{ RowBox[{ TemplateBox[{"A", TagBox[ RowBox[{"(", "n", ")"}], DisplayForm]}, "Superscript"], "[", "x", "]"}], " ", SubsuperscriptBox["\[PartialD]", "x", "n"]}], DisplayForm]}]}], " ", ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ OverscriptBox["M", "^"], " ", "=", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "qmax"], TagBox[ RowBox[{ RowBox[{ TemplateBox[{"B", TagBox[ RowBox[{"(", "m", ")"}], DisplayForm]}, "Superscript"], "[", "x", "]"}], " ", SubsuperscriptBox["\[PartialD]", "x", "m"]}], DisplayForm]}]}], " ", ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"[", RowBox[{ OverscriptBox["L", "^"], ",", OverscriptBox["M", "^"]}], "]"}], "=", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "0"}], RowBox[{"pmax", "+", "qmax"}]], TagBox[ RowBox[{ RowBox[{ TemplateBox[{"Comm", TagBox[ RowBox[{"(", "l", ")"}], DisplayForm]}, "Superscript"], "[", "x", "]"}], SubsuperscriptBox["\[PartialD]", "x", "l"]}], DisplayForm]}]}], " ", ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "and", " ", "their", " ", "components", " ", "in", " ", "the", " ", "following", " ", "code", " ", "are", " ", "denoted", " ", "by"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox[ RowBox[{"(", TemplateBox[{"A", TagBox[ RowBox[{"(", "n", ")"}], DisplayForm]}, "Superscript"], ")"}], "ij"], "[", "x", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "n", "]"}], "[", "x", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox[ RowBox[{"(", TemplateBox[{"B", TagBox[ RowBox[{"(", "m", ")"}], DisplayForm]}, "Superscript"], ")"}], "ij"], "[", "x", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "m", "]"}], "[", "x", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox[ RowBox[{"(", TemplateBox[{"Comm", TagBox[ RowBox[{"(", "l", ")"}], DisplayForm]}, "Superscript"], ")"}], "ij"], "[", "x", "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Comm", "[", RowBox[{"i", ",", "j"}], "]"}], "[", "l", "]"}], "[", "x", "]"}], "."}]}]}]}], CellChangeTimes->{{3.668676605513283*^9, 3.668676813261262*^9}, { 3.668676863805152*^9, 3.668676871074765*^9}, {3.6686769817815647`*^9, 3.6686772214951973`*^9}, {3.6686772578706636`*^9, 3.668677272857691*^9}, { 3.668677306611551*^9, 3.668677314809966*^9}, {3.6686775587226067`*^9, 3.6686776159629087`*^9}, {3.668677687640237*^9, 3.668677710897279*^9}, { 3.6686777419575415`*^9, 3.6686777565067673`*^9}, {3.668677829940898*^9, 3.668677852868339*^9}, {3.668677919505458*^9, 3.668677940459695*^9}, { 3.66867797621376*^9, 3.6686780019522057`*^9}, 3.668678065712923*^9, { 3.6686788521411467`*^9, 3.6686788911768165`*^9}, 3.6686789326198907`*^9, 3.6686789676335554`*^9, 3.6686790786177583`*^9, 3.6686791470412803`*^9, { 3.668679269934701*^9, 3.668679292580742*^9}, {3.668679364189476*^9, 3.668679375551296*^9}, {3.668679489238899*^9, 3.6686795041837254`*^9}, { 3.6686796047041073`*^9, 3.6686796449355826`*^9}, {3.6686796910818644`*^9, 3.6686797004654818`*^9}, {3.6686797526267743`*^9, 3.6686798279037085`*^9}, {3.6686798778239994`*^9, 3.668679985915395*^9}, { 3.668683603327124*^9, 3.6686836060113287`*^9}, {3.669134013293061*^9, 3.66913405896795*^9}, {3.669134097753019*^9, 3.6691341086030383`*^9}, { 3.6691341523473167`*^9, 3.6691343537272816`*^9}, {3.669134395376359*^9, 3.669134434251429*^9}, {3.6691344982413445`*^9, 3.6691345395672183`*^9}, { 3.6691347680304346`*^9, 3.6691348143149185`*^9}, {3.669134923632315*^9, 3.6691351663785567`*^9}, {3.6691352109692373`*^9, 3.6691352147006435`*^9}, {3.669135249844906*^9, 3.669135254533915*^9}, { 3.6691352852219706`*^9, 3.66913532058644*^9}, {3.6691353725645328`*^9, 3.6691354096083994`*^9}, {3.6691354503906727`*^9, 3.66913548787234*^9}, { 3.6691355467676463`*^9, 3.669135550617655*^9}, {3.66913558697412*^9, 3.669135591047727*^9}, {3.669135673331479*^9, 3.6691357162193556`*^9}, { 3.66913637833356*^9, 3.6691363865421743`*^9}, {3.6691364214956374`*^9, 3.669136427895649*^9}, {3.6691429312712126`*^9, 3.6691431909934826`*^9}, { 3.66914352814909*^9, 3.6691435320334964`*^9}, {3.669143576877178*^9, 3.6691436641543355`*^9}, {3.669144012988764*^9, 3.669144055649041*^9}, { 3.669144792810973*^9, 3.669144808670602*^9}, 3.669144870897313*^9, { 3.669145158459632*^9, 3.6691451594268336`*^9}, {3.6691456276308784`*^9, 3.6691456535419245`*^9}, {3.6691456933047996`*^9, 3.669145728282462*^9}, { 3.6691459829729195`*^9, 3.6691460259025955`*^9}, {3.6691460592250557`*^9, 3.6691460707066755`*^9}, {3.669146120686965*^9, 3.6691461262249746`*^9}, 3.6691502195739527`*^9, {3.7155849568134747`*^9, 3.7155851241380453`*^9}, {3.7155851741409054`*^9, 3.715585322735404*^9}, { 3.715585374559368*^9, 3.715585387496108*^9}, {3.71558543524984*^9, 3.7155854592882147`*^9}, {3.7155855849724035`*^9, 3.715585655097414*^9}, { 3.7155858601611433`*^9, 3.715585885722605*^9}, {3.715586197134417*^9, 3.7155862073550014`*^9}, {3.71851406951567*^9, 3.7185141997816257`*^9}, { 3.718514230610407*^9, 3.718514482792613*^9}, {3.7185145613249836`*^9, 3.7185145729378853`*^9}, {3.718514640320331*^9, 3.71851466406841*^9}, { 3.718514720293127*^9, 3.718514747769576*^9}, {3.7185147968455973`*^9, 3.7185148345079217`*^9}, {3.718514892472715*^9, 3.7185149215703135`*^9}, { 3.718514980924719*^9, 3.7185150163119044`*^9}, {3.718515069170537*^9, 3.7185150934346943`*^9}, {3.718515167509858*^9, 3.7185152065929213`*^9}, { 3.71851532800662*^9, 3.7185153608664455`*^9}, {3.718515906939521*^9, 3.7185160257474775`*^9}, {3.7185160733241773`*^9, 3.7185160850248723`*^9}, {3.718516150044628*^9, 3.718516167598793*^9}, 3.718517706819808*^9, {3.7185179266079082`*^9, 3.7185179525291653`*^9}, { 3.7185180140163574`*^9, 3.7185180154334464`*^9}, 3.7185183054624453`*^9, 3.718518339374579*^9, {3.7185188132069035`*^9, 3.7185188251910954`*^9}, { 3.7185191903585415`*^9, 3.7185192519511805`*^9}, {3.718523515859912*^9, 3.718523654727809*^9}, {3.71852386212728*^9, 3.718523916872706*^9}, { 3.718524009208151*^9, 3.7185240475064754`*^9}, {3.7185240867620015`*^9, 3.7185241166103315`*^9}, {3.7185241761047845`*^9, 3.7185242043868976`*^9}, {3.71852427420487*^9, 3.718524309544072*^9}, { 3.7185244502609406`*^9, 3.7185244735623317`*^9}, {3.7185245392013903`*^9, 3.7185245677571993`*^9}, {3.7185246510194907`*^9, 3.7185246815956516`*^9}, {3.718524742451357*^9, 3.718524766796489*^9}, { 3.7185248323717937`*^9, 3.718524862829916*^9}, {3.7185249289869657`*^9, 3.7185249589771757`*^9}, {3.7185250495729914`*^9, 3.7185250893760724`*^9}, {3.718525169660263*^9, 3.7185252037699285`*^9}, { 3.7185252451022015`*^9, 3.718525246081569*^9}, {3.718525280814396*^9, 3.7185253686600714`*^9}, {3.718533509745361*^9, 3.718533621472438*^9}, { 3.7185336652533755`*^9, 3.7185337109878206`*^9}, {3.718533742309761*^9, 3.718533814361765*^9}, {3.7185338896972427`*^9, 3.718533927996684*^9}, { 3.718533999037425*^9, 3.7185340990373316`*^9}, {3.7185342374434547`*^9, 3.718534246236583*^9}, {3.718534299919632*^9, 3.718534300647541*^9}, { 3.7185343932979507`*^9, 3.7185344399931264`*^9}, {3.7185344792569723`*^9, 3.718534502221609*^9}, {3.71853459635013*^9, 3.7185346057301626`*^9}, { 3.7185346464403734`*^9, 3.7185346595414615`*^9}, {3.718534731275833*^9, 3.718534753949058*^9}, {3.7185347861371317`*^9, 3.7185348332115917`*^9}, { 3.718534986956379*^9, 3.7185349942297764`*^9}, {3.718538657708495*^9, 3.7185386730543194`*^9}, 3.71854113725769*^9, {3.718541496425022*^9, 3.718541528545675*^9}, {3.718541597677697*^9, 3.718541670949964*^9}, { 3.7185424951034355`*^9, 3.7185425067471013`*^9}, {3.7185425835059023`*^9, 3.7185425844033155`*^9}, {3.718551859253483*^9, 3.7185518829368377`*^9}, { 3.718555897943483*^9, 3.718555918654668*^9}, {3.840062359710498*^9, 3.84006238125691*^9}, {3.840062823133071*^9, 3.840062888647705*^9}, { 3.8400629403193026`*^9, 3.8400630241201286`*^9}, {3.840063238613986*^9, 3.840063255695342*^9}, {3.8400634809542093`*^9, 3.84006352137492*^9}, { 3.840063576312641*^9, 3.840063597973008*^9}, {3.840063649973076*^9, 3.8400637597646055`*^9}, 3.840063855682063*^9, {3.8400676965738115`*^9, 3.8400677361667795`*^9}, {3.840072680800487*^9, 3.840072681571499*^9}, { 3.840150539486353*^9, 3.8401505402364516`*^9}, {3.840150574348457*^9, 3.8401506146527367`*^9}, 3.8401506967331495`*^9, {3.840150800584402*^9, 3.840150893404269*^9}, {3.840150954095889*^9, 3.840151116099772*^9}, { 3.8401512469875937`*^9, 3.840151288492531*^9}, {3.8401513475702744`*^9, 3.8401514263958063`*^9}, {3.8401515236544876`*^9, 3.8401517120996447`*^9}, {3.840151748398049*^9, 3.8401517780429497`*^9}, { 3.8401518151979465`*^9, 3.8401518281747203`*^9}, {3.840151863236946*^9, 3.8401518678675194`*^9}, {3.8401520702884665`*^9, 3.840152090925307*^9}, { 3.840155301199746*^9, 3.840155380810563*^9}, {3.840156751588869*^9, 3.8401568602268276`*^9}, {3.8401569062872543`*^9, 3.8401569447339125`*^9}, {3.8401583088480663`*^9, 3.840158442364006*^9}, { 3.8401584780776615`*^9, 3.840158490953388*^9}, 3.840158635365588*^9, { 3.840159055301305*^9, 3.840159089996771*^9}, {3.8401591296059113`*^9, 3.840159129917841*^9}, {3.840159194285313*^9, 3.8401592063878784`*^9}, { 3.840159250821103*^9, 3.8401592945432053`*^9}, 3.8401600529031057`*^9, { 3.84016198670625*^9, 3.840162006314745*^9}, {3.840162047577321*^9, 3.840162047736292*^9}, {3.8401624624196653`*^9, 3.8401624630732813`*^9}, { 3.8401645265500445`*^9, 3.840164549856371*^9}, 3.840164874775137*^9, { 3.8401672672794223`*^9, 3.8401672754723625`*^9}, {3.840169345422138*^9, 3.8401693550065145`*^9}, {3.8401753191645837`*^9, 3.840175350337929*^9}, { 3.840175422933138*^9, 3.840175501305373*^9}, {3.840176565973245*^9, 3.840176637495947*^9}, {3.8401768234893637`*^9, 3.8401768589242334`*^9}, { 3.840176920796135*^9, 3.8401770809887075`*^9}, {3.8401773383856916`*^9, 3.8401773515163875`*^9}, {3.8402042123102922`*^9, 3.8402042395060406`*^9}, 3.8402046288374557`*^9, 3.84021240345682*^9, {3.8402124534753685`*^9, 3.8402124726979847`*^9}, {3.8406073217524066`*^9, 3.8406073250932837`*^9}, {3.8406078963065276`*^9, 3.8406079018941207`*^9}, {3.8406091270653067`*^9, 3.8406092330239077`*^9}, {3.8406092725408325`*^9, 3.8406093709080954`*^9}, {3.840609420400261*^9, 3.8406094366409025`*^9}, { 3.840609487445097*^9, 3.840609504250366*^9}, {3.84061026089353*^9, 3.840610330229744*^9}, {3.8406104019892626`*^9, 3.8406104210932317`*^9}, { 3.8406104763065977`*^9, 3.840610511049461*^9}, {3.8406127012788763`*^9, 3.840612701424589*^9}, {3.8406129988102045`*^9, 3.8406131458482027`*^9}, { 3.840613185032835*^9, 3.840613238645114*^9}, 3.840613277913649*^9, 3.8406133176179743`*^9, {3.840613445332945*^9, 3.840613518904728*^9}, { 3.840613576363493*^9, 3.8406136314374456`*^9}, {3.8406136703259335`*^9, 3.840613800594298*^9}, {3.8406138454572616`*^9, 3.8406138929291596`*^9}, { 3.8406145018411837`*^9, 3.840614526746681*^9}, {3.8406159731836634`*^9, 3.8406160348933916`*^9}, {3.84061630914672*^9, 3.840616348378207*^9}, { 3.8406163945810795`*^9, 3.840616406224659*^9}, {3.8406165253098617`*^9, 3.8406165299346714`*^9}, {3.840616575478094*^9, 3.840616579838168*^9}, { 3.840616731498263*^9, 3.8406167429461164`*^9}, {3.8406168428111143`*^9, 3.840616897376027*^9}, {3.8406206779690437`*^9, 3.840620682648349*^9}, { 3.8406207276848364`*^9, 3.840620733428303*^9}, {3.8406210216020355`*^9, 3.8406211503909597`*^9}, {3.840623979686429*^9, 3.8406240664633617`*^9}, { 3.8406240980245495`*^9, 3.8406241783123693`*^9}, {3.8406242205548487`*^9, 3.8406242273125257`*^9}, {3.84062467105003*^9, 3.8406247222471924`*^9}, { 3.8406247569556837`*^9, 3.8406252662628326`*^9}, {3.8406255340090427`*^9, 3.8406255492261724`*^9}, {3.8406258447198424`*^9, 3.840626192258951*^9}, { 3.840626238569937*^9, 3.8406262590538216`*^9}, {3.840626294024884*^9, 3.8406263519574013`*^9}, {3.8406264037803383`*^9, 3.8406264045497932`*^9}, {3.8406281719381104`*^9, 3.8406283222994823`*^9}, {3.8406283683259077`*^9, 3.8406284442542925`*^9}, {3.840628481638787*^9, 3.8406284878203306`*^9}, { 3.840628540511854*^9, 3.8406285440673027`*^9}, {3.840628620973291*^9, 3.8406286925793304`*^9}, {3.8406288437994223`*^9, 3.8406288921451416`*^9}, {3.840628942823262*^9, 3.8406289939928913`*^9}, 3.840629042159774*^9, {3.840629591896019*^9, 3.840629637819994*^9}, { 3.840630308805211*^9, 3.8406304114906836`*^9}, {3.840630442023675*^9, 3.840630442619223*^9}, {3.840630492296981*^9, 3.840630496931835*^9}, { 3.8406310472893248`*^9, 3.8406311362663174`*^9}, {3.8406312681990776`*^9, 3.8406312771737337`*^9}, {3.840631356298785*^9, 3.8406313688318815`*^9}, { 3.8406314825779037`*^9, 3.8406314865091963`*^9}, {3.840631554744774*^9, 3.8406316049737015`*^9}, 3.8406317403604374`*^9, {3.840631773388034*^9, 3.840631778235615*^9}, {3.8406318856175766`*^9, 3.840631937976758*^9}, { 3.840632114090581*^9, 3.840632178272401*^9}, {3.840633529500974*^9, 3.840633933231473*^9}, {3.8406340516057205`*^9, 3.8406341223911333`*^9}, { 3.84063415528163*^9, 3.840634320201149*^9}, {3.840634350820157*^9, 3.840634356985038*^9}, {3.8406344894401965`*^9, 3.840634738971182*^9}, { 3.840634799901149*^9, 3.84063480067727*^9}, {3.8406350830831604`*^9, 3.8406351505904107`*^9}, {3.840635208875179*^9, 3.84063520905681*^9}, { 3.8406353931243687`*^9, 3.8406353940131454`*^9}, {3.8406354677901525`*^9, 3.8406354680301933`*^9}, {3.8406357547054768`*^9, 3.8406358358534107`*^9}, {3.8406359030103025`*^9, 3.840635922141003*^9}, { 3.8406359527558784`*^9, 3.8406359878104963`*^9}, {3.8406361032849445`*^9, 3.8406362329123025`*^9}, 3.840636272405296*^9, {3.840636347645917*^9, 3.8406364452903843`*^9}, {3.8406378758430896`*^9, 3.8406379470910625`*^9}, {3.8406379988530746`*^9, 3.840638023582405*^9}, { 3.8406381760145364`*^9, 3.840638253730714*^9}, {3.8406391155969534`*^9, 3.840639200398224*^9}, {3.840639333359426*^9, 3.8406393719937563`*^9}, 3.840639472888164*^9, {3.8406395951765995`*^9, 3.840639602402272*^9}, 3.8406845844711905`*^9, {3.8406846158972054`*^9, 3.840684678497987*^9}, 3.840684784025262*^9, 3.8406848478503714`*^9, {3.8406849331627607`*^9, 3.8406850115344257`*^9}, {3.8406850428322906`*^9, 3.8406850997624245`*^9}, {3.8406867188488007`*^9, 3.840686838211692*^9}, { 3.840686911791442*^9, 3.840686912692556*^9}, {3.8406879109498267`*^9, 3.840687911148444*^9}, {3.840689440294406*^9, 3.8406894414290595`*^9}, 3.840689513755479*^9, 3.8406895594775105`*^9, {3.840693165232476*^9, 3.840693243194742*^9}, {3.8406976355591497`*^9, 3.8406978078183637`*^9}, { 3.840698727697235*^9, 3.8406987902122016`*^9}, {3.840698820979678*^9, 3.840698826031128*^9}, {3.8406998577675133`*^9, 3.84069992480552*^9}, { 3.840699970678713*^9, 3.8407000046783133`*^9}, {3.840700089490403*^9, 3.840700194012043*^9}, {3.8407002842949333`*^9, 3.8407005632050714`*^9}, { 3.840700606510401*^9, 3.840700611691828*^9}, {3.840700641919141*^9, 3.840700667262867*^9}, {3.840700699514847*^9, 3.840700730377691*^9}, { 3.8407007713572245`*^9, 3.840700837012573*^9}, {3.8407011934730873`*^9, 3.840701239673876*^9}, {3.8407012792768717`*^9, 3.8407012868172874`*^9}, { 3.84070132539847*^9, 3.8407013526811852`*^9}, {3.8407013983371587`*^9, 3.840701406008066*^9}, {3.8407014846304336`*^9, 3.840701573183384*^9}, { 3.840701604675478*^9, 3.840701606735585*^9}, {3.8407016496901784`*^9, 3.840701649968079*^9}, {3.8407016958055906`*^9, 3.8407017133173375`*^9}, { 3.840701757874757*^9, 3.84070175963594*^9}, {3.840701842834652*^9, 3.840701848041745*^9}, {3.8407020229694147`*^9, 3.840702049945819*^9}, { 3.8407021607776318`*^9, 3.840702370143668*^9}, {3.8407037247781153`*^9, 3.8407037782041717`*^9}, {3.8407038456672935`*^9, 3.840703882558412*^9}, { 3.840704269261737*^9, 3.8407044298502493`*^9}, {3.8407045137358665`*^9, 3.840704519168676*^9}, {3.8407049939988737`*^9, 3.840705018577838*^9}, { 3.8407050827103252`*^9, 3.840705113537577*^9}, {3.8407430742539377`*^9, 3.840743152407233*^9}, {3.8407444313423443`*^9, 3.8407445332280416`*^9}, { 3.840744590386205*^9, 3.8407445913559303`*^9}, {3.840744712543418*^9, 3.8407447224956875`*^9}, {3.8407447777721405`*^9, 3.8407448585998096`*^9}, {3.840745004497467*^9, 3.840745007339508*^9}, { 3.8407450449171*^9, 3.840745145522975*^9}, {3.840745181147393*^9, 3.8407451848269744`*^9}, {3.8407452248754873`*^9, 3.8407452543071156`*^9}, {3.8407453810518723`*^9, 3.840745397666952*^9}, { 3.840745602820671*^9, 3.8407456196675844`*^9}, {3.8407458233236876`*^9, 3.840746146028006*^9}, {3.8407474832354307`*^9, 3.8407474858599257`*^9}, { 3.8407475166830144`*^9, 3.8407475792956395`*^9}, {3.8407476851961584`*^9, 3.8407477516884384`*^9}, {3.840747873431821*^9, 3.840747873679819*^9}, { 3.840748350928976*^9, 3.840748351514307*^9}, {3.8407484838312035`*^9, 3.840748488048671*^9}, {3.8407486260909357`*^9, 3.840748627278202*^9}, { 3.8407488138406157`*^9, 3.8407488177674494`*^9}, 3.840748859153308*^9, { 3.840748915106464*^9, 3.840748918255212*^9}, {3.840748981840436*^9, 3.840748984864149*^9}, {3.8407550538441095`*^9, 3.840755076717167*^9}, 3.8407551634323835`*^9, {3.8407577737487335`*^9, 3.840757951277053*^9}, { 3.84075816359626*^9, 3.840758164213569*^9}, {3.840758255014513*^9, 3.8407583060332165`*^9}, {3.8407584264498243`*^9, 3.840758486813692*^9}, 3.8407591713171883`*^9, {3.8407604253252897`*^9, 3.8407605041787663`*^9}, 3.8407607217042956`*^9, 3.840764640134676*^9, {3.840769158318996*^9, 3.8407692210407524`*^9}, {3.8407692717289977`*^9, 3.8407692949296*^9}, { 3.840769360121728*^9, 3.840769362987406*^9}, {3.8407694277380505`*^9, 3.8407694478893976`*^9}, {3.840769478063957*^9, 3.840769497136506*^9}, 3.8407696058341227`*^9, {3.8409493440500927`*^9, 3.8409493591772904`*^9}, {3.8409494245299716`*^9, 3.840949479701002*^9}, { 3.840949588408942*^9, 3.840949589361117*^9}, 3.840962615979564*^9, { 3.8409626988114614`*^9, 3.840962710099682*^9}},ExpressionUUID-> "d4518607-8740-4aec-a474-2eb7eeb50874"], "\n\n\[Bullet] Setting larger values for ", StyleBox["pmax", FontWeight->"Bold"], " and ", StyleBox["msize ", FontWeight->"Bold"], "below, a hierarchy with the order and the size of the generating seed \ operator of ", Cell[BoxData[ FormBox[ OverscriptBox["L", "^"], TraditionalForm]],ExpressionUUID-> "eb43f941-e75d-4081-943d-63985b2e9f0a"], " enlarged can be computed. Also, increasing the value of ", StyleBox["qmax", FontWeight->"Bold"], ", we can calculate the higher-order operators and equations in the \ hierarchy. However, setting too large values will require much time and \ memory. \n\n\[Bullet] We assume that ", Cell[BoxData[ TemplateBox[{"A", TagBox[ RowBox[{"(", "pmax", ")"}], DisplayForm]}, "Superscript"]], CellChangeTimes->{{3.668676605513283*^9, 3.668676813261262*^9}, { 3.668676863805152*^9, 3.668676871074765*^9}, {3.6686769817815647`*^9, 3.6686772214951973`*^9}, {3.6686772578706636`*^9, 3.668677272857691*^9}, { 3.668677306611551*^9, 3.668677314809966*^9}, {3.6686775587226067`*^9, 3.6686776159629087`*^9}, {3.668677687640237*^9, 3.668677710897279*^9}, { 3.6686777419575415`*^9, 3.6686777565067673`*^9}, {3.668677829940898*^9, 3.668677852868339*^9}, {3.668677919505458*^9, 3.668677940459695*^9}, { 3.66867797621376*^9, 3.6686780019522057`*^9}, 3.668678065712923*^9, { 3.6686788521411467`*^9, 3.6686788911768165`*^9}, 3.6686789326198907`*^9, 3.6686789676335554`*^9, 3.6686790786177583`*^9, 3.6686791470412803`*^9, { 3.668679269934701*^9, 3.668679292580742*^9}, {3.668679364189476*^9, 3.668679375551296*^9}, {3.668679489238899*^9, 3.6686795041837254`*^9}, { 3.6686796047041073`*^9, 3.6686796449355826`*^9}, {3.6686796910818644`*^9, 3.6686797004654818`*^9}, {3.6686797526267743`*^9, 3.6686798279037085`*^9}, {3.6686798778239994`*^9, 3.668679985915395*^9}, { 3.668683603327124*^9, 3.6686836060113287`*^9}, {3.669134013293061*^9, 3.66913405896795*^9}, {3.669134097753019*^9, 3.6691341086030383`*^9}, { 3.6691341523473167`*^9, 3.6691343537272816`*^9}, {3.669134395376359*^9, 3.669134434251429*^9}, {3.6691344982413445`*^9, 3.6691345395672183`*^9}, { 3.6691347680304346`*^9, 3.6691348143149185`*^9}, {3.669134923632315*^9, 3.6691351663785567`*^9}, {3.6691352109692373`*^9, 3.6691352147006435`*^9}, {3.669135249844906*^9, 3.669135254533915*^9}, { 3.6691352852219706`*^9, 3.66913532058644*^9}, {3.6691353725645328`*^9, 3.6691354096083994`*^9}, {3.6691354503906727`*^9, 3.66913548787234*^9}, { 3.6691355467676463`*^9, 3.669135550617655*^9}, {3.66913558697412*^9, 3.669135591047727*^9}, {3.669135673331479*^9, 3.6691357162193556`*^9}, { 3.66913637833356*^9, 3.6691363865421743`*^9}, {3.6691364214956374`*^9, 3.669136427895649*^9}, {3.6691429312712126`*^9, 3.6691431909934826`*^9}, { 3.66914352814909*^9, 3.6691435320334964`*^9}, {3.669143576877178*^9, 3.6691436641543355`*^9}, {3.669144012988764*^9, 3.669144055649041*^9}, { 3.669144792810973*^9, 3.669144808670602*^9}, 3.669144870897313*^9, { 3.669145158459632*^9, 3.6691451594268336`*^9}, {3.6691456276308784`*^9, 3.6691456535419245`*^9}, {3.6691456933047996`*^9, 3.669145728282462*^9}, { 3.6691459829729195`*^9, 3.6691460259025955`*^9}, {3.6691460592250557`*^9, 3.6691460707066755`*^9}, {3.669146120686965*^9, 3.6691461262249746`*^9}, 3.6691502195739527`*^9, {3.7155849568134747`*^9, 3.7155851241380453`*^9}, {3.7155851741409054`*^9, 3.715585322735404*^9}, { 3.715585374559368*^9, 3.715585387496108*^9}, {3.71558543524984*^9, 3.7155854592882147`*^9}, {3.7155855849724035`*^9, 3.715585655097414*^9}, { 3.7155858601611433`*^9, 3.715585885722605*^9}, {3.715586197134417*^9, 3.7155862073550014`*^9}, {3.71851406951567*^9, 3.7185141997816257`*^9}, { 3.718514230610407*^9, 3.718514482792613*^9}, {3.7185145613249836`*^9, 3.7185145729378853`*^9}, {3.718514640320331*^9, 3.71851466406841*^9}, { 3.718514720293127*^9, 3.718514747769576*^9}, {3.7185147968455973`*^9, 3.7185148345079217`*^9}, {3.718514892472715*^9, 3.7185149215703135`*^9}, { 3.718514980924719*^9, 3.7185150163119044`*^9}, {3.718515069170537*^9, 3.7185150934346943`*^9}, {3.718515167509858*^9, 3.7185152065929213`*^9}, { 3.71851532800662*^9, 3.7185153608664455`*^9}, {3.718515906939521*^9, 3.7185160257474775`*^9}, {3.7185160733241773`*^9, 3.7185160850248723`*^9}, {3.718516150044628*^9, 3.718516167598793*^9}, 3.718517706819808*^9, {3.7185179266079082`*^9, 3.7185179525291653`*^9}, { 3.7185180140163574`*^9, 3.7185180154334464`*^9}, 3.7185183054624453`*^9, 3.718518339374579*^9, {3.7185188132069035`*^9, 3.7185188251910954`*^9}, { 3.7185191903585415`*^9, 3.7185192519511805`*^9}, {3.718523515859912*^9, 3.718523654727809*^9}, {3.71852386212728*^9, 3.718523916872706*^9}, { 3.718524009208151*^9, 3.7185240475064754`*^9}, {3.7185240867620015`*^9, 3.7185241166103315`*^9}, {3.7185241761047845`*^9, 3.7185242043868976`*^9}, {3.71852427420487*^9, 3.718524309544072*^9}, { 3.7185244502609406`*^9, 3.7185244735623317`*^9}, {3.7185245392013903`*^9, 3.7185245677571993`*^9}, {3.7185246510194907`*^9, 3.7185246815956516`*^9}, {3.718524742451357*^9, 3.718524766796489*^9}, { 3.7185248323717937`*^9, 3.718524862829916*^9}, {3.7185249289869657`*^9, 3.7185249589771757`*^9}, {3.7185250495729914`*^9, 3.7185250893760724`*^9}, {3.718525169660263*^9, 3.7185252037699285`*^9}, { 3.7185252451022015`*^9, 3.718525246081569*^9}, {3.718525280814396*^9, 3.7185253686600714`*^9}, {3.718533509745361*^9, 3.718533621472438*^9}, { 3.7185336652533755`*^9, 3.7185337109878206`*^9}, {3.718533742309761*^9, 3.718533814361765*^9}, {3.7185338896972427`*^9, 3.718533927996684*^9}, { 3.718533999037425*^9, 3.7185340990373316`*^9}, {3.7185342374434547`*^9, 3.718534246236583*^9}, {3.718534299919632*^9, 3.718534300647541*^9}, { 3.7185343932979507`*^9, 3.7185344399931264`*^9}, {3.7185344792569723`*^9, 3.718534502221609*^9}, {3.71853459635013*^9, 3.7185346057301626`*^9}, { 3.7185346464403734`*^9, 3.7185346595414615`*^9}, {3.718534731275833*^9, 3.718534753949058*^9}, {3.7185347861371317`*^9, 3.7185348332115917`*^9}, { 3.718534986956379*^9, 3.7185349942297764`*^9}, {3.718538657708495*^9, 3.7185386730543194`*^9}, 3.71854113725769*^9, {3.718541496425022*^9, 3.718541528545675*^9}, {3.718541597677697*^9, 3.718541670949964*^9}, { 3.7185424951034355`*^9, 3.7185425067471013`*^9}, {3.7185425835059023`*^9, 3.7185425844033155`*^9}, {3.718551859253483*^9, 3.7185518829368377`*^9}, { 3.718555897943483*^9, 3.718555918654668*^9}, {3.840062359710498*^9, 3.84006238125691*^9}, {3.840062823133071*^9, 3.840062888647705*^9}, { 3.8400629403193026`*^9, 3.8400630241201286`*^9}, {3.840063238613986*^9, 3.840063255695342*^9}, {3.8400634809542093`*^9, 3.84006352137492*^9}, { 3.840063576312641*^9, 3.840063597973008*^9}, {3.840063649973076*^9, 3.8400637597646055`*^9}, 3.840063855682063*^9, {3.8400676965738115`*^9, 3.8400677361667795`*^9}, {3.840072680800487*^9, 3.840072681571499*^9}, { 3.840150539486353*^9, 3.8401505402364516`*^9}, {3.840150574348457*^9, 3.8401506146527367`*^9}, 3.8401506967331495`*^9, {3.840150800584402*^9, 3.840150893404269*^9}, {3.840150954095889*^9, 3.840151116099772*^9}, { 3.8401512469875937`*^9, 3.840151288492531*^9}, {3.8401513475702744`*^9, 3.8401514263958063`*^9}, {3.8401515236544876`*^9, 3.8401517120996447`*^9}, {3.840151748398049*^9, 3.8401517780429497`*^9}, { 3.8401518151979465`*^9, 3.8401518281747203`*^9}, {3.840151863236946*^9, 3.8401518678675194`*^9}, {3.8401520702884665`*^9, 3.840152090925307*^9}, { 3.840155301199746*^9, 3.840155380810563*^9}, {3.840156751588869*^9, 3.8401568602268276`*^9}, {3.8401569062872543`*^9, 3.8401569447339125`*^9}, {3.8401583088480663`*^9, 3.840158442364006*^9}, { 3.8401584780776615`*^9, 3.840158490953388*^9}, 3.840158635365588*^9, { 3.840159055301305*^9, 3.840159089996771*^9}, {3.8401591296059113`*^9, 3.840159129917841*^9}, {3.840159194285313*^9, 3.8401592063878784`*^9}, { 3.840159250821103*^9, 3.8401592945432053`*^9}, 3.8401600529031057`*^9, { 3.84016198670625*^9, 3.840162006314745*^9}, {3.840162047577321*^9, 3.840162047736292*^9}, {3.8401624624196653`*^9, 3.8401624630732813`*^9}, { 3.8401645265500445`*^9, 3.840164549856371*^9}, 3.840164874775137*^9, { 3.8401672672794223`*^9, 3.8401672754723625`*^9}, {3.840169345422138*^9, 3.8401693550065145`*^9}, {3.8401753191645837`*^9, 3.840175350337929*^9}, { 3.840175422933138*^9, 3.840175501305373*^9}, {3.840176565973245*^9, 3.840176637495947*^9}, {3.8401768234893637`*^9, 3.8401768589242334`*^9}, { 3.840176920796135*^9, 3.8401770809887075`*^9}, {3.8401773383856916`*^9, 3.8401773515163875`*^9}, {3.8402042123102922`*^9, 3.8402042395060406`*^9}, 3.8402046288374557`*^9, 3.84021240345682*^9, {3.8402124534753685`*^9, 3.8402124726979847`*^9}, {3.8406073217524066`*^9, 3.8406073250932837`*^9}, {3.8406078963065276`*^9, 3.8406079018941207`*^9}, {3.8406091270653067`*^9, 3.8406092330239077`*^9}, {3.8406092725408325`*^9, 3.8406093709080954`*^9}, {3.840609420400261*^9, 3.8406094366409025`*^9}, { 3.840609487445097*^9, 3.840609504250366*^9}, {3.84061026089353*^9, 3.840610330229744*^9}, {3.8406104019892626`*^9, 3.8406104210932317`*^9}, { 3.8406104763065977`*^9, 3.840610511049461*^9}, {3.8406127012788763`*^9, 3.840612701424589*^9}, {3.8406129988102045`*^9, 3.8406131458482027`*^9}, { 3.840613185032835*^9, 3.840613238645114*^9}, 3.840613277913649*^9, 3.8406133176179743`*^9, {3.840613445332945*^9, 3.840613518904728*^9}, { 3.840613576363493*^9, 3.8406136314374456`*^9}, {3.8406136703259335`*^9, 3.840613800594298*^9}, {3.8406138454572616`*^9, 3.8406138929291596`*^9}, { 3.8406145018411837`*^9, 3.840614526746681*^9}, {3.8406159731836634`*^9, 3.8406160348933916`*^9}, {3.84061630914672*^9, 3.840616348378207*^9}, { 3.8406163945810795`*^9, 3.840616406224659*^9}, {3.8406165253098617`*^9, 3.8406165299346714`*^9}, {3.840616575478094*^9, 3.840616579838168*^9}, { 3.840616731498263*^9, 3.8406167429461164`*^9}, {3.8406168428111143`*^9, 3.840616897376027*^9}, {3.8406206779690437`*^9, 3.840620682648349*^9}, { 3.8406207276848364`*^9, 3.840620733428303*^9}, {3.8406210216020355`*^9, 3.8406211503909597`*^9}, {3.840623979686429*^9, 3.8406240664633617`*^9}, { 3.8406240980245495`*^9, 3.8406241783123693`*^9}, {3.8406242205548487`*^9, 3.8406242273125257`*^9}, {3.84062467105003*^9, 3.8406247222471924`*^9}, { 3.8406247569556837`*^9, 3.8406252662628326`*^9}, {3.8406255340090427`*^9, 3.8406255492261724`*^9}, {3.8406258447198424`*^9, 3.840626192258951*^9}, { 3.840626238569937*^9, 3.8406262590538216`*^9}, {3.840626294024884*^9, 3.8406263519574013`*^9}, {3.8406264037803383`*^9, 3.8406264045497932`*^9}, {3.8406281719381104`*^9, 3.8406283222994823`*^9}, {3.8406283683259077`*^9, 3.8406284442542925`*^9}, {3.840628481638787*^9, 3.8406284878203306`*^9}, { 3.840628540511854*^9, 3.8406285440673027`*^9}, {3.840628620973291*^9, 3.8406286925793304`*^9}, {3.8406288437994223`*^9, 3.8406288921451416`*^9}, {3.840628942823262*^9, 3.8406289939928913`*^9}, 3.840629042159774*^9, {3.840629591896019*^9, 3.840629637819994*^9}, { 3.840630308805211*^9, 3.8406304114906836`*^9}, {3.840630442023675*^9, 3.840630442619223*^9}, {3.840630492296981*^9, 3.840630496931835*^9}, { 3.8406310472893248`*^9, 3.8406311362663174`*^9}, {3.8406312681990776`*^9, 3.8406312771737337`*^9}, {3.840631356298785*^9, 3.8406313688318815`*^9}, { 3.8406314825779037`*^9, 3.8406314865091963`*^9}, {3.840631554744774*^9, 3.8406316049737015`*^9}, 3.8406317403604374`*^9, {3.840631773388034*^9, 3.840631778235615*^9}, {3.8406318856175766`*^9, 3.840631937976758*^9}, { 3.840632114090581*^9, 3.840632178272401*^9}, {3.840633529500974*^9, 3.840633933231473*^9}, {3.8406340516057205`*^9, 3.8406341223911333`*^9}, { 3.84063415528163*^9, 3.840634320201149*^9}, {3.840634350820157*^9, 3.840634356985038*^9}, {3.8406344894401965`*^9, 3.840634738971182*^9}, { 3.840634799901149*^9, 3.84063480067727*^9}, {3.8406350830831604`*^9, 3.8406351505904107`*^9}, {3.840635208875179*^9, 3.84063520905681*^9}, { 3.8406353931243687`*^9, 3.8406353940131454`*^9}, {3.8406354677901525`*^9, 3.8406354680301933`*^9}, {3.8406357547054768`*^9, 3.8406358358534107`*^9}, {3.8406359030103025`*^9, 3.840635922141003*^9}, { 3.8406359527558784`*^9, 3.8406359878104963`*^9}, {3.8406361032849445`*^9, 3.8406362329123025`*^9}, 3.840636272405296*^9, {3.840636347645917*^9, 3.8406364452903843`*^9}, {3.8406378758430896`*^9, 3.8406379470910625`*^9}, {3.8406379988530746`*^9, 3.840638023582405*^9}, { 3.8406381760145364`*^9, 3.840638253730714*^9}, {3.8406391155969534`*^9, 3.840639200398224*^9}, {3.840639333359426*^9, 3.8406393719937563`*^9}, 3.840639472888164*^9, {3.8406395951765995`*^9, 3.840639602402272*^9}, 3.8406845844711905`*^9, {3.8406846158972054`*^9, 3.840684678497987*^9}, 3.840684784025262*^9, 3.8406848478503714`*^9, {3.8406849331627607`*^9, 3.8406850115344257`*^9}, {3.8406850428322906`*^9, 3.8406850997624245`*^9}, {3.8406867188488007`*^9, 3.840686838211692*^9}, { 3.840686911791442*^9, 3.840686912692556*^9}, {3.8406879109498267`*^9, 3.840687911148444*^9}, {3.840689440294406*^9, 3.8406894414290595`*^9}, 3.840689513755479*^9, 3.8406895594775105`*^9, {3.840693165232476*^9, 3.840693243194742*^9}, {3.8406976355591497`*^9, 3.8406978078183637`*^9}, { 3.840698727697235*^9, 3.8406987902122016`*^9}, {3.840698820979678*^9, 3.840698826031128*^9}, {3.8406998577675133`*^9, 3.84069992480552*^9}, { 3.840699970678713*^9, 3.8407000046783133`*^9}, {3.840700089490403*^9, 3.840700194012043*^9}, {3.8407002842949333`*^9, 3.8407005632050714`*^9}, { 3.840700606510401*^9, 3.840700611691828*^9}, {3.840700641919141*^9, 3.840700667262867*^9}, {3.840700699514847*^9, 3.840700730377691*^9}, { 3.8407007713572245`*^9, 3.840700837012573*^9}, {3.8407011934730873`*^9, 3.840701239673876*^9}, {3.8407012792768717`*^9, 3.8407012868172874`*^9}, { 3.84070132539847*^9, 3.8407013526811852`*^9}, {3.8407013983371587`*^9, 3.840701406008066*^9}, {3.8407014846304336`*^9, 3.840701573183384*^9}, { 3.840701604675478*^9, 3.840701606735585*^9}, {3.8407016496901784`*^9, 3.840701649968079*^9}, {3.8407016958055906`*^9, 3.8407017133173375`*^9}, { 3.840701757874757*^9, 3.84070175963594*^9}, {3.840701842834652*^9, 3.840701848041745*^9}, {3.8407020229694147`*^9, 3.840702049945819*^9}, { 3.8407021607776318`*^9, 3.840702370143668*^9}, {3.8407037247781153`*^9, 3.8407037782041717`*^9}, {3.8407038456672935`*^9, 3.840703882558412*^9}, { 3.840704269261737*^9, 3.8407044298502493`*^9}, {3.8407045137358665`*^9, 3.840704519168676*^9}, {3.8407049939988737`*^9, 3.840705018577838*^9}, { 3.8407050827103252`*^9, 3.840705113537577*^9}, {3.8407430742539377`*^9, 3.840743152407233*^9}, {3.8407444313423443`*^9, 3.8407445332280416`*^9}, { 3.840744590386205*^9, 3.8407445913559303`*^9}, {3.840744712543418*^9, 3.8407447224956875`*^9}, {3.8407447777721405`*^9, 3.8407448585998096`*^9}, {3.840745004497467*^9, 3.840745007339508*^9}, { 3.8407450449171*^9, 3.840745145522975*^9}, {3.840745181147393*^9, 3.8407451848269744`*^9}, {3.8407452248754873`*^9, 3.8407452543071156`*^9}, {3.8407453810518723`*^9, 3.840745397666952*^9}, { 3.840745602820671*^9, 3.8407456196675844`*^9}, {3.8407458233236876`*^9, 3.840746146028006*^9}, {3.8407474832354307`*^9, 3.8407474858599257`*^9}, { 3.8407475166830144`*^9, 3.8407475792956395`*^9}, {3.8407476851961584`*^9, 3.8407477516884384`*^9}, {3.840747873431821*^9, 3.840747873679819*^9}, { 3.840748350928976*^9, 3.840748351514307*^9}, {3.8407484838312035`*^9, 3.840748488048671*^9}, {3.8407486260909357`*^9, 3.840748627278202*^9}, { 3.8407488138406157`*^9, 3.8407488177674494`*^9}, 3.840748859153308*^9, { 3.840748915106464*^9, 3.840748918255212*^9}, {3.840748981840436*^9, 3.840748984864149*^9}, {3.8407550538441095`*^9, 3.840755076717167*^9}, 3.8407551634323835`*^9, {3.8407577737487335`*^9, 3.840757951277053*^9}, { 3.84075816359626*^9, 3.840758164213569*^9}, {3.840758255014513*^9, 3.8407583060332165`*^9}, {3.8407584264498243`*^9, 3.840758486813692*^9}, 3.8407591713171883`*^9, {3.8407604253252897`*^9, 3.8407605041787663`*^9}, 3.8407607217042956`*^9, 3.840764640134676*^9, {3.840769158318996*^9, 3.8407692210407524`*^9}, {3.8407692717289977`*^9, 3.8407692949296*^9}, { 3.840769360121728*^9, 3.840769362987406*^9}, {3.8407694277380505`*^9, 3.8407694478893976`*^9}, {3.840769478063957*^9, 3.840769497136506*^9}, 3.8407696058341227`*^9, {3.8409493440500927`*^9, 3.8409493591772904`*^9}, {3.8409494245299716`*^9, 3.840949479701002*^9}, { 3.840949588408942*^9, 3.840949589361117*^9}, 3.840962615979564*^9, { 3.8409626988114614`*^9, 3.840962710099682*^9}},ExpressionUUID-> "360bc4ae-0465-4bbf-bb3e-7c2dc1e888b6"], "is a constant and diagonal matrix with all diagonal entries being nonzero \ and mutually different, and the diagonal part of ", Cell[BoxData[ TemplateBox[{"A", TagBox[ RowBox[{"(", RowBox[{"pmax", "-", "1"}], ")"}], DisplayForm]}, "Superscript"]], CellChangeTimes->{{3.668676605513283*^9, 3.668676813261262*^9}, { 3.668676863805152*^9, 3.668676871074765*^9}, {3.6686769817815647`*^9, 3.6686772214951973`*^9}, {3.6686772578706636`*^9, 3.668677272857691*^9}, { 3.668677306611551*^9, 3.668677314809966*^9}, {3.6686775587226067`*^9, 3.6686776159629087`*^9}, {3.668677687640237*^9, 3.668677710897279*^9}, { 3.6686777419575415`*^9, 3.6686777565067673`*^9}, {3.668677829940898*^9, 3.668677852868339*^9}, {3.668677919505458*^9, 3.668677940459695*^9}, { 3.66867797621376*^9, 3.6686780019522057`*^9}, 3.668678065712923*^9, { 3.6686788521411467`*^9, 3.6686788911768165`*^9}, 3.6686789326198907`*^9, 3.6686789676335554`*^9, 3.6686790786177583`*^9, 3.6686791470412803`*^9, { 3.668679269934701*^9, 3.668679292580742*^9}, {3.668679364189476*^9, 3.668679375551296*^9}, {3.668679489238899*^9, 3.6686795041837254`*^9}, { 3.6686796047041073`*^9, 3.6686796449355826`*^9}, {3.6686796910818644`*^9, 3.6686797004654818`*^9}, {3.6686797526267743`*^9, 3.6686798279037085`*^9}, {3.6686798778239994`*^9, 3.668679985915395*^9}, { 3.668683603327124*^9, 3.6686836060113287`*^9}, {3.669134013293061*^9, 3.66913405896795*^9}, {3.669134097753019*^9, 3.6691341086030383`*^9}, { 3.6691341523473167`*^9, 3.6691343537272816`*^9}, {3.669134395376359*^9, 3.669134434251429*^9}, {3.6691344982413445`*^9, 3.6691345395672183`*^9}, { 3.6691347680304346`*^9, 3.6691348143149185`*^9}, {3.669134923632315*^9, 3.6691351663785567`*^9}, {3.6691352109692373`*^9, 3.6691352147006435`*^9}, {3.669135249844906*^9, 3.669135254533915*^9}, { 3.6691352852219706`*^9, 3.66913532058644*^9}, {3.6691353725645328`*^9, 3.6691354096083994`*^9}, {3.6691354503906727`*^9, 3.66913548787234*^9}, { 3.6691355467676463`*^9, 3.669135550617655*^9}, {3.66913558697412*^9, 3.669135591047727*^9}, {3.669135673331479*^9, 3.6691357162193556`*^9}, { 3.66913637833356*^9, 3.6691363865421743`*^9}, {3.6691364214956374`*^9, 3.669136427895649*^9}, {3.6691429312712126`*^9, 3.6691431909934826`*^9}, { 3.66914352814909*^9, 3.6691435320334964`*^9}, {3.669143576877178*^9, 3.6691436641543355`*^9}, {3.669144012988764*^9, 3.669144055649041*^9}, { 3.669144792810973*^9, 3.669144808670602*^9}, 3.669144870897313*^9, { 3.669145158459632*^9, 3.6691451594268336`*^9}, {3.6691456276308784`*^9, 3.6691456535419245`*^9}, {3.6691456933047996`*^9, 3.669145728282462*^9}, { 3.6691459829729195`*^9, 3.6691460259025955`*^9}, {3.6691460592250557`*^9, 3.6691460707066755`*^9}, {3.669146120686965*^9, 3.6691461262249746`*^9}, 3.6691502195739527`*^9, {3.7155849568134747`*^9, 3.7155851241380453`*^9}, {3.7155851741409054`*^9, 3.715585322735404*^9}, { 3.715585374559368*^9, 3.715585387496108*^9}, {3.71558543524984*^9, 3.7155854592882147`*^9}, {3.7155855849724035`*^9, 3.715585655097414*^9}, { 3.7155858601611433`*^9, 3.715585885722605*^9}, {3.715586197134417*^9, 3.7155862073550014`*^9}, {3.71851406951567*^9, 3.7185141997816257`*^9}, { 3.718514230610407*^9, 3.718514482792613*^9}, {3.7185145613249836`*^9, 3.7185145729378853`*^9}, {3.718514640320331*^9, 3.71851466406841*^9}, { 3.718514720293127*^9, 3.718514747769576*^9}, {3.7185147968455973`*^9, 3.7185148345079217`*^9}, {3.718514892472715*^9, 3.7185149215703135`*^9}, { 3.718514980924719*^9, 3.7185150163119044`*^9}, {3.718515069170537*^9, 3.7185150934346943`*^9}, {3.718515167509858*^9, 3.7185152065929213`*^9}, { 3.71851532800662*^9, 3.7185153608664455`*^9}, {3.718515906939521*^9, 3.7185160257474775`*^9}, {3.7185160733241773`*^9, 3.7185160850248723`*^9}, {3.718516150044628*^9, 3.718516167598793*^9}, 3.718517706819808*^9, {3.7185179266079082`*^9, 3.7185179525291653`*^9}, { 3.7185180140163574`*^9, 3.7185180154334464`*^9}, 3.7185183054624453`*^9, 3.718518339374579*^9, {3.7185188132069035`*^9, 3.7185188251910954`*^9}, { 3.7185191903585415`*^9, 3.7185192519511805`*^9}, {3.718523515859912*^9, 3.718523654727809*^9}, {3.71852386212728*^9, 3.718523916872706*^9}, { 3.718524009208151*^9, 3.7185240475064754`*^9}, {3.7185240867620015`*^9, 3.7185241166103315`*^9}, {3.7185241761047845`*^9, 3.7185242043868976`*^9}, {3.71852427420487*^9, 3.718524309544072*^9}, { 3.7185244502609406`*^9, 3.7185244735623317`*^9}, {3.7185245392013903`*^9, 3.7185245677571993`*^9}, {3.7185246510194907`*^9, 3.7185246815956516`*^9}, {3.718524742451357*^9, 3.718524766796489*^9}, { 3.7185248323717937`*^9, 3.718524862829916*^9}, {3.7185249289869657`*^9, 3.7185249589771757`*^9}, {3.7185250495729914`*^9, 3.7185250893760724`*^9}, {3.718525169660263*^9, 3.7185252037699285`*^9}, { 3.7185252451022015`*^9, 3.718525246081569*^9}, {3.718525280814396*^9, 3.7185253686600714`*^9}, {3.718533509745361*^9, 3.718533621472438*^9}, { 3.7185336652533755`*^9, 3.7185337109878206`*^9}, {3.718533742309761*^9, 3.718533814361765*^9}, {3.7185338896972427`*^9, 3.718533927996684*^9}, { 3.718533999037425*^9, 3.7185340990373316`*^9}, {3.7185342374434547`*^9, 3.718534246236583*^9}, {3.718534299919632*^9, 3.718534300647541*^9}, { 3.7185343932979507`*^9, 3.7185344399931264`*^9}, {3.7185344792569723`*^9, 3.718534502221609*^9}, {3.71853459635013*^9, 3.7185346057301626`*^9}, { 3.7185346464403734`*^9, 3.7185346595414615`*^9}, {3.718534731275833*^9, 3.718534753949058*^9}, {3.7185347861371317`*^9, 3.7185348332115917`*^9}, { 3.718534986956379*^9, 3.7185349942297764`*^9}, {3.718538657708495*^9, 3.7185386730543194`*^9}, 3.71854113725769*^9, {3.718541496425022*^9, 3.718541528545675*^9}, {3.718541597677697*^9, 3.718541670949964*^9}, { 3.7185424951034355`*^9, 3.7185425067471013`*^9}, {3.7185425835059023`*^9, 3.7185425844033155`*^9}, {3.718551859253483*^9, 3.7185518829368377`*^9}, { 3.718555897943483*^9, 3.718555918654668*^9}, {3.840062359710498*^9, 3.84006238125691*^9}, {3.840062823133071*^9, 3.840062888647705*^9}, { 3.8400629403193026`*^9, 3.8400630241201286`*^9}, {3.840063238613986*^9, 3.840063255695342*^9}, {3.8400634809542093`*^9, 3.84006352137492*^9}, { 3.840063576312641*^9, 3.840063597973008*^9}, {3.840063649973076*^9, 3.8400637597646055`*^9}, 3.840063855682063*^9, {3.8400676965738115`*^9, 3.8400677361667795`*^9}, {3.840072680800487*^9, 3.840072681571499*^9}, { 3.840150539486353*^9, 3.8401505402364516`*^9}, {3.840150574348457*^9, 3.8401506146527367`*^9}, 3.8401506967331495`*^9, {3.840150800584402*^9, 3.840150893404269*^9}, {3.840150954095889*^9, 3.840151116099772*^9}, { 3.8401512469875937`*^9, 3.840151288492531*^9}, {3.8401513475702744`*^9, 3.8401514263958063`*^9}, {3.8401515236544876`*^9, 3.8401517120996447`*^9}, {3.840151748398049*^9, 3.8401517780429497`*^9}, { 3.8401518151979465`*^9, 3.8401518281747203`*^9}, {3.840151863236946*^9, 3.8401518678675194`*^9}, {3.8401520702884665`*^9, 3.840152090925307*^9}, { 3.840155301199746*^9, 3.840155380810563*^9}, {3.840156751588869*^9, 3.8401568602268276`*^9}, {3.8401569062872543`*^9, 3.8401569447339125`*^9}, {3.8401583088480663`*^9, 3.840158442364006*^9}, { 3.8401584780776615`*^9, 3.840158490953388*^9}, 3.840158635365588*^9, { 3.840159055301305*^9, 3.840159089996771*^9}, {3.8401591296059113`*^9, 3.840159129917841*^9}, {3.840159194285313*^9, 3.8401592063878784`*^9}, { 3.840159250821103*^9, 3.8401592945432053`*^9}, 3.8401600529031057`*^9, { 3.84016198670625*^9, 3.840162006314745*^9}, {3.840162047577321*^9, 3.840162047736292*^9}, {3.8401624624196653`*^9, 3.8401624630732813`*^9}, { 3.8401645265500445`*^9, 3.840164549856371*^9}, 3.840164874775137*^9, { 3.8401672672794223`*^9, 3.8401672754723625`*^9}, {3.840169345422138*^9, 3.8401693550065145`*^9}, {3.8401753191645837`*^9, 3.840175350337929*^9}, { 3.840175422933138*^9, 3.840175501305373*^9}, {3.840176565973245*^9, 3.840176637495947*^9}, {3.8401768234893637`*^9, 3.8401768589242334`*^9}, { 3.840176920796135*^9, 3.8401770809887075`*^9}, {3.8401773383856916`*^9, 3.8401773515163875`*^9}, {3.8402042123102922`*^9, 3.8402042395060406`*^9}, 3.8402046288374557`*^9, 3.84021240345682*^9, {3.8402124534753685`*^9, 3.8402124726979847`*^9}, {3.8406073217524066`*^9, 3.8406073250932837`*^9}, {3.8406078963065276`*^9, 3.8406079018941207`*^9}, {3.8406091270653067`*^9, 3.8406092330239077`*^9}, {3.8406092725408325`*^9, 3.8406093709080954`*^9}, {3.840609420400261*^9, 3.8406094366409025`*^9}, { 3.840609487445097*^9, 3.840609504250366*^9}, {3.84061026089353*^9, 3.840610330229744*^9}, {3.8406104019892626`*^9, 3.8406104210932317`*^9}, { 3.8406104763065977`*^9, 3.840610511049461*^9}, {3.8406127012788763`*^9, 3.840612701424589*^9}, {3.8406129988102045`*^9, 3.8406131458482027`*^9}, { 3.840613185032835*^9, 3.840613238645114*^9}, 3.840613277913649*^9, 3.8406133176179743`*^9, {3.840613445332945*^9, 3.840613518904728*^9}, { 3.840613576363493*^9, 3.8406136314374456`*^9}, {3.8406136703259335`*^9, 3.840613800594298*^9}, {3.8406138454572616`*^9, 3.8406138929291596`*^9}, { 3.8406145018411837`*^9, 3.840614526746681*^9}, {3.8406159731836634`*^9, 3.8406160348933916`*^9}, {3.84061630914672*^9, 3.840616348378207*^9}, { 3.8406163945810795`*^9, 3.840616406224659*^9}, {3.8406165253098617`*^9, 3.8406165299346714`*^9}, {3.840616575478094*^9, 3.840616579838168*^9}, { 3.840616731498263*^9, 3.8406167429461164`*^9}, {3.8406168428111143`*^9, 3.840616897376027*^9}, {3.8406206779690437`*^9, 3.840620682648349*^9}, { 3.8406207276848364`*^9, 3.840620733428303*^9}, {3.8406210216020355`*^9, 3.8406211503909597`*^9}, {3.840623979686429*^9, 3.8406240664633617`*^9}, { 3.8406240980245495`*^9, 3.8406241783123693`*^9}, {3.8406242205548487`*^9, 3.8406242273125257`*^9}, {3.84062467105003*^9, 3.8406247222471924`*^9}, { 3.8406247569556837`*^9, 3.8406252662628326`*^9}, {3.8406255340090427`*^9, 3.8406255492261724`*^9}, {3.8406258447198424`*^9, 3.840626192258951*^9}, { 3.840626238569937*^9, 3.8406262590538216`*^9}, {3.840626294024884*^9, 3.8406263519574013`*^9}, {3.8406264037803383`*^9, 3.8406264045497932`*^9}, {3.8406281719381104`*^9, 3.8406283222994823`*^9}, {3.8406283683259077`*^9, 3.8406284442542925`*^9}, {3.840628481638787*^9, 3.8406284878203306`*^9}, { 3.840628540511854*^9, 3.8406285440673027`*^9}, {3.840628620973291*^9, 3.8406286925793304`*^9}, {3.8406288437994223`*^9, 3.8406288921451416`*^9}, {3.840628942823262*^9, 3.8406289939928913`*^9}, 3.840629042159774*^9, {3.840629591896019*^9, 3.840629637819994*^9}, { 3.840630308805211*^9, 3.8406304114906836`*^9}, {3.840630442023675*^9, 3.840630442619223*^9}, {3.840630492296981*^9, 3.840630496931835*^9}, { 3.8406310472893248`*^9, 3.8406311362663174`*^9}, {3.8406312681990776`*^9, 3.8406312771737337`*^9}, {3.840631356298785*^9, 3.8406313688318815`*^9}, { 3.8406314825779037`*^9, 3.8406314865091963`*^9}, {3.840631554744774*^9, 3.8406316049737015`*^9}, 3.8406317403604374`*^9, {3.840631773388034*^9, 3.840631778235615*^9}, {3.8406318856175766`*^9, 3.840631937976758*^9}, { 3.840632114090581*^9, 3.840632178272401*^9}, {3.840633529500974*^9, 3.840633933231473*^9}, {3.8406340516057205`*^9, 3.8406341223911333`*^9}, { 3.84063415528163*^9, 3.840634320201149*^9}, {3.840634350820157*^9, 3.840634356985038*^9}, {3.8406344894401965`*^9, 3.840634738971182*^9}, { 3.840634799901149*^9, 3.84063480067727*^9}, {3.8406350830831604`*^9, 3.8406351505904107`*^9}, {3.840635208875179*^9, 3.84063520905681*^9}, { 3.8406353931243687`*^9, 3.8406353940131454`*^9}, {3.8406354677901525`*^9, 3.8406354680301933`*^9}, {3.8406357547054768`*^9, 3.8406358358534107`*^9}, {3.8406359030103025`*^9, 3.840635922141003*^9}, { 3.8406359527558784`*^9, 3.8406359878104963`*^9}, {3.8406361032849445`*^9, 3.8406362329123025`*^9}, 3.840636272405296*^9, {3.840636347645917*^9, 3.8406364452903843`*^9}, {3.8406378758430896`*^9, 3.8406379470910625`*^9}, {3.8406379988530746`*^9, 3.840638023582405*^9}, { 3.8406381760145364`*^9, 3.840638253730714*^9}, {3.8406391155969534`*^9, 3.840639200398224*^9}, {3.840639333359426*^9, 3.8406393719937563`*^9}, 3.840639472888164*^9, {3.8406395951765995`*^9, 3.840639602402272*^9}, 3.8406845844711905`*^9, {3.8406846158972054`*^9, 3.840684678497987*^9}, 3.840684784025262*^9, 3.8406848478503714`*^9, {3.8406849331627607`*^9, 3.8406850115344257`*^9}, {3.8406850428322906`*^9, 3.8406850997624245`*^9}, {3.8406867188488007`*^9, 3.840686838211692*^9}, { 3.840686911791442*^9, 3.840686912692556*^9}, {3.8406879109498267`*^9, 3.840687911148444*^9}, {3.840689440294406*^9, 3.8406894414290595`*^9}, 3.840689513755479*^9, 3.8406895594775105`*^9, {3.840693165232476*^9, 3.840693243194742*^9}, {3.8406976355591497`*^9, 3.8406978078183637`*^9}, { 3.840698727697235*^9, 3.8406987902122016`*^9}, {3.840698820979678*^9, 3.840698826031128*^9}, {3.8406998577675133`*^9, 3.84069992480552*^9}, { 3.840699970678713*^9, 3.8407000046783133`*^9}, {3.840700089490403*^9, 3.840700194012043*^9}, {3.8407002842949333`*^9, 3.8407005632050714`*^9}, { 3.840700606510401*^9, 3.840700611691828*^9}, {3.840700641919141*^9, 3.840700667262867*^9}, {3.840700699514847*^9, 3.840700730377691*^9}, { 3.8407007713572245`*^9, 3.840700837012573*^9}, {3.8407011934730873`*^9, 3.840701239673876*^9}, {3.8407012792768717`*^9, 3.8407012868172874`*^9}, { 3.84070132539847*^9, 3.8407013526811852`*^9}, {3.8407013983371587`*^9, 3.840701406008066*^9}, {3.8407014846304336`*^9, 3.840701573183384*^9}, { 3.840701604675478*^9, 3.840701606735585*^9}, {3.8407016496901784`*^9, 3.840701649968079*^9}, {3.8407016958055906`*^9, 3.8407017133173375`*^9}, { 3.840701757874757*^9, 3.84070175963594*^9}, {3.840701842834652*^9, 3.840701848041745*^9}, {3.8407020229694147`*^9, 3.840702049945819*^9}, { 3.8407021607776318`*^9, 3.840702370143668*^9}, {3.8407037247781153`*^9, 3.8407037782041717`*^9}, {3.8407038456672935`*^9, 3.840703882558412*^9}, { 3.840704269261737*^9, 3.8407044298502493`*^9}, {3.8407045137358665`*^9, 3.840704519168676*^9}, {3.8407049939988737`*^9, 3.840705018577838*^9}, { 3.8407050827103252`*^9, 3.840705113537577*^9}, {3.8407430742539377`*^9, 3.840743152407233*^9}, {3.8407444313423443`*^9, 3.8407445332280416`*^9}, { 3.840744590386205*^9, 3.8407445913559303`*^9}, {3.840744712543418*^9, 3.8407447224956875`*^9}, {3.8407447777721405`*^9, 3.8407448585998096`*^9}, {3.840745004497467*^9, 3.840745007339508*^9}, { 3.8407450449171*^9, 3.840745145522975*^9}, {3.840745181147393*^9, 3.8407451848269744`*^9}, {3.8407452248754873`*^9, 3.8407452543071156`*^9}, {3.8407453810518723`*^9, 3.840745397666952*^9}, { 3.840745602820671*^9, 3.8407456196675844`*^9}, {3.8407458233236876`*^9, 3.840746146028006*^9}, {3.8407474832354307`*^9, 3.8407474858599257`*^9}, { 3.8407475166830144`*^9, 3.8407475792956395`*^9}, {3.8407476851961584`*^9, 3.8407477516884384`*^9}, {3.840747873431821*^9, 3.840747873679819*^9}, { 3.840748350928976*^9, 3.840748351514307*^9}, {3.8407484838312035`*^9, 3.840748488048671*^9}, {3.8407486260909357`*^9, 3.840748627278202*^9}, { 3.8407488138406157`*^9, 3.8407488177674494`*^9}, 3.840748859153308*^9, { 3.840748915106464*^9, 3.840748918255212*^9}, {3.840748981840436*^9, 3.840748984864149*^9}, {3.8407550538441095`*^9, 3.840755076717167*^9}, 3.8407551634323835`*^9, {3.8407577737487335`*^9, 3.840757951277053*^9}, { 3.84075816359626*^9, 3.840758164213569*^9}, {3.840758255014513*^9, 3.8407583060332165`*^9}, {3.8407584264498243`*^9, 3.840758486813692*^9}, 3.8407591713171883`*^9, {3.8407604253252897`*^9, 3.8407605041787663`*^9}, 3.8407607217042956`*^9, 3.840764640134676*^9, {3.840769158318996*^9, 3.8407692210407524`*^9}, {3.8407692717289977`*^9, 3.8407692949296*^9}, { 3.840769360121728*^9, 3.840769362987406*^9}, {3.8407694277380505`*^9, 3.8407694478893976`*^9}, {3.840769478063957*^9, 3.840769497136506*^9}, 3.8407696058341227`*^9, {3.8409493440500927`*^9, 3.8409493591772904`*^9}, {3.8409494245299716`*^9, 3.840949479701002*^9}, { 3.840949588408942*^9, 3.840949589361117*^9}, 3.840962615979564*^9, { 3.8409626988114614`*^9, 3.840962710099682*^9}},ExpressionUUID-> "5aeab3ec-5e0b-477d-b361-2399dedd5518"], " vanishes [Krichever (1977)]. \n", StyleBox["If some of these assumptions do not hold but still a pair of \ commuting operators exists, the determination steps below are slightly \ modified. (Examples: the matrix generalized KdV equation, pmax=2 and ", FontSize->12], Cell[BoxData[ RowBox[{ TemplateBox[{"A", TagBox[ RowBox[{"(", "pmax", ")"}], DisplayForm]}, "Superscript"], "\[Proportional]", "Id"}]], CellChangeTimes->{{3.668676605513283*^9, 3.668676813261262*^9}, { 3.668676863805152*^9, 3.668676871074765*^9}, {3.6686769817815647`*^9, 3.6686772214951973`*^9}, {3.6686772578706636`*^9, 3.668677272857691*^9}, { 3.668677306611551*^9, 3.668677314809966*^9}, {3.6686775587226067`*^9, 3.6686776159629087`*^9}, {3.668677687640237*^9, 3.668677710897279*^9}, { 3.6686777419575415`*^9, 3.6686777565067673`*^9}, {3.668677829940898*^9, 3.668677852868339*^9}, {3.668677919505458*^9, 3.668677940459695*^9}, { 3.66867797621376*^9, 3.6686780019522057`*^9}, 3.668678065712923*^9, { 3.6686788521411467`*^9, 3.6686788911768165`*^9}, 3.6686789326198907`*^9, 3.6686789676335554`*^9, 3.6686790786177583`*^9, 3.6686791470412803`*^9, { 3.668679269934701*^9, 3.668679292580742*^9}, {3.668679364189476*^9, 3.668679375551296*^9}, {3.668679489238899*^9, 3.6686795041837254`*^9}, { 3.6686796047041073`*^9, 3.6686796449355826`*^9}, {3.6686796910818644`*^9, 3.6686797004654818`*^9}, {3.6686797526267743`*^9, 3.6686798279037085`*^9}, {3.6686798778239994`*^9, 3.668679985915395*^9}, { 3.668683603327124*^9, 3.6686836060113287`*^9}, {3.669134013293061*^9, 3.66913405896795*^9}, {3.669134097753019*^9, 3.6691341086030383`*^9}, { 3.6691341523473167`*^9, 3.6691343537272816`*^9}, {3.669134395376359*^9, 3.669134434251429*^9}, {3.6691344982413445`*^9, 3.6691345395672183`*^9}, { 3.6691347680304346`*^9, 3.6691348143149185`*^9}, {3.669134923632315*^9, 3.6691351663785567`*^9}, {3.6691352109692373`*^9, 3.6691352147006435`*^9}, {3.669135249844906*^9, 3.669135254533915*^9}, { 3.6691352852219706`*^9, 3.66913532058644*^9}, {3.6691353725645328`*^9, 3.6691354096083994`*^9}, {3.6691354503906727`*^9, 3.66913548787234*^9}, { 3.6691355467676463`*^9, 3.669135550617655*^9}, {3.66913558697412*^9, 3.669135591047727*^9}, {3.669135673331479*^9, 3.6691357162193556`*^9}, { 3.66913637833356*^9, 3.6691363865421743`*^9}, {3.6691364214956374`*^9, 3.669136427895649*^9}, {3.6691429312712126`*^9, 3.6691431909934826`*^9}, { 3.66914352814909*^9, 3.6691435320334964`*^9}, {3.669143576877178*^9, 3.6691436641543355`*^9}, {3.669144012988764*^9, 3.669144055649041*^9}, { 3.669144792810973*^9, 3.669144808670602*^9}, 3.669144870897313*^9, { 3.669145158459632*^9, 3.6691451594268336`*^9}, {3.6691456276308784`*^9, 3.6691456535419245`*^9}, {3.6691456933047996`*^9, 3.669145728282462*^9}, { 3.6691459829729195`*^9, 3.6691460259025955`*^9}, {3.6691460592250557`*^9, 3.6691460707066755`*^9}, {3.669146120686965*^9, 3.6691461262249746`*^9}, 3.6691502195739527`*^9, {3.7155849568134747`*^9, 3.7155851241380453`*^9}, {3.7155851741409054`*^9, 3.715585322735404*^9}, { 3.715585374559368*^9, 3.715585387496108*^9}, {3.71558543524984*^9, 3.7155854592882147`*^9}, {3.7155855849724035`*^9, 3.715585655097414*^9}, { 3.7155858601611433`*^9, 3.715585885722605*^9}, {3.715586197134417*^9, 3.7155862073550014`*^9}, {3.71851406951567*^9, 3.7185141997816257`*^9}, { 3.718514230610407*^9, 3.718514482792613*^9}, {3.7185145613249836`*^9, 3.7185145729378853`*^9}, {3.718514640320331*^9, 3.71851466406841*^9}, { 3.718514720293127*^9, 3.718514747769576*^9}, {3.7185147968455973`*^9, 3.7185148345079217`*^9}, {3.718514892472715*^9, 3.7185149215703135`*^9}, { 3.718514980924719*^9, 3.7185150163119044`*^9}, {3.718515069170537*^9, 3.7185150934346943`*^9}, {3.718515167509858*^9, 3.7185152065929213`*^9}, { 3.71851532800662*^9, 3.7185153608664455`*^9}, {3.718515906939521*^9, 3.7185160257474775`*^9}, {3.7185160733241773`*^9, 3.7185160850248723`*^9}, {3.718516150044628*^9, 3.718516167598793*^9}, 3.718517706819808*^9, {3.7185179266079082`*^9, 3.7185179525291653`*^9}, { 3.7185180140163574`*^9, 3.7185180154334464`*^9}, 3.7185183054624453`*^9, 3.718518339374579*^9, {3.7185188132069035`*^9, 3.7185188251910954`*^9}, { 3.7185191903585415`*^9, 3.7185192519511805`*^9}, {3.718523515859912*^9, 3.718523654727809*^9}, {3.71852386212728*^9, 3.718523916872706*^9}, { 3.718524009208151*^9, 3.7185240475064754`*^9}, {3.7185240867620015`*^9, 3.7185241166103315`*^9}, {3.7185241761047845`*^9, 3.7185242043868976`*^9}, {3.71852427420487*^9, 3.718524309544072*^9}, { 3.7185244502609406`*^9, 3.7185244735623317`*^9}, {3.7185245392013903`*^9, 3.7185245677571993`*^9}, {3.7185246510194907`*^9, 3.7185246815956516`*^9}, {3.718524742451357*^9, 3.718524766796489*^9}, { 3.7185248323717937`*^9, 3.718524862829916*^9}, {3.7185249289869657`*^9, 3.7185249589771757`*^9}, {3.7185250495729914`*^9, 3.7185250893760724`*^9}, {3.718525169660263*^9, 3.7185252037699285`*^9}, { 3.7185252451022015`*^9, 3.718525246081569*^9}, {3.718525280814396*^9, 3.7185253686600714`*^9}, {3.718533509745361*^9, 3.718533621472438*^9}, { 3.7185336652533755`*^9, 3.7185337109878206`*^9}, {3.718533742309761*^9, 3.718533814361765*^9}, {3.7185338896972427`*^9, 3.718533927996684*^9}, { 3.718533999037425*^9, 3.7185340990373316`*^9}, {3.7185342374434547`*^9, 3.718534246236583*^9}, {3.718534299919632*^9, 3.718534300647541*^9}, { 3.7185343932979507`*^9, 3.7185344399931264`*^9}, {3.7185344792569723`*^9, 3.718534502221609*^9}, {3.71853459635013*^9, 3.7185346057301626`*^9}, { 3.7185346464403734`*^9, 3.7185346595414615`*^9}, {3.718534731275833*^9, 3.718534753949058*^9}, {3.7185347861371317`*^9, 3.7185348332115917`*^9}, { 3.718534986956379*^9, 3.7185349942297764`*^9}, {3.718538657708495*^9, 3.7185386730543194`*^9}, 3.71854113725769*^9, {3.718541496425022*^9, 3.718541528545675*^9}, {3.718541597677697*^9, 3.718541670949964*^9}, { 3.7185424951034355`*^9, 3.7185425067471013`*^9}, {3.7185425835059023`*^9, 3.7185425844033155`*^9}, {3.718551859253483*^9, 3.7185518829368377`*^9}, { 3.718555897943483*^9, 3.718555918654668*^9}, {3.840062359710498*^9, 3.84006238125691*^9}, {3.840062823133071*^9, 3.840062888647705*^9}, { 3.8400629403193026`*^9, 3.8400630241201286`*^9}, {3.840063238613986*^9, 3.840063255695342*^9}, {3.8400634809542093`*^9, 3.84006352137492*^9}, { 3.840063576312641*^9, 3.840063597973008*^9}, {3.840063649973076*^9, 3.8400637597646055`*^9}, 3.840063855682063*^9, {3.8400676965738115`*^9, 3.8400677361667795`*^9}, {3.840072680800487*^9, 3.840072681571499*^9}, { 3.840150539486353*^9, 3.8401505402364516`*^9}, {3.840150574348457*^9, 3.8401506146527367`*^9}, 3.8401506967331495`*^9, {3.840150800584402*^9, 3.840150893404269*^9}, {3.840150954095889*^9, 3.840151116099772*^9}, { 3.8401512469875937`*^9, 3.840151288492531*^9}, {3.8401513475702744`*^9, 3.8401514263958063`*^9}, {3.8401515236544876`*^9, 3.8401517120996447`*^9}, {3.840151748398049*^9, 3.8401517780429497`*^9}, { 3.8401518151979465`*^9, 3.8401518281747203`*^9}, {3.840151863236946*^9, 3.8401518678675194`*^9}, {3.8401520702884665`*^9, 3.840152090925307*^9}, { 3.840155301199746*^9, 3.840155380810563*^9}, {3.840156751588869*^9, 3.8401568602268276`*^9}, {3.8401569062872543`*^9, 3.8401569447339125`*^9}, {3.8401583088480663`*^9, 3.840158442364006*^9}, { 3.8401584780776615`*^9, 3.840158490953388*^9}, 3.840158635365588*^9, { 3.840159055301305*^9, 3.840159089996771*^9}, {3.8401591296059113`*^9, 3.840159129917841*^9}, {3.840159194285313*^9, 3.8401592063878784`*^9}, { 3.840159250821103*^9, 3.8401592945432053`*^9}, 3.8401600529031057`*^9, { 3.84016198670625*^9, 3.840162006314745*^9}, {3.840162047577321*^9, 3.840162047736292*^9}, {3.8401624624196653`*^9, 3.8401624630732813`*^9}, { 3.8401645265500445`*^9, 3.840164549856371*^9}, 3.840164874775137*^9, { 3.8401672672794223`*^9, 3.8401672754723625`*^9}, {3.840169345422138*^9, 3.8401693550065145`*^9}, {3.8401753191645837`*^9, 3.840175350337929*^9}, { 3.840175422933138*^9, 3.840175501305373*^9}, {3.840176565973245*^9, 3.840176637495947*^9}, {3.8401768234893637`*^9, 3.8401768589242334`*^9}, { 3.840176920796135*^9, 3.8401770809887075`*^9}, {3.8401773383856916`*^9, 3.8401773515163875`*^9}, {3.8402042123102922`*^9, 3.8402042395060406`*^9}, 3.8402046288374557`*^9, 3.84021240345682*^9, {3.8402124534753685`*^9, 3.8402124726979847`*^9}, {3.8406073217524066`*^9, 3.8406073250932837`*^9}, {3.8406078963065276`*^9, 3.8406079018941207`*^9}, {3.8406091270653067`*^9, 3.8406092330239077`*^9}, {3.8406092725408325`*^9, 3.8406093709080954`*^9}, {3.840609420400261*^9, 3.8406094366409025`*^9}, { 3.840609487445097*^9, 3.840609504250366*^9}, {3.84061026089353*^9, 3.840610330229744*^9}, {3.8406104019892626`*^9, 3.8406104210932317`*^9}, { 3.8406104763065977`*^9, 3.840610511049461*^9}, {3.8406127012788763`*^9, 3.840612701424589*^9}, {3.8406129988102045`*^9, 3.8406131458482027`*^9}, { 3.840613185032835*^9, 3.840613238645114*^9}, 3.840613277913649*^9, 3.8406133176179743`*^9, {3.840613445332945*^9, 3.840613518904728*^9}, { 3.840613576363493*^9, 3.8406136314374456`*^9}, {3.8406136703259335`*^9, 3.840613800594298*^9}, {3.8406138454572616`*^9, 3.8406138929291596`*^9}, { 3.8406145018411837`*^9, 3.840614526746681*^9}, {3.8406159731836634`*^9, 3.8406160348933916`*^9}, {3.84061630914672*^9, 3.840616348378207*^9}, { 3.8406163945810795`*^9, 3.840616406224659*^9}, {3.8406165253098617`*^9, 3.8406165299346714`*^9}, {3.840616575478094*^9, 3.840616579838168*^9}, { 3.840616731498263*^9, 3.8406167429461164`*^9}, {3.8406168428111143`*^9, 3.840616897376027*^9}, {3.8406206779690437`*^9, 3.840620682648349*^9}, { 3.8406207276848364`*^9, 3.840620733428303*^9}, {3.8406210216020355`*^9, 3.8406211503909597`*^9}, {3.840623979686429*^9, 3.8406240664633617`*^9}, { 3.8406240980245495`*^9, 3.8406241783123693`*^9}, {3.8406242205548487`*^9, 3.8406242273125257`*^9}, {3.84062467105003*^9, 3.8406247222471924`*^9}, { 3.8406247569556837`*^9, 3.8406252662628326`*^9}, {3.8406255340090427`*^9, 3.8406255492261724`*^9}, {3.8406258447198424`*^9, 3.840626192258951*^9}, { 3.840626238569937*^9, 3.8406262590538216`*^9}, {3.840626294024884*^9, 3.8406263519574013`*^9}, {3.8406264037803383`*^9, 3.8406264045497932`*^9}, {3.8406281719381104`*^9, 3.8406283222994823`*^9}, {3.8406283683259077`*^9, 3.8406284442542925`*^9}, {3.840628481638787*^9, 3.8406284878203306`*^9}, { 3.840628540511854*^9, 3.8406285440673027`*^9}, {3.840628620973291*^9, 3.8406286925793304`*^9}, {3.8406288437994223`*^9, 3.8406288921451416`*^9}, {3.840628942823262*^9, 3.8406289939928913`*^9}, 3.840629042159774*^9, {3.840629591896019*^9, 3.840629637819994*^9}, { 3.840630308805211*^9, 3.8406304114906836`*^9}, {3.840630442023675*^9, 3.840630442619223*^9}, {3.840630492296981*^9, 3.840630496931835*^9}, { 3.8406310472893248`*^9, 3.8406311362663174`*^9}, {3.8406312681990776`*^9, 3.8406312771737337`*^9}, {3.840631356298785*^9, 3.8406313688318815`*^9}, { 3.8406314825779037`*^9, 3.8406314865091963`*^9}, {3.840631554744774*^9, 3.8406316049737015`*^9}, 3.8406317403604374`*^9, {3.840631773388034*^9, 3.840631778235615*^9}, {3.8406318856175766`*^9, 3.840631937976758*^9}, { 3.840632114090581*^9, 3.840632178272401*^9}, {3.840633529500974*^9, 3.840633933231473*^9}, {3.8406340516057205`*^9, 3.8406341223911333`*^9}, { 3.84063415528163*^9, 3.840634320201149*^9}, {3.840634350820157*^9, 3.840634356985038*^9}, {3.8406344894401965`*^9, 3.840634738971182*^9}, { 3.840634799901149*^9, 3.84063480067727*^9}, {3.8406350830831604`*^9, 3.8406351505904107`*^9}, {3.840635208875179*^9, 3.84063520905681*^9}, { 3.8406353931243687`*^9, 3.8406353940131454`*^9}, {3.8406354677901525`*^9, 3.8406354680301933`*^9}, {3.8406357547054768`*^9, 3.8406358358534107`*^9}, {3.8406359030103025`*^9, 3.840635922141003*^9}, { 3.8406359527558784`*^9, 3.8406359878104963`*^9}, {3.8406361032849445`*^9, 3.8406362329123025`*^9}, 3.840636272405296*^9, {3.840636347645917*^9, 3.8406364452903843`*^9}, {3.8406378758430896`*^9, 3.8406379470910625`*^9}, {3.8406379988530746`*^9, 3.840638023582405*^9}, { 3.8406381760145364`*^9, 3.840638253730714*^9}, {3.8406391155969534`*^9, 3.840639200398224*^9}, {3.840639333359426*^9, 3.8406393719937563`*^9}, 3.840639472888164*^9, {3.8406395951765995`*^9, 3.840639602402272*^9}, 3.8406845844711905`*^9, {3.8406846158972054`*^9, 3.840684678497987*^9}, 3.840684784025262*^9, 3.8406848478503714`*^9, {3.8406849331627607`*^9, 3.8406850115344257`*^9}, {3.8406850428322906`*^9, 3.8406850997624245`*^9}, {3.8406867188488007`*^9, 3.840686838211692*^9}, { 3.840686911791442*^9, 3.840686912692556*^9}, {3.8406879109498267`*^9, 3.840687911148444*^9}, {3.840689440294406*^9, 3.8406894414290595`*^9}, 3.840689513755479*^9, 3.8406895594775105`*^9, {3.840693165232476*^9, 3.840693243194742*^9}, {3.8406976355591497`*^9, 3.8406978078183637`*^9}, { 3.840698727697235*^9, 3.8406987902122016`*^9}, {3.840698820979678*^9, 3.840698826031128*^9}, {3.8406998577675133`*^9, 3.84069992480552*^9}, { 3.840699970678713*^9, 3.8407000046783133`*^9}, {3.840700089490403*^9, 3.840700194012043*^9}, {3.8407002842949333`*^9, 3.8407005632050714`*^9}, { 3.840700606510401*^9, 3.840700611691828*^9}, {3.840700641919141*^9, 3.840700667262867*^9}, {3.840700699514847*^9, 3.840700730377691*^9}, { 3.8407007713572245`*^9, 3.840700837012573*^9}, {3.8407011934730873`*^9, 3.840701239673876*^9}, {3.8407012792768717`*^9, 3.8407012868172874`*^9}, { 3.84070132539847*^9, 3.8407013526811852`*^9}, {3.8407013983371587`*^9, 3.840701406008066*^9}, {3.8407014846304336`*^9, 3.840701573183384*^9}, { 3.840701604675478*^9, 3.840701606735585*^9}, {3.8407016496901784`*^9, 3.840701649968079*^9}, {3.8407016958055906`*^9, 3.8407017133173375`*^9}, { 3.840701757874757*^9, 3.84070175963594*^9}, {3.840701842834652*^9, 3.840701848041745*^9}, {3.8407020229694147`*^9, 3.840702049945819*^9}, { 3.8407021607776318`*^9, 3.840702370143668*^9}, {3.8407037247781153`*^9, 3.8407037782041717`*^9}, {3.8407038456672935`*^9, 3.840703882558412*^9}, { 3.840704269261737*^9, 3.8407044298502493`*^9}, {3.8407045137358665`*^9, 3.840704519168676*^9}, {3.8407049939988737`*^9, 3.840705018577838*^9}, { 3.8407050827103252`*^9, 3.840705113537577*^9}, {3.8407430742539377`*^9, 3.840743152407233*^9}, {3.8407444313423443`*^9, 3.8407445332280416`*^9}, { 3.840744590386205*^9, 3.8407445913559303`*^9}, {3.840744712543418*^9, 3.8407447224956875`*^9}, {3.8407447777721405`*^9, 3.8407448585998096`*^9}, {3.840745004497467*^9, 3.840745007339508*^9}, { 3.8407450449171*^9, 3.840745145522975*^9}, {3.840745181147393*^9, 3.8407451848269744`*^9}, {3.8407452248754873`*^9, 3.8407452543071156`*^9}, {3.8407453810518723`*^9, 3.840745397666952*^9}, { 3.840745602820671*^9, 3.8407456196675844`*^9}, {3.8407458233236876`*^9, 3.840746146028006*^9}, {3.8407474832354307`*^9, 3.8407474858599257`*^9}, { 3.8407475166830144`*^9, 3.8407475792956395`*^9}, {3.8407476851961584`*^9, 3.8407477516884384`*^9}, {3.840747873431821*^9, 3.840747873679819*^9}, { 3.840748350928976*^9, 3.840748351514307*^9}, {3.8407484838312035`*^9, 3.840748488048671*^9}, {3.8407486260909357`*^9, 3.840748627278202*^9}, { 3.8407488138406157`*^9, 3.8407488177674494`*^9}, 3.840748859153308*^9, { 3.840748915106464*^9, 3.840748918255212*^9}, {3.840748981840436*^9, 3.840748984864149*^9}, {3.8407550538441095`*^9, 3.840755076717167*^9}, 3.8407551634323835`*^9, {3.8407577737487335`*^9, 3.840757951277053*^9}, { 3.84075816359626*^9, 3.840758164213569*^9}, {3.840758255014513*^9, 3.8407583060332165`*^9}, {3.8407584264498243`*^9, 3.840758486813692*^9}, 3.8407591713171883`*^9, {3.8407604253252897`*^9, 3.8407605041787663`*^9}, 3.8407607217042956`*^9, 3.840764640134676*^9, {3.840769158318996*^9, 3.8407692210407524`*^9}, {3.8407692717289977`*^9, 3.8407692949296*^9}, { 3.840769360121728*^9, 3.840769362987406*^9}, {3.8407694277380505`*^9, 3.8407694478893976`*^9}, {3.840769478063957*^9, 3.840769497136506*^9}, 3.8407696058341227`*^9, {3.8409493440500927`*^9, 3.8409493591772904`*^9}, {3.8409494245299716`*^9, 3.840949479701002*^9}, { 3.840949588408942*^9, 3.840949589361117*^9}, 3.840962615979564*^9, { 3.8409626988114614`*^9, 3.840962710099682*^9}}, FontSize->12,ExpressionUUID->"820fdb47-88fb-4968-8625-82c653ae3aec"], StyleBox[", and the sine-Gordon equation, pmax=1 and ", FontSize->12], Cell[BoxData[ RowBox[{ TemplateBox[{"A", TagBox[ RowBox[{"(", "pmax", ")"}], DisplayForm]}, "Superscript"], "\[Proportional]", RowBox[{"diag", RowBox[{"(", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "0", ",", "0"}], ")"}]}]}]], CellChangeTimes->{{3.668676605513283*^9, 3.668676813261262*^9}, { 3.668676863805152*^9, 3.668676871074765*^9}, {3.6686769817815647`*^9, 3.6686772214951973`*^9}, {3.6686772578706636`*^9, 3.668677272857691*^9}, { 3.668677306611551*^9, 3.668677314809966*^9}, {3.6686775587226067`*^9, 3.6686776159629087`*^9}, {3.668677687640237*^9, 3.668677710897279*^9}, { 3.6686777419575415`*^9, 3.6686777565067673`*^9}, {3.668677829940898*^9, 3.668677852868339*^9}, {3.668677919505458*^9, 3.668677940459695*^9}, { 3.66867797621376*^9, 3.6686780019522057`*^9}, 3.668678065712923*^9, { 3.6686788521411467`*^9, 3.6686788911768165`*^9}, 3.6686789326198907`*^9, 3.6686789676335554`*^9, 3.6686790786177583`*^9, 3.6686791470412803`*^9, { 3.668679269934701*^9, 3.668679292580742*^9}, {3.668679364189476*^9, 3.668679375551296*^9}, {3.668679489238899*^9, 3.6686795041837254`*^9}, { 3.6686796047041073`*^9, 3.6686796449355826`*^9}, {3.6686796910818644`*^9, 3.6686797004654818`*^9}, {3.6686797526267743`*^9, 3.6686798279037085`*^9}, {3.6686798778239994`*^9, 3.668679985915395*^9}, { 3.668683603327124*^9, 3.6686836060113287`*^9}, {3.669134013293061*^9, 3.66913405896795*^9}, {3.669134097753019*^9, 3.6691341086030383`*^9}, { 3.6691341523473167`*^9, 3.6691343537272816`*^9}, {3.669134395376359*^9, 3.669134434251429*^9}, {3.6691344982413445`*^9, 3.6691345395672183`*^9}, { 3.6691347680304346`*^9, 3.6691348143149185`*^9}, {3.669134923632315*^9, 3.6691351663785567`*^9}, {3.6691352109692373`*^9, 3.6691352147006435`*^9}, {3.669135249844906*^9, 3.669135254533915*^9}, { 3.6691352852219706`*^9, 3.66913532058644*^9}, {3.6691353725645328`*^9, 3.6691354096083994`*^9}, {3.6691354503906727`*^9, 3.66913548787234*^9}, { 3.6691355467676463`*^9, 3.669135550617655*^9}, {3.66913558697412*^9, 3.669135591047727*^9}, {3.669135673331479*^9, 3.6691357162193556`*^9}, { 3.66913637833356*^9, 3.6691363865421743`*^9}, {3.6691364214956374`*^9, 3.669136427895649*^9}, {3.6691429312712126`*^9, 3.6691431909934826`*^9}, { 3.66914352814909*^9, 3.6691435320334964`*^9}, {3.669143576877178*^9, 3.6691436641543355`*^9}, {3.669144012988764*^9, 3.669144055649041*^9}, { 3.669144792810973*^9, 3.669144808670602*^9}, 3.669144870897313*^9, { 3.669145158459632*^9, 3.6691451594268336`*^9}, {3.6691456276308784`*^9, 3.6691456535419245`*^9}, {3.6691456933047996`*^9, 3.669145728282462*^9}, { 3.6691459829729195`*^9, 3.6691460259025955`*^9}, {3.6691460592250557`*^9, 3.6691460707066755`*^9}, {3.669146120686965*^9, 3.6691461262249746`*^9}, 3.6691502195739527`*^9, {3.7155849568134747`*^9, 3.7155851241380453`*^9}, {3.7155851741409054`*^9, 3.715585322735404*^9}, { 3.715585374559368*^9, 3.715585387496108*^9}, {3.71558543524984*^9, 3.7155854592882147`*^9}, {3.7155855849724035`*^9, 3.715585655097414*^9}, { 3.7155858601611433`*^9, 3.715585885722605*^9}, {3.715586197134417*^9, 3.7155862073550014`*^9}, {3.71851406951567*^9, 3.7185141997816257`*^9}, { 3.718514230610407*^9, 3.718514482792613*^9}, {3.7185145613249836`*^9, 3.7185145729378853`*^9}, {3.718514640320331*^9, 3.71851466406841*^9}, { 3.718514720293127*^9, 3.718514747769576*^9}, {3.7185147968455973`*^9, 3.7185148345079217`*^9}, {3.718514892472715*^9, 3.7185149215703135`*^9}, { 3.718514980924719*^9, 3.7185150163119044`*^9}, {3.718515069170537*^9, 3.7185150934346943`*^9}, {3.718515167509858*^9, 3.7185152065929213`*^9}, { 3.71851532800662*^9, 3.7185153608664455`*^9}, {3.718515906939521*^9, 3.7185160257474775`*^9}, {3.7185160733241773`*^9, 3.7185160850248723`*^9}, {3.718516150044628*^9, 3.718516167598793*^9}, 3.718517706819808*^9, {3.7185179266079082`*^9, 3.7185179525291653`*^9}, { 3.7185180140163574`*^9, 3.7185180154334464`*^9}, 3.7185183054624453`*^9, 3.718518339374579*^9, {3.7185188132069035`*^9, 3.7185188251910954`*^9}, { 3.7185191903585415`*^9, 3.7185192519511805`*^9}, {3.718523515859912*^9, 3.718523654727809*^9}, {3.71852386212728*^9, 3.718523916872706*^9}, { 3.718524009208151*^9, 3.7185240475064754`*^9}, {3.7185240867620015`*^9, 3.7185241166103315`*^9}, {3.7185241761047845`*^9, 3.7185242043868976`*^9}, {3.71852427420487*^9, 3.718524309544072*^9}, { 3.7185244502609406`*^9, 3.7185244735623317`*^9}, {3.7185245392013903`*^9, 3.7185245677571993`*^9}, {3.7185246510194907`*^9, 3.7185246815956516`*^9}, {3.718524742451357*^9, 3.718524766796489*^9}, { 3.7185248323717937`*^9, 3.718524862829916*^9}, {3.7185249289869657`*^9, 3.7185249589771757`*^9}, {3.7185250495729914`*^9, 3.7185250893760724`*^9}, {3.718525169660263*^9, 3.7185252037699285`*^9}, { 3.7185252451022015`*^9, 3.718525246081569*^9}, {3.718525280814396*^9, 3.7185253686600714`*^9}, {3.718533509745361*^9, 3.718533621472438*^9}, { 3.7185336652533755`*^9, 3.7185337109878206`*^9}, {3.718533742309761*^9, 3.718533814361765*^9}, {3.7185338896972427`*^9, 3.718533927996684*^9}, { 3.718533999037425*^9, 3.7185340990373316`*^9}, {3.7185342374434547`*^9, 3.718534246236583*^9}, {3.718534299919632*^9, 3.718534300647541*^9}, { 3.7185343932979507`*^9, 3.7185344399931264`*^9}, {3.7185344792569723`*^9, 3.718534502221609*^9}, {3.71853459635013*^9, 3.7185346057301626`*^9}, { 3.7185346464403734`*^9, 3.7185346595414615`*^9}, {3.718534731275833*^9, 3.718534753949058*^9}, {3.7185347861371317`*^9, 3.7185348332115917`*^9}, { 3.718534986956379*^9, 3.7185349942297764`*^9}, {3.718538657708495*^9, 3.7185386730543194`*^9}, 3.71854113725769*^9, {3.718541496425022*^9, 3.718541528545675*^9}, {3.718541597677697*^9, 3.718541670949964*^9}, { 3.7185424951034355`*^9, 3.7185425067471013`*^9}, {3.7185425835059023`*^9, 3.7185425844033155`*^9}, {3.718551859253483*^9, 3.7185518829368377`*^9}, { 3.718555897943483*^9, 3.718555918654668*^9}, {3.840062359710498*^9, 3.84006238125691*^9}, {3.840062823133071*^9, 3.840062888647705*^9}, { 3.8400629403193026`*^9, 3.8400630241201286`*^9}, {3.840063238613986*^9, 3.840063255695342*^9}, {3.8400634809542093`*^9, 3.84006352137492*^9}, { 3.840063576312641*^9, 3.840063597973008*^9}, {3.840063649973076*^9, 3.8400637597646055`*^9}, 3.840063855682063*^9, {3.8400676965738115`*^9, 3.8400677361667795`*^9}, {3.840072680800487*^9, 3.840072681571499*^9}, { 3.840150539486353*^9, 3.8401505402364516`*^9}, {3.840150574348457*^9, 3.8401506146527367`*^9}, 3.8401506967331495`*^9, {3.840150800584402*^9, 3.840150893404269*^9}, {3.840150954095889*^9, 3.840151116099772*^9}, { 3.8401512469875937`*^9, 3.840151288492531*^9}, {3.8401513475702744`*^9, 3.8401514263958063`*^9}, {3.8401515236544876`*^9, 3.8401517120996447`*^9}, {3.840151748398049*^9, 3.8401517780429497`*^9}, { 3.8401518151979465`*^9, 3.8401518281747203`*^9}, {3.840151863236946*^9, 3.8401518678675194`*^9}, {3.8401520702884665`*^9, 3.840152090925307*^9}, { 3.840155301199746*^9, 3.840155380810563*^9}, {3.840156751588869*^9, 3.8401568602268276`*^9}, {3.8401569062872543`*^9, 3.8401569447339125`*^9}, {3.8401583088480663`*^9, 3.840158442364006*^9}, { 3.8401584780776615`*^9, 3.840158490953388*^9}, 3.840158635365588*^9, { 3.840159055301305*^9, 3.840159089996771*^9}, {3.8401591296059113`*^9, 3.840159129917841*^9}, {3.840159194285313*^9, 3.8401592063878784`*^9}, { 3.840159250821103*^9, 3.8401592945432053`*^9}, 3.8401600529031057`*^9, { 3.84016198670625*^9, 3.840162006314745*^9}, {3.840162047577321*^9, 3.840162047736292*^9}, {3.8401624624196653`*^9, 3.8401624630732813`*^9}, { 3.8401645265500445`*^9, 3.840164549856371*^9}, 3.840164874775137*^9, { 3.8401672672794223`*^9, 3.8401672754723625`*^9}, {3.840169345422138*^9, 3.8401693550065145`*^9}, {3.8401753191645837`*^9, 3.840175350337929*^9}, { 3.840175422933138*^9, 3.840175501305373*^9}, {3.840176565973245*^9, 3.840176637495947*^9}, {3.8401768234893637`*^9, 3.8401768589242334`*^9}, { 3.840176920796135*^9, 3.8401770809887075`*^9}, {3.8401773383856916`*^9, 3.8401773515163875`*^9}, {3.8402042123102922`*^9, 3.8402042395060406`*^9}, 3.8402046288374557`*^9, 3.84021240345682*^9, {3.8402124534753685`*^9, 3.8402124726979847`*^9}, {3.8406073217524066`*^9, 3.8406073250932837`*^9}, {3.8406078963065276`*^9, 3.8406079018941207`*^9}, {3.8406091270653067`*^9, 3.8406092330239077`*^9}, {3.8406092725408325`*^9, 3.8406093709080954`*^9}, {3.840609420400261*^9, 3.8406094366409025`*^9}, { 3.840609487445097*^9, 3.840609504250366*^9}, {3.84061026089353*^9, 3.840610330229744*^9}, {3.8406104019892626`*^9, 3.8406104210932317`*^9}, { 3.8406104763065977`*^9, 3.840610511049461*^9}, {3.8406127012788763`*^9, 3.840612701424589*^9}, {3.8406129988102045`*^9, 3.8406131458482027`*^9}, { 3.840613185032835*^9, 3.840613238645114*^9}, 3.840613277913649*^9, 3.8406133176179743`*^9, {3.840613445332945*^9, 3.840613518904728*^9}, { 3.840613576363493*^9, 3.8406136314374456`*^9}, {3.8406136703259335`*^9, 3.840613800594298*^9}, {3.8406138454572616`*^9, 3.8406138929291596`*^9}, { 3.8406145018411837`*^9, 3.840614526746681*^9}, {3.8406159731836634`*^9, 3.8406160348933916`*^9}, {3.84061630914672*^9, 3.840616348378207*^9}, { 3.8406163945810795`*^9, 3.840616406224659*^9}, {3.8406165253098617`*^9, 3.8406165299346714`*^9}, {3.840616575478094*^9, 3.840616579838168*^9}, { 3.840616731498263*^9, 3.8406167429461164`*^9}, {3.8406168428111143`*^9, 3.840616897376027*^9}, {3.8406206779690437`*^9, 3.840620682648349*^9}, { 3.8406207276848364`*^9, 3.840620733428303*^9}, {3.8406210216020355`*^9, 3.8406211503909597`*^9}, {3.840623979686429*^9, 3.8406240664633617`*^9}, { 3.8406240980245495`*^9, 3.8406241783123693`*^9}, {3.8406242205548487`*^9, 3.8406242273125257`*^9}, {3.84062467105003*^9, 3.8406247222471924`*^9}, { 3.8406247569556837`*^9, 3.8406252662628326`*^9}, {3.8406255340090427`*^9, 3.8406255492261724`*^9}, {3.8406258447198424`*^9, 3.840626192258951*^9}, { 3.840626238569937*^9, 3.8406262590538216`*^9}, {3.840626294024884*^9, 3.8406263519574013`*^9}, {3.8406264037803383`*^9, 3.8406264045497932`*^9}, {3.8406281719381104`*^9, 3.8406283222994823`*^9}, {3.8406283683259077`*^9, 3.8406284442542925`*^9}, {3.840628481638787*^9, 3.8406284878203306`*^9}, { 3.840628540511854*^9, 3.8406285440673027`*^9}, {3.840628620973291*^9, 3.8406286925793304`*^9}, {3.8406288437994223`*^9, 3.8406288921451416`*^9}, {3.840628942823262*^9, 3.8406289939928913`*^9}, 3.840629042159774*^9, {3.840629591896019*^9, 3.840629637819994*^9}, { 3.840630308805211*^9, 3.8406304114906836`*^9}, {3.840630442023675*^9, 3.840630442619223*^9}, {3.840630492296981*^9, 3.840630496931835*^9}, { 3.8406310472893248`*^9, 3.8406311362663174`*^9}, {3.8406312681990776`*^9, 3.8406312771737337`*^9}, {3.840631356298785*^9, 3.8406313688318815`*^9}, { 3.8406314825779037`*^9, 3.8406314865091963`*^9}, {3.840631554744774*^9, 3.8406316049737015`*^9}, 3.8406317403604374`*^9, {3.840631773388034*^9, 3.840631778235615*^9}, {3.8406318856175766`*^9, 3.840631937976758*^9}, { 3.840632114090581*^9, 3.840632178272401*^9}, {3.840633529500974*^9, 3.840633933231473*^9}, {3.8406340516057205`*^9, 3.8406341223911333`*^9}, { 3.84063415528163*^9, 3.840634320201149*^9}, {3.840634350820157*^9, 3.840634356985038*^9}, {3.8406344894401965`*^9, 3.840634738971182*^9}, { 3.840634799901149*^9, 3.84063480067727*^9}, {3.8406350830831604`*^9, 3.8406351505904107`*^9}, {3.840635208875179*^9, 3.84063520905681*^9}, { 3.8406353931243687`*^9, 3.8406353940131454`*^9}, {3.8406354677901525`*^9, 3.8406354680301933`*^9}, {3.8406357547054768`*^9, 3.8406358358534107`*^9}, {3.8406359030103025`*^9, 3.840635922141003*^9}, { 3.8406359527558784`*^9, 3.8406359878104963`*^9}, {3.8406361032849445`*^9, 3.8406362329123025`*^9}, 3.840636272405296*^9, {3.840636347645917*^9, 3.8406364452903843`*^9}, {3.8406378758430896`*^9, 3.8406379470910625`*^9}, {3.8406379988530746`*^9, 3.840638023582405*^9}, { 3.8406381760145364`*^9, 3.840638253730714*^9}, {3.8406391155969534`*^9, 3.840639200398224*^9}, {3.840639333359426*^9, 3.8406393719937563`*^9}, 3.840639472888164*^9, {3.8406395951765995`*^9, 3.840639602402272*^9}, 3.8406845844711905`*^9, {3.8406846158972054`*^9, 3.840684678497987*^9}, 3.840684784025262*^9, 3.8406848478503714`*^9, {3.8406849331627607`*^9, 3.8406850115344257`*^9}, {3.8406850428322906`*^9, 3.8406850997624245`*^9}, {3.8406867188488007`*^9, 3.840686838211692*^9}, { 3.840686911791442*^9, 3.840686912692556*^9}, {3.8406879109498267`*^9, 3.840687911148444*^9}, {3.840689440294406*^9, 3.8406894414290595`*^9}, 3.840689513755479*^9, 3.8406895594775105`*^9, {3.840693165232476*^9, 3.840693243194742*^9}, {3.8406976355591497`*^9, 3.8406978078183637`*^9}, { 3.840698727697235*^9, 3.8406987902122016`*^9}, {3.840698820979678*^9, 3.840698826031128*^9}, {3.8406998577675133`*^9, 3.84069992480552*^9}, { 3.840699970678713*^9, 3.8407000046783133`*^9}, {3.840700089490403*^9, 3.840700194012043*^9}, {3.8407002842949333`*^9, 3.8407005632050714`*^9}, { 3.840700606510401*^9, 3.840700611691828*^9}, {3.840700641919141*^9, 3.840700667262867*^9}, {3.840700699514847*^9, 3.840700730377691*^9}, { 3.8407007713572245`*^9, 3.840700837012573*^9}, {3.8407011934730873`*^9, 3.840701239673876*^9}, {3.8407012792768717`*^9, 3.8407012868172874`*^9}, { 3.84070132539847*^9, 3.8407013526811852`*^9}, {3.8407013983371587`*^9, 3.840701406008066*^9}, {3.8407014846304336`*^9, 3.840701573183384*^9}, { 3.840701604675478*^9, 3.840701606735585*^9}, {3.8407016496901784`*^9, 3.840701649968079*^9}, {3.8407016958055906`*^9, 3.8407017133173375`*^9}, { 3.840701757874757*^9, 3.84070175963594*^9}, {3.840701842834652*^9, 3.840701848041745*^9}, {3.8407020229694147`*^9, 3.840702049945819*^9}, { 3.8407021607776318`*^9, 3.840702370143668*^9}, {3.8407037247781153`*^9, 3.8407037782041717`*^9}, {3.8407038456672935`*^9, 3.840703882558412*^9}, { 3.840704269261737*^9, 3.8407044298502493`*^9}, {3.8407045137358665`*^9, 3.840704519168676*^9}, {3.8407049939988737`*^9, 3.840705018577838*^9}, { 3.8407050827103252`*^9, 3.840705113537577*^9}, {3.8407430742539377`*^9, 3.840743152407233*^9}, {3.8407444313423443`*^9, 3.8407445332280416`*^9}, { 3.840744590386205*^9, 3.8407445913559303`*^9}, {3.840744712543418*^9, 3.8407447224956875`*^9}, {3.8407447777721405`*^9, 3.8407448585998096`*^9}, {3.840745004497467*^9, 3.840745007339508*^9}, { 3.8407450449171*^9, 3.840745145522975*^9}, {3.840745181147393*^9, 3.8407451848269744`*^9}, {3.8407452248754873`*^9, 3.8407452543071156`*^9}, {3.8407453810518723`*^9, 3.840745397666952*^9}, { 3.840745602820671*^9, 3.8407456196675844`*^9}, {3.8407458233236876`*^9, 3.840746146028006*^9}, {3.8407474832354307`*^9, 3.8407474858599257`*^9}, { 3.8407475166830144`*^9, 3.8407475792956395`*^9}, {3.8407476851961584`*^9, 3.8407477516884384`*^9}, {3.840747873431821*^9, 3.840747873679819*^9}, { 3.840748350928976*^9, 3.840748351514307*^9}, {3.8407484838312035`*^9, 3.840748488048671*^9}, {3.8407486260909357`*^9, 3.840748627278202*^9}, { 3.8407488138406157`*^9, 3.8407488177674494`*^9}, 3.840748859153308*^9, { 3.840748915106464*^9, 3.840748918255212*^9}, {3.840748981840436*^9, 3.840748984864149*^9}, {3.8407550538441095`*^9, 3.840755076717167*^9}, 3.8407551634323835`*^9, {3.8407577737487335`*^9, 3.840757951277053*^9}, { 3.84075816359626*^9, 3.840758164213569*^9}, {3.840758255014513*^9, 3.8407583060332165`*^9}, {3.8407584264498243`*^9, 3.840758486813692*^9}, 3.8407591713171883`*^9, {3.8407604253252897`*^9, 3.8407605041787663`*^9}, 3.8407607217042956`*^9, 3.840764640134676*^9, {3.840769158318996*^9, 3.8407692210407524`*^9}, {3.8407692717289977`*^9, 3.8407692949296*^9}, { 3.840769360121728*^9, 3.840769362987406*^9}, {3.8407694277380505`*^9, 3.8407694478893976`*^9}, {3.840769478063957*^9, 3.840769497136506*^9}, 3.8407696058341227`*^9, {3.8409493440500927`*^9, 3.8409493591772904`*^9}, {3.8409494245299716`*^9, 3.840949479701002*^9}, { 3.840949588408942*^9, 3.840949589361117*^9}, 3.840962615979564*^9, { 3.8409626988114614`*^9, 3.840962710099682*^9}}, FontSize->12,ExpressionUUID->"aa18f280-2712-4e86-8b1b-0e5a18714d02"], StyleBox[" [Takhtadzhyan and Faddeev (1974)])", FontSize->12], "\n" }], "Text", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQA2IQrVP8sZRv3hvHC2WXq0H0qZqiBhBdMo1pJoh+dXrF VhDNwuK/HUS7Hfz/FUQ/KxP+BqK1Dm7m4gfSYT8/g2mh2MMygiC+roExiD68 M90KRAsZXbYG0T7Mxx1B9IS/qk4gWvTs51kg+qlY6SIQfezHs+UgOs7mG5jW uhMVrwWkZXovFIDonMKDtSDayvpmH4gWahefDKKZ/j2cDaJNjJwWgOhN90MW gmhlvdmuOkC6gNWsCkSXMYfVgWjDU2HtIPrFBaYJIPpj5kQwfaMyehpYfUo1 mM4IXzgPRFtt3rAQRIcoWCwH0bMsZ4Hp2/c4nusB6XCOLRC6getSMJB+MGH+ NRANAOxxrY0= "],ExpressionUUID->"f63ea88d-77d2-4ad8-a819-fcaf9efa0366"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{"The", " ", "1", "st", " ", "Shift"}], "+", RowBox[{"Enter", " ", RowBox[{"here", "!"}]}]}], " ", "*)"}], FontSize->24], StyleBox["\[IndentingNewLine]", FontSize->24], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "A", ",", "a", ",", "B", ",", "b", ",", "pmax", ",", "qmax", ",", "Comm", ",", "msize", ",", "Eqn", ",", "Collectrule"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"order", " ", "of", " ", OverscriptBox["L", "^"]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pmax", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"order", " ", "of", " ", OverscriptBox["M", "^"]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"qmax", "=", "7"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"matrix", " ", "size"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"msize", "=", "2"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Assumptions", " ", "for", " ", "highest", " ", "and", " ", "next", " ", "highest", " ", "order", " ", "coefficient", " ", "matrices", " ", "for", " ", OverscriptBox["L", "^"]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"i_", ",", "i_"}], "]"}], "[", "pmax", "]"}], "[", "x_", "]"}], ":=", RowBox[{"a", "[", RowBox[{"i", ",", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"i_", ",", "j_"}], "]"}], "[", "pmax", "]"}], "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"i", "\[NotEqual]", "j"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"i_", ",", "i_"}], "]"}], "[", RowBox[{"pmax", "-", "1"}], "]"}], "[", "x_", "]"}], ":=", "0"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Special", " ", "assumptions", " ", "for", " ", "individual", " ", "problems", " ", "are", " ", "described", " ", "here"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "1"}], "]"}], ":=", RowBox[{"-", "I"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"2", ",", "2"}], "]"}], ":=", "I"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"1", ",", "1"}], "]"}], "[", RowBox[{"pmax", "-", "1"}], "]"}], "[", "x_", "]"}], RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"1", ",", "2"}], "]"}], "[", RowBox[{"pmax", "-", "1"}], "]"}], "[", "x_", "]"}]}, { RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"2", ",", "1"}], "]"}], "[", RowBox[{"pmax", "-", "1"}], "]"}], "[", "x_", "]"}], RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"2", ",", "2"}], "]"}], "[", RowBox[{"pmax", "-", "1"}], "]"}], "[", "x_", "]"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], ":=", RowBox[{"(", GridBox[{ {"0", RowBox[{"q", "[", "x", "]"}]}, { RowBox[{"r", "[", "x", "]"}], "0"} }], ")"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"b", "[", RowBox[{"1", ",", "1"}], "]"}], "[", "m_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "I"}], ")"}], "^", "m"}], RowBox[{"(", RowBox[{ RowBox[{"d", "[", "m", "]"}], "+", RowBox[{"c", "[", "m", "]"}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"b", "[", RowBox[{"2", ",", "2"}], "]"}], "[", "m_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "I"}], ")"}], "^", "m"}], RowBox[{"(", RowBox[{ RowBox[{"d", "[", "m", "]"}], "-", RowBox[{"c", "[", "m", "]"}]}], ")"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Collectrule", "[", "X_", "]"}], ":=", RowBox[{"Collect", "[", RowBox[{"X", ",", RowBox[{"{", RowBox[{ RowBox[{"b", "[", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}], "]"}], "[", "M_", "]"}], "}"}], ",", "Factor"}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", "Default", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "Collectrule", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Collectrule", "[", "X_", "]"}], ":=", RowBox[{"Collect", "[", RowBox[{"X", ",", RowBox[{"{", RowBox[{ RowBox[{"c", "[", "M_", "]"}], ",", RowBox[{"d", "[", "M_", "]"}]}], "}"}], ",", "Factor"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "1"}], ":", " ", RowBox[{"Compute", " ", "the", " ", RowBox[{"commutator", " ", "[", RowBox[{ OverscriptBox["L", "^"], ",", OverscriptBox["M", "^"]}], "]"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "n", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], ".", RowBox[{"D", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "m", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], ".", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{"\[Phi]", ",", "msize"}], "]"}], RowBox[{"Exp", "[", RowBox[{"k", " ", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "m"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "qmax"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "n"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "pmax"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "m", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], ".", RowBox[{"D", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "n", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], ".", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{"\[Phi]", ",", "msize"}], "]"}], RowBox[{"Exp", "[", RowBox[{"k", " ", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "n"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "pmax"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "m"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "qmax"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Array", "[", RowBox[{"Eqn", ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "]"}], "=", RowBox[{"Normal", "[", RowBox[{ RowBox[{"CoefficientArrays", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "k"}], " ", "x"}], "]"}], RowBox[{"(", RowBox[{"%%", "-", "%"}], ")"}]}], "]"}], ",", RowBox[{"Array", "[", RowBox[{"\[Phi]", ",", "msize"}], "]"}]}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Comm", "[", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}], "]"}], "[", "l_", "]"}], "[", "x_", "]"}], ":=", RowBox[{"ReplaceAll", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Eqn", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], RowBox[{"l", "!"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"k", "\[Rule]", "0"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "2"}], ":", " ", RowBox[{ RowBox[{"Determine", " ", "off"}], "-", RowBox[{"diagonal", " ", "elements"}]}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#1", "\[NotEqual]", "#2"}], ",", RowBox[{ RowBox[{ RowBox[{"Comm", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "l", "]"}], "[", "x", "]"}], ",", "0"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"l", ",", "pmax", ",", RowBox[{"pmax", "+", "qmax"}]}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#1", "\[NotEqual]", "#2"}], ",", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "m", "]"}], "[", "x", "]"}], ",", "0"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "qmax"}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"%", "/.", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%%", "\[Equal]", "0"}], ",", RowBox[{"Evaluate", "[", "%", "]"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#1", "\[NotEqual]", "#2"}], ",", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "m", "]"}], "[", "x_", "]"}], ",", "0"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "qmax"}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Evaluate", "[", "%", "]"}], ":=", RowBox[{"Evaluate", "[", "%%", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"Step", " ", "3"}], ":", " ", RowBox[{"Determine", " ", "diagonal", " ", "elements"}]}], ",", " ", RowBox[{ "and", " ", "introduce", " ", "the", " ", "constants", " ", "of", " ", "integration", " ", RowBox[{ RowBox[{ RowBox[{"b", "[", RowBox[{"j", ",", "j"}], "]"}], "[", "m", "]"}], "'"}], "s"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Comm", "[", RowBox[{"#1", ",", "#1"}], "]"}], "[", "l", "]"}], "[", "x", "]"}], "&"}], ",", "msize"}], "]"}], ",", RowBox[{"{", RowBox[{"l", ",", RowBox[{"pmax", "-", "1"}], ",", RowBox[{"pmax", "+", "qmax", "-", "1"}]}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"#1", ",", "#1"}], "]"}], "[", "m", "]"}], "'"}], "[", "x", "]"}], "&"}], ",", "msize"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "qmax"}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"%", "/.", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%%", "\[Equal]", "0"}], ",", RowBox[{"Evaluate", "[", "%", "]"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Integrate", "[", RowBox[{"%", ",", "x"}], "]"}], "+", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"b", "[", RowBox[{"#1", ",", "#1"}], "]"}], "[", "m", "]"}], "&"}], ",", "msize"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "qmax"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"#1", ",", "#1"}], "]"}], "[", "m", "]"}], "[", "x_", "]"}], "&"}], ",", "msize"}], "]"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "qmax"}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Evaluate", "[", "%", "]"}], ":=", RowBox[{"Evaluate", "[", "%%", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Step", " ", "3.5"}], ":", " ", RowBox[{"Redefine", " ", RowBox[{"B", "'"}], "s", " ", "and", " ", RowBox[{"Comm", "'"}], "s", " ", "based", " ", "on", " ", "the", " ", "updated", " ", "outputs", " ", "to", " ", "avoid", " ", "repeating", " ", "the", " ", "same", " ", "calculation", " ", "and", " ", "speed", " ", "up", " ", "the", " ", "remaining", " ", "processes"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"#2", ",", "#3"}], "]"}], "[", RowBox[{"#1", "-", "1"}], "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"qmax", "+", "1"}], ",", "msize", ",", "msize"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Collectrule", "[", "%", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "B", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"#2", ",", "#3"}], "]"}], "[", RowBox[{"#1", "-", "1"}], "]"}], "[", "x_", "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"qmax", "+", "1"}], ",", "msize", ",", "msize"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Evaluate", "[", "%", "]"}], ":=", RowBox[{"Evaluate", "[", "%%%", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Comm", "[", RowBox[{"#2", ",", "#3"}], "]"}], "[", RowBox[{"#1", "-", "1"}], "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"pmax", "+", "qmax", "+", "1"}], ",", "msize", ",", "msize"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Collectrule", "[", "%", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "Comm", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Comm", "[", RowBox[{"#2", ",", "#3"}], "]"}], "[", RowBox[{"#1", "-", "1"}], "]"}], "[", "x_", "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"pmax", "+", "qmax", "+", "1"}], ",", "msize", ",", "msize"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Evaluate", "[", "%", "]"}], ":=", RowBox[{"Evaluate", "[", "%%%", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"End", " ", "of", " ", "Calculation"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.668676605513283*^9, 3.668676813261262*^9}, { 3.668676863805152*^9, 3.668676871074765*^9}, {3.6686769817815647`*^9, 3.6686772214951973`*^9}, {3.6686772578706636`*^9, 3.668677272857691*^9}, { 3.668677306611551*^9, 3.668677314809966*^9}, {3.6686775587226067`*^9, 3.6686776159629087`*^9}, {3.668677687640237*^9, 3.668677710897279*^9}, { 3.6686777419575415`*^9, 3.6686777565067673`*^9}, {3.668677829940898*^9, 3.668677852868339*^9}, {3.668677919505458*^9, 3.668677940459695*^9}, { 3.66867797621376*^9, 3.6686780019522057`*^9}, 3.668678065712923*^9, { 3.6686788521411467`*^9, 3.6686788911768165`*^9}, 3.6686789326198907`*^9, 3.6686789676335554`*^9, 3.6686790786177583`*^9, 3.6686791470412803`*^9, { 3.668679269934701*^9, 3.668679292580742*^9}, {3.668679364189476*^9, 3.668679375551296*^9}, {3.668679489238899*^9, 3.6686795041837254`*^9}, { 3.6686796047041073`*^9, 3.6686796449355826`*^9}, {3.6686796910818644`*^9, 3.6686797004654818`*^9}, {3.6686797526267743`*^9, 3.6686798279037085`*^9}, {3.6686798778239994`*^9, 3.668679985915395*^9}, { 3.668683603327124*^9, 3.6686836060113287`*^9}, {3.669134013293061*^9, 3.66913405896795*^9}, {3.669134097753019*^9, 3.6691341086030383`*^9}, { 3.6691341523473167`*^9, 3.6691343537272816`*^9}, {3.669134395376359*^9, 3.669134434251429*^9}, {3.6691344982413445`*^9, 3.6691345395672183`*^9}, { 3.6691347680304346`*^9, 3.6691348143149185`*^9}, {3.669134923632315*^9, 3.6691351663785567`*^9}, {3.6691352109692373`*^9, 3.6691352147006435`*^9}, {3.669135249844906*^9, 3.669135254533915*^9}, { 3.6691352852219706`*^9, 3.66913532058644*^9}, {3.6691353725645328`*^9, 3.6691354096083994`*^9}, {3.6691354503906727`*^9, 3.66913548787234*^9}, { 3.6691355467676463`*^9, 3.669135550617655*^9}, {3.66913558697412*^9, 3.669135591047727*^9}, {3.669135673331479*^9, 3.6691357162193556`*^9}, { 3.66913637833356*^9, 3.6691363865421743`*^9}, {3.6691364214956374`*^9, 3.669136427895649*^9}, {3.6691429312712126`*^9, 3.6691431909934826`*^9}, { 3.66914352814909*^9, 3.6691435320334964`*^9}, {3.669143576877178*^9, 3.6691436641543355`*^9}, {3.669144012988764*^9, 3.669144055649041*^9}, { 3.669144792810973*^9, 3.669144808670602*^9}, 3.669144870897313*^9, { 3.669145158459632*^9, 3.6691451594268336`*^9}, {3.6691456276308784`*^9, 3.6691456535419245`*^9}, {3.6691456933047996`*^9, 3.669145728282462*^9}, { 3.6691459829729195`*^9, 3.6691460259025955`*^9}, {3.6691460592250557`*^9, 3.6691460707066755`*^9}, {3.669146120686965*^9, 3.6691461262249746`*^9}, 3.6691502195739527`*^9, {3.7155849568134747`*^9, 3.7155851241380453`*^9}, { 3.7155851741409054`*^9, 3.715585322735404*^9}, {3.715585374559368*^9, 3.715585387496108*^9}, {3.71558543524984*^9, 3.7155854592882147`*^9}, { 3.7155855849724035`*^9, 3.715585655097414*^9}, {3.7155858601611433`*^9, 3.715585885722605*^9}, {3.715586197134417*^9, 3.7155862073550014`*^9}, { 3.71851406951567*^9, 3.7185141997816257`*^9}, {3.718514230610407*^9, 3.718514482792613*^9}, {3.7185145613249836`*^9, 3.7185145729378853`*^9}, { 3.718514640320331*^9, 3.71851466406841*^9}, {3.718514720293127*^9, 3.718514747769576*^9}, {3.7185147968455973`*^9, 3.7185148345079217`*^9}, { 3.718514892472715*^9, 3.7185149215703135`*^9}, {3.718514980924719*^9, 3.7185150163119044`*^9}, {3.718515069170537*^9, 3.7185150934346943`*^9}, { 3.718515167509858*^9, 3.7185152065929213`*^9}, {3.71851532800662*^9, 3.7185153608664455`*^9}, {3.718515906939521*^9, 3.7185160257474775`*^9}, { 3.7185160733241773`*^9, 3.7185160850248723`*^9}, {3.718516150044628*^9, 3.718516167598793*^9}, 3.718517706819808*^9, {3.7185179266079082`*^9, 3.7185179525291653`*^9}, {3.7185180140163574`*^9, 3.7185180154334464`*^9}, 3.7185183054624453`*^9, 3.718518339374579*^9, {3.7185188132069035`*^9, 3.7185188251910954`*^9}, {3.7185191903585415`*^9, 3.7185192519511805`*^9}, {3.718523515859912*^9, 3.718523654727809*^9}, { 3.71852386212728*^9, 3.718523916872706*^9}, {3.718524009208151*^9, 3.7185240475064754`*^9}, {3.7185240867620015`*^9, 3.7185241166103315`*^9}, {3.7185241761047845`*^9, 3.7185242043868976`*^9}, {3.71852427420487*^9, 3.718524309544072*^9}, { 3.7185244502609406`*^9, 3.7185244735623317`*^9}, {3.7185245392013903`*^9, 3.7185245677571993`*^9}, {3.7185246510194907`*^9, 3.7185246815956516`*^9}, {3.718524742451357*^9, 3.718524766796489*^9}, { 3.7185248323717937`*^9, 3.718524862829916*^9}, {3.7185249289869657`*^9, 3.7185249589771757`*^9}, {3.7185250495729914`*^9, 3.7185250893760724`*^9}, {3.718525169660263*^9, 3.7185252037699285`*^9}, { 3.7185252451022015`*^9, 3.718525246081569*^9}, {3.718525280814396*^9, 3.7185253686600714`*^9}, {3.718533509745361*^9, 3.718533621472438*^9}, { 3.7185336652533755`*^9, 3.7185337109878206`*^9}, {3.718533742309761*^9, 3.718533814361765*^9}, {3.7185338896972427`*^9, 3.718533927996684*^9}, { 3.718533999037425*^9, 3.7185340990373316`*^9}, {3.7185342374434547`*^9, 3.718534246236583*^9}, {3.718534299919632*^9, 3.718534300647541*^9}, { 3.7185343932979507`*^9, 3.7185344399931264`*^9}, {3.7185344792569723`*^9, 3.718534502221609*^9}, {3.71853459635013*^9, 3.7185346057301626`*^9}, { 3.7185346464403734`*^9, 3.7185346595414615`*^9}, {3.718534731275833*^9, 3.718534753949058*^9}, {3.7185347861371317`*^9, 3.7185348332115917`*^9}, { 3.718534986956379*^9, 3.7185349942297764`*^9}, {3.718538657708495*^9, 3.7185386730543194`*^9}, 3.71854113725769*^9, {3.718541496425022*^9, 3.718541528545675*^9}, {3.718541597677697*^9, 3.718541670949964*^9}, { 3.7185424951034355`*^9, 3.7185425067471013`*^9}, {3.7185425835059023`*^9, 3.7185425844033155`*^9}, {3.718551859253483*^9, 3.7185518829368377`*^9}, { 3.718555897943483*^9, 3.718555918654668*^9}, {3.840062359710498*^9, 3.84006238125691*^9}, {3.840062823133071*^9, 3.840062888647705*^9}, { 3.8400629403193026`*^9, 3.8400630241201286`*^9}, {3.840063238613986*^9, 3.840063255695342*^9}, {3.8400634809542093`*^9, 3.84006352137492*^9}, { 3.840063576312641*^9, 3.840063597973008*^9}, {3.840063649973076*^9, 3.8400637597646055`*^9}, 3.840063855682063*^9, {3.8400676965738115`*^9, 3.8400677361667795`*^9}, {3.840072680800487*^9, 3.840072681571499*^9}, { 3.840150539486353*^9, 3.8401505402364516`*^9}, {3.840150574348457*^9, 3.8401506146527367`*^9}, 3.8401506967331495`*^9, {3.840150800584402*^9, 3.840150893404269*^9}, {3.840150954095889*^9, 3.840151116099772*^9}, { 3.8401512469875937`*^9, 3.840151288492531*^9}, {3.8401513475702744`*^9, 3.8401514263958063`*^9}, {3.8401515236544876`*^9, 3.8401517120996447`*^9}, {3.840151748398049*^9, 3.8401517780429497`*^9}, { 3.8401518151979465`*^9, 3.8401518281747203`*^9}, {3.840151863236946*^9, 3.8401518678675194`*^9}, {3.8401520702884665`*^9, 3.840152090925307*^9}, { 3.840155301199746*^9, 3.840155380810563*^9}, {3.840156751588869*^9, 3.8401568602268276`*^9}, {3.8401569062872543`*^9, 3.8401569447339125`*^9}, {3.8401583088480663`*^9, 3.840158442364006*^9}, { 3.8401584780776615`*^9, 3.840158490953388*^9}, 3.840158635365588*^9, { 3.840159055301305*^9, 3.840159089996771*^9}, {3.8401591296059113`*^9, 3.840159129917841*^9}, {3.840159194285313*^9, 3.8401592063878784`*^9}, { 3.840159250821103*^9, 3.8401592945432053`*^9}, 3.8401600529031057`*^9, { 3.84016198670625*^9, 3.840162006314745*^9}, {3.840162047577321*^9, 3.840162047736292*^9}, {3.8401624624196653`*^9, 3.8401624630732813`*^9}, { 3.8401645265500445`*^9, 3.840164549856371*^9}, 3.840164874775137*^9, { 3.8401672672794223`*^9, 3.8401672754723625`*^9}, {3.840169345422138*^9, 3.8401693550065145`*^9}, {3.8401753191645837`*^9, 3.840175350337929*^9}, { 3.840175422933138*^9, 3.840175501305373*^9}, {3.840176565973245*^9, 3.840176637495947*^9}, {3.8401768234893637`*^9, 3.8401768589242334`*^9}, { 3.840176920796135*^9, 3.8401770809887075`*^9}, {3.8401773383856916`*^9, 3.8401773515163875`*^9}, {3.8402042123102922`*^9, 3.8402042395060406`*^9}, 3.8402046288374557`*^9, 3.84021240345682*^9, {3.8402124534753685`*^9, 3.8402124726979847`*^9}, {3.8406073217524066`*^9, 3.8406073250932837`*^9}, {3.8406078963065276`*^9, 3.8406079018941207`*^9}, {3.8406091270653067`*^9, 3.8406092330239077`*^9}, {3.8406092725408325`*^9, 3.8406093709080954`*^9}, {3.840609420400261*^9, 3.8406094366409025`*^9}, { 3.840609487445097*^9, 3.840609504250366*^9}, {3.84061026089353*^9, 3.840610330229744*^9}, {3.8406104019892626`*^9, 3.8406104210932317`*^9}, { 3.8406104763065977`*^9, 3.840610511049461*^9}, {3.8406127012788763`*^9, 3.840612701424589*^9}, {3.8406129988102045`*^9, 3.8406131458482027`*^9}, { 3.840613185032835*^9, 3.840613238645114*^9}, 3.840613277913649*^9, 3.8406133176179743`*^9, {3.840613445332945*^9, 3.840613518904728*^9}, { 3.840613576363493*^9, 3.8406136314374456`*^9}, {3.8406136703259335`*^9, 3.840613800594298*^9}, {3.8406138454572616`*^9, 3.8406138929291596`*^9}, { 3.8406145018411837`*^9, 3.840614526746681*^9}, {3.8406159731836634`*^9, 3.8406160348933916`*^9}, {3.84061630914672*^9, 3.840616348378207*^9}, { 3.8406163945810795`*^9, 3.840616406224659*^9}, {3.8406165253098617`*^9, 3.8406165299346714`*^9}, {3.840616575478094*^9, 3.840616579838168*^9}, { 3.840616731498263*^9, 3.8406167429461164`*^9}, {3.8406168428111143`*^9, 3.840616897376027*^9}, {3.8406206779690437`*^9, 3.840620682648349*^9}, { 3.8406207276848364`*^9, 3.840620733428303*^9}, {3.8406210216020355`*^9, 3.8406211503909597`*^9}, {3.840623979686429*^9, 3.8406240664633617`*^9}, { 3.8406240980245495`*^9, 3.8406241783123693`*^9}, {3.8406242205548487`*^9, 3.8406242273125257`*^9}, {3.84062467105003*^9, 3.8406247222471924`*^9}, { 3.8406247569556837`*^9, 3.8406252662628326`*^9}, {3.8406255340090427`*^9, 3.8406255492261724`*^9}, {3.8406258447198424`*^9, 3.840626192258951*^9}, { 3.840626238569937*^9, 3.8406262590538216`*^9}, {3.840626294024884*^9, 3.8406263519574013`*^9}, {3.8406264037803383`*^9, 3.8406264045497932`*^9}, {3.8406281719381104`*^9, 3.8406283222994823`*^9}, {3.8406283683259077`*^9, 3.8406284442542925`*^9}, {3.840628481638787*^9, 3.8406284878203306`*^9}, { 3.840628540511854*^9, 3.8406285440673027`*^9}, {3.840628620973291*^9, 3.8406286925793304`*^9}, {3.8406288437994223`*^9, 3.8406288921451416`*^9}, {3.840628942823262*^9, 3.8406289939928913`*^9}, 3.840629042159774*^9, {3.840629591896019*^9, 3.840629637819994*^9}, { 3.840630308805211*^9, 3.8406304114906836`*^9}, {3.840630442023675*^9, 3.840630442619223*^9}, {3.840630492296981*^9, 3.840630496931835*^9}, { 3.8406310472893248`*^9, 3.8406311362663174`*^9}, {3.8406312681990776`*^9, 3.8406312771737337`*^9}, {3.840631356298785*^9, 3.8406313688318815`*^9}, { 3.8406314825779037`*^9, 3.8406314865091963`*^9}, {3.840631554744774*^9, 3.8406316049737015`*^9}, 3.8406317403604374`*^9, {3.840631773388034*^9, 3.840631778235615*^9}, {3.8406318856175766`*^9, 3.840631937976758*^9}, { 3.840632114090581*^9, 3.840632178272401*^9}, {3.840633529500974*^9, 3.840633933231473*^9}, {3.8406340516057205`*^9, 3.8406341223911333`*^9}, { 3.84063415528163*^9, 3.840634320201149*^9}, {3.840634350820157*^9, 3.840634356985038*^9}, {3.8406344894401965`*^9, 3.840634738971182*^9}, { 3.840634799901149*^9, 3.84063480067727*^9}, {3.8406350830831604`*^9, 3.8406351505904107`*^9}, {3.840635208875179*^9, 3.84063520905681*^9}, { 3.8406353931243687`*^9, 3.8406353940131454`*^9}, {3.8406354677901525`*^9, 3.8406354680301933`*^9}, {3.8406357547054768`*^9, 3.8406358358534107`*^9}, {3.8406359030103025`*^9, 3.840635922141003*^9}, { 3.8406359527558784`*^9, 3.8406359878104963`*^9}, {3.8406361032849445`*^9, 3.8406362329123025`*^9}, 3.840636272405296*^9, {3.840636347645917*^9, 3.8406364452903843`*^9}, {3.8406378758430896`*^9, 3.8406379470910625`*^9}, {3.8406379988530746`*^9, 3.840638023582405*^9}, { 3.8406381760145364`*^9, 3.840638253730714*^9}, {3.8406391155969534`*^9, 3.840639200398224*^9}, {3.840639333359426*^9, 3.8406393719937563`*^9}, 3.840639472888164*^9, {3.8406395951765995`*^9, 3.840639602402272*^9}, 3.8406845844711905`*^9, {3.8406846158972054`*^9, 3.840684678497987*^9}, 3.840684784025262*^9, 3.8406848478503714`*^9, {3.8406849331627607`*^9, 3.8406850115344257`*^9}, {3.8406850428322906`*^9, 3.8406850997624245`*^9}, {3.8406867188488007`*^9, 3.840686838211692*^9}, { 3.840686911791442*^9, 3.840686912692556*^9}, {3.8406879109498267`*^9, 3.840687911148444*^9}, {3.840689440294406*^9, 3.8406894414290595`*^9}, 3.840689513755479*^9, 3.8406895594775105`*^9, {3.840693165232476*^9, 3.840693243194742*^9}, {3.8406976355591497`*^9, 3.8406978078183637`*^9}, { 3.840698727697235*^9, 3.8406987902122016`*^9}, {3.840698820979678*^9, 3.840698826031128*^9}, {3.8406998577675133`*^9, 3.84069992480552*^9}, { 3.840699970678713*^9, 3.8407000046783133`*^9}, {3.840700089490403*^9, 3.840700194012043*^9}, {3.8407002842949333`*^9, 3.8407005632050714`*^9}, { 3.840700606510401*^9, 3.840700611691828*^9}, {3.840700641919141*^9, 3.840700667262867*^9}, {3.840700699514847*^9, 3.840700730377691*^9}, { 3.8407007713572245`*^9, 3.840700837012573*^9}, {3.8407011934730873`*^9, 3.840701239673876*^9}, {3.8407012792768717`*^9, 3.8407012868172874`*^9}, { 3.84070132539847*^9, 3.8407013526811852`*^9}, {3.8407013983371587`*^9, 3.840701406008066*^9}, {3.8407014846304336`*^9, 3.840701573183384*^9}, { 3.840701604675478*^9, 3.840701606735585*^9}, {3.8407016496901784`*^9, 3.840701649968079*^9}, {3.8407016958055906`*^9, 3.8407017133173375`*^9}, { 3.840701757874757*^9, 3.84070175963594*^9}, {3.840701842834652*^9, 3.840701848041745*^9}, {3.8407020229694147`*^9, 3.840702049945819*^9}, { 3.8407021607776318`*^9, 3.840702370143668*^9}, {3.8407037247781153`*^9, 3.8407037782041717`*^9}, {3.8407038456672935`*^9, 3.840703882558412*^9}, { 3.840704269261737*^9, 3.8407044298502493`*^9}, {3.8407045137358665`*^9, 3.840704519168676*^9}, {3.8407049939988737`*^9, 3.840705018577838*^9}, { 3.8407050827103252`*^9, 3.840705113537577*^9}, {3.8407430742539377`*^9, 3.840743152407233*^9}, {3.8407444313423443`*^9, 3.8407445332280416`*^9}, { 3.840744590386205*^9, 3.8407445913559303`*^9}, {3.840744712543418*^9, 3.8407447224956875`*^9}, {3.8407447777721405`*^9, 3.8407448585998096`*^9}, {3.840745004497467*^9, 3.840745007339508*^9}, { 3.8407450449171*^9, 3.840745145522975*^9}, {3.840745181147393*^9, 3.8407451848269744`*^9}, {3.8407452248754873`*^9, 3.8407452543071156`*^9}, {3.8407453810518723`*^9, 3.840745397666952*^9}, { 3.840745602820671*^9, 3.8407456196675844`*^9}, {3.8407458233236876`*^9, 3.840746146028006*^9}, {3.8407474832354307`*^9, 3.8407474858599257`*^9}, { 3.8407475166830144`*^9, 3.8407475792956395`*^9}, {3.8407476851961584`*^9, 3.8407477516884384`*^9}, {3.840747873431821*^9, 3.840747873679819*^9}, { 3.840748350928976*^9, 3.840748351514307*^9}, {3.8407484838312035`*^9, 3.840748488048671*^9}, {3.8407486260909357`*^9, 3.840748627278202*^9}, { 3.8407488138406157`*^9, 3.8407488177674494`*^9}, 3.840748859153308*^9, { 3.840748915106464*^9, 3.840748918255212*^9}, {3.840748981840436*^9, 3.840748984864149*^9}, {3.8407550538441095`*^9, 3.840755076717167*^9}, 3.8407551634323835`*^9, {3.8407577737487335`*^9, 3.840757951277053*^9}, { 3.84075816359626*^9, 3.840758164213569*^9}, {3.840758255014513*^9, 3.8407583060332165`*^9}, {3.8407584264498243`*^9, 3.840758486813692*^9}, 3.8407591713171883`*^9, {3.8407604253252897`*^9, 3.8407605041787663`*^9}, 3.8407607217042956`*^9, 3.840764640134676*^9, {3.840769158318996*^9, 3.8407692210407524`*^9}, {3.8407692717289977`*^9, 3.8407692949296*^9}, { 3.840769360121728*^9, 3.840769362987406*^9}, {3.8407694277380505`*^9, 3.8407694478893976`*^9}, {3.840769478063957*^9, 3.840769497136506*^9}, 3.8407696058341227`*^9, {3.8409493440500927`*^9, 3.8409493591772904`*^9}, { 3.8409494245299716`*^9, 3.840949479701002*^9}, {3.840949588408942*^9, 3.840949589361117*^9}, 3.840962615979564*^9, {3.8409626988114614`*^9, 3.840962710099682*^9}, {3.8409641233055587`*^9, 3.8409641244947023`*^9}, 3.8409648674290905`*^9, {3.8409649052488303`*^9, 3.840964932556858*^9}, { 3.841010727157612*^9, 3.8410107438570166`*^9}, 3.8410112421121454`*^9, 3.8410161988275023`*^9, 3.841016256982579*^9, {3.841018604106821*^9, 3.8410186055283184`*^9}, {3.8410214206701355`*^9, 3.841021425142168*^9}, { 3.8410215379010825`*^9, 3.841021555937654*^9}, 3.84103004648934*^9, { 3.841044813365425*^9, 3.8410448239645576`*^9}, {3.8410449813428555`*^9, 3.8410449837311983`*^9}, {3.8410455641395383`*^9, 3.84104559715487*^9}, { 3.8411056721203938`*^9, 3.841105692900052*^9}, {3.9636613801811733`*^9, 3.9636613817308483`*^9}}, CellLabel-> "In[604]:=",ExpressionUUID->"19c88bcb-9c1b-4863-9e1b-f3605cb34091"], Cell[TextData[StyleBox["\[FilledCircle] Displaying the computed operators and \ commutators \[FilledCircle] ", FontSize->16, FontWeight->"Bold", FontVariations->{"Underline"->True}]], "Text", CellChangeTimes->{{3.8409629004649243`*^9, 3.8409629063856473`*^9}, { 3.840963130362687*^9, 3.840963133970152*^9}, {3.840963259136669*^9, 3.840963283328394*^9}, {3.8409678488571005`*^9, 3.8409678492958403`*^9}, { 3.840968089946001*^9, 3.8409680918630915`*^9}, {3.8409688481280394`*^9, 3.8409688504640207`*^9}},ExpressionUUID->"a55359f9-9fb1-48c3-bc61-\ 50502bc068db"], Cell[TextData[{ StyleBox["Notes:", FontVariations->{"Underline"->True}], "\n\[Bullet] If one does not want an expression decomposed with respect to \ c[n]\[CloseCurlyQuote]s and d[n]\[CloseCurlyQuote]s, use ", StyleBox["MatrixForm", FontVariations->{"Underline"->True}], " instead of ", StyleBox["MatrixFormCollectDeleteZeros", FontVariations->{"Underline"->True}], ".\n\[Bullet] If one wants to intentionally display zero matrices to make \ sure which terms vanish, use ", StyleBox["MatrixFormCollect", FontVariations->{"Underline"->True}], " instead of ", StyleBox["MatrixFormCollectDeleteZeros", FontVariations->{"Underline"->True}], ".\n" }], "Text", CellChangeTimes->{{3.8409665714953146`*^9, 3.8409665873047924`*^9}, { 3.840966621320922*^9, 3.8409666239953585`*^9}, {3.8409666610017138`*^9, 3.840966733504202*^9}, {3.8409667928363976`*^9, 3.8409668266270037`*^9}, { 3.840966997007901*^9, 3.8409670280638227`*^9}, 3.8409678883112006`*^9, { 3.8409681214567766`*^9, 3.84096812532084*^9}, 3.840969293405776*^9, { 3.841016503593485*^9, 3.8410165203886046`*^9}, {3.841044756763588*^9, 3.8410447665705776`*^9}, {3.8410450462059402`*^9, 3.8410450664993224`*^9}, 3.841105708907158*^9},ExpressionUUID->"07bf39e2-c990-4bab-9b03-\ 686b232cccb3"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{"The", " ", "2", "nd", " ", "Shift"}], "+", RowBox[{"Enter", " ", RowBox[{"here", "!"}]}]}], " ", "*)"}], FontSize->24], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Defining", " ", "the", " ", "term"}], "-", RowBox[{ "collecting", " ", "and", " ", "prettyprinting", " ", "functions"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ListToHoldedPlus", "[", "X_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "X", "]"}], "===", "1"}], ",", RowBox[{"HoldForm", "/@", "X"}], ",", RowBox[{"Replace", "[", RowBox[{"X", ",", RowBox[{ RowBox[{"List", "[", "Y__", "]"}], ":>", RowBox[{"HoldForm", "[", RowBox[{"Plus", "[", "Y", "]"}], "]"}]}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixFormCollect", "[", "mat_", "]"}], ":=", RowBox[{"ListToHoldedPlus", "[", RowBox[{"Flatten", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"D", "[", RowBox[{"mat", ",", RowBox[{"c", "[", RowBox[{"#", "-", "1"}], "]"}]}], "]"}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}], RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"c", "[", RowBox[{"#", "-", "1"}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"D", "[", RowBox[{"mat", ",", RowBox[{"d", "[", RowBox[{"#", "-", "1"}], "]"}]}], "]"}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}], RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"d", "[", RowBox[{"#", "-", "1"}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}]}]}], "}"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixFormCollect", "[", RowBox[{"mat_", ",", "CoefficientReplace_"}], "]"}], ":=", RowBox[{"ListToHoldedPlus", "[", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"D", "[", RowBox[{"mat", ",", RowBox[{"c", "[", RowBox[{"#", "-", "1"}], "]"}]}], "]"}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}], RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"c", "[", RowBox[{"#", "-", "1"}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"D", "[", RowBox[{"mat", ",", RowBox[{"d", "[", RowBox[{"#", "-", "1"}], "]"}]}], "]"}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}], RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"d", "[", RowBox[{"#", "-", "1"}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}]}]}], "}"}], "/.", "CoefficientReplace"}], "]"}], ",", "0"}], "]"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixFormCollectDeleteZeros", "[", "mat_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"mat", "===", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}]}], ",", RowBox[{"MatrixForm", "[", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"ListToHoldedPlus", "[", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"mat", ",", RowBox[{"c", "[", RowBox[{"#", "-", "1"}], "]"}]}], "]"}], "===", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}]}], ",", "0", ",", RowBox[{"MatrixForm", "[", RowBox[{"D", "[", RowBox[{"mat", ",", RowBox[{"c", "[", RowBox[{"#", "-", "1"}], "]"}]}], "]"}], "]"}]}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}], RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"c", "[", RowBox[{"#", "-", "1"}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}]}], "\[IndentingNewLine]", ",", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"mat", ",", RowBox[{"d", "[", RowBox[{"#", "-", "1"}], "]"}]}], "]"}], "===", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}]}], ",", "0", ",", RowBox[{"MatrixForm", "[", RowBox[{"D", "[", RowBox[{"mat", ",", RowBox[{"d", "[", RowBox[{"#", "-", "1"}], "]"}]}], "]"}], "]"}]}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}], RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"d", "[", RowBox[{"#", "-", "1"}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}]}]}], "}"}], "]"}], "]"}], ",", "0"}], "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixFormCollectDeleteZeros", "[", RowBox[{"mat_", ",", "CoefficientReplace_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ReplaceAll", "[", RowBox[{"mat", ",", "CoefficientReplace"}], "]"}], "===", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}]}], ",", RowBox[{"MatrixForm", "[", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"ListToHoldedPlus", "[", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"mat", ",", RowBox[{"c", "[", RowBox[{"#", "-", "1"}], "]"}]}], "]"}], "===", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}]}], ",", "0", ",", RowBox[{"MatrixForm", "[", RowBox[{"D", "[", RowBox[{"mat", ",", RowBox[{"c", "[", RowBox[{"#", "-", "1"}], "]"}]}], "]"}], "]"}]}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}], RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"c", "[", RowBox[{"#", "-", "1"}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}]}], "\[IndentingNewLine]", ",", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"mat", ",", RowBox[{"d", "[", RowBox[{"#", "-", "1"}], "]"}]}], "]"}], "===", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}]}], ",", "0", ",", RowBox[{"MatrixForm", "[", RowBox[{"D", "[", RowBox[{"mat", ",", RowBox[{"d", "[", RowBox[{"#", "-", "1"}], "]"}]}], "]"}], "]"}]}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}], RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"d", "[", RowBox[{"#", "-", "1"}], "]"}], "&"}], ",", RowBox[{"qmax", "+", "1"}]}], "]"}]}]}], "}"}], "]"}], "]"}], "/.", "CoefficientReplace"}], ",", "0"}], "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ScriptLift", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"c", "[", "M_", "]"}], "\[Rule]", RowBox[{"Superscript", "[", RowBox[{"c", ",", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\<(\>\"", ",", "M", ",", "\"\<)\>\""}], "}"}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"d", "[", "M_", "]"}], "\[Rule]", RowBox[{"Superscript", "[", RowBox[{"d", ",", RowBox[{"DisplayForm", "[", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\"\<(\>\"", ",", "M", ",", "\"\<)\>\""}], "}"}], "]"}], "]"}]}], "]"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.8409665306421547`*^9, 3.840966542508567*^9}, 3.8409667634730015`*^9, {3.8409668667055016`*^9, 3.8409669321541433`*^9}, 3.8409678868734274`*^9, {3.84096851259217*^9, 3.8409685163207183`*^9}, { 3.840968669930439*^9, 3.840968699798934*^9}, {3.840969411197476*^9, 3.8409694272825546`*^9}, {3.841016026927838*^9, 3.841016039492116*^9}, { 3.8410160768911057`*^9, 3.841016183367778*^9}, {3.8410163766763725`*^9, 3.84101637907461*^9}, {3.84101658270442*^9, 3.8410166744661703`*^9}, 3.841105729577984*^9, {3.8411092266342344`*^9, 3.8411092488649025`*^9}, { 3.8411101813162403`*^9, 3.8411101991448965`*^9}, {3.8411265704284306`*^9, 3.8411266460687914`*^9}, {3.841132146085741*^9, 3.841132154478644*^9}, { 3.963661396583439*^9, 3.963661397265423*^9}}, CellLabel-> "In[644]:=",ExpressionUUID->"a8c0da10-bdda-4b91-9ebd-b13ed6f01a91"], Cell[TextData[{ StyleBox["--- Normal-ordered form ---", FontSize->16, FontWeight->"Bold", FontVariations->{"Underline"->True}], "\nHere, the normal-ordered form is the expression shown in the beginning of \ this file.\n" }], "Text", CellChangeTimes->{{3.8409642269136677`*^9, 3.8409642879033613`*^9}, 3.8409644304156427`*^9, {3.840964480375534*^9, 3.840964480527137*^9}, 3.8409664321212883`*^9, 3.840966529200829*^9, 3.8409670489292507`*^9, 3.8409678937673717`*^9, {3.8409688418623095`*^9, 3.8409688423760242`*^9}, { 3.8410162661935573`*^9, 3.8410162682497253`*^9}, {3.8410166758092036`*^9, 3.8410166780899553`*^9}, 3.8410460505705104`*^9, {3.8411276075925374`*^9, 3.8411277374084806`*^9}, {3.841128335103936*^9, 3.8411283372249155`*^9}, { 3.8411309720953054`*^9, 3.8411310068146305`*^9}},ExpressionUUID->"a32d5232-d793-425b-96e5-\ ec43a135ed8c"], Cell[TextData[{ "To illustrate the difference, here we show the outputs derived from both \ MatrixFormCollect and MatrixFormCollectDeleteZeros.\n\n", StyleBox["\[FilledCircle]The output based on MatrixFormCollect: ", FontSize->16] }], "Text", CellChangeTimes->{{3.8411278241671906`*^9, 3.8411278915759964`*^9}, { 3.8411309986374125`*^9, 3.841131001877322*^9}},ExpressionUUID->"dfde335a-7177-43ff-8300-\ cc0390f3f8af"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{"The", " ", "3", "rd", " ", "Shift"}], "+", RowBox[{"Enter", " ", RowBox[{"here", "!"}]}]}], " ", "*)"}], FontSize->24], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ "Text", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "n", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "//", "MatrixForm"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "pmax"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Text", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "m", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "//", "MatrixFormCollect"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "qmax"}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "/.", "ScriptLift"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Text", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "m", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "//", RowBox[{ RowBox[{"MatrixFormCollect", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{"d", "[", "m_", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}], "&"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "qmax"}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "/.", "ScriptLift"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Text", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Comm", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "l", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "//", "MatrixFormCollect"}], ",", RowBox[{"{", RowBox[{"l", ",", "0", ",", RowBox[{"pmax", "+", "qmax"}]}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "/.", "ScriptLift"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Text", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Comm", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "l", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "//", RowBox[{ RowBox[{"MatrixFormCollect", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{"d", "[", "m_", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}], "&"}]}], ",", RowBox[{"{", RowBox[{"l", ",", "0", ",", RowBox[{"pmax", "+", "qmax"}]}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "/.", "ScriptLift"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.840748119192645*^9, 3.8407481254087324`*^9}, { 3.8407482404244957`*^9, 3.8407482449539804`*^9}, {3.840748359200265*^9, 3.840748368707157*^9}, {3.840748641681017*^9, 3.840748642393263*^9}, { 3.840749455438859*^9, 3.8407495066581273`*^9}, {3.8407551844560347`*^9, 3.840755193728826*^9}, {3.8407585457101383`*^9, 3.8407586695250096`*^9}, { 3.840759112300947*^9, 3.840759132944605*^9}, {3.840760543058858*^9, 3.84076056459422*^9}, {3.840949617044705*^9, 3.84094961799971*^9}, { 3.8409553040037427`*^9, 3.8409553041542163`*^9}, {3.8409662855446825`*^9, 3.8409663527948465`*^9}, {3.8409663865393515`*^9, 3.8409664364460444`*^9}, 3.840966535595592*^9, 3.8409670541151304`*^9, 3.840967098272625*^9, 3.840967383037408*^9, {3.8409678951174297`*^9, 3.8409679083915176`*^9}, { 3.8409679385531344`*^9, 3.84096794760021*^9}, {3.8409694326234913`*^9, 3.8409694372815943`*^9}, {3.8410162267627993`*^9, 3.8410162299780116`*^9}, {3.8410164021555076`*^9, 3.841016471202374*^9}, { 3.841016665356971*^9, 3.841016672083144*^9}, {3.8411074723063245`*^9, 3.8411075078242416`*^9}, 3.841107585150749*^9, {3.8411078498208785`*^9, 3.8411078983635883`*^9}, {3.8411079366929784`*^9, 3.841108045067151*^9}, { 3.841109253879284*^9, 3.841109279825564*^9}, {3.841109349812222*^9, 3.8411093523137655`*^9}, {3.8411093955618258`*^9, 3.8411094331150646`*^9}, {3.8411094845542955`*^9, 3.8411094865353155`*^9}, {3.8411095203009663`*^9, 3.8411095381296563`*^9}, {3.8411095704922404`*^9, 3.841109626595516*^9}, 3.8411096845024834`*^9, {3.841109755487551*^9, 3.841109758569416*^9}, { 3.841110213602393*^9, 3.8411102145207834`*^9}, {3.841126689066327*^9, 3.8411267521412745`*^9}, {3.841127375875735*^9, 3.841127389153616*^9}, { 3.9636614089485435`*^9, 3.963661417466818*^9}, 3.963661628165497*^9, { 3.9636630120923805`*^9, 3.9636630375103893`*^9}}, CellLabel-> "In[650]:=",ExpressionUUID->"86b47d91-90b3-4d8f-bfca-c1524acd61d8"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices \\!\\(\\*SuperscriptBox[\\(A\\), \ \\((0)\\)]\\), \\!\\(\\*SuperscriptBox[\\(A\\), \\((1)\\)]\\),..., \ \\!\\(\\*SuperscriptBox[\\(A\\), \\((pmax)\\)]\\) for \\!\\(\\*OverscriptBox[\ \\(L\\), \\(^\\)]\\): \"\>", TextForm]], "InlineText",ExpressionUUID-> "c4ddd2c0-cb56-8c4b-99f6-de93b0e5f8e1"], Text["Coefficient Matrices \!\(\*SuperscriptBox[\(A\), \((0)\)]\), \ \!\(\*SuperscriptBox[\(A\), \((1)\)]\),..., \!\(\*SuperscriptBox[\(A\), \ \((pmax)\)]\) for \!\(\*OverscriptBox[\(L\), \(^\)]\): "]]], "Output", CellChangeTimes->{ 3.840758210371959*^9, 3.840758326743965*^9, 3.8407585070792875`*^9, 3.840758673531847*^9, 3.840759133429866*^9, 3.8407592011824465`*^9, 3.8407606403702335`*^9, 3.840769324725251*^9, 3.8407693761026697`*^9, 3.840769452907261*^9, 3.8407695041212425`*^9, 3.840769650347396*^9, { 3.8409496049530935`*^9, 3.840949618568045*^9}, {3.8409673615349236`*^9, 3.8409673849428215`*^9}, 3.8409679099379435`*^9, 3.8409679481127586`*^9, 3.8409695207948956`*^9, 3.841016270927108*^9, {3.8410164095555935`*^9, 3.8410164716583433`*^9}, 3.841016679230606*^9, 3.8410188518106747`*^9, 3.841105917694007*^9, {3.8411074845973988`*^9, 3.841107508371778*^9}, 3.841107585724284*^9, {3.8411078514340553`*^9, 3.84110789917074*^9}, 3.841108007182234*^9, 3.8411080480481396`*^9, {3.8411092613208666`*^9, 3.8411092806642714`*^9}, 3.841109352922802*^9, {3.841109420889462*^9, 3.841109433635468*^9}, 3.8411094874208207`*^9, 3.841109539176628*^9, { 3.8411095710135393`*^9, 3.841109627049779*^9}, 3.8411096851863885`*^9, 3.841109759161311*^9, 3.8411102858289804`*^9, 3.8411268166217575`*^9, 3.8411273954631453`*^9, 3.9636612840141354`*^9, 3.963663114574131*^9}, CellLabel-> "Out[650]=",ExpressionUUID->"f5d291f7-ccea-284f-a526-4c5d0a0446a5"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"q", "[", "x", "]"}]}, { RowBox[{"r", "[", "x", "]"}], "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "\[ImaginaryI]"}], "0"}, {"0", "\[ImaginaryI]"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.840758210371959*^9, 3.840758326743965*^9, 3.8407585070792875`*^9, 3.840758673531847*^9, 3.840759133429866*^9, 3.8407592011824465`*^9, 3.8407606403702335`*^9, 3.840769324725251*^9, 3.8407693761026697`*^9, 3.840769452907261*^9, 3.8407695041212425`*^9, 3.840769650347396*^9, { 3.8409496049530935`*^9, 3.840949618568045*^9}, {3.8409673615349236`*^9, 3.8409673849428215`*^9}, 3.8409679099379435`*^9, 3.8409679481127586`*^9, 3.8409695207948956`*^9, 3.841016270927108*^9, {3.8410164095555935`*^9, 3.8410164716583433`*^9}, 3.841016679230606*^9, 3.8410188518106747`*^9, 3.841105917694007*^9, {3.8411074845973988`*^9, 3.841107508371778*^9}, 3.841107585724284*^9, {3.8411078514340553`*^9, 3.84110789917074*^9}, 3.841108007182234*^9, 3.8411080480481396`*^9, {3.8411092613208666`*^9, 3.8411092806642714`*^9}, 3.841109352922802*^9, {3.841109420889462*^9, 3.841109433635468*^9}, 3.8411094874208207`*^9, 3.841109539176628*^9, { 3.8411095710135393`*^9, 3.841109627049779*^9}, 3.8411096851863885`*^9, 3.841109759161311*^9, 3.8411102858289804`*^9, 3.8411268166217575`*^9, 3.8411273954631453`*^9, 3.9636612840141354`*^9, 3.963663114574131*^9}, CellLabel-> "Out[651]//TableForm=",ExpressionUUID->"31b222b1-e314-1d4d-afe4-\ 2c944959939e"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices \\!\\(\\*SuperscriptBox[\\(B\\), \ \\((0)\\)]\\), \\!\\(\\*SuperscriptBox[\\(B\\), \\((1)\\)]\\),..., \ \\!\\(\\*SuperscriptBox[\\(B\\), \\((qmax)\\)]\\) for \\!\\(\\*OverscriptBox[\ \\(M\\), \\(^\\)]\\): \"\>", TextForm]], "InlineText",ExpressionUUID-> "736a1982-52c4-2043-90b4-afc397a7190d"], Text["Coefficient Matrices \!\(\*SuperscriptBox[\(B\), \((0)\)]\), \ \!\(\*SuperscriptBox[\(B\), \((1)\)]\),..., \!\(\*SuperscriptBox[\(B\), \ \((qmax)\)]\) for \!\(\*OverscriptBox[\(M\), \(^\)]\): "]]], "Output", CellChangeTimes->{ 3.840758210371959*^9, 3.840758326743965*^9, 3.8407585070792875`*^9, 3.840758673531847*^9, 3.840759133429866*^9, 3.8407592011824465`*^9, 3.8407606403702335`*^9, 3.840769324725251*^9, 3.8407693761026697`*^9, 3.840769452907261*^9, 3.8407695041212425`*^9, 3.840769650347396*^9, { 3.8409496049530935`*^9, 3.840949618568045*^9}, {3.8409673615349236`*^9, 3.8409673849428215`*^9}, 3.8409679099379435`*^9, 3.8409679481127586`*^9, 3.8409695207948956`*^9, 3.841016270927108*^9, {3.8410164095555935`*^9, 3.8410164716583433`*^9}, 3.841016679230606*^9, 3.8410188518106747`*^9, 3.841105917694007*^9, {3.8411074845973988`*^9, 3.841107508371778*^9}, 3.841107585724284*^9, {3.8411078514340553`*^9, 3.84110789917074*^9}, 3.841108007182234*^9, 3.8411080480481396`*^9, {3.8411092613208666`*^9, 3.8411092806642714`*^9}, 3.841109352922802*^9, {3.841109420889462*^9, 3.841109433635468*^9}, 3.8411094874208207`*^9, 3.841109539176628*^9, { 3.8411095710135393`*^9, 3.841109627049779*^9}, 3.8411096851863885`*^9, 3.841109759161311*^9, 3.8411102858289804`*^9, 3.8411268166217575`*^9, 3.8411273954631453`*^9, 3.9636612840141354`*^9, 3.963663114574131*^9}, CellLabel-> "Out[652]=",ExpressionUUID->"f8672839-724f-284b-a31f-aeef88c6ae06"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"4", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"6", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "8"}], " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"8", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "16"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "30"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"30", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"32", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"32", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"32", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"65", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"180", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"121", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"99", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"79", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"90", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"200", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"180", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"100", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"90", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"180", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"200", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"100", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"5", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"180", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"65", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"121", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"79", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"99", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"64", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"64", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"64", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "14"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"110", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"63", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"37", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "14"}], " ", RowBox[{"(", RowBox[{ RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"190", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"80", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"14", " ", RowBox[{"(", RowBox[{ RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"80", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"190", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"30", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "14"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"110", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"63", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"37", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "128"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"128", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "4"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"13", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"21", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"7", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"11", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"128", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "4"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"8", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"21", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"11", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"128", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"2", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"12", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "8"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "8"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "8"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"8", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"32", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "20"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"20", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"32", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "20"}], " ", RowBox[{"(", RowBox[{ RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"31", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"29", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"18", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"32", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"32", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"20", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"29", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"31", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"128", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "128"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "28"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"103", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"77", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "28"}], " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"120", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"28", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"120", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "28"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"103", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"77", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "128"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"8", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"25", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"22", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"17", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"(", RowBox[{ RowBox[{"9", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"17", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"25", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"24", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"19", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"17", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"19", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"24", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"25", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"128", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"25", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"8", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"9", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"22", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"17", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "4"}], "0"}, {"0", "4"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "4"}], "0"}, {"0", RowBox[{"-", "4"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "8"}], " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "8"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "24"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"24", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"24", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"24", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"32", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"120", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"120", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "120"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"120", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"64", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "64"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "64"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "40"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"19", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"40", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"19", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "64"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"64", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "64"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"280", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"280", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "280"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"280", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"128", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"28", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"26", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"12", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"23", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"19", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"23", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"19", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"11", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "128"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"26", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"28", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"8", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"8", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"8", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "8"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"80", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "80"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"64", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"64", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"64", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"80", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "80"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"384", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "384"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"384", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"384", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"560", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"560", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "560"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"560", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"128", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"23", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"128", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"128", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "128"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"23", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"16", "0"}, {"0", RowBox[{"-", "16"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"16", "0"}, {"0", "16"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"32", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"32", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"160", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "160"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "160"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "160"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"192", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "192"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"192", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"192", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "1120"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "1120"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"1120", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "1120"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "384"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"384", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"384", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"384", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"32", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "448"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "448"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"448", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "448"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "384"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "384"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "384"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"384", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "64"}], "0"}, {"0", "64"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "64"}], "0"}, {"0", RowBox[{"-", "64"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"128", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"128", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"128", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "128"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.840758210371959*^9, 3.840758326743965*^9, 3.8407585070792875`*^9, 3.840758673531847*^9, 3.840759133429866*^9, 3.8407592011824465`*^9, 3.8407606403702335`*^9, 3.840769324725251*^9, 3.8407693761026697`*^9, 3.840769452907261*^9, 3.8407695041212425`*^9, 3.840769650347396*^9, { 3.8409496049530935`*^9, 3.840949618568045*^9}, {3.8409673615349236`*^9, 3.8409673849428215`*^9}, 3.8409679099379435`*^9, 3.8409679481127586`*^9, 3.8409695207948956`*^9, 3.841016270927108*^9, {3.8410164095555935`*^9, 3.8410164716583433`*^9}, 3.841016679230606*^9, 3.8410188518106747`*^9, 3.841105917694007*^9, {3.8411074845973988`*^9, 3.841107508371778*^9}, 3.841107585724284*^9, {3.8411078514340553`*^9, 3.84110789917074*^9}, 3.841108007182234*^9, 3.8411080480481396`*^9, {3.8411092613208666`*^9, 3.8411092806642714`*^9}, 3.841109352922802*^9, {3.841109420889462*^9, 3.841109433635468*^9}, 3.8411094874208207`*^9, 3.841109539176628*^9, { 3.8411095710135393`*^9, 3.841109627049779*^9}, 3.8411096851863885`*^9, 3.841109759161311*^9, 3.8411102858289804`*^9, 3.8411268166217575`*^9, 3.8411273954631453`*^9, 3.9636612840141354`*^9, 3.9636631148913555`*^9}, CellLabel-> "Out[654]//TableForm=",ExpressionUUID->"3e99fe12-8dc6-8c44-9974-\ 2c0aec80aeaa"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices for \\!\\(\\*OverscriptBox[\\(M\\), \\(^\ \\)]\\) (\\!\\(\\*SuperscriptBox[\\(d\\), \\((n)\\)]\\)'s excluded): \"\>", TextForm]], "InlineText",ExpressionUUID-> "bdf01d1f-a1f2-6f40-aab9-dbd546d77edf"], Text["Coefficient Matrices for \!\(\*OverscriptBox[\(M\), \(^\)]\) \ (\!\(\*SuperscriptBox[\(d\), \((n)\)]\)'s excluded): "]]], "Output", CellChangeTimes->{ 3.840758210371959*^9, 3.840758326743965*^9, 3.8407585070792875`*^9, 3.840758673531847*^9, 3.840759133429866*^9, 3.8407592011824465`*^9, 3.8407606403702335`*^9, 3.840769324725251*^9, 3.8407693761026697`*^9, 3.840769452907261*^9, 3.8407695041212425`*^9, 3.840769650347396*^9, { 3.8409496049530935`*^9, 3.840949618568045*^9}, {3.8409673615349236`*^9, 3.8409673849428215`*^9}, 3.8409679099379435`*^9, 3.8409679481127586`*^9, 3.8409695207948956`*^9, 3.841016270927108*^9, {3.8410164095555935`*^9, 3.8410164716583433`*^9}, 3.841016679230606*^9, 3.8410188518106747`*^9, 3.841105917694007*^9, {3.8411074845973988`*^9, 3.841107508371778*^9}, 3.841107585724284*^9, {3.8411078514340553`*^9, 3.84110789917074*^9}, 3.841108007182234*^9, 3.8411080480481396`*^9, {3.8411092613208666`*^9, 3.8411092806642714`*^9}, 3.841109352922802*^9, {3.841109420889462*^9, 3.841109433635468*^9}, 3.8411094874208207`*^9, 3.841109539176628*^9, { 3.8411095710135393`*^9, 3.841109627049779*^9}, 3.8411096851863885`*^9, 3.841109759161311*^9, 3.8411102858289804`*^9, 3.8411268166217575`*^9, 3.8411273954631453`*^9, 3.9636612840141354`*^9, 3.96366311492408*^9}, CellLabel-> "Out[655]=",ExpressionUUID->"58c6bf25-2703-6849-987e-843006915dd4"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"6", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "30"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"30", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"65", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"180", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"121", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"99", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"79", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"90", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"200", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"180", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"100", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"90", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"180", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"200", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"100", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"5", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"180", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"65", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"121", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"79", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"99", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "14"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"110", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"63", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"37", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "14"}], " ", RowBox[{"(", RowBox[{ RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"190", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"80", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"14", " ", RowBox[{"(", RowBox[{ RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"80", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"190", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"30", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "14"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"110", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"63", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"37", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"12", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "20"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"20", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "20"}], " ", RowBox[{"(", RowBox[{ RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"31", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"29", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"18", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"32", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"32", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"20", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"29", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"31", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "28"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"103", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"77", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "28"}], " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"120", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"28", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"120", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "28"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"103", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"77", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "4"}], "0"}, {"0", "4"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "24"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"24", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"24", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"24", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"120", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"120", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "120"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"120", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "40"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"19", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"40", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"19", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"280", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"280", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "280"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"280", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"8", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"8", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"80", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "80"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"80", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "80"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"560", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"560", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "560"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"560", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"16", "0"}, {"0", RowBox[{"-", "16"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"160", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "160"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "160"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "160"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "1120"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "1120"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"1120", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "1120"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "448"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "448"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"448", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "448"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "64"}], "0"}, {"0", "64"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"128", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"128", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.840758210371959*^9, 3.840758326743965*^9, 3.8407585070792875`*^9, 3.840758673531847*^9, 3.840759133429866*^9, 3.8407592011824465`*^9, 3.8407606403702335`*^9, 3.840769324725251*^9, 3.8407693761026697`*^9, 3.840769452907261*^9, 3.8407695041212425`*^9, 3.840769650347396*^9, { 3.8409496049530935`*^9, 3.840949618568045*^9}, {3.8409673615349236`*^9, 3.8409673849428215`*^9}, 3.8409679099379435`*^9, 3.8409679481127586`*^9, 3.8409695207948956`*^9, 3.841016270927108*^9, {3.8410164095555935`*^9, 3.8410164716583433`*^9}, 3.841016679230606*^9, 3.8410188518106747`*^9, 3.841105917694007*^9, {3.8411074845973988`*^9, 3.841107508371778*^9}, 3.841107585724284*^9, {3.8411078514340553`*^9, 3.84110789917074*^9}, 3.841108007182234*^9, 3.8411080480481396`*^9, {3.8411092613208666`*^9, 3.8411092806642714`*^9}, 3.841109352922802*^9, {3.841109420889462*^9, 3.841109433635468*^9}, 3.8411094874208207`*^9, 3.841109539176628*^9, { 3.8411095710135393`*^9, 3.841109627049779*^9}, 3.8411096851863885`*^9, 3.841109759161311*^9, 3.8411102858289804`*^9, 3.8411268166217575`*^9, 3.8411273954631453`*^9, 3.9636612840141354`*^9, 3.9636631150242214`*^9}, CellLabel-> "Out[657]//TableForm=",ExpressionUUID->"e07d74ce-6f83-5443-901c-\ a8beedd57f87"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices \\!\\(\\*SuperscriptBox[\\(Comm\\), \ \\((0)\\)]\\), \\!\\(\\*SuperscriptBox[\\(Comm\\), \\((1)\\)]\\), ..., \\!\\(\ \\*SuperscriptBox[\\(Comm\\), \\((pmax + qmax)\\)]\\) for \ [\\!\\(\\*OverscriptBox[\\(L\\), \\(^\\)]\\),\\!\\(\\*OverscriptBox[\\(M\\), \ \\(^\\)]\\)]: \"\>", TextForm]], "InlineText",ExpressionUUID-> "d60c4558-413a-6945-87a5-35931c90b3d9"], Text["Coefficient Matrices \!\(\*SuperscriptBox[\(Comm\), \((0)\)]\), \ \!\(\*SuperscriptBox[\(Comm\), \((1)\)]\), ..., \ \!\(\*SuperscriptBox[\(Comm\), \((pmax + qmax)\)]\) for [\!\(\*OverscriptBox[\ \(L\), \(^\)]\),\!\(\*OverscriptBox[\(M\), \(^\)]\)]: "]]], "Output", CellChangeTimes->{ 3.840758210371959*^9, 3.840758326743965*^9, 3.8407585070792875`*^9, 3.840758673531847*^9, 3.840759133429866*^9, 3.8407592011824465`*^9, 3.8407606403702335`*^9, 3.840769324725251*^9, 3.8407693761026697`*^9, 3.840769452907261*^9, 3.8407695041212425`*^9, 3.840769650347396*^9, { 3.8409496049530935`*^9, 3.840949618568045*^9}, {3.8409673615349236`*^9, 3.8409673849428215`*^9}, 3.8409679099379435`*^9, 3.8409679481127586`*^9, 3.8409695207948956`*^9, 3.841016270927108*^9, {3.8410164095555935`*^9, 3.8410164716583433`*^9}, 3.841016679230606*^9, 3.8410188518106747`*^9, 3.841105917694007*^9, {3.8411074845973988`*^9, 3.841107508371778*^9}, 3.841107585724284*^9, {3.8411078514340553`*^9, 3.84110789917074*^9}, 3.841108007182234*^9, 3.8411080480481396`*^9, {3.8411092613208666`*^9, 3.8411092806642714`*^9}, 3.841109352922802*^9, {3.841109420889462*^9, 3.841109433635468*^9}, 3.8411094874208207`*^9, 3.841109539176628*^9, { 3.8411095710135393`*^9, 3.841109627049779*^9}, 3.8411096851863885`*^9, 3.841109759161311*^9, 3.8411102858289804`*^9, 3.8411268166217575`*^9, 3.8411273954631453`*^9, 3.9636612840141354`*^9, 3.963663115041094*^9}, CellLabel-> "Out[658]=",ExpressionUUID->"bc38d079-6f4a-c144-a33a-78e0cf0eb394"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "4"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"50", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"22", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "4"]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"50", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"22", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"8", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "3"]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"112", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"98", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "7", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "3"]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"280", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"112", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"28", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"98", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "7", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.840758210371959*^9, 3.840758326743965*^9, 3.8407585070792875`*^9, 3.840758673531847*^9, 3.840759133429866*^9, 3.8407592011824465`*^9, 3.8407606403702335`*^9, 3.840769324725251*^9, 3.8407693761026697`*^9, 3.840769452907261*^9, 3.8407695041212425`*^9, 3.840769650347396*^9, { 3.8409496049530935`*^9, 3.840949618568045*^9}, {3.8409673615349236`*^9, 3.8409673849428215`*^9}, 3.8409679099379435`*^9, 3.8409679481127586`*^9, 3.8409695207948956`*^9, 3.841016270927108*^9, {3.8410164095555935`*^9, 3.8410164716583433`*^9}, 3.841016679230606*^9, 3.8410188518106747`*^9, 3.841105917694007*^9, {3.8411074845973988`*^9, 3.841107508371778*^9}, 3.841107585724284*^9, {3.8411078514340553`*^9, 3.84110789917074*^9}, 3.841108007182234*^9, 3.8411080480481396`*^9, {3.8411092613208666`*^9, 3.8411092806642714`*^9}, 3.841109352922802*^9, {3.841109420889462*^9, 3.841109433635468*^9}, 3.8411094874208207`*^9, 3.841109539176628*^9, { 3.8411095710135393`*^9, 3.841109627049779*^9}, 3.8411096851863885`*^9, 3.841109759161311*^9, 3.8411102858289804`*^9, 3.8411268166217575`*^9, 3.8411273954631453`*^9, 3.9636612840141354`*^9, 3.9636631151243*^9}, CellLabel-> "Out[660]//TableForm=",ExpressionUUID->"eee446b8-a048-cb43-a9da-\ 906dde9298b9"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices for [\\!\\(\\*OverscriptBox[\\(L\\), \ \\(^\\)]\\),\\!\\(\\*OverscriptBox[\\(M\\), \\(^\\)]\\)] \ (\\!\\(\\*SuperscriptBox[\\(d\\), \\((n)\\)]\\)'s excluded): \"\>", TextForm]], "InlineText",ExpressionUUID-> "f987dcc1-d6e1-574a-a1f9-ce3b55f6f022"], Text["Coefficient Matrices for [\!\(\*OverscriptBox[\(L\), \ \(^\)]\),\!\(\*OverscriptBox[\(M\), \(^\)]\)] (\!\(\*SuperscriptBox[\(d\), \ \((n)\)]\)'s excluded): "]]], "Output", CellChangeTimes->{ 3.840758210371959*^9, 3.840758326743965*^9, 3.8407585070792875`*^9, 3.840758673531847*^9, 3.840759133429866*^9, 3.8407592011824465`*^9, 3.8407606403702335`*^9, 3.840769324725251*^9, 3.8407693761026697`*^9, 3.840769452907261*^9, 3.8407695041212425`*^9, 3.840769650347396*^9, { 3.8409496049530935`*^9, 3.840949618568045*^9}, {3.8409673615349236`*^9, 3.8409673849428215`*^9}, 3.8409679099379435`*^9, 3.8409679481127586`*^9, 3.8409695207948956`*^9, 3.841016270927108*^9, {3.8410164095555935`*^9, 3.8410164716583433`*^9}, 3.841016679230606*^9, 3.8410188518106747`*^9, 3.841105917694007*^9, {3.8411074845973988`*^9, 3.841107508371778*^9}, 3.841107585724284*^9, {3.8411078514340553`*^9, 3.84110789917074*^9}, 3.841108007182234*^9, 3.8411080480481396`*^9, {3.8411092613208666`*^9, 3.8411092806642714`*^9}, 3.841109352922802*^9, {3.841109420889462*^9, 3.841109433635468*^9}, 3.8411094874208207`*^9, 3.841109539176628*^9, { 3.8411095710135393`*^9, 3.841109627049779*^9}, 3.8411096851863885`*^9, 3.841109759161311*^9, 3.8411102858289804`*^9, 3.8411268166217575`*^9, 3.8411273954631453`*^9, 3.9636612840141354`*^9, 3.9636631151409435`*^9}, CellLabel-> "Out[661]=",ExpressionUUID->"a60cab13-ec53-8546-8ce7-b1f1c573a6a2"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "4"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"50", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"22", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "4"]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"50", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"22", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"8", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "3"]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"112", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"98", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "7", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "3"]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"280", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"112", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"28", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"98", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "7", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.840758210371959*^9, 3.840758326743965*^9, 3.8407585070792875`*^9, 3.840758673531847*^9, 3.840759133429866*^9, 3.8407592011824465`*^9, 3.8407606403702335`*^9, 3.840769324725251*^9, 3.8407693761026697`*^9, 3.840769452907261*^9, 3.8407695041212425`*^9, 3.840769650347396*^9, { 3.8409496049530935`*^9, 3.840949618568045*^9}, {3.8409673615349236`*^9, 3.8409673849428215`*^9}, 3.8409679099379435`*^9, 3.8409679481127586`*^9, 3.8409695207948956`*^9, 3.841016270927108*^9, {3.8410164095555935`*^9, 3.8410164716583433`*^9}, 3.841016679230606*^9, 3.8410188518106747`*^9, 3.841105917694007*^9, {3.8411074845973988`*^9, 3.841107508371778*^9}, 3.841107585724284*^9, {3.8411078514340553`*^9, 3.84110789917074*^9}, 3.841108007182234*^9, 3.8411080480481396`*^9, {3.8411092613208666`*^9, 3.8411092806642714`*^9}, 3.841109352922802*^9, {3.841109420889462*^9, 3.841109433635468*^9}, 3.8411094874208207`*^9, 3.841109539176628*^9, { 3.8411095710135393`*^9, 3.841109627049779*^9}, 3.8411096851863885`*^9, 3.841109759161311*^9, 3.8411102858289804`*^9, 3.8411268166217575`*^9, 3.8411273954631453`*^9, 3.9636612840141354`*^9, 3.963663115207762*^9}, CellLabel-> "Out[663]//TableForm=",ExpressionUUID->"0826232c-e7e2-094b-bcf1-\ afc73c6e6828"] }, Open ]], Cell[TextData[StyleBox["\[FilledCircle]The output based on \ MatrixFormCollectDeleteZeros: ", FontSize->16]], "Text", CellChangeTimes->{{3.8411278241671906`*^9, 3.841127875232051*^9}},ExpressionUUID->"a9e6f9c7-f08e-4dae-8656-\ 7f1cfe026856"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{"The", " ", "4", "th", " ", "Shift"}], "+", RowBox[{"Enter", " ", RowBox[{"here", "!"}]}]}], " ", "*)"}], FontSize->24], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ "Text", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "n", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "//", "MatrixForm"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "pmax"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Text", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "m", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "//", "MatrixFormCollectDeleteZeros"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "qmax"}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "/.", "ScriptLift"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Text", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "m", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "//", RowBox[{ RowBox[{"MatrixFormCollectDeleteZeros", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{"d", "[", "m_", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}], "&"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "qmax"}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "/.", "ScriptLift"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Text", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Comm", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "l", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "//", "MatrixFormCollectDeleteZeros"}], ",", RowBox[{"{", RowBox[{"l", ",", "0", ",", RowBox[{"pmax", "+", "qmax"}]}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "/.", "ScriptLift"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Text", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Comm", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "l", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "//", RowBox[{ RowBox[{"MatrixFormCollectDeleteZeros", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{"d", "[", "m_", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}], "&"}]}], ",", RowBox[{"{", RowBox[{"l", ",", "0", ",", RowBox[{"pmax", "+", "qmax"}]}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "/.", "ScriptLift"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.840748119192645*^9, 3.8407481254087324`*^9}, { 3.8407482404244957`*^9, 3.8407482449539804`*^9}, {3.840748359200265*^9, 3.840748368707157*^9}, {3.840748641681017*^9, 3.840748642393263*^9}, { 3.840749455438859*^9, 3.8407495066581273`*^9}, {3.8407551844560347`*^9, 3.840755193728826*^9}, {3.8407585457101383`*^9, 3.8407586695250096`*^9}, { 3.840759112300947*^9, 3.840759132944605*^9}, {3.840760543058858*^9, 3.84076056459422*^9}, {3.840949617044705*^9, 3.84094961799971*^9}, { 3.8409553040037427`*^9, 3.8409553041542163`*^9}, {3.8409662855446825`*^9, 3.8409663527948465`*^9}, {3.8409663865393515`*^9, 3.8409664364460444`*^9}, 3.840966535595592*^9, 3.8409670541151304`*^9, 3.840967098272625*^9, 3.840967383037408*^9, {3.8409678951174297`*^9, 3.8409679083915176`*^9}, { 3.8409679385531344`*^9, 3.84096794760021*^9}, {3.8409694326234913`*^9, 3.8409694372815943`*^9}, {3.8410162267627993`*^9, 3.8410162299780116`*^9}, {3.8410164021555076`*^9, 3.841016471202374*^9}, { 3.841016665356971*^9, 3.841016672083144*^9}, {3.8411074723063245`*^9, 3.8411075078242416`*^9}, 3.841107585150749*^9, {3.8411078498208785`*^9, 3.8411078983635883`*^9}, {3.8411079366929784`*^9, 3.841108045067151*^9}, { 3.841109253879284*^9, 3.841109279825564*^9}, {3.841109349812222*^9, 3.8411093523137655`*^9}, {3.8411093955618258`*^9, 3.8411094331150646`*^9}, {3.8411094845542955`*^9, 3.8411094865353155`*^9}, {3.8411095203009663`*^9, 3.8411095381296563`*^9}, {3.8411095704922404`*^9, 3.841109626595516*^9}, 3.8411096845024834`*^9, {3.841109755487551*^9, 3.841109758569416*^9}, { 3.841110213602393*^9, 3.8411102145207834`*^9}, {3.841126689066327*^9, 3.8411267521412745`*^9}, {3.841127375875735*^9, 3.841127389153616*^9}, { 3.8411277747853947`*^9, 3.841127786547385*^9}, {3.963661435032097*^9, 3.9636614356995125`*^9}, {3.9636630753078747`*^9, 3.963663096646366*^9}}, CellLabel-> "In[664]:=",ExpressionUUID->"2a837588-2f01-47c4-a908-3707f500c030"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices \\!\\(\\*SuperscriptBox[\\(A\\), \ \\((0)\\)]\\), \\!\\(\\*SuperscriptBox[\\(A\\), \\((1)\\)]\\), ..., \ \\!\\(\\*SuperscriptBox[\\(A\\), \\((pmax)\\)]\\) for \\!\\(\\*OverscriptBox[\ \\(L\\), \\(^\\)]\\): \"\>", TextForm]], "InlineText",ExpressionUUID-> "4db998d7-a62e-5e40-a1e0-59679b2a60cb"], Text["Coefficient Matrices \!\(\*SuperscriptBox[\(A\), \((0)\)]\), \ \!\(\*SuperscriptBox[\(A\), \((1)\)]\), ..., \!\(\*SuperscriptBox[\(A\), \ \((pmax)\)]\) for \!\(\*OverscriptBox[\(L\), \(^\)]\): "]]], "Output", CellChangeTimes->{3.8411277911619544`*^9, 3.9636613225645256`*^9, 3.9636631153244724`*^9}, CellLabel-> "Out[664]=",ExpressionUUID->"4ab0b214-7196-354f-9e0c-1442968b001b"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"q", "[", "x", "]"}]}, { RowBox[{"r", "[", "x", "]"}], "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "\[ImaginaryI]"}], "0"}, {"0", "\[ImaginaryI]"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.8411277911619544`*^9, 3.9636613225645256`*^9, 3.9636631153244724`*^9}, CellLabel-> "Out[665]//TableForm=",ExpressionUUID->"ad419c83-94ba-d84d-8b38-\ 25f51b6ee599"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices \\!\\(\\*SuperscriptBox[\\(B\\), \ \\((0)\\)]\\), \\!\\(\\*SuperscriptBox[\\(B\\), \\((1)\\)]\\), ..., \ \\!\\(\\*SuperscriptBox[\\(B\\), \\((qmax)\\)]\\) for \\!\\(\\*OverscriptBox[\ \\(M\\), \\(^\\)]\\): \"\>", TextForm]], "InlineText",ExpressionUUID-> "d3867ac5-2039-ae4d-ac7f-53b87c8d4283"], Text["Coefficient Matrices \!\(\*SuperscriptBox[\(B\), \((0)\)]\), \ \!\(\*SuperscriptBox[\(B\), \((1)\)]\), ..., \!\(\*SuperscriptBox[\(B\), \ \((qmax)\)]\) for \!\(\*OverscriptBox[\(M\), \(^\)]\): "]]], "Output", CellChangeTimes->{3.8411277911619544`*^9, 3.9636613225645256`*^9, 3.9636631153244724`*^9}, CellLabel-> "Out[666]=",ExpressionUUID->"d2935088-5efe-9d49-ac6b-e818f3e69a4b"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"4", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"6", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "8"}], " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"8", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "16"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "30"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"30", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"32", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"32", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"32", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"65", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"180", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"121", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"99", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"79", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"90", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"200", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"180", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"100", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"90", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"180", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"200", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"100", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"5", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"180", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"65", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"121", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"79", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"99", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"64", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"64", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"64", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "14"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"110", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"63", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"37", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "14"}], " ", RowBox[{"(", RowBox[{ RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"190", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"80", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"14", " ", RowBox[{"(", RowBox[{ RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"80", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"190", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"30", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "14"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"110", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"63", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"37", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "128"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"128", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "4"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"13", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"21", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"7", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"11", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"128", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "4"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"8", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"21", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"11", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"128", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"2", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"12", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "8"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "8"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "8"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"8", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"32", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "20"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"20", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"32", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "20"}], " ", RowBox[{"(", RowBox[{ RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"31", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"29", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"18", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"32", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"32", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"20", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"29", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"31", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"128", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "128"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "28"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"103", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"77", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "28"}], " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"120", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"28", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"120", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "28"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"103", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"77", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "128"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"8", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"25", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"22", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"17", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"(", RowBox[{ RowBox[{"9", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"17", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"25", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"24", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"19", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"17", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"19", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"24", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"25", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"128", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"25", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"8", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"9", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"22", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"17", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "4"}], "0"}, {"0", "4"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "4"}], "0"}, {"0", RowBox[{"-", "4"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "8"}], " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "8"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "24"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"24", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"24", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"24", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"32", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"120", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"120", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "120"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"120", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"64", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "64"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "64"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "40"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"19", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"40", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"19", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "64"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"64", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "64"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"280", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"280", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "280"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"280", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"128", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"28", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"26", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"12", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"23", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"19", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"23", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"19", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"11", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "128"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"26", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"28", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"8", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"8", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"8", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "8"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"80", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "80"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"64", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"64", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"64", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"80", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "80"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"384", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "384"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"384", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"384", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"560", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"560", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "560"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"560", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"128", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"23", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"128", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"128", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "128"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"23", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"16", "0"}, {"0", RowBox[{"-", "16"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"16", "0"}, {"0", "16"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"32", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"32", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"160", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "160"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "160"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "160"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"192", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "192"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"192", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"192", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "1120"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "1120"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"1120", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "1120"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "384"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"384", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"384", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"384", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"32", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "448"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "448"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"448", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "448"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "384"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "384"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "384"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"384", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "64"}], "0"}, {"0", "64"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "64"}], "0"}, {"0", RowBox[{"-", "64"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "128"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"128", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"128", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"128", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "128"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.8411277911619544`*^9, 3.9636613225645256`*^9, 3.963663115507511*^9}, CellLabel-> "Out[668]//TableForm=",ExpressionUUID->"0a3795c4-e316-8049-8e0d-\ 3a41e3de87d2"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices for \\!\\(\\*OverscriptBox[\\(M\\), \\(^\ \\)]\\) (\\!\\(\\*SuperscriptBox[\\(d\\), \\((n)\\)]\\)'s excluded): \"\>", TextForm]], "InlineText",ExpressionUUID-> "923cca64-aeac-7c42-af8d-1bbe8d0b3fd6"], Text["Coefficient Matrices for \!\(\*OverscriptBox[\(M\), \(^\)]\) \ (\!\(\*SuperscriptBox[\(d\), \((n)\)]\)'s excluded): "]]], "Output", CellChangeTimes->{3.8411277911619544`*^9, 3.9636613225645256`*^9, 3.9636631155244884`*^9}, CellLabel-> "Out[669]=",ExpressionUUID->"3d6b181c-1cfd-a748-9f51-70b04a7bb3ff"], Cell[BoxData[ InterpretationBox[GridBox[{ { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", RowBox[{"-", "1"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"6", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "30"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"30", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"65", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"180", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"121", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"99", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"79", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"90", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"200", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"180", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"100", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"90", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"180", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"200", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"100", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"5", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"180", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"65", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"121", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"79", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"99", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"31", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "14"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"110", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"63", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"37", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "14"}], " ", RowBox[{"(", RowBox[{ RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"190", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"80", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"14", " ", RowBox[{"(", RowBox[{ RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"80", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"190", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"30", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "14"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"110", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"130", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"63", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"37", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"9", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"12", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "12"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"12", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "20"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"20", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "20"}], " ", RowBox[{"(", RowBox[{ RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"31", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"29", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"18", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"32", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "20"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"32", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"20", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"29", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"31", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "28"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"103", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"77", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "28"}], " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"120", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"28", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"90", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"120", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "28"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"103", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"77", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"23", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "4"}], "0"}, {"0", "4"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "24"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"24", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"24", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"24", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"120", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"120", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "120"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"120", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "40"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"19", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"40", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"19", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"280", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"280", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "280"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"280", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"11", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"13", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"8", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"8", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"80", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "80"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"80", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"80", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "80"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"560", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"560", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "560"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"560", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"16", "0"}, {"0", RowBox[{"-", "16"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"160", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "160"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "160"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "160"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "1120"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "1120"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"1120", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "1120"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "448"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "448"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"448", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "448"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "64"}], "0"}, {"0", "64"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], HoldForm]}, { TagBox[ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"128", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"128", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], HoldForm]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], TableForm[{ HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 0, ")"}]]] MatrixForm[{{1, 0}, {0, -1}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 2, ")"}]]] MatrixForm[{{ 2 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x], Complex[0, -2] Derivative[1][$CellContext`q][$CellContext`x]}, { Complex[0, -2] Derivative[ 1][$CellContext`r][$CellContext`x], (-2) \ $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 3, ")"}]]] MatrixForm[{{ Complex[0, -6] ($CellContext`r[$CellContext`x] Derivative[ 1][$CellContext`q][$CellContext`x] + \ $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]), (-6) Derivative[2][$CellContext`q][$CellContext`x]}, { 6 Derivative[2][$CellContext`r][$CellContext`x], Complex[0, -6] ($CellContext`r[$CellContext`x] Derivative[ 1][$CellContext`q][$CellContext`x] + \ $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 4, ")"}]]] MatrixForm[{{ 2 (3 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 - 11 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 7 $CellContext`r[$CellContext`x] Derivative[ 2][$CellContext`q][$CellContext`x] - \ $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x]), Complex[0, -2] ( 12 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] + 6 $CellContext`q[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x] - 7 Derivative[3][$CellContext`q][$CellContext`x])}, { Complex[0, -2] ( 6 $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] + 12 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 7 Derivative[3][$CellContext`r][$CellContext`x]), (-2) ( 3 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 - 11 Derivative[1][$CellContext`q][$CellContext`x] Derivative[ 1][$CellContext`r][$CellContext`x] - \ $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 7 $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 5, ")"}]]] MatrixForm[{{ Complex[0, -10] ( 6 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] + 6 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 7 Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 5 Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 3 $CellContext`r[$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 3 $CellContext`q[$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x]), (-30) ( 2 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x]^2 + 2 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + 2 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - Derivative[ 4][$CellContext`q][$CellContext`x])}, { 30 (2 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + 2 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]^2 + 2 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - Derivative[ 4][$CellContext`r][$CellContext`x]), Complex[0, -10] ( 6 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] + 6 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 5 Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 7 Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 3 $CellContext`r[$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 3 $CellContext`q[$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 6, ")"}]]] MatrixForm[{{ 2 (10 $CellContext`q[$CellContext`x]^3 \ $CellContext`r[$CellContext`x]^3 - 65 $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x]^2 - 180 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 5 $CellContext`q[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x]^2 - 70 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[2][$CellContext`q][$CellContext`x] - 10 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 121 Derivative[2][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 99 Derivative[1][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] + 79 Derivative[1][$CellContext`q][$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 31 $CellContext`r[$CellContext`x] Derivative[ 4][$CellContext`q][$CellContext`x] + \ $CellContext`q[$CellContext`x] Derivative[4][$CellContext`r][$CellContext`x]), Complex[0, -2] ( 90 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] + 60 $CellContext`q[$CellContext`x]^3 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 130 Derivative[1][$CellContext`q][$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x] - 200 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 180 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 140 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 100 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 30 $CellContext`q[$CellContext`x]^2 Derivative[3][$CellContext`r][$CellContext`x] + 31 Derivative[5][$CellContext`q][$CellContext`x])}, { Complex[0, -2] ( 60 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^3 Derivative[1][$CellContext`q][$CellContext`x] + 90 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x] - 130 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]^2 - 140 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 180 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 200 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 30 $CellContext`r[$CellContext`x]^2 Derivative[3][$CellContext`q][$CellContext`x] - 100 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 31 Derivative[5][$CellContext`r][$CellContext`x]), (-2) ( 10 $CellContext`q[$CellContext`x]^3 \ $CellContext`r[$CellContext`x]^3 - 5 $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x]^2 - 180 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 65 $CellContext`q[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x]^2 - 10 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[2][$CellContext`q][$CellContext`x] - 70 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 121 Derivative[2][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 79 Derivative[1][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] + 99 Derivative[1][$CellContext`q][$CellContext`x] Derivative[ 3][$CellContext`r][$CellContext`x] + \ $CellContext`r[$CellContext`x] Derivative[4][$CellContext`q][$CellContext`x] + 31 $CellContext`q[$CellContext`x] Derivative[4][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 7, ")"}]]] MatrixForm[{{ Complex[0, -14] ( 30 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^3 Derivative[1][$CellContext`q][$CellContext`x] + 30 $CellContext`q[$CellContext`x]^3 \ $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x] - 90 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x] - 90 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]^2 - 60 $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 130 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 110 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 60 $CellContext`q[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 30 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[3][$CellContext`q][$CellContext`x] + 63 Derivative[2][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 30 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 57 Derivative[2][$CellContext`q][$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 37 Derivative[1][$CellContext`r][$CellContext`x] Derivative[4][$CellContext`q][$CellContext`x] + 23 Derivative[1][$CellContext`q][$CellContext`x] Derivative[4][$CellContext`r][$CellContext`x] + 9 $CellContext`r[$CellContext`x] Derivative[5][$CellContext`q][$CellContext`x] + 9 $CellContext`q[$CellContext`x] Derivative[5][$CellContext`r][$CellContext`x]), (-14) ( 60 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x]^2 + 60 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + 30 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 Derivative[2][$CellContext`q][$CellContext`x] - 190 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 60 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x]^2 - 80 Derivative[1][$CellContext`q][$CellContext`x]^2 Derivative[2][$CellContext`r][$CellContext`x] - 60 $CellContext`q[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 90 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 60 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 30 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] - 30 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[4][$CellContext`q][$CellContext`x] + 9 Derivative[6][$CellContext`q][$CellContext`x])}, { 14 (60 $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + 60 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]^2 - 80 Derivative[1][$CellContext`r][$CellContext`x]^2 Derivative[2][$CellContext`q][$CellContext`x] + 30 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 Derivative[2][$CellContext`r][$CellContext`x] - 190 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 60 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 60 $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x]^2 - 30 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 60 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] - 90 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] - 30 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[4][$CellContext`r][$CellContext`x] + 9 Derivative[6][$CellContext`r][$CellContext`x]), Complex[0, -14] ( 30 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^3 Derivative[1][$CellContext`q][$CellContext`x] + 30 $CellContext`q[$CellContext`x]^3 \ $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x] - 90 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x] - 90 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]^2 - 60 $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 110 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 130 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 60 $CellContext`q[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 30 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[3][$CellContext`q][$CellContext`x] + 57 Derivative[2][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 30 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 63 Derivative[2][$CellContext`q][$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 23 Derivative[1][$CellContext`r][$CellContext`x] Derivative[4][$CellContext`q][$CellContext`x] + 37 Derivative[1][$CellContext`q][$CellContext`x] Derivative[4][$CellContext`r][$CellContext`x] + 9 $CellContext`r[$CellContext`x] Derivative[5][$CellContext`q][$CellContext`x] + 9 $CellContext`q[$CellContext`x] Derivative[5][$CellContext`r][$CellContext`x])}}]], HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 1, ")"}]]] MatrixForm[{{ Complex[0, -2], 0}, {0, Complex[0, -2]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 2, ")"}]]] MatrixForm[{{0, Complex[0, -4] $CellContext`q[$CellContext`x]}, { Complex[0, -4] $CellContext`r[$CellContext`x], 0}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 3, ")"}]]] MatrixForm[{{ Complex[0, -12] $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x], (-12) Derivative[1][$CellContext`q][$CellContext`x]}, { 12 Derivative[1][$CellContext`r][$CellContext`x], Complex[0, -12] $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 4, ")"}]]] MatrixForm[{{(-12) ( 3 $CellContext`r[$CellContext`x] Derivative[ 1][$CellContext`q][$CellContext`x] + \ $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]), Complex[0, -12] ( 2 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] - 3 Derivative[2][$CellContext`q][$CellContext`x])}, { Complex[0, -12] ( 2 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 - 3 Derivative[2][$CellContext`r][$CellContext`x]), 12 ($CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] + 3 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 5, ")"}]]] MatrixForm[{{ Complex[0, -20] ( 3 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 - 7 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 5 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 5 $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x]), (-20) ( 6 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] - 5 Derivative[3][$CellContext`q][$CellContext`x])}, { 20 (6 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 5 Derivative[3][$CellContext`r][$CellContext`x]), Complex[0, -20] ( 3 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 - 7 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 5 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 5 $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 6, ")"}]]] MatrixForm[{{(-20) ( 18 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] + 6 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 31 Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 29 Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 13 $CellContext`r[$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 3 $CellContext`q[$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x]), Complex[0, -20] ( 6 $CellContext`q[$CellContext`x]^3 \ $CellContext`r[$CellContext`x]^2 - 18 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x]^2 - 32 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 28 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 10 $CellContext`q[$CellContext`x]^2 Derivative[2][$CellContext`r][$CellContext`x] + 13 Derivative[4][$CellContext`q][$CellContext`x])}, { Complex[0, -20] ( 6 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^3 - 32 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 18 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]^2 - 10 $CellContext`r[$CellContext`x]^2 Derivative[2][$CellContext`q][$CellContext`x] - 28 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 13 Derivative[4][$CellContext`r][$CellContext`x]), 20 (6 $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] + 18 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 29 Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 31 Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 3 $CellContext`r[$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 13 $CellContext`q[$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 7, ")"}]]] MatrixForm[{{ Complex[0, -28] ( 10 $CellContext`q[$CellContext`x]^3 \ $CellContext`r[$CellContext`x]^3 - 35 $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x]^2 - 140 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 35 $CellContext`q[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x]^2 - 50 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[2][$CellContext`q][$CellContext`x] - 50 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 103 Derivative[2][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 77 Derivative[1][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] + 57 Derivative[1][$CellContext`q][$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 23 $CellContext`r[$CellContext`x] Derivative[4][$CellContext`q][$CellContext`x] + 23 $CellContext`q[$CellContext`x] Derivative[4][$CellContext`r][$CellContext`x]), (-28) ( 30 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] - 90 Derivative[1][$CellContext`q][$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x] - 120 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 70 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 50 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 50 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] + 23 Derivative[5][$CellContext`q][$CellContext`x])}, { 28 (30 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x] - 90 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]^2 - 50 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 70 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 120 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 50 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 23 Derivative[5][$CellContext`r][$CellContext`x]), Complex[0, -28] ( 10 $CellContext`q[$CellContext`x]^3 \ $CellContext`r[$CellContext`x]^3 - 35 $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x]^2 - 140 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 35 $CellContext`q[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x]^2 - 50 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[2][$CellContext`q][$CellContext`x] - 50 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 103 Derivative[2][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 57 Derivative[1][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] + 77 Derivative[1][$CellContext`q][$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 23 $CellContext`r[$CellContext`x] Derivative[4][$CellContext`q][$CellContext`x] + 23 $CellContext`q[$CellContext`x] Derivative[4][$CellContext`r][$CellContext`x])}}]], HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 2, ")"}]]] MatrixForm[{{-4, 0}, {0, 4}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 4, ")"}]]] MatrixForm[{{(-24) $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x], Complex[0, 24] Derivative[1][$CellContext`q][$CellContext`x]}, { Complex[0, 24] Derivative[1][$CellContext`r][$CellContext`x], 24 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 5, ")"}]]] MatrixForm[{{ Complex[0, 120] ($CellContext`r[$CellContext`x] Derivative[ 1][$CellContext`q][$CellContext`x] + \ $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]), 120 Derivative[2][$CellContext`q][$CellContext`x]}, {(-120) Derivative[2][$CellContext`r][$CellContext`x], Complex[0, 120] ($CellContext`r[$CellContext`x] Derivative[ 1][$CellContext`q][$CellContext`x] + \ $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 6, ")"}]]] MatrixForm[{{(-40) ( 3 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 - 19 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 11 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 5 $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x]), Complex[0, 40] ( 12 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] + 6 $CellContext`q[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x] - 11 Derivative[3][$CellContext`q][$CellContext`x])}, { Complex[0, 40] ( 6 $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] + 12 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 11 Derivative[3][$CellContext`r][$CellContext`x]), 40 (3 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 - 19 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 5 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 11 $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 7, ")"}]]] MatrixForm[{{ Complex[0, 280] ( 6 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] + 6 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 13 Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 11 Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 5 $CellContext`r[$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 5 $CellContext`q[$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x]), 280 (6 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x]^2 + 6 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + 6 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 5 Derivative[4][$CellContext`q][$CellContext`x])}, {(-280) ( 6 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + 6 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]^2 + 6 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 5 Derivative[4][$CellContext`r][$CellContext`x]), Complex[0, 280] ( 6 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] + 6 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 11 Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 13 Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 5 $CellContext`r[$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 5 $CellContext`q[$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x])}}]], HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 3, ")"}]]] MatrixForm[{{ Complex[0, 8], 0}, {0, Complex[0, 8]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 4, ")"}]]] MatrixForm[{{0, Complex[0, 16] $CellContext`q[$CellContext`x]}, { Complex[0, 16] $CellContext`r[$CellContext`x], 0}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 5, ")"}]]] MatrixForm[{{ Complex[0, 80] $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x], 80 Derivative[1][$CellContext`q][$CellContext`x]}, {(-80) Derivative[1][$CellContext`r][$CellContext`x], Complex[0, 80] $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 6, ")"}]]] MatrixForm[{{ 80 (5 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] + 3 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]), Complex[0, 80] ( 2 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] - 5 Derivative[2][$CellContext`q][$CellContext`x])}, { Complex[0, 80] ( 2 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 - 5 Derivative[2][$CellContext`r][$CellContext`x]), (-80) ( 3 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] + 5 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 7, ")"}]]] MatrixForm[{{ Complex[0, 560] ($CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 - 5 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 3 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 3 $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x]), 560 (2 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] - 3 Derivative[3][$CellContext`q][$CellContext`x])}, {(-560) ( 2 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 3 Derivative[3][$CellContext`r][$CellContext`x]), Complex[0, 560] ($CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 - 5 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 3 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 3 $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x])}}]], HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 4, ")"}]]] MatrixForm[{{16, 0}, {0, -16}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 6, ")"}]]] MatrixForm[{{ 160 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x], Complex[0, -160] Derivative[1][$CellContext`q][$CellContext`x]}, { Complex[0, -160] Derivative[ 1][$CellContext`r][$CellContext`x], (-160) \ $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 7, ")"}]]] MatrixForm[{{ Complex[0, -1120] ($CellContext`r[$CellContext`x] Derivative[ 1][$CellContext`q][$CellContext`x] + \ $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]), (-1120) Derivative[2][$CellContext`q][$CellContext`x]}, { 1120 Derivative[2][$CellContext`r][$CellContext`x], Complex[0, -1120] ($CellContext`r[$CellContext`x] Derivative[ 1][$CellContext`q][$CellContext`x] + \ $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x])}}]], HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 5, ")"}]]] MatrixForm[{{ Complex[0, -32], 0}, {0, Complex[0, -32]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 6, ")"}]]] MatrixForm[{{0, Complex[0, -64] $CellContext`q[$CellContext`x]}, { Complex[0, -64] $CellContext`r[$CellContext`x], 0}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 7, ")"}]]] MatrixForm[{{ Complex[0, -448] $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x], (-448) Derivative[1][$CellContext`q][$CellContext`x]}, { 448 Derivative[1][$CellContext`r][$CellContext`x], Complex[0, -448] $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x]}}]], { HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 6, ")"}]]] MatrixForm[{{-64, 0}, {0, 64}}]]}, { HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 7, ")"}]]] MatrixForm[{{ Complex[0, 128], 0}, {0, Complex[0, 128]}}]]}}]]], "Output", CellChangeTimes->{3.8411277911619544`*^9, 3.9636613225645256`*^9, 3.963663115640936*^9}, CellLabel-> "Out[671]//TableForm=",ExpressionUUID->"412fe524-3339-2043-8738-\ e2009066ef4b"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices \\!\\(\\*SuperscriptBox[\\(Comm\\), \ \\((0)\\)]\\), \\!\\(\\*SuperscriptBox[\\(Comm\\), \\((1)\\)]\\), ..., \\!\\(\ \\*SuperscriptBox[\\(Comm\\), \\((pmax + qmax)\\)]\\) for \ [\\!\\(\\*OverscriptBox[\\(L\\), \\(^\\)]\\),\\!\\(\\*OverscriptBox[\\(M\\), \ \\(^\\)]\\)]: \"\>", TextForm]], "InlineText",ExpressionUUID-> "99133253-d21d-644a-a807-b628b8b5ff73"], Text["Coefficient Matrices \!\(\*SuperscriptBox[\(Comm\), \((0)\)]\), \ \!\(\*SuperscriptBox[\(Comm\), \((1)\)]\), ..., \ \!\(\*SuperscriptBox[\(Comm\), \((pmax + qmax)\)]\) for [\!\(\*OverscriptBox[\ \(L\), \(^\)]\),\!\(\*OverscriptBox[\(M\), \(^\)]\)]: "]]], "Output", CellChangeTimes->{3.8411277911619544`*^9, 3.9636613225645256`*^9, 3.9636631156572514`*^9}, CellLabel-> "Out[672]=",ExpressionUUID->"8474f02f-a5a7-b944-970c-48d338b3b17b"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "4"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"50", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"22", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "4"]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"50", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"22", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"8", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "3"]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"112", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"98", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "7", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "3"]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"280", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"112", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"28", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"98", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "7", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.8411277911619544`*^9, 3.9636613225645256`*^9, 3.9636631156906376`*^9}, CellLabel-> "Out[674]//TableForm=",ExpressionUUID->"74da602d-d500-dc48-a34e-\ 7d75eafe8fd1"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices for [\\!\\(\\*OverscriptBox[\\(L\\), \ \\(^\\)]\\),\\!\\(\\*OverscriptBox[\\(M\\), \\(^\\)]\\)] \ (\\!\\(\\*SuperscriptBox[\\(d\\), \\((n)\\)]\\)'s excluded): \"\>", TextForm]], "InlineText",ExpressionUUID-> "3f41cb68-e067-c741-a63f-effa366e2fed"], Text["Coefficient Matrices for [\!\(\*OverscriptBox[\(L\), \ \(^\)]\),\!\(\*OverscriptBox[\(M\), \(^\)]\)] (\!\(\*SuperscriptBox[\(d\), \ \((n)\)]\)'s excluded): "]]], "Output", CellChangeTimes->{3.8411277911619544`*^9, 3.9636613225645256`*^9, 3.963663115707657*^9}, CellLabel-> "Out[675]=",ExpressionUUID->"42fb3082-feaa-b642-80cf-8312b1409c8d"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "4"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"50", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"22", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "4"]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"50", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"22", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"8", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "3"]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"112", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"98", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "7", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "3"]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"280", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"112", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"28", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"98", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "7", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.8411277911619544`*^9, 3.9636613225645256`*^9, 3.9636631157409496`*^9}, CellLabel-> "Out[677]//TableForm=",ExpressionUUID->"da0a5bef-0139-a948-b8ad-\ 7448afcd6d6d"] }, Open ]], Cell[TextData[{ StyleBox["Notes:\n", FontVariations->{"Underline"->True}], "\[Bullet] The operators with coefficient ", Cell[BoxData[ FormBox[ SuperscriptBox["d", RowBox[{"(", "n", ")"}]], TraditionalForm]], FontSlant->"Plain",ExpressionUUID->"11520cc3-c2aa-4efc-9237-38d784a24cee"], " are proportional to ", Cell[BoxData[ FormBox[ SuperscriptBox[ OverscriptBox["L", "^"], "n"], TraditionalForm]], FontSlant->"Plain",ExpressionUUID->"0d723932-8b64-4174-add3-c4226dedec92"], ", and hence it does not contribute to the commutator.\n" }], "Text", CellChangeTimes->{{3.8409680515768476`*^9, 3.84096805732654*^9}, { 3.8409681442786345`*^9, 3.840968416513671*^9}, {3.8409687643103685`*^9, 3.840968783470512*^9}, 3.841021765731673*^9, {3.8410442960367546`*^9, 3.841044555660818*^9}, {3.841044608779762*^9, 3.8410447327562037`*^9}, { 3.8410461015944357`*^9, 3.841046102562605*^9}, 3.841105753626544*^9, 3.8411124579341097`*^9, 3.841127922160404*^9},ExpressionUUID->"1859ec4b-d903-46ca-beae-\ b065aef7a9f9"], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{ 3.8407644797687454`*^9},ExpressionUUID->"baeef838-0c88-495a-8d2d-\ 97fda2210ec6"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.8407644877668495`*^9, 3.8407644882534194`*^9}, 3.8407652189669504`*^9},ExpressionUUID->"04ba4792-06cb-418c-b33f-\ f97f972d6da8"], Cell[TextData[{ StyleBox["--- Symmetrized form ---", FontSize->16, FontWeight->"Bold", FontVariations->{"Underline"->True}], "\n \n ", Cell[BoxData[{ RowBox[{ RowBox[{"Here", ",", " ", RowBox[{ "the", " ", "symmetrized", " ", "form", " ", "means", " ", "the", " ", "following", " ", "expressions"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{" ", RowBox[{ RowBox[{ OverscriptBox["L", "^"], " ", "=", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "pmax"], " ", RowBox[{"{", RowBox[{ TagBox[ SubsuperscriptBox["\[PartialD]", "x", "n"], DisplayForm], " ", RowBox[{",", " ", RowBox[{ TemplateBox[{ OverscriptBox["A", "~"], TagBox[ RowBox[{"(", "n", ")"}], DisplayForm]}, "Superscript"], "[", "x", "]"}]}]}], "}"}]}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ OverscriptBox["M", "^"], " ", "=", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "qmax"], " ", RowBox[{"{", RowBox[{ TagBox[ SubsuperscriptBox["\[PartialD]", "x", "m"], DisplayForm], " ", RowBox[{",", " ", RowBox[{ TemplateBox[{ OverscriptBox["B", "~"], TagBox[ RowBox[{"(", "m", ")"}], DisplayForm]}, "Superscript"], "[", "x", "]"}]}]}], "}"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"[", RowBox[{ OverscriptBox["L", "^"], ",", OverscriptBox["M", "^"]}], "]"}], "=", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "0"}], RowBox[{"pmax", "+", "qmax"}]], " ", RowBox[{"{", RowBox[{ TagBox[ SubsuperscriptBox["\[PartialD]", "x", "l"], DisplayForm], " ", RowBox[{",", " ", RowBox[{ TemplateBox[{ OverscriptBox["Comm", "~"], TagBox[ RowBox[{"(", "l", ")"}], DisplayForm]}, "Superscript"], "[", "x", "]"}]}]}], "}"}]}]}]}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"with", " ", RowBox[{"{", RowBox[{ OverscriptBox["X", "^"], ",", OverscriptBox["Y", "^"]}], "}"}], "\[Phi]"}], ":=", RowBox[{ RowBox[{ OverscriptBox["X", "^"], RowBox[{"(", RowBox[{ OverscriptBox["Y", "^"], "\[Phi]"}], ")"}]}], "+", RowBox[{ OverscriptBox["Y", "^"], RowBox[{ RowBox[{"(", RowBox[{ OverscriptBox["X", "^"], "\[Phi]"}], ")"}], "."}]}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"The", " ", "relation", " ", "between", " ", "A", " ", "and", " ", OverscriptBox["A", "~"], " ", "is"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["A", RowBox[{"(", "j", ")"}]], "[", "x", "]"}], "=", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "j"}], "pmax"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "hj"], "+", RowBox[{"(", "\[NoBreak]", GridBox[{ {"h"}, {"j"} }], "\[NoBreak]", ")"}]}], ")"}], RowBox[{ TagBox[ SubsuperscriptBox["\[PartialD]", "x", RowBox[{"h", "-", "j"}]], DisplayForm], RowBox[{"(", " ", RowBox[{ TemplateBox[{ OverscriptBox["A", "~"], TagBox[ RowBox[{"(", "h", ")"}], DisplayForm]}, "Superscript"], "[", "x", "]"}], ")"}]}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox[ OverscriptBox["A", "~"], RowBox[{"(", "j", ")"}]], "[", "x", "]"}], "=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "j"}], "pmax"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"h", "-", "j", "+", "1"}]], "-", "1"}], ")"}]}], SubscriptBox["B", RowBox[{"h", "-", "j", "+", "1"}]]}], RowBox[{"h", "+", "1"}]], RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"h", "+", "1"}]}, { RowBox[{"h", "-", "j", "+", "1"}]} }], "\[NoBreak]", ")"}], RowBox[{ TagBox[ SubsuperscriptBox["\[PartialD]", "x", RowBox[{"h", "-", "j"}]], DisplayForm], RowBox[{"(", " ", RowBox[{ TemplateBox[{"A", TagBox[ RowBox[{"(", "h", ")"}], DisplayForm]}, "Superscript"], "[", "x", "]"}], ")"}]}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{"where", " ", SubscriptBox["B", RowBox[{"h", "-", "j", "+", "1"}]], " ", "is", " ", "the", " ", "Bernoulli", " ", RowBox[{"number", ".", "\[IndentingNewLine]"}]}]}]}], CellChangeTimes->{ 3.8407645241009846`*^9, {3.840765226973914*^9, 3.8407656510757637`*^9}, { 3.840765687668089*^9, 3.8407657012679405`*^9}, {3.8407658337022133`*^9, 3.8407658389309864`*^9}},ExpressionUUID-> "c9eec17e-f5d7-406e-8560-6ca9685a2239"], "\n " }], "Text", CellChangeTimes->{{3.840964326791484*^9, 3.840964418643811*^9}, { 3.840964464113007*^9, 3.84096447505554*^9}, {3.8409688368482594`*^9, 3.8409688379659967`*^9}, {3.8410201629349346`*^9, 3.8410205688149986`*^9}},ExpressionUUID->"19d395eb-dfb3-4b86-87a6-\ 506787ecd5dc"], Cell[BoxData[""], "Input", CellChangeTimes->{ 3.8407645241009846`*^9, {3.840765226973914*^9, 3.8407656510757637`*^9}, { 3.840765687668089*^9, 3.8407657012679405`*^9}, {3.8407658337022133`*^9, 3.8407658389309864`*^9}, 3.84096719902759*^9},ExpressionUUID->"cdbe63c9-3b1a-42a7-8920-\ 8eea41c8cf65"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{"The", " ", "final", " ", "Shift"}], "+", RowBox[{"Enter", " ", RowBox[{"here", "!"}]}]}], " ", "*)"}], FontSize->24], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"ASym", ",", "BSym", ",", "CommSym"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ASym", "[", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}], "]"}], "[", "j_", "]"}], "[", "x_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"h", "-", "j", "+", "1"}]], "-", "1"}], ")"}]}], RowBox[{"BernoulliB", "[", RowBox[{"h", "-", "j", "+", "1"}], "]"}]}], RowBox[{"h", "+", "1"}]], RowBox[{"Binomial", "[", RowBox[{ RowBox[{"h", "+", "1"}], ",", RowBox[{"h", "-", "j", "+", "1"}]}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], "[", "h", "]"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"h", "-", "j"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "j", ",", "pmax"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"BSym", "[", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}], "]"}], "[", "j_", "]"}], "[", "x_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"h", "-", "j", "+", "1"}]], "-", "1"}], ")"}]}], RowBox[{"BernoulliB", "[", RowBox[{"h", "-", "j", "+", "1"}], "]"}]}], RowBox[{"h", "+", "1"}]], RowBox[{"Binomial", "[", RowBox[{ RowBox[{"h", "+", "1"}], ",", RowBox[{"h", "-", "j", "+", "1"}]}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], "[", "h", "]"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"h", "-", "j"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "j", ",", "qmax"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommSym", "[", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}], "]"}], "[", "j_", "]"}], "[", "x_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"h", "-", "j", "+", "1"}]], "-", "1"}], ")"}]}], RowBox[{"BernoulliB", "[", RowBox[{"h", "-", "j", "+", "1"}], "]"}]}], RowBox[{"h", "+", "1"}]], RowBox[{"Binomial", "[", RowBox[{ RowBox[{"h", "+", "1"}], ",", RowBox[{"h", "-", "j", "+", "1"}]}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Comm", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], "[", "h", "]"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"h", "-", "j"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"h", ",", "j", ",", RowBox[{"pmax", "+", "qmax"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Text", "[", "\"\\ \"", "]"}], "\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Collectrule", "[", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ASym", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "n", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "]"}], "//", "MatrixForm"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "pmax"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Text", "[", "\"\\ \"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Collectrule", "[", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"BSym", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "m", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "]"}], "//", "MatrixFormCollectDeleteZeros"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "qmax"}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "/.", "ScriptLift"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Text", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Collectrule", "[", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"BSym", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "m", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "]"}], "//", RowBox[{ RowBox[{"MatrixFormCollectDeleteZeros", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{"d", "[", "m_", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}], "&"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "qmax"}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "/.", "ScriptLift"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Text", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Collectrule", "[", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommSym", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "l", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "]"}], "//", "MatrixFormCollectDeleteZeros"}], ",", RowBox[{"{", RowBox[{"l", ",", "0", ",", RowBox[{"pmax", "+", "qmax"}]}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "/.", "ScriptLift"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Text", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Collectrule", "[", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommSym", "[", RowBox[{"#1", ",", "#2"}], "]"}], "[", "l", "]"}], "[", "x", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"msize", ",", "msize"}], "}"}]}], "]"}], "]"}], "//", RowBox[{ RowBox[{"MatrixFormCollectDeleteZeros", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{"d", "[", "m_", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}], "&"}]}], ",", RowBox[{"{", RowBox[{"l", ",", "0", ",", RowBox[{"pmax", "+", "qmax"}]}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "/.", "ScriptLift"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.840748119192645*^9, 3.8407481254087324`*^9}, { 3.8407482404244957`*^9, 3.8407482449539804`*^9}, {3.840748359200265*^9, 3.840748368707157*^9}, {3.840748641681017*^9, 3.840748642393263*^9}, { 3.840749455438859*^9, 3.8407495066581273`*^9}, {3.8407551844560347`*^9, 3.840755193728826*^9}, {3.8407585457101383`*^9, 3.8407586695250096`*^9}, { 3.840759112300947*^9, 3.840759132944605*^9}, {3.840760543058858*^9, 3.84076056459422*^9}, {3.840764529905916*^9, 3.8407646781726055`*^9}, { 3.8407647111163588`*^9, 3.8407647130367136`*^9}, {3.8407652080711946`*^9, 3.8407652222791824`*^9}, {3.840967223670545*^9, 3.8409672989785213`*^9}, 3.840967425991622*^9, {3.8409675971673927`*^9, 3.8409676195608854`*^9}, { 3.840967975504749*^9, 3.8409679785065722`*^9}, {3.8409684625947733`*^9, 3.840968468863728*^9}, {3.840969445111821*^9, 3.8409694491919084`*^9}, { 3.8410169579712706`*^9, 3.8410169601934648`*^9}, {3.841017035827942*^9, 3.8410170579855423`*^9}, {3.841017089403655*^9, 3.8410171398097415`*^9}, { 3.8410171811525*^9, 3.8410172266537375`*^9}, {3.8410173433560705`*^9, 3.841017344961425*^9}, {3.8410174303148656`*^9, 3.8410174555529985`*^9}, { 3.841017887113927*^9, 3.841017923804348*^9}, {3.8410179542459784`*^9, 3.841017971143958*^9}, {3.8410181737658377`*^9, 3.841018238124307*^9}, { 3.841105815815849*^9, 3.841105819559337*^9}, {3.8411080764099197`*^9, 3.8411081081728277`*^9}, {3.841126673834581*^9, 3.8411266796833773`*^9}, { 3.8411268687234945`*^9, 3.841126924014181*^9}, {3.841127411478243*^9, 3.841127426641693*^9}, {3.841127973156674*^9, 3.8411279846767917`*^9}, { 3.9636614741474514`*^9, 3.963661476333065*^9}, {3.9636631236750393`*^9, 3.9636631474745274`*^9}}, CellLabel-> "In[678]:=",ExpressionUUID->"49002ac9-8509-4852-a895-f3a9f7b3d287"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices \ \\!\\(\\*SuperscriptBox[OverscriptBox[\\(A\\), \\(~\\)], \\((0)\\)]\\), \ \\!\\(\\*SuperscriptBox[OverscriptBox[\\(\\\\ \\(A\\)\\), \\(~\\)], \ \\((1)\\)]\\), ..., \\!\\(\\*SuperscriptBox[OverscriptBox[\\(A\\), \\(~\\)], \ \\((pmax)\\)]\\) for \\!\\(\\*OverscriptBox[\\(L\\), \\(^\\)]\\) in \ symmetrized form: \"\>", TextForm]], "InlineText",ExpressionUUID-> "af42f420-26b9-8a48-9ccb-4c945b35d3d2"], Text["Coefficient Matrices \!\(\*SuperscriptBox[OverscriptBox[\(A\), \ \(~\)], \((0)\)]\), \!\(\*SuperscriptBox[OverscriptBox[\(\\ \(A\)\), \(~\)], \ \((1)\)]\), ..., \!\(\*SuperscriptBox[OverscriptBox[\(A\), \(~\)], \ \((pmax)\)]\) for \!\(\*OverscriptBox[\(L\), \(^\)]\) in symmetrized form: \ "]]], "Output", CellChangeTimes->{ 3.840764679063429*^9, 3.840764713811886*^9, 3.840765867810639*^9, 3.8407695149906054`*^9, 3.840769678942309*^9, 3.840949292037472*^9, 3.840967426899274*^9, 3.8409676255459337`*^9, 3.8409679790044465`*^9, 3.840968470704514*^9, 3.840969533830361*^9, 3.841017229689185*^9, 3.841017348050187*^9, {3.8410174344851923`*^9, 3.841017456353243*^9}, { 3.841017925739458*^9, 3.8410179778174057`*^9}, 3.841018208157604*^9, 3.841018238469206*^9, 3.8410189767105646`*^9, 3.841105936987711*^9, { 3.8411080886190343`*^9, 3.841108111469978*^9}, 3.841110318222932*^9, 3.84112693116341*^9, 3.8411274270947027`*^9, 3.8411279852302213`*^9, 3.963661347598156*^9, 3.9636631631404305`*^9}, CellLabel-> "Out[682]=",ExpressionUUID->"b030d11c-35c5-6c4a-ba5f-de80713854fe"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", FractionBox[ RowBox[{"q", "[", "x", "]"}], "2"]}, { FractionBox[ RowBox[{"r", "[", "x", "]"}], "2"], "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", FractionBox["\[ImaginaryI]", "2"]}], "0"}, {"0", FractionBox["\[ImaginaryI]", "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.840764679063429*^9, 3.840764713811886*^9, 3.840765867810639*^9, 3.8407695149906054`*^9, 3.840769678942309*^9, 3.840949292037472*^9, 3.840967426899274*^9, 3.8409676255459337`*^9, 3.8409679790044465`*^9, 3.840968470704514*^9, 3.840969533830361*^9, 3.841017229689185*^9, 3.841017348050187*^9, {3.8410174344851923`*^9, 3.841017456353243*^9}, { 3.841017925739458*^9, 3.8410179778174057`*^9}, 3.841018208157604*^9, 3.841018238469206*^9, 3.8410189767105646`*^9, 3.841105936987711*^9, { 3.8411080886190343`*^9, 3.841108111469978*^9}, 3.841110318222932*^9, 3.84112693116341*^9, 3.8411274270947027`*^9, 3.8411279852302213`*^9, 3.963661347598156*^9, 3.9636631631574802`*^9}, CellLabel-> "Out[683]//TableForm=",ExpressionUUID->"34210aaa-59b5-5e47-985e-\ ef8336df40df"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices \ \\!\\(\\*SuperscriptBox[OverscriptBox[\\(B\\), \\(~\\)], \\((0)\\)]\\), \ \\!\\(\\*SuperscriptBox[OverscriptBox[\\(B\\), \\(~\\)], \\((1)\\)]\\), ..., \ \\!\\(\\*SuperscriptBox[OverscriptBox[\\(B\\), \\(~\\)], \\((qmax)\\)]\\) for \ \\!\\(\\*OverscriptBox[\\(M\\), \\(^\\)]\\) in symmetrized form: \"\>", TextForm]], "InlineText",ExpressionUUID-> "fb6e95c4-630d-7346-9ea8-5acb461a827c"], Text["Coefficient Matrices \!\(\*SuperscriptBox[OverscriptBox[\(B\), \ \(~\)], \((0)\)]\), \!\(\*SuperscriptBox[OverscriptBox[\(B\), \(~\)], \ \((1)\)]\), ..., \!\(\*SuperscriptBox[OverscriptBox[\(B\), \(~\)], \ \((qmax)\)]\) for \!\(\*OverscriptBox[\(M\), \(^\)]\) in symmetrized form: \ "]]], "Output", CellChangeTimes->{ 3.840764679063429*^9, 3.840764713811886*^9, 3.840765867810639*^9, 3.8407695149906054`*^9, 3.840769678942309*^9, 3.840949292037472*^9, 3.840967426899274*^9, 3.8409676255459337`*^9, 3.8409679790044465`*^9, 3.840968470704514*^9, 3.840969533830361*^9, 3.841017229689185*^9, 3.841017348050187*^9, {3.8410174344851923`*^9, 3.841017456353243*^9}, { 3.841017925739458*^9, 3.8410179778174057`*^9}, 3.841018208157604*^9, 3.841018238469206*^9, 3.8410189767105646`*^9, 3.841105936987711*^9, { 3.8411080886190343`*^9, 3.841108111469978*^9}, 3.841110318222932*^9, 3.84112693116341*^9, 3.8411274270947027`*^9, 3.8411279852302213`*^9, 3.963661347598156*^9, 3.9636631631574802`*^9}, CellLabel-> "Out[684]=",ExpressionUUID->"eb527694-3bbc-3e49-ba74-4f8aeae6b8eb"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { FractionBox["1", "2"], "0"}, {"0", RowBox[{"-", FractionBox["1", "2"]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { FractionBox["1", "2"], "0"}, {"0", FractionBox["1", "2"]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"q", "[", "x", "]"}]}, { RowBox[{"r", "[", "x", "]"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"}, {"0", RowBox[{ RowBox[{"-", RowBox[{"q", "[", "x", "]"}]}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], "0"}, {"0", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "16"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "5"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], "0"}, {"0", RowBox[{"5", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"8", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"16", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"16", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"8", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"61", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"59", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"59", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"16", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"16", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], "0"}, {"0", RowBox[{ RowBox[{ RowBox[{"-", "10"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"61", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"59", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"59", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"16", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"16", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"8", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "16"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"8", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"7", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], "0"}, {"0", RowBox[{ RowBox[{"-", "7"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "4"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"62", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"32", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "4"]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"32", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"62", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"18", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{ RowBox[{"-", "16"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"-", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "\[ImaginaryI]"}], "0"}, {"0", "\[ImaginaryI]"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"6", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"}, {"0", RowBox[{"4", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "10"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"10", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "16"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], "0"}, {"0", RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"10", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"16", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"16", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"10", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], "0"}, {"0", RowBox[{"32", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "14"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"100", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"103", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "14"}], " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"60", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"14", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"50", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "14"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"100", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"103", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"11", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"11", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], "0"}, {"0", RowBox[{"64", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"11", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"11", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"11", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "2"}], "0"}, {"0", "2"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "2"}], "0"}, {"0", RowBox[{"-", "2"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"}, {"0", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "16"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "16"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "16"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "16"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "16"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"16", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "20"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], "0"}, {"0", RowBox[{"20", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"64", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{ RowBox[{"-", "32"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"140", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], "0"}, {"0", RowBox[{ RowBox[{"-", "140"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "64"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "64"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"13", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"4", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"4", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"4", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "4"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"8", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"8", " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"40", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "40"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"32", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"}, {"0", RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"40", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"40", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"280", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"280", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "280"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"280", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"64", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], "0"}, {"0", RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"8", "0"}, {"0", RowBox[{"-", "8"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"8", "0"}, {"0", "8"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"16", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"16", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"80", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"}, {"0", RowBox[{ RowBox[{"-", "80"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"96", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "96"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"96", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"96", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "96"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"96", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"96", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{ RowBox[{"-", "96"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "16"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "16"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "16"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"16", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "224"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "224"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"224", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "224"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "192"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"}, {"0", RowBox[{"192", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "32"}], "0"}, {"0", "32"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "32"}], "0"}, {"0", RowBox[{"-", "32"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "64"}], " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "64"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"64", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"64", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"d", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"64", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "64"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.840764679063429*^9, 3.840764713811886*^9, 3.840765867810639*^9, 3.8407695149906054`*^9, 3.840769678942309*^9, 3.840949292037472*^9, 3.840967426899274*^9, 3.8409676255459337`*^9, 3.8409679790044465`*^9, 3.840968470704514*^9, 3.840969533830361*^9, 3.841017229689185*^9, 3.841017348050187*^9, {3.8410174344851923`*^9, 3.841017456353243*^9}, { 3.841017925739458*^9, 3.8410179778174057`*^9}, 3.841018208157604*^9, 3.841018238469206*^9, 3.8410189767105646`*^9, 3.841105936987711*^9, { 3.8411080886190343`*^9, 3.841108111469978*^9}, 3.841110318222932*^9, 3.84112693116341*^9, 3.8411274270947027`*^9, 3.8411279852302213`*^9, 3.963661347598156*^9, 3.963663163390684*^9}, CellLabel-> "Out[686]//TableForm=",ExpressionUUID->"a079618b-57c8-9a43-a46b-\ 1c6e8854292f"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices for \\!\\(\\*OverscriptBox[\\(M\\), \\(^\ \\)]\\) in symmetrized form (\\!\\(\\*SuperscriptBox[\\(d\\), \\((n)\\)]\\)'s \ excluded): \"\>", TextForm]], "InlineText",ExpressionUUID-> "7e06686c-d855-9d41-89c4-28ca3300ab35"], Text["Coefficient Matrices for \!\(\*OverscriptBox[\(M\), \(^\)]\) in \ symmetrized form (\!\(\*SuperscriptBox[\(d\), \((n)\)]\)'s excluded): "]]], \ "Output", CellChangeTimes->{ 3.840764679063429*^9, 3.840764713811886*^9, 3.840765867810639*^9, 3.8407695149906054`*^9, 3.840769678942309*^9, 3.840949292037472*^9, 3.840967426899274*^9, 3.8409676255459337`*^9, 3.8409679790044465`*^9, 3.840968470704514*^9, 3.840969533830361*^9, 3.841017229689185*^9, 3.841017348050187*^9, {3.8410174344851923`*^9, 3.841017456353243*^9}, { 3.841017925739458*^9, 3.8410179778174057`*^9}, 3.841018208157604*^9, 3.841018238469206*^9, 3.8410189767105646`*^9, 3.841105936987711*^9, { 3.8411080886190343`*^9, 3.841108111469978*^9}, 3.841110318222932*^9, 3.84112693116341*^9, 3.8411274270947027`*^9, 3.8411279852302213`*^9, 3.963661347598156*^9, 3.963663163407295*^9}, CellLabel-> "Out[687]=",ExpressionUUID->"47beed12-9bb4-874d-98ee-568e0bda99b8"], Cell[BoxData[ InterpretationBox[GridBox[{ { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { FractionBox["1", "2"], "0"}, {"0", RowBox[{"-", FractionBox["1", "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"}, {"0", RowBox[{ RowBox[{"-", RowBox[{"q", "[", "x", "]"}]}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], "0"}, {"0", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "5"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], "0"}, {"0", RowBox[{"5", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"61", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"59", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"59", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"16", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"16", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], "0"}, {"0", RowBox[{ RowBox[{ RowBox[{"-", "10"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"61", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"59", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"59", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"16", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"16", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"7", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], "0"}, {"0", RowBox[{ RowBox[{"-", "7"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"7", " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"7", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"-", "\[ImaginaryI]"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"6", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "10"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"10", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"10", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"16", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "10"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"16", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"10", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"5", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "14"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"100", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"103", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "14"}], " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"60", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"50", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]}, { RowBox[{"14", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"50", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"-", "14"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"100", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"25", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"103", " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"57", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"13", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "2"}], "0"}, {"0", "2"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "12"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"}, {"0", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "20"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], "0"}, {"0", RowBox[{"20", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"5", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"140", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], "0"}, {"0", RowBox[{ RowBox[{"-", "140"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"4", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"4", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"8", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"8", " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{"40", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "40"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"40", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"40", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"40", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"280", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}], RowBox[{"280", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "280"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], RowBox[{"280", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"8", "0"}, {"0", RowBox[{"-", "8"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"80", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], "0"}, {"0", RowBox[{ RowBox[{"-", "80"}], " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "16"}], " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{ RowBox[{"-", "16"}], " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"-", "32"}], " ", "\[ImaginaryI]", " ", RowBox[{"r", "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"-", "224"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "224"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"224", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], RowBox[{ RowBox[{"-", "224"}], " ", "\[ImaginaryI]", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "32"}], "0"}, {"0", "32"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], HoldForm]}, { TagBox[ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"64", " ", "\[ImaginaryI]"}], "0"}, {"0", RowBox[{"64", " ", "\[ImaginaryI]"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], HoldForm]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], TableForm[{ HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 0, ")"}]]] MatrixForm[{{ Rational[1, 2], 0}, {0, Rational[-1, 2]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 2, ")"}]]] MatrixForm[{{$CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x], 0}, { 0, -$CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 4, ")"}]]] MatrixForm[{{ 3 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x]^2 + Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + 2 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] + 2 $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x], 0}, { 0, (-3) $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 - Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 2 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 2 $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 5, ")"}]]] MatrixForm[{{ Complex[0, -5] (-Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] + Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x]), 0}, { 0, Complex[ 0, 5] (-Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] + Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 6, ")"}]]] MatrixForm[{{ 10 $CellContext`q[$CellContext`x]^3 $CellContext`r[$CellContext`x]^3 + 25 $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x]^2 + 60 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + 25 $CellContext`q[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x]^2 + 20 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[2][$CellContext`q][$CellContext`x] + 20 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 61 Derivative[2][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 59 Derivative[1][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] + 59 Derivative[1][$CellContext`q][$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 16 $CellContext`r[$CellContext`x] Derivative[4][$CellContext`q][$CellContext`x] + 16 $CellContext`q[$CellContext`x] Derivative[4][$CellContext`r][$CellContext`x], 0}, { 0, (-10) $CellContext`q[$CellContext`x]^3 \ $CellContext`r[$CellContext`x]^3 - 25 $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x]^2 - 60 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 25 $CellContext`q[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x]^2 - 20 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[2][$CellContext`q][$CellContext`x] - 20 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 61 Derivative[2][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - 59 Derivative[1][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 59 Derivative[1][$CellContext`q][$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] - 16 $CellContext`r[$CellContext`x] Derivative[4][$CellContext`q][$CellContext`x] - 16 $CellContext`q[$CellContext`x] Derivative[4][$CellContext`r][$CellContext`x]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 7, ")"}]]] MatrixForm[{{ Complex[0, 7] ( 10 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 10 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 7 Derivative[2][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 7 Derivative[2][$CellContext`q][$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 3 Derivative[1][$CellContext`r][$CellContext`x] Derivative[4][$CellContext`q][$CellContext`x] - 3 Derivative[1][$CellContext`q][$CellContext`x] Derivative[4][$CellContext`r][$CellContext`x]), 0}, { 0, Complex[0, -7] ( 10 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] - 10 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 7 Derivative[2][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] - 7 Derivative[2][$CellContext`q][$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 3 Derivative[1][$CellContext`r][$CellContext`x] Derivative[4][$CellContext`q][$CellContext`x] - 3 Derivative[1][$CellContext`q][$CellContext`x] Derivative[4][$CellContext`r][$CellContext`x])}}]], HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 1, ")"}]]] MatrixForm[{{ Complex[0, -1], 0}, {0, Complex[0, -1]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 2, ")"}]]] MatrixForm[{{0, Complex[0, -2] $CellContext`q[$CellContext`x]}, { Complex[0, -2] $CellContext`r[$CellContext`x], 0}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 3, ")"}]]] MatrixForm[{{ Complex[0, -6] $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x], (-6) Derivative[1][$CellContext`q][$CellContext`x]}, { 6 Derivative[1][$CellContext`r][$CellContext`x], Complex[0, -6] $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 4, ")"}]]] MatrixForm[{{(-6) ($CellContext`r[$CellContext`x] Derivative[ 1][$CellContext`q][$CellContext`x] - \ $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]), Complex[0, -6] ( 2 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] - Derivative[2][$CellContext`q][$CellContext`x])}, { Complex[0, -6] ( 2 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 - Derivative[ 2][$CellContext`r][$CellContext`x]), (-6) \ ($CellContext`r[$CellContext`x] Derivative[ 1][$CellContext`q][$CellContext`x] - \ $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 5, ")"}]]] MatrixForm[{{ Complex[0, -10] ( 3 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 + 5 Derivative[1][$CellContext`q][$CellContext`x] Derivative[ 1][$CellContext`r][$CellContext`x] + \ $CellContext`r[$CellContext`x] Derivative[ 2][$CellContext`q][$CellContext`x] + \ $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x]), (-10) ( 6 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] + Derivative[3][$CellContext`q][$CellContext`x])}, { 10 (6 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + Derivative[3][$CellContext`r][$CellContext`x]), Complex[0, -10] ( 3 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 + 5 Derivative[1][$CellContext`q][$CellContext`x] Derivative[ 1][$CellContext`r][$CellContext`x] + \ $CellContext`r[$CellContext`x] Derivative[ 2][$CellContext`q][$CellContext`x] + \ $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 6, ")"}]]] MatrixForm[{{ 10 ((-6) $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] + 6 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 5 Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] + 5 Derivative[1][$CellContext`q][$CellContext`x] Derivative[ 2][$CellContext`r][$CellContext`x] - \ $CellContext`r[$CellContext`x] Derivative[ 3][$CellContext`q][$CellContext`x] + \ $CellContext`q[$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x]), Complex[0, -10] ( 6 $CellContext`q[$CellContext`x]^3 \ $CellContext`r[$CellContext`x]^2 + 6 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x]^2 + 16 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 4 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] + 2 $CellContext`q[$CellContext`x]^2 Derivative[2][$CellContext`r][$CellContext`x] - Derivative[ 4][$CellContext`q][$CellContext`x])}, { Complex[0, -10] ( 6 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^3 + 16 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + 6 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]^2 + 2 $CellContext`r[$CellContext`x]^2 Derivative[2][$CellContext`q][$CellContext`x] - 4 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] - Derivative[ 4][$CellContext`r][$CellContext`x]), 10 ((-6) $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] + 6 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] - 5 Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] + 5 Derivative[1][$CellContext`q][$CellContext`x] Derivative[ 2][$CellContext`r][$CellContext`x] - \ $CellContext`r[$CellContext`x] Derivative[ 3][$CellContext`q][$CellContext`x] + \ $CellContext`q[$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 7, ")"}]]] MatrixForm[{{ Complex[0, -14] ( 10 $CellContext`q[$CellContext`x]^3 \ $CellContext`r[$CellContext`x]^3 + 25 $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x]^2 + 100 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + 25 $CellContext`q[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x]^2 + 10 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[2][$CellContext`q][$CellContext`x] + 10 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 103 Derivative[2][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 57 Derivative[1][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] + 57 Derivative[1][$CellContext`q][$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 13 $CellContext`r[$CellContext`x] Derivative[4][$CellContext`q][$CellContext`x] + 13 $CellContext`q[$CellContext`x] Derivative[4][$CellContext`r][$CellContext`x]), (-14) ( 30 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x] + 30 Derivative[1][$CellContext`q][$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x] + 60 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] + 50 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] + 10 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 10 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] + 13 Derivative[5][$CellContext`q][$CellContext`x])}, { 14 (30 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x] + 30 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]^2 + 10 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] + 50 $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 60 $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 10 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 13 Derivative[5][$CellContext`r][$CellContext`x]), Complex[0, -14] ( 10 $CellContext`q[$CellContext`x]^3 \ $CellContext`r[$CellContext`x]^3 + 25 $CellContext`r[$CellContext`x]^2 Derivative[1][$CellContext`q][$CellContext`x]^2 + 100 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + 25 $CellContext`q[$CellContext`x]^2 Derivative[1][$CellContext`r][$CellContext`x]^2 + 10 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 Derivative[2][$CellContext`q][$CellContext`x] + 10 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 103 Derivative[2][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x] + 57 Derivative[1][$CellContext`r][$CellContext`x] Derivative[3][$CellContext`q][$CellContext`x] + 57 Derivative[1][$CellContext`q][$CellContext`x] Derivative[3][$CellContext`r][$CellContext`x] + 13 $CellContext`r[$CellContext`x] Derivative[4][$CellContext`q][$CellContext`x] + 13 $CellContext`q[$CellContext`x] Derivative[4][$CellContext`r][$CellContext`x])}}]], HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 2, ")"}]]] MatrixForm[{{-2, 0}, {0, 2}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 4, ")"}]]] MatrixForm[{{(-12) $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x], 0}, { 0, 12 $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 6, ")"}]]] MatrixForm[{{(-20) ( 3 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 + 5 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + 4 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] + 4 $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x]), 0}, { 0, 20 (3 $CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 + 5 Derivative[1][$CellContext`q][$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + 4 $CellContext`r[$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] + 4 $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 7, ")"}]]] MatrixForm[{{ Complex[0, 140] (-Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] + Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x]), 0}, { 0, Complex[ 0, -140] (-Derivative[1][$CellContext`r][$CellContext`x] Derivative[2][$CellContext`q][$CellContext`x] + Derivative[1][$CellContext`q][$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x])}}]], HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 3, ")"}]]] MatrixForm[{{ Complex[0, 4], 0}, {0, Complex[0, 4]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 4, ")"}]]] MatrixForm[{{0, Complex[0, 8] $CellContext`q[$CellContext`x]}, { Complex[0, 8] $CellContext`r[$CellContext`x], 0}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 5, ")"}]]] MatrixForm[{{ Complex[0, 40] $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x], 40 Derivative[1][$CellContext`q][$CellContext`x]}, {(-40) Derivative[1][$CellContext`r][$CellContext`x], Complex[ 0, 40] $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 6, ")"}]]] MatrixForm[{{ 40 ($CellContext`r[$CellContext`x] Derivative[ 1][$CellContext`q][$CellContext`x] - \ $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x]), Complex[0, 40] ( 2 $CellContext`q[$CellContext`x]^2 $CellContext`r[$CellContext`x] - Derivative[2][$CellContext`q][$CellContext`x])}, { Complex[0, 40] ( 2 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x]^2 - Derivative[2][$CellContext`r][$CellContext`x]), 40 ($CellContext`r[$CellContext`x] Derivative[ 1][$CellContext`q][$CellContext`x] - \ $CellContext`q[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x])}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 7, ")"}]]] MatrixForm[{{ Complex[0, 280] ($CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 + 3 Derivative[1][$CellContext`q][$CellContext`x] Derivative[ 1][$CellContext`r][$CellContext`x] + \ $CellContext`r[$CellContext`x] Derivative[ 2][$CellContext`q][$CellContext`x] + \ $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x]), 280 (2 $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x] Derivative[1][$CellContext`q][$CellContext`x] + Derivative[3][$CellContext`q][$CellContext`x])}, {(-280) ( 2 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x] Derivative[1][$CellContext`r][$CellContext`x] + Derivative[3][$CellContext`r][$CellContext`x]), Complex[0, 280] ($CellContext`q[$CellContext`x]^2 \ $CellContext`r[$CellContext`x]^2 + 3 Derivative[1][$CellContext`q][$CellContext`x] Derivative[ 1][$CellContext`r][$CellContext`x] + \ $CellContext`r[$CellContext`x] Derivative[ 2][$CellContext`q][$CellContext`x] + \ $CellContext`q[$CellContext`x] Derivative[2][$CellContext`r][$CellContext`x])}}]], HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 4, ")"}]]] MatrixForm[{{8, 0}, {0, -8}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 6, ")"}]]] MatrixForm[{{ 80 $CellContext`q[$CellContext`x] $CellContext`r[$CellContext`x], 0}, {0, (-80) $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x]}}]], HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 5, ")"}]]] MatrixForm[{{ Complex[0, -16], 0}, {0, Complex[0, -16]}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 6, ")"}]]] MatrixForm[{{0, Complex[0, -32] $CellContext`q[$CellContext`x]}, { Complex[0, -32] $CellContext`r[$CellContext`x], 0}}] + Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 7, ")"}]]] MatrixForm[{{ Complex[0, -224] $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x], (-224) Derivative[1][$CellContext`q][$CellContext`x]}, { 224 Derivative[1][$CellContext`r][$CellContext`x], Complex[0, -224] $CellContext`q[$CellContext`x] \ $CellContext`r[$CellContext`x]}}]], { HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 6, ")"}]]] MatrixForm[{{-32, 0}, {0, 32}}]]}, { HoldForm[Superscript[$CellContext`c, DisplayForm[ RowBox[{"(", 7, ")"}]]] MatrixForm[{{ Complex[0, 64], 0}, {0, Complex[0, 64]}}]]}}]]], "Output", CellChangeTimes->{ 3.840764679063429*^9, 3.840764713811886*^9, 3.840765867810639*^9, 3.8407695149906054`*^9, 3.840769678942309*^9, 3.840949292037472*^9, 3.840967426899274*^9, 3.8409676255459337`*^9, 3.8409679790044465`*^9, 3.840968470704514*^9, 3.840969533830361*^9, 3.841017229689185*^9, 3.841017348050187*^9, {3.8410174344851923`*^9, 3.841017456353243*^9}, { 3.841017925739458*^9, 3.8410179778174057`*^9}, 3.841018208157604*^9, 3.841018238469206*^9, 3.8410189767105646`*^9, 3.841105936987711*^9, { 3.8411080886190343`*^9, 3.841108111469978*^9}, 3.841110318222932*^9, 3.84112693116341*^9, 3.8411274270947027`*^9, 3.8411279852302213`*^9, 3.963661347598156*^9, 3.9636631635405483`*^9}, CellLabel-> "Out[689]//TableForm=",ExpressionUUID->"0bae1ea0-7de8-6540-9b31-\ 8678f3f0b730"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices \ \\!\\(\\*TemplateBox[{OverscriptBox[\\\"Comm\\\", \\\"~\\\"], TagBox[RowBox[{\ \\\"(\\\", \\\"0\\\", \\\")\\\"}], DisplayForm]},\\\"Superscript\\\"]\\), \\!\ \\(\\*TemplateBox[{OverscriptBox[\\\"Comm\\\", \\\"~\\\"], \ TagBox[RowBox[{\\\"(\\\", \\\"1\\\", \\\")\\\"}], \ DisplayForm]},\\\"Superscript\\\"]\\), ..., \ \\!\\(\\*TemplateBox[{OverscriptBox[\\\"Comm\\\", \\\"~\\\"], TagBox[RowBox[{\ \\\"(\\\", RowBox[{\\\"pmax\\\", \\\"+\\\", \\\"qmax\\\"}], \\\")\\\"}], \ DisplayForm]},\\\"Superscript\\\"]\\) for [\\!\\(\\*OverscriptBox[\\(L\\), \ \\(^\\)]\\),\\!\\(\\*OverscriptBox[\\(M\\), \\(^\\)]\\)] in symmetrized form: \ \"\>", TextForm]], "InlineText",ExpressionUUID-> "ee063752-e2a6-3a43-9eb7-9ad93de31d15"], Text["Coefficient Matrices \!\(\*TemplateBox[{OverscriptBox[\"Comm\", \ \"~\"], TagBox[RowBox[{\"(\", \"0\", \")\"}], \ DisplayForm]},\"Superscript\"]\), \!\(\*TemplateBox[{OverscriptBox[\"Comm\", \ \"~\"], TagBox[RowBox[{\"(\", \"1\", \")\"}], \ DisplayForm]},\"Superscript\"]\), ..., \ \!\(\*TemplateBox[{OverscriptBox[\"Comm\", \"~\"], TagBox[RowBox[{\"(\", \ RowBox[{\"pmax\", \"+\", \"qmax\"}], \")\"}], \ DisplayForm]},\"Superscript\"]\) for [\!\(\*OverscriptBox[\(L\), \ \(^\)]\),\!\(\*OverscriptBox[\(M\), \(^\)]\)] in symmetrized form: "]]], \ "Output", CellChangeTimes->{ 3.840764679063429*^9, 3.840764713811886*^9, 3.840765867810639*^9, 3.8407695149906054`*^9, 3.840769678942309*^9, 3.840949292037472*^9, 3.840967426899274*^9, 3.8409676255459337`*^9, 3.8409679790044465`*^9, 3.840968470704514*^9, 3.840969533830361*^9, 3.841017229689185*^9, 3.841017348050187*^9, {3.8410174344851923`*^9, 3.841017456353243*^9}, { 3.841017925739458*^9, 3.8410179778174057`*^9}, 3.841018208157604*^9, 3.841018238469206*^9, 3.8410189767105646`*^9, 3.841105936987711*^9, { 3.8411080886190343`*^9, 3.841108111469978*^9}, 3.841110318222932*^9, 3.84112693116341*^9, 3.8411274270947027`*^9, 3.8411279852302213`*^9, 3.963661347598156*^9, 3.9636631635405483`*^9}, CellLabel-> "Out[690]=",ExpressionUUID->"ae1d9192-cf4a-1943-a936-8ec958934f85"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"r", "[", "x", "]"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{ RowBox[{"-", "20"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "4"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"22", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "4"]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"50", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"22", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"8", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "3"]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"112", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"98", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "7", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "3"]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"280", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"112", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"28", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"98", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "7", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.840764679063429*^9, 3.840764713811886*^9, 3.840765867810639*^9, 3.8407695149906054`*^9, 3.840769678942309*^9, 3.840949292037472*^9, 3.840967426899274*^9, 3.8409676255459337`*^9, 3.8409679790044465`*^9, 3.840968470704514*^9, 3.840969533830361*^9, 3.841017229689185*^9, 3.841017348050187*^9, {3.8410174344851923`*^9, 3.841017456353243*^9}, { 3.841017925739458*^9, 3.8410179778174057`*^9}, 3.841018208157604*^9, 3.841018238469206*^9, 3.8410189767105646`*^9, 3.841105936987711*^9, { 3.8411080886190343`*^9, 3.841108111469978*^9}, 3.841110318222932*^9, 3.84112693116341*^9, 3.8411274270947027`*^9, 3.8411279852302213`*^9, 3.963661347598156*^9, 3.9636631635907*^9}, CellLabel-> "Out[692]//TableForm=",ExpressionUUID->"7ece7507-e1bd-7744-8c5b-\ 58e1527ee9c6"], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox["\<\"Coefficient Matrices for [\\!\\(\\*OverscriptBox[\\(L\\), \ \\(^\\)]\\),\\!\\(\\*OverscriptBox[\\(M\\), \\(^\\)]\\)] in symmetrized form \ (\\!\\(\\*SuperscriptBox[\\(d\\), \\((n)\\)]\\)'s excluded): \"\>", TextForm]], "InlineText",ExpressionUUID-> "5c80f6bc-7328-5e46-9b3a-5436a996b7bc"], Text["Coefficient Matrices for [\!\(\*OverscriptBox[\(L\), \ \(^\)]\),\!\(\*OverscriptBox[\(M\), \(^\)]\)] in symmetrized form \ (\!\(\*SuperscriptBox[\(d\), \((n)\)]\)'s excluded): "]]], "Output", CellChangeTimes->{ 3.840764679063429*^9, 3.840764713811886*^9, 3.840765867810639*^9, 3.8407695149906054`*^9, 3.840769678942309*^9, 3.840949292037472*^9, 3.840967426899274*^9, 3.8409676255459337`*^9, 3.8409679790044465`*^9, 3.840968470704514*^9, 3.840969533830361*^9, 3.841017229689185*^9, 3.841017348050187*^9, {3.8410174344851923`*^9, 3.841017456353243*^9}, { 3.841017925739458*^9, 3.8410179778174057`*^9}, 3.841018208157604*^9, 3.841018238469206*^9, 3.8410189767105646`*^9, 3.841105936987711*^9, { 3.8411080886190343`*^9, 3.841108111469978*^9}, 3.841110318222932*^9, 3.84112693116341*^9, 3.8411274270947027`*^9, 3.8411279852302213`*^9, 3.963661347598156*^9, 3.9636631635907*^9}, CellLabel-> "Out[693]=",ExpressionUUID->"8026293b-10c4-b643-abad-54a0860d5338"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox[ RowBox[{ RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "0", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", RowBox[{"q", "[", "x", "]"}]}]}, { RowBox[{"r", "[", "x", "]"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "1", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "2", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"2", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "-", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "3", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "4", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"]}], "+", RowBox[{"6", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"4", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"6", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "-", RowBox[{"4", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"6", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "5", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"30", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "6", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{ RowBox[{"-", "20"}], " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "4"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"]}], "+", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"60", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"20", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"22", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"30", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"18", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"8", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}]}, { RowBox[{ RowBox[{"20", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "4"]}], "-", RowBox[{"10", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"60", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"50", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"50", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"22", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"20", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"8", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"18", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"30", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"12", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "6", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "+", RowBox[{ TemplateBox[{"c", TagBox[ RowBox[{"(", "7", ")"}], DisplayForm]}, "Superscript"], " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "3"]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"112", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"98", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "7", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}]}, { RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"140", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "3"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "3"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"280", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "3"]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"140", " ", RowBox[{"q", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"280", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"112", " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"]}], "+", RowBox[{"28", " ", SuperscriptBox[ RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{"70", " ", SuperscriptBox[ RowBox[{"q", "[", "x", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"r", "[", "x", "]"}], "2"], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"98", " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"70", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "3", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"28", " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["q", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"42", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "4", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"14", " ", RowBox[{"q", "[", "x", "]"}], " ", RowBox[{"r", "[", "x", "]"}], " ", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "5", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["r", TagBox[ RowBox[{"(", "7", ")"}], Derivative], MultilineFunction->None], "[", "x", "]"}]}], ")"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], HoldForm]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.840764679063429*^9, 3.840764713811886*^9, 3.840765867810639*^9, 3.8407695149906054`*^9, 3.840769678942309*^9, 3.840949292037472*^9, 3.840967426899274*^9, 3.8409676255459337`*^9, 3.8409679790044465`*^9, 3.840968470704514*^9, 3.840969533830361*^9, 3.841017229689185*^9, 3.841017348050187*^9, {3.8410174344851923`*^9, 3.841017456353243*^9}, { 3.841017925739458*^9, 3.8410179778174057`*^9}, 3.841018208157604*^9, 3.841018238469206*^9, 3.8410189767105646`*^9, 3.841105936987711*^9, { 3.8411080886190343`*^9, 3.841108111469978*^9}, 3.841110318222932*^9, 3.84112693116341*^9, 3.8411274270947027`*^9, 3.8411279852302213`*^9, 3.963661347598156*^9, 3.963663163641283*^9}, CellLabel-> "Out[695]//TableForm=",ExpressionUUID->"15c37437-d615-a341-bcba-\ 31815d0eb97c"] }, Open ]], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{ 3.840966977151967*^9},ExpressionUUID->"05184cf4-0cd4-4956-a48b-\ 537b86224602"], Cell[TextData[{ StyleBox["References related to the term-collecting functions defined above:", FontVariations->{"Underline"->True}], "\n--- How to keep Collect[] result in order? \n\ https://mathematica.stackexchange.com/questions/15744/how-to-keep-collect-\ result-in-order\n--- Matrix Decomposition and Collect[duplicate]\n\ https://mathematica.stackexchange.com/questions/196939/matrix-decomposition-\ and-collect\n\n" }], "Text", CellChangeTimes->{{3.8409665714953146`*^9, 3.8409665873047924`*^9}, { 3.840966621320922*^9, 3.8409666239953585`*^9}, {3.8409666610017138`*^9, 3.840966733504202*^9}, {3.8409667928363976`*^9, 3.8409668266270037`*^9}, { 3.8409669823843536`*^9, 3.840966987465309*^9}, {3.840967786807459*^9, 3.8409677873752103`*^9}, {3.8409695789016714`*^9, 3.8409695799901657`*^9}, { 3.8409699062702947`*^9, 3.8409699118525662`*^9}},ExpressionUUID->"16ba6b8a-aaab-4b3b-8580-\ 548f514cd112"] }, WindowSize->{1428, 735.75}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"14.2 for Microsoft Windows (64-bit) (2024\:5e7412\:670826\ \:65e5)", StyleDefinitions->"Default.nb", ExpressionUUID->"90893d23-b2d0-46f6-a0bc-47cc87d91b58" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 1215, 20, 35, "Input",ExpressionUUID->"376bbb6f-a541-45a3-ac16-c0e2b94b1857"], Cell[1776, 42, 584, 11, 41, "Text",ExpressionUUID->"dd2b0d4c-0a7c-4104-b002-f530cb325321"], Cell[2363, 55, 441, 13, 26, "Text",ExpressionUUID->"03396217-ea2e-4df0-b094-316bd3c70b04"], Cell[2807, 70, 88664, 1289, 352, "Text",ExpressionUUID->"f63ea88d-77d2-4ad8-a819-fcaf9efa0366"], Cell[91474, 1361, 36810, 797, 1057, "Input",ExpressionUUID->"19c88bcb-9c1b-4863-9e1b-f3605cb34091"], Cell[128287, 2160, 573, 10, 26, "Text",ExpressionUUID->"a55359f9-9fb1-48c3-bc61-50502bc068db"], Cell[128863, 2172, 1284, 27, 74, "Text",ExpressionUUID->"07bf39e2-c990-4bab-9b03-686b232cccb3"], Cell[130150, 2201, 12805, 325, 340, "Input",ExpressionUUID->"a8c0da10-bdda-4b91-9ebd-b13ed6f01a91"], Cell[142958, 2528, 885, 17, 59, "Text",ExpressionUUID->"a32d5232-d793-425b-96e5-ec43a135ed8c"], Cell[143846, 2547, 427, 9, 59, "Text",ExpressionUUID->"dfde335a-7177-43ff-8300-cc0390f3f8af"], Cell[CellGroupData[{ Cell[144298, 2560, 7361, 167, 340, "Input",ExpressionUUID->"86b47d91-90b3-4d8f-bfca-c1524acd61d8"], Cell[151662, 2729, 1886, 28, 41, "Output",ExpressionUUID->"f5d291f7-ccea-284f-a526-4c5d0a0446a5"], Cell[153551, 2759, 2940, 69, 69, "Output",ExpressionUUID->"31b222b1-e314-1d4d-afe4-2c944959939e"], Cell[156494, 2830, 1886, 28, 41, "Output",ExpressionUUID->"f8672839-724f-284b-a31f-aeef88c6ae06"], Cell[158383, 2860, 306394, 7513, 257, "Output",ExpressionUUID->"3e99fe12-8dc6-8c44-9974-2c0aec80aeaa"], Cell[464780, 10375, 1720, 26, 41, "Output",ExpressionUUID->"58c6bf25-2703-6849-987e-843006915dd4"], Cell[466503, 10403, 155292, 3809, 249, "Output",ExpressionUUID->"e07d74ce-6f83-5443-901c-a8beedd57f87"], Cell[621798, 14214, 2008, 30, 41, "Output",ExpressionUUID->"bc38d079-6f4a-c144-a33a-78e0cf0eb394"], Cell[623809, 14246, 154425, 4180, 253, "Output",ExpressionUUID->"eee446b8-a048-cb43-a9da-906dde9298b9"], Cell[778237, 18428, 1811, 28, 41, "Output",ExpressionUUID->"a60cab13-ec53-8546-8ce7-b1f1c573a6a2"], Cell[780051, 18458, 99622, 2595, 253, "Output",ExpressionUUID->"0826232c-e7e2-094b-bcf1-afc73c6e6828"] }, Open ]], Cell[879688, 21056, 246, 5, 26, "Text",ExpressionUUID->"a9e6f9c7-f08e-4dae-8656-7f1cfe026856"], Cell[CellGroupData[{ Cell[879959, 21065, 7435, 169, 340, "Input",ExpressionUUID->"2a837588-2f01-47c4-a908-3707f500c030"], Cell[887397, 21236, 777, 13, 41, "Output",ExpressionUUID->"4ab0b214-7196-354f-9e0c-1442968b001b"], Cell[888177, 21251, 1829, 54, 69, "Output",ExpressionUUID->"ad419c83-94ba-d84d-8b38-25f51b6ee599"], Cell[890009, 21307, 777, 13, 41, "Output",ExpressionUUID->"d2935088-5efe-9d49-ac6b-e818f3e69a4b"], Cell[890789, 21322, 257375, 6115, 257, "Output",ExpressionUUID->"0a3795c4-e316-8049-8e0d-3a41e3de87d2"], Cell[1148167, 27439, 610, 11, 41, "Output",ExpressionUUID->"3d6b181c-1cfd-a748-9f51-70b04a7bb3ff"], Cell[1148780, 27452, 166823, 3793, 249, "Output",ExpressionUUID->"412fe524-3339-2043-8738-e2009066ef4b"], Cell[1315606, 31247, 897, 15, 41, "Output",ExpressionUUID->"8474f02f-a5a7-b944-970c-48d338b3b17b"], Cell[1316506, 31264, 53732, 1269, 253, "Output",ExpressionUUID->"74da602d-d500-dc48-a34e-7d75eafe8fd1"], Cell[1370241, 32535, 696, 13, 41, "Output",ExpressionUUID->"42fb3082-feaa-b642-80cf-8312b1409c8d"], Cell[1370940, 32550, 53732, 1269, 253, "Output",ExpressionUUID->"da0a5bef-0139-a948-b8ad-7448afcd6d6d"] }, Open ]], Cell[1424687, 33822, 1052, 24, 58, "Text",ExpressionUUID->"1859ec4b-d903-46ca-beae-b065aef7a9f9"], Cell[1425742, 33848, 149, 3, 35, "Input",ExpressionUUID->"baeef838-0c88-495a-8d2d-97fda2210ec6"], Cell[1425894, 33853, 181, 3, 21, "Input",ExpressionUUID->"04ba4792-06cb-418c-b33f-f97f972d6da8"], Cell[1426078, 33858, 5671, 177, 315, "Text",ExpressionUUID->"19d395eb-dfb3-4b86-87a6-506787ecd5dc"], Cell[1431752, 34037, 309, 6, 21, "Input",ExpressionUUID->"cdbe63c9-3b1a-42a7-8920-8eea41c8cf65"], Cell[CellGroupData[{ Cell[1432086, 34047, 11843, 297, 486, "Input",ExpressionUUID->"49002ac9-8509-4852-a895-f3a9f7b3d287"], Cell[1443932, 34346, 1608, 26, 41, "Output",ExpressionUUID->"b030d11c-35c5-6c4a-ba5f-de80713854fe"], Cell[1445543, 34374, 2579, 67, 97, "Output",ExpressionUUID->"34210aaa-59b5-5e47-985e-ef8336df40df"], Cell[1448125, 34443, 1593, 26, 41, "Output",ExpressionUUID->"eb527694-3bbc-3e49-ba74-4f8aeae6b8eb"], Cell[1449721, 34471, 182001, 4418, 263, "Output",ExpressionUUID->"a079618b-57c8-9a43-a46b-1c6e8854292f"], Cell[1631725, 38891, 1274, 21, 41, "Output",ExpressionUUID->"47beed12-9bb4-874d-98ee-568e0bda99b8"], Cell[1633002, 38914, 102879, 2430, 256, "Output",ExpressionUUID->"0bae1ea0-7de8-6540-9b31-8678f3f0b730"], Cell[1735884, 41346, 2176, 36, 41, "Output",ExpressionUUID->"ae1d9192-cf4a-1943-a936-8ec958934f85"], Cell[1738063, 41384, 53018, 1262, 253, "Output",ExpressionUUID->"7ece7507-e1bd-7744-8c5b-58e1527ee9c6"], Cell[1791084, 42648, 1361, 22, 41, "Output",ExpressionUUID->"8026293b-10c4-b643-abad-54a0860d5338"], Cell[1792448, 42672, 53020, 1262, 253, "Output",ExpressionUUID->"15c37437-d615-a341-bcba-31815d0eb97c"] }, Open ]], Cell[1845483, 43937, 147, 3, 35, "Input",ExpressionUUID->"05184cf4-0cd4-4956-a48b-537b86224602"], Cell[1845633, 43942, 924, 16, 123, "Text",ExpressionUUID->"16ba6b8a-aaab-4b3b-8580-548f514cd112"] } ] *)