1 files changed, 331 insertions, 0 deletions
diff --git a/rk108.inc b/rk108.inc
new file mode 100644
index 0000000..de1c24e
--- /dev/null
+++ b/rk108.inc
@@ -0,0 +1,331 @@
+  felders[2].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    0.1 * dT
+  );
+  felders[2].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(2,mDT,dT) then
+    continue;
+
+  felders[3].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[2],
+    -0.91517656137529144052001501927534215431895138766436972056466 * dT,
+    1.45453440217827322805250021715664459117622483736537873607016 * dT
+  );
+  felders[3].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(3,mDT,dT) then
+    continue;
+
+  felders[4].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[3],
+    0.202259190301118170324681949205488413821477543637878380814562 * dT,
+    0.606777570903354510974045847616465241464432630913635142443687 * dT
+  );
+  felders[4].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(4,mDT,dT) then
+    continue;
+
+  felders[5].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[3],
+    felders[4],
+    0.184024714708643575149100693471120664216774047979591417844635 * dT,
+    0.197966831227192369068141770510388793370637287463360401555746 * dT,
+    -0.0729547847313632629185146671595558023015011608914382961421311 * dT
+  );
+  felders[5].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(5,mDT,dT) then
+    continue;
+
+  felders[6].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[4],
+    felders[5],
+    0.0879007340206681337319777094132125475918886824944548534041378 * dT,
+    0.410459702520260645318174895920453426088035325902848695210406 * dT,
+    0.482713753678866489204726942976896106809132737721421333413261 * dT
+  );
+  felders[6].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(6,mDT,dT) then
+    continue;
+
+  felders[7].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[4],
+    felders[5],
+    felders[6],
+    0.085970050490246030218848022594580840141113261563660022259388 * dT,
+    0.330885963040722183948884057658753173648240154838402033448632 * dT,
+    0.48966295730945019284450701113589820117801547843379009721079 * dT,
+    -0.0731856375070850736789057580558988816340355615025188195854775 * dT
+  );
+  felders[7].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(7,mDT,dT) then
+    continue;
+
+  felders[8].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[5],
+    felders[6],
+    felders[7],
+    0.120930449125333720660378854927668953958938996999703678812621 * dT,
+    0.260124675758295622809007617838335174368108756484693361887839 * dT,
+    0.0325402621549091330158899334391231259332716675992700000776101 * dT,
+    -0.0595780211817361001560122202563305121444953672762930724538856 * dT
+  );
+  felders[8].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(8,mDT,dT) then
+    continue;
+
+  felders[9].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[6],
+    felders[7],
+    felders[8],
+    0.110854379580391483508936171010218441909425780168656559807038 * dT,
+    -0.0605761488255005587620924953655516875526344415354339234619466 * dT,
+    0.32176370560177839010089879904987890408140436860307712925111 * dT,
+    0.51048572560806303157775901228512341674467213703175235406759 * dT
+  );
+  felders[9].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(9,mDT,dT) then
+    continue;
+
+  felders[10].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[6],
+    felders[7],
+    felders[8],
+    felders[9],
+    0.112054414752879004829715002761802363003717611158172229329393 * dT,
+    -0.144942775902865915672349828340980777181668499748506838876185 * dT,
+    -0.333269719096256706589705211415746871709467423992115497968724 * dT,
+    0.499269229556880061353316843969978567860276816592673201240332 * dT,
+    0.50950460892968610423609869004538625398664323235298960218506 * dT
+  );
+  felders[10].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(10,mDT,dT) then
+    continue;
+
+  felders[11].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[6],
+    felders[7],
+    felders[8],
+    felders[9],
+    felders[10],
+    0.113976783964185986138004186736901163890724752541486831640341 * dT,
+    -0.0768813364203356938586214289120895270821349023390922987406384 * dT,
+    0.239527360324390649107711455271882373019741311201004119339563 * dT,
+    0.397774662368094639047830462488952104564716416343454639902613 * dT,
+    0.0107558956873607455550609147441477450257136782823280838547024 * dT,
+    -0.327769124164018874147061087350233395378262992392394071906457 * dT
+  );
+  felders[11].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(11,mDT,dT) then
+    continue;
+
+  felders[12].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[6],
+    felders[7],
+    felders[8],
+    felders[9],
+    felders[10],
+    felders[11],
+    0.0798314528280196046351426864486400322758737630423413945356284 * dT,
+    -0.0520329686800603076514949887612959068721311443881683526937298 * dT,
+    -0.0576954146168548881732784355283433509066159287152968723021864 * dT,
+    0.19478191571210416497630626214738287115614292135440936473809 * dT,
+    0.145384923188325069727524825977071194859203467568236523866582 * dT,
+    -0.0782942710351670777553986729725692447252077047239160551335016 * dT,
+    -0.114503299361098912184303164290554670970133218405658122674674 * dT
+  );
+  felders[12].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(12,mDT,dT) then
+    continue;
+
+  felders[13].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[4],
+    felders[5],
+    felders[6],
+    felders[7],
+    felders[8],
+    felders[9],
+    felders[10],
+    felders[11],
+    felders[12],
+    0.985115610164857280120041500306517278413646677314195559520529 * dT,
+    0.330885963040722183948884057658753173648240154838402033448632 * dT,
+    0.48966295730945019284450701113589820117801547843379009721079 * dT,
+    -1.37896486574843567582112720930751902353904327148559471526397 * dT,
+    -0.861164195027635666673916999665534573351026060987427093314412 * dT,
+    5.78428813637537220022999785486578436006872789689499172601856 * dT,
+    3.28807761985103566890460615937314805477268252903342356581925 * dT,
+    -2.38633905093136384013422325215527866148401465975954104585807 * dT,
+    -3.25479342483643918654589367587788726747711504674780680269911 * dT,
+    -2.16343541686422982353954211300054820889678036420109999154887 * dT
+  );
+  felders[13].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(13,mDT,dT) then
+    continue;
+
+  felders[14].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[3],
+    felders[4],
+    felders[6],
+    felders[7],
+    felders[8],
+    felders[9],
+    felders[10],
+    felders[11],
+    felders[12],
+    felders[13],
+    0.89508029577163289104961313233658513814815627924156134599171 * dT,
+    0.197966831227192369068141770510388793370637287463360401555746 * dT,
+    -0.0729547847313632629185146671595558023015011608914382961421311 * dT,
+    -0.851236239662007619739049371445966793289359722875702227166105 * dT,
+    0.398320112318533301719718614174373643336480918103773904231856 * dT,
+    3.63937263181035606029412920047090044132027387893977804176229 * dT,
+    1.54822877039830322365301663075174564919981736348973496313065 * dT,
+    -2.12221714704053716026062427460427261025318461146260124401561 * dT,
+    -1.58350398545326172713384349625753212757269188934434237975291 * dT,
+    -1.71561608285936264922031819751349098912615880827551992973034 * dT,
+    -0.0244036405750127452135415444412216875465593598370910566069132 * dT
+  );
+  felders[14].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(14,mDT,dT) then
+    continue;
+
+  felders[15].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[2],
+    felders[5],
+    felders[7],
+    felders[13],
+    felders[14],
+    -0.91517656137529144052001501927534215431895138766436972056466 * dT,
+    1.45453440217827322805250021715664459117622483736537873607016 * dT,
+    -0.777333643644968233538931228575302137803351053629547286334469 * dT,
+    -0.0910895662155176069593203555807484200111889091770101799647985 * dT,
+    0.0910895662155176069593203555807484200111889091770101799647985 * dT,
+    0.777333643644968233538931228575302137803351053629547286334469 * dT
+  );
+  felders[15].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(15,mDT,dT) then
+    continue;
+
+  felders[16].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[3],
+    felders[15],
+    0.1 * dT,
+    -0.157178665799771163367058998273128921867183754126709419409654 * dT,
+    0.157178665799771163367058998273128921867183754126709419409654 * dT
+  );
+  felders[16].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(16,mDT,dT) then
+    continue;
+
+  felders[17].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[2],
+    felders[3],
+    felders[5],
+    felders[6],
+    felders[7],
+    felders[8],
+    felders[9],
+    felders[10],
+    felders[11],
+    felders[12],
+    felders[13],
+    felders[14],
+    felders[15],
+    felders[16],
+    0.181781300700095283888472062582262379650443831463199521664945 * dT,
+    0.675 * dT,
+    0.34275815984718983994222055341385087174233873470395891993726 * dT,
+    0.259111214548322744512977076191767379267783684543182428778156 * dT,
+    -0.358278966717952089048961276721979397739750634673268802484271 * dT,
+    -1.0459489594088330609505006875640990513158812317237848928608 * dT,
+    0.930327845415626983292300564432428777137601651182965794680397 * dT,
+    1.77950959431708102446142106794824453926275743243327790536 * dT,
+    0.1 * dT,
+    -0.282547569539044081612477785222287276408489375976211189952877 * dT,
+    -0.159327350119972549169261984373485859278031542127551931461821 * dT,
+    -0.145515894647001510860991961081084111308650130578626404945571 * dT,
+    -0.259111214548322744512977076191767379267783684543182428778156 * dT,
+    -0.34275815984718983994222055341385087174233873470395891993726 * dT,
+    -0.675 * dT
+  );
+  felders[17].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+  if pruefeMaxDT(17,mDT,dT) then
+    continue;
+
+  felders[1-aktuelleFelder].liKo(
+    felders[aktuelleFelder],
+    felders[aktuelleFelder],
+    felders[2],
+    felders[3],
+    felders[5],
+    felders[7],
+    felders[9],
+    felders[10],
+    felders[11],
+    felders[12],
+    felders[13],
+    felders[14],
+    felders[15],
+    felders[16],
+    felders[17],
+    0.0333333333333333333333333333333333333333333333333333333333333 * dT,
+    0.025 * dT,
+    0.0333333333333333333333333333333333333333333333333333333333333 * dT,
+    0.05 * dT,
+    0.04 * dT,
+    0.189237478148923490158306404106012326238162346948625830327194 * dT,
+    0.277429188517743176508360262560654340428504319718040836339472 * dT,
+    0.277429188517743176508360262560654340428504319718040836339472 * dT,
+    0.189237478148923490158306404106012326238162346948625830327194 * dT,
+    -0.04 * dT,
+    -0.05 * dT,
+    -0.0333333333333333333333333333333333333333333333333333333333333 * dT,
+    -0.025 * dT,
+    0.0333333333333333333333333333333333333333333333333333333333333 * dT
+  );