summaryrefslogtreecommitdiff
path: root/rk1210.inc
diff options
context:
space:
mode:
Diffstat (limited to 'rk1210.inc')
-rw-r--r--rk1210.inc577
1 files changed, 577 insertions, 0 deletions
diff --git a/rk1210.inc b/rk1210.inc
new file mode 100644
index 0000000..3410f78
--- /dev/null
+++ b/rk1210.inc
@@ -0,0 +1,577 @@
+ felders[2].liKo(
+ felders[aktuelleFelder],
+ felders[aktuelleFelder],
+ 0.2 * 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.216049382716049382716049382716049382716049382716049382716049 * dT,
+ 0.771604938271604938271604938271604938271604938271604938271605 * 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.208333333333333333333333333333333333333333333333333333333333 * dT,
+ 0.625 * 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.193333333333333333333333333333333333333333333333333333333333 * dT,
+ 0.22 * dT,
+ -0.08 * 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.1 * dT,
+ 0.4 * dT,
+ 0.5 * 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.103364471650010477570395435690481791543342708330349879244197 * dT,
+ 0.124053094528946761061581889237115328211074784955180298044074 * dT,
+ 0.48317116756103289928883648045196250872410925751728917730238 * dT,
+ -0.038753024569476325208568144376762058039573330234136803880429 * 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.12403826143183332408190458598017516814002467069863361229248 * dT,
+ 0.217050632197958486317846256953159942875916353757734167684657 * dT,
+ 0.0137455792075966759812907801835048190594443990939408530842918 * dT,
+ -0.0661095317267682844455831341498149531672668252085016565917546 * 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.0914774894856882983144991846980432197088832099976660100090486 * dT,
+ -0.00544348523717469689965754944144838611346156873847009178068318 * dT,
+ 0.0680716801688453518578515120895103863112751730758794372203952 * dT,
+ 0.408394315582641046727306852653894780093303185664924644551239 * 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.0890013652502551018954509355423841780143232697403434118692699 * dT,
+ 0.0049952822664553236019779340842069280040589114940681409195581 * dT,
+ 0.397918238819828997341739603001347156083435060931424970826304 * dT,
+ 0.427930210752576611068192608300897981558240730580396406312359 * dT,
+ -0.0865117637557827005740277475955029103267246394128995965941585 * 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.0695087624134907543112693906409809822706021061685544615255758 * dT,
+ 0.129146941900176461970759579482746551122871751501482634045487 * dT,
+ 1.53073638102311295076342566143214939031177504112433874313011 * dT,
+ 0.577874761129140052546751349454576715334892100418571882718036 * dT,
+ -0.951294772321088980532340837388859453930924498799228648050949 * dT,
+ -0.408276642965631951497484981519757463459627174520978426909934 * 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.0444861403295135866269453507092463581620165501018684152933313 * dT,
+ -0.00380476867056961731984232686574547203016331563626856065717964 * dT,
+ 0.0106955064029624200721262602809059154469206077644957399593972 * dT,
+ 0.0209616244499904333296674205928919920806734650660039898074652 * dT,
+ -0.0233146023259321786648561431551978077665337818756053603898847 * dT,
+ 0.00263265981064536974369934736325334761174975280887405725010964 * dT,
+ 0.00315472768977025060103545855572111407955208306374459723959783 * 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[9],
+ felders[10],
+ felders[11],
+ felders[12],
+ 0.0194588815119755475588801096525317761242073762016273186231215 * dT,
+ 0.0000678512949171812509306121653452367476194364781259165332321534 * dT,
+ -0.000042979585904927362327100533023016234356886338772488360367555 * dT,
+ 0.0000176358982260285155407485928953302139937553442829975734148981 * dT,
+ 0.0653866627415027051009595231385181033549511358787382098351924 * 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[9],
+ felders[10],
+ felders[11],
+ felders[12],
+ felders[13],
+ 0.206836835664277105916828174798272361078909196043446411598231 * dT,
+ 0.0166796067104156472828045866664696450306326505094792505215514 * dT,
+ -0.00879501563200710214457024178249986591130234990219959208704979 * dT,
+ 0.00346675455362463910824462315246379209427513654098596403637231 * dT,
+ -0.861264460105717678161432562258351242030270498966891201799225 * dT,
+ 0.908651882074050281096239478469262145034957129939256789178785 * 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[9],
+ felders[10],
+ felders[11],
+ felders[12],
+ felders[13],
+ felders[14],
+ 0.0203926084654484010091511314676925686038504449562413004562382 * dT,
+ 0.0869469392016685948675400555583947505833954460930940959577347 * dT,
+ -0.0191649630410149842286436611791405053287170076602337673587681 * dT,
+ 0.00655629159493663287364871573244244516034828755253746024098838 * dT,
+ 0.0987476128127434780903798528674033899738924968006632201445462 * dT,
+ 0.00535364695524996055083260173615567408717110247274021056118319 * dT,
+ 0.301167864010967916837091303817051676920059229784957479998077 * 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[9],
+ felders[10],
+ felders[11],
+ felders[12],
+ felders[13],
+ felders[14],
+ felders[15],
+ 0.228410433917778099547115412893004398779136994596948545722283 * dT,
+ -0.498707400793025250635016567442511512138603770959682292383042 * dT,
+ 0.134841168335724478552596703792570104791700727205981058201689 * dT,
+ -0.038745824405583415843990422692402923093516105914280680567436 * dT,
+ -1.27473257473474844240388430824908952380979292713250350199641 * dT,
+ 1.43916364462877165201184452437038081875299303577911839630524 * dT,
+ -0.214007467967990254219503540827349569639028092344812795499026 * dT,
+ 0.958202417754430239892724139109781371059908874605153648768037 * 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[9],
+ felders[10],
+ felders[11],
+ felders[12],
+ felders[13],
+ felders[14],
+ felders[15],
+ felders[16],
+ 2.00222477655974203614249646012506747121440306225711721209798 * dT,
+ 2.06701809961524912091954656438138595825411859673341600679555 * dT,
+ 0.62397813608613954195747127983149446615529231616702108066314 * dT,
+ -0.0462283685500311430283203554129062069391947101880112723185773 * dT,
+ -8.8497328836264961486007524672711894928660483545709270109463 * dT,
+ 7.74257707850855976227437225791835589560188590785037197433615 * dT,
+ -0.588358519250869210993353314127711745644125882130941202896436 * dT,
+ -1.10683733362380649395704708016953056176195769617014899442903 * dT,
+ -0.929529037579203999778397238291233214220788057511899747507074 * dT
+ );
+ felders[17].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+ if pruefeMaxDT(17,mDT,dT) then
+ continue;
+
+ felders[18].liKo(
+ felders[aktuelleFelder],
+ felders[aktuelleFelder],
+ felders[6],
+ felders[7],
+ felders[8],
+ felders[9],
+ felders[10],
+ felders[11],
+ felders[12],
+ felders[13],
+ felders[14],
+ felders[15],
+ felders[16],
+ felders[17],
+ 3.1378953341207344293445160898988879680816125933032210026831 * dT,
+ 0.129146941900176461970759579482746551122871751501482634045487 * dT,
+ 1.53073638102311295076342566143214939031177504112433874313011 * dT,
+ 0.577874761129140052546751349454576715334892100418571882718036 * dT,
+ 5.42088263055126683050056840891857421941300558851862156403363 * dT,
+ 0.231546926034829304872663800877643660904880180835945693836936 * dT,
+ 0.0759292995578913560162301311785251873561801342333194895292058 * dT,
+ -12.3729973380186513287414553402595806591349822617535905976253 * dT,
+ 9.85455883464769543935957209317369202080367765721777101906955 * dT,
+ 0.085911143137043652957935770905236777288998049512232960115954 * dT,
+ -5.65242752862643921117182090081762761180392602644189218673969 * dT,
+ -1.94300935242819610883833776782364287728724899124166920477873 * dT,
+ -0.128352601849404542018428714319344620742146491335612353559923 * dT
+ );
+ felders[18].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+ if pruefeMaxDT(18,mDT,dT) then
+ continue;
+
+ felders[19].liKo(
+ felders[aktuelleFelder],
+ felders[aktuelleFelder],
+ felders[6],
+ felders[7],
+ felders[8],
+ felders[9],
+ felders[10],
+ felders[11],
+ felders[12],
+ felders[13],
+ felders[14],
+ felders[15],
+ felders[16],
+ felders[17],
+ felders[18],
+ 1.38360054432196014878538118298167716825163268489922519995564 * dT,
+ 0.0049952822664553236019779340842069280040589114940681409195581 * dT,
+ 0.397918238819828997341739603001347156083435060931424970826304 * dT,
+ 0.427930210752576611068192608300897981558240730580396406312359 * dT,
+ -1.30299107424475770916551439123047573342071475998399645982146 * dT,
+ 0.661292278669377029097112528107513072734573412294008071500699 * dT,
+ -0.144559774306954349765969393688703463900585822441545655530145 * dT,
+ -6.96576034731798203467853867461083919356792248105919255460819 * dT,
+ 6.65808543235991748353408295542210450632193197576935120716437 * dT,
+ -1.66997375108841486404695805725510845049807969199236227575796 * dT,
+ 2.06413702318035263832289040301832647130604651223986452170089 * dT,
+ -0.674743962644306471862958129570837723192079875998405058648892 * dT,
+ -0.00115618834794939500490703608435907610059605754935305582045729 * dT,
+ -0.00544057908677007389319819914241631024660726585015012485938593 * dT
+ );
+ felders[19].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+ if pruefeMaxDT(19,mDT,dT) then
+ continue;
+
+ felders[20].liKo(
+ felders[aktuelleFelder],
+ felders[aktuelleFelder],
+ felders[5],
+ felders[6],
+ felders[7],
+ felders[9],
+ felders[10],
+ felders[11],
+ felders[12],
+ felders[13],
+ felders[14],
+ felders[15],
+ felders[16],
+ felders[17],
+ felders[18],
+ felders[19],
+ 0.951236297048287669474637975894973552166903378983475425758226 * dT,
+ 0.217050632197958486317846256953159942875916353757734167684657 * dT,
+ 0.0137455792075966759812907801835048190594443990939408530842918 * dT,
+ -0.0661095317267682844455831341498149531672668252085016565917546 * dT,
+ 0.152281696736414447136604697040747131921486432699422112099617 * dT,
+ -0.33774101835759984080230079313399800435464342445753966767008 * dT,
+ -0.0192825981633995781534949199286824400469353110630787982121133 * dT,
+ -3.68259269696866809932409015535499603576312120746888880201882 * dT,
+ 3.16197870406982063541533528419683854018352080342887002331312 * dT,
+ -0.370462522106885290716991856022051125477943482284080569177386 * dT,
+ -0.0514974200365440434996434456698127984941168616474316871020314 * dT,
+ -0.000829625532120152946787043541792848416659382675202720677536554 * dT,
+ 0.00000279801041419278598986586589070027583961355402640879503213503 * dT,
+ 0.0418603916412360287969841020776788461794119440689356178942252 * dT,
+ 0.279084255090877355915660874555379649966282167560126269290222 * dT
+ );
+ felders[20].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+ if pruefeMaxDT(20,mDT,dT) then
+ continue;
+
+ felders[21].liKo(
+ felders[aktuelleFelder],
+ felders[aktuelleFelder],
+ felders[4],
+ felders[5],
+ felders[6],
+ felders[8],
+ felders[10],
+ felders[11],
+ felders[18],
+ felders[19],
+ felders[20],
+ 0.103364471650010477570395435690481791543342708330349879244197 * dT,
+ 0.124053094528946761061581889237115328211074784955180298044074 * dT,
+ 0.48317116756103289928883648045196250872410925751728917730238 * dT,
+ -0.038753024569476325208568144376762058039573330234136803880429 * dT,
+ -0.438313820361122420391059788940960176420682836652600698580091 * dT,
+ -0.218636633721676647685111485017151199362509373698288330593486 * dT,
+ -0.0312334764394719229981634995206440349766174759626578122323015 * dT,
+ 0.0312334764394719229981634995206440349766174759626578122323015 * dT,
+ 0.218636633721676647685111485017151199362509373698288330593486 * dT,
+ 0.438313820361122420391059788940960176420682836652600698580091 * dT
+ );
+ felders[21].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+ if pruefeMaxDT(21,mDT,dT) then
+ continue;
+
+ felders[22].liKo(
+ felders[aktuelleFelder],
+ felders[aktuelleFelder],
+ felders[3],
+ felders[4],
+ felders[7],
+ felders[8],
+ felders[10],
+ felders[11],
+ felders[18],
+ felders[19],
+ felders[20],
+ felders[21],
+ 0.193333333333333333333333333333333333333333333333333333333333 * dT,
+ 0.22 * dT,
+ -0.08 * dT,
+ 0.0984256130499315928152900286856048243348202521491288575952143 * dT,
+ -0.196410889223054653446526504390100417677539095340135532418849 * dT,
+ 0.436457930493068729391826122587949137609670676712525034763317 * dT,
+ 0.065261372167572109856037093980555569835054381070841471673027 * dT,
+ -0.065261372167572109856037093980555569835054381070841471673027 * dT,
+ -0.436457930493068729391826122587949137609670676712525034763317 * dT,
+ 0.196410889223054653446526504390100417677539095340135532418849 * dT,
+ -0.0984256130499315928152900286856048243348202521491288575952143 * dT
+ );
+ felders[22].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+ if pruefeMaxDT(22,mDT,dT) then
+ continue;
+
+ felders[23].liKo(
+ felders[aktuelleFelder],
+ felders[aktuelleFelder],
+ felders[2],
+ felders[5],
+ felders[7],
+ felders[21],
+ felders[22],
+ -0.216049382716049382716049382716049382716049382716049382716049 * dT,
+ 0.771604938271604938271604938271604938271604938271604938271605 * dT,
+ -0.666666666666666666666666666666666666666666666666666666666667 * dT,
+ -0.390696469295978451446999802258495981249099665294395945559163 * dT,
+ 0.390696469295978451446999802258495981249099665294395945559163 * dT,
+ 0.666666666666666666666666666666666666666666666666666666666667 * dT
+ );
+ felders[23].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+ if pruefeMaxDT(23,mDT,dT) then
+ continue;
+
+ felders[24].liKo(
+ felders[aktuelleFelder],
+ felders[aktuelleFelder],
+ felders[3],
+ felders[23],
+ 0.2 * dT,
+ -0.164609053497942386831275720164609053497942386831275720164609 * dT,
+ 0.164609053497942386831275720164609053497942386831275720164609 * dT
+ );
+ felders[24].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+ if pruefeMaxDT(24,mDT,dT) then
+ continue;
+
+ felders[25].liKo(
+ felders[aktuelleFelder],
+ felders[aktuelleFelder],
+ felders[2],
+ felders[3],
+ felders[5],
+ felders[7],
+ felders[8],
+ felders[9],
+ felders[10],
+ felders[11],
+ felders[12],
+ felders[13],
+ felders[14],
+ felders[15],
+ felders[16],
+ felders[17],
+ felders[18],
+ felders[19],
+ felders[20],
+ felders[21],
+ felders[22],
+ felders[23],
+ felders[24],
+ 1.47178724881110408452949550989023611293535315518571691939396 * dT,
+ 0.7875 * dT,
+ 0.421296296296296296296296296296296296296296296296296296296296 * dT,
+ 0.291666666666666666666666666666666666666666666666666666666667 * dT,
+ 0.348600717628329563206854421629657569274689947367847465753757 * dT,
+ 0.22949954476899484958289023371055544707382356966650670066251 * dT,
+ 5.79046485790481979159831978177003471098279506036722411333192 * dT,
+ 0.418587511856506868874073759426596207226461447604248151080016 * dT,
+ 0.307039880222474002649653817490106690389251482313213999386651 * dT,
+ -4.68700905350603332214256344683853248065574415794742040470287 * dT,
+ 3.13571665593802262152038152399873856554395436199962915429076 * dT,
+ 1.40134829710965720817510506275620441055845017313930508348898 * dT,
+ -5.5293110143949902362901030600576433642127605577765815640091 * dT,
+ -0.853138235508063349309546894974784906188927508039552519557498 * dT,
+ 0.103575780373610140411804607167772795518293914458500175573749 * dT,
+ -0.140474416950600941142546901202132534870665923700034957196546 * dT,
+ -0.418587511856506868874073759426596207226461447604248151080016 * dT,
+ -0.22949954476899484958289023371055544707382356966650670066251 * dT,
+ -0.348600717628329563206854421629657569274689947367847465753757 * dT,
+ -0.291666666666666666666666666666666666666666666666666666666667 * dT,
+ -0.421296296296296296296296296296296296296296296296296296296296 * dT,
+ -0.7875 * dT
+ );
+ felders[25].berechneAbleitungen(dT/2,dX,iDT,iDX,pDNMax);
+
+ if pruefeMaxDT(25,mDT,dT) then
+ continue;
+
+ felders[1-aktuelleFelder].liKo(
+ felders[aktuelleFelder],
+ felders[aktuelleFelder],
+ felders[2],
+ felders[3],
+ felders[5],
+ felders[7],
+ felders[8],
+ felders[10],
+ felders[11],
+ felders[13],
+ felders[14],
+ felders[15],
+ felders[16],
+ felders[17],
+ felders[18],
+ felders[19],
+ felders[20],
+ felders[21],
+ felders[22],
+ felders[23],
+ felders[24],
+ felders[25],
+ 0.0238095238095238095238095238095238095238095238095238095238095 * dT,
+ 0.0234375 * dT,
+ 0.03125 * dT,
+ 0.0416666666666666666666666666666666666666666666666666666666667 * dT,
+ 0.05 * dT,
+ 0.05 * dT,
+ 0.1 * dT,
+ 0.0714285714285714285714285714285714285714285714285714285714286 * dT,
+ 0.138413023680782974005350203145033146748813640089941234591267 * dT,
+ 0.215872690604931311708935511140681138965472074195773051123019 * dT,
+ 0.24380952380952380952380952380952380952380952380952380952381 * dT,
+ 0.215872690604931311708935511140681138965472074195773051123019 * dT,
+ 0.138413023680782974005350203145033146748813640089941234591267 * dT,
+ -0.0714285714285714285714285714285714285714285714285714285714286 * dT,
+ -0.1 * dT,
+ -0.05 * dT,
+ -0.05 * dT,
+ -0.0416666666666666666666666666666666666666666666666666666666667 * dT,
+ -0.03125 * dT,
+ -0.0234375 * dT,
+ 0.0238095238095238095238095238095238095238095238095238095238095 * dT
+ );