Tagesendstand, Kampf gegen fftw in vollem Gange

1 files changed, 252 insertions, 315 deletions

diff --git a/linearkombination.inc b/linearkombination.inc
index 85ed695..8fca2c0 100644
--- a/linearkombination.inc
+++ b/linearkombination.inc
@@ -1,325 +1,262 @@
-// Werte werden auf (in1 + \sum_i faki * ini') gesetzt
-
-procedure tImpulsPunkt.liKo(in1,in2
-{$IFDEF lkA3},in3
-{$IFDEF lkA4},in4
-{$IFDEF lkA5},in5
-{$IFDEF lkA6},in6
-{$IFDEF lkA7},in7
-{$IFDEF lkA8},in8
-{$IFDEF lkA9},in9
-{$IFDEF lkA10},in10
-{$IFDEF lkA11},in11
-{$IFDEF lkA12},in12
-{$IFDEF lkA14},in13,in14
-{$IFDEF lkA15},in15
-{$IFDEF lkA16},in16
-{$IFDEF lkA17},in17
-{$IFDEF lkA18},in18
-{$IFDEF lkA19},in19
-{$IFDEF lkA22},in20,in21,in22
-{$IFDEF lkA23},in23
-{$IFDEF lkA31},in24,in25,in26,in27,in28,in29,in30,in31
-{$IFDEF lkA32},in32
-{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}: tImpulsPunkt;
-fak2
-{$IFDEF lkA3},fak3
-{$IFDEF lkA4},fak4
-{$IFDEF lkA5},fak5
-{$IFDEF lkA6},fak6
-{$IFDEF lkA7},fak7
-{$IFDEF lkA8},fak8
-{$IFDEF lkA9},fak9
-{$IFDEF lkA10},fak10
-{$IFDEF lkA11},fak11
-{$IFDEF lkA12},fak12
-{$IFDEF lkA14},fak13,fak14
-{$IFDEF lkA15},fak15
-{$IFDEF lkA16},fak16
-{$IFDEF lkA17},fak17
-{$IFDEF lkA18},fak18
-{$IFDEF lkA19},fak19
-{$IFDEF lkA22},fak20,fak21,fak22
-{$IFDEF lkA23},fak23
-{$IFDEF lkA31},fak24,fak25,fak26,fak27,fak28,fak29,fak30,fak31
-{$IFDEF lkA32},fak32
-{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}: extended);
-var
-  i:   longint;
-begin
-  for i:=0 to length(werte)-1 do
-    werte[i,false]:=
-      in1.werte[i,false]
-      + fak2  * in2.werte[i,true]  {$IFDEF lkA3}
-      + fak3  * in3.werte[i,true]  {$IFDEF lkA4}
-      + fak4  * in4.werte[i,true]  {$IFDEF lkA5}
-      + fak5  * in5.werte[i,true]  {$IFDEF lkA6}
-      + fak6  * in6.werte[i,true]  {$IFDEF lkA7}
-      + fak7  * in7.werte[i,true]  {$IFDEF lkA8}
-      + fak8  * in8.werte[i,true]  {$IFDEF lkA9}
-      + fak9  * in9.werte[i,true]  {$IFDEF lkA10}
-      + fak10 * in10.werte[i,true] {$IFDEF lkA11}
-      + fak11 * in11.werte[i,true] {$IFDEF lkA12}
-      + fak12 * in12.werte[i,true] {$IFDEF lkA14}
-      + fak13 * in13.werte[i,true]
-      + fak14 * in14.werte[i,true] {$IFDEF lkA15}
-      + fak15 * in15.werte[i,true] {$IFDEF lkA16}
-      + fak16 * in16.werte[i,true] {$IFDEF lkA17}
-      + fak17 * in17.werte[i,true] {$IFDEF lkA18}
-      + fak18 * in18.werte[i,true] {$IFDEF lkA19}
-      + fak19 * in19.werte[i,true] {$IFDEF lkA22}
-      + fak20 * in20.werte[i,true]
-      + fak21 * in21.werte[i,true]
-      + fak22 * in22.werte[i,true] {$IFDEF lkA23}
-      + fak23 * in23.werte[i,true] {$IFDEF lkA31}
-      + fak24 * in24.werte[i,true]
-      + fak25 * in25.werte[i,true]
-      + fak26 * in26.werte[i,true]
-      + fak27 * in27.werte[i,true]
-      + fak28 * in28.werte[i,true]
-      + fak29 * in29.werte[i,true]
-      + fak30 * in30.werte[i,true]
-      + fak31 * in31.werte[i,true] {$IFDEF lkA32}
-      + fak32 * in32.werte[i,true]
-      {$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF};
-
-end;
 
 // Werte werden auf (in1 + \sum_i faki * ini') gesetzt
 
-procedure tRaumPunkt.liKo(in1,in2
-{$IFDEF lkA3},in3
-{$IFDEF lkA4},in4
-{$IFDEF lkA5},in5
-{$IFDEF lkA6},in6
-{$IFDEF lkA7},in7
-{$IFDEF lkA8},in8
-{$IFDEF lkA9},in9
-{$IFDEF lkA10},in10
-{$IFDEF lkA11},in11
-{$IFDEF lkA12},in12
-{$IFDEF lkA14},in13,in14
-{$IFDEF lkA15},in15
-{$IFDEF lkA16},in16
-{$IFDEF lkA17},in17
-{$IFDEF lkA18},in18
-{$IFDEF lkA19},in19
-{$IFDEF lkA22},in20,in21,in22
-{$IFDEF lkA23},in23
-{$IFDEF lkA31},in24,in25,in26,in27,in28,in29,in30,in31
-{$IFDEF lkA32},in32
-{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}: tRaumPunkt;
+procedure tFelder.liKo(in1,in2
+{$IFDEF lkA3},in3{$ENDIF}
+{$IFDEF lkA4},in4{$ENDIF}
+{$IFDEF lkA5},in5{$ENDIF}
+{$IFDEF lkA6},in6{$ENDIF}
+{$IFDEF lkA7},in7{$ENDIF}
+{$IFDEF lkA8},in8{$ENDIF}
+{$IFDEF lkA9},in9{$ENDIF}
+{$IFDEF lkA10},in10{$ENDIF}
+{$IFDEF lkA11},in11{$ENDIF}
+{$IFDEF lkA12},in12{$ENDIF}
+{$IFDEF lkA13},in13{$ENDIF}
+{$IFDEF lkA14},in14{$ENDIF}
+{$IFDEF lkA15},in15{$ENDIF}
+{$IFDEF lkA16},in16{$ENDIF}
+{$IFDEF lkA17},in17{$ENDIF}
+{$IFDEF lkA18},in18{$ENDIF}
+{$IFDEF lkA19},in19{$ENDIF}
+{$IFDEF lkA20},in20{$ENDIF}
+{$IFDEF lkA21},in21{$ENDIF}
+{$IFDEF lkA22},in22{$ENDIF}
+{$IFDEF lkA23},in23{$ENDIF}
+{$IFDEF lkA24},in24{$ENDIF}
+{$IFDEF lkA25},in25{$ENDIF}
+{$IFDEF lkA26},in26{$ENDIF}
+{$IFDEF lkA27},in27{$ENDIF}
+{$IFDEF lkA28},in28{$ENDIF}
+{$IFDEF lkA29},in29{$ENDIF}
+{$IFDEF lkA30},in30{$ENDIF}
+{$IFDEF lkA31},in31{$ENDIF}
+{$IFDEF lkA32},in32{$ENDIF}: tFelder;
 fak2
-{$IFDEF lkA3},fak3
-{$IFDEF lkA4},fak4
-{$IFDEF lkA5},fak5
-{$IFDEF lkA6},fak6
-{$IFDEF lkA7},fak7
-{$IFDEF lkA8},fak8
-{$IFDEF lkA9},fak9
-{$IFDEF lkA10},fak10
-{$IFDEF lkA11},fak11
-{$IFDEF lkA12},fak12
-{$IFDEF lkA14},fak13,fak14
-{$IFDEF lkA15},fak15
-{$IFDEF lkA16},fak16
-{$IFDEF lkA17},fak17
-{$IFDEF lkA18},fak18
-{$IFDEF lkA19},fak19
-{$IFDEF lkA22},fak20,fak21,fak22
-{$IFDEF lkA23},fak23
-{$IFDEF lkA31},fak24,fak25,fak26,fak27,fak28,fak29,fak30,fak31
-{$IFDEF lkA32},fak32
-{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}: extended);
+{$IFDEF lkA3},fak3{$ENDIF}
+{$IFDEF lkA4},fak4{$ENDIF}
+{$IFDEF lkA5},fak5{$ENDIF}
+{$IFDEF lkA6},fak6{$ENDIF}
+{$IFDEF lkA7},fak7{$ENDIF}
+{$IFDEF lkA8},fak8{$ENDIF}
+{$IFDEF lkA9},fak9{$ENDIF}
+{$IFDEF lkA10},fak10{$ENDIF}
+{$IFDEF lkA11},fak11{$ENDIF}
+{$IFDEF lkA12},fak12{$ENDIF}
+{$IFDEF lkA13},fak13{$ENDIF}
+{$IFDEF lkA14},fak14{$ENDIF}
+{$IFDEF lkA15},fak15{$ENDIF}
+{$IFDEF lkA16},fak16{$ENDIF}
+{$IFDEF lkA17},fak17{$ENDIF}
+{$IFDEF lkA18},fak18{$ENDIF}
+{$IFDEF lkA19},fak19{$ENDIF}
+{$IFDEF lkA20},fak20{$ENDIF}
+{$IFDEF lkA21},fak21{$ENDIF}
+{$IFDEF lkA22},fak22{$ENDIF}
+{$IFDEF lkA23},fak23{$ENDIF}
+{$IFDEF lkA24},fak24{$ENDIF}
+{$IFDEF lkA25},fak25{$ENDIF}
+{$IFDEF lkA26},fak26{$ENDIF}
+{$IFDEF lkA27},fak27{$ENDIF}
+{$IFDEF lkA28},fak28{$ENDIF}
+{$IFDEF lkA29},fak29{$ENDIF}
+{$IFDEF lkA30},fak30{$ENDIF}
+{$IFDEF lkA31},fak31{$ENDIF}
+{$IFDEF lkA32},fak32{$ENDIF}: extended);
 var
+  i,j: longint;
   emF: tEMFeldGroesze;
-  i:   longint;
 begin
-(*  tEMFeldInhalt = (
-      efA,efAX,efAY,efAZ,
-      efDAXDT,efDAYDT,efDAZDT,
-      efDPhiDX
-    ); *)
-  for emF:=erstesEMFMitAbleitung to letztesEMFMitAbleitung do
-    emFelder[emF,false]:=
-      in1.emFelder[emF,false]
-      + fak2  * in2.emFelder[emF,true]  {$IFDEF lkA3}
-      + fak3  * in3.emFelder[emF,true]  {$IFDEF lkA4}
-      + fak4  * in4.emFelder[emF,true]  {$IFDEF lkA5}
-      + fak5  * in5.emFelder[emF,true]  {$IFDEF lkA6}
-      + fak6  * in6.emFelder[emF,true]  {$IFDEF lkA7}
-      + fak7  * in7.emFelder[emF,true]  {$IFDEF lkA8}
-      + fak8  * in8.emFelder[emF,true]  {$IFDEF lkA9}
-      + fak9  * in9.emFelder[emF,true]  {$IFDEF lkA10}
-      + fak10 * in10.emFelder[emF,true] {$IFDEF lkA11}
-      + fak11 * in11.emFelder[emF,true] {$IFDEF lkA12}
-      + fak12 * in12.emFelder[emF,true] {$IFDEF lkA14}
-      + fak13 * in13.emFelder[emF,true]
-      + fak14 * in14.emFelder[emF,true] {$IFDEF lkA15}
-      + fak15 * in15.emFelder[emF,true] {$IFDEF lkA16}
-      + fak16 * in16.emFelder[emF,true] {$IFDEF lkA17}
-      + fak17 * in17.emFelder[emF,true] {$IFDEF lkA18}
-      + fak18 * in18.emFelder[emF,true] {$IFDEF lkA19}
-      + fak19 * in19.emFelder[emF,true] {$IFDEF lkA22}
-      + fak20 * in20.emFelder[emF,true]
-      + fak21 * in21.emFelder[emF,true]
-      + fak22 * in22.emFelder[emF,true] {$IFDEF lkA23}
-      + fak23 * in23.emFelder[emF,true] {$IFDEF lkA31}
-      + fak24 * in24.emFelder[emF,true]
-      + fak25 * in25.emFelder[emF,true]
-      + fak26 * in26.emFelder[emF,true]
-      + fak27 * in27.emFelder[emF,true]
-      + fak28 * in28.emFelder[emF,true]
-      + fak29 * in29.emFelder[emF,true]
-      + fak30 * in30.emFelder[emF,true]
-      + fak31 * in31.emFelder[emF,true] {$IFDEF lkA32}
-      + fak32 * in32.emFelder[emF,true]
-      {$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF};
+  for emF:=low(tEMFeldGroesze) to high(tEMFeldGroesze) do
+    for i:=0 to aX-1 do
+      (emFelder[emF,false]+i)^:=
+        (in1.emFelder[emF,false]+i)^
+        + fak2*(in2.emFelder[emF,true]+i)^
+        {$IFDEF lkA3}
+        + fak3*(in3.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA4}
+        + fak4*(in4.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA5}
+        + fak5*(in5.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA6}
+        + fak6*(in6.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA7}
+        + fak7*(in7.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA8}
+        + fak8*(in8.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA9}
+        + fak9*(in9.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA10}
+        + fak10*(in10.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA11}
+        + fak11*(in11.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA12}
+        + fak12*(in12.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA13}
+        + fak13*(in13.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA14}
+        + fak14*(in14.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA15}
+        + fak15*(in15.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA16}
+        + fak16*(in16.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA17}
+        + fak17*(in17.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA18}
+        + fak18*(in18.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA19}
+        + fak19*(in19.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA20}
+        + fak20*(in20.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA21}
+        + fak21*(in21.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA22}
+        + fak22*(in22.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA23}
+        + fak23*(in23.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA24}
+        + fak24*(in24.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA25}
+        + fak25*(in25.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA26}
+        + fak26*(in26.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA27}
+        + fak27*(in27.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA28}
+        + fak28*(in28.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA29}
+        + fak29*(in29.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA30}
+        + fak30*(in30.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA31}
+        + fak31*(in31.emFelder[emF,true]+i)^
+        {$ENDIF}
+        {$IFDEF lkA32}
+        + fak32*(in32.emFelder[emF,true]+i)^
+        {$ENDIF};
 
-  for i:=0 to length(phasenraum)-1 do
-    phasenraum[i].liKo(
-      in1.phasenraum[i],in2.phasenraum[i]
-      {$IFDEF lkA3},in3.phasenraum[i]
-      {$IFDEF lkA4},in4.phasenraum[i]
-      {$IFDEF lkA5},in5.phasenraum[i]
-      {$IFDEF lkA6},in6.phasenraum[i]
-      {$IFDEF lkA7},in7.phasenraum[i]
-      {$IFDEF lkA8},in8.phasenraum[i]
-      {$IFDEF lkA9},in9.phasenraum[i]
-      {$IFDEF lkA10},in10.phasenraum[i]
-      {$IFDEF lkA11},in11.phasenraum[i]
-      {$IFDEF lkA12},in12.phasenraum[i]
-      {$IFDEF lkA14},in13.phasenraum[i],in14.phasenraum[i]
-      {$IFDEF lkA15},in15.phasenraum[i]
-      {$IFDEF lkA16},in16.phasenraum[i]
-      {$IFDEF lkA17},in17.phasenraum[i]
-      {$IFDEF lkA18},in18.phasenraum[i]
-      {$IFDEF lkA19},in19.phasenraum[i]
-      {$IFDEF lkA22},in20.phasenraum[i],in21.phasenraum[i],in22.phasenraum[i]
-      {$IFDEF lkA23},in23.phasenraum[i]
-      {$IFDEF lkA31},in24.phasenraum[i],in25.phasenraum[i],in26.phasenraum[i],in27.phasenraum[i],in28.phasenraum[i],in29.phasenraum[i],in30.phasenraum[i],in31.phasenraum[i]
-      {$IFDEF lkA32},in32.phasenraum[i]
-      {$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF},
-      fak2
-      {$IFDEF lkA3},fak3
-      {$IFDEF lkA4},fak4
-      {$IFDEF lkA5},fak5
-      {$IFDEF lkA6},fak6
-      {$IFDEF lkA7},fak7
-      {$IFDEF lkA8},fak8
-      {$IFDEF lkA9},fak9
-      {$IFDEF lkA10},fak10
-      {$IFDEF lkA11},fak11
-      {$IFDEF lkA12},fak12
-      {$IFDEF lkA14},fak13,fak14
-      {$IFDEF lkA15},fak15
-      {$IFDEF lkA16},fak16
-      {$IFDEF lkA17},fak17
-      {$IFDEF lkA18},fak18
-      {$IFDEF lkA19},fak19
-      {$IFDEF lkA22},fak20,fak21,fak22
-      {$IFDEF lkA23},fak23
-      {$IFDEF lkA31},fak24,fak25,fak26,fak27,fak28,fak29,fak30,fak31
-      {$IFDEF lkA32},fak32
-      {$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF});
-end;
-
-// Werte werden auf (in1 + \sum_i faki * ini') gesetzt
+  for i:=0 to length(impulsraum)-1 do
+    for j:=0 to aX*aP-1 do
+      (impulsraum[i,false]+j)^:=
+        (in1.impulsraum[i,false]+j)^
+        + fak2*(in2.impulsraum[i,true]+j)^
+        {$IFDEF lkA3}
+        + fak3*(in3.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA4}
+        + fak4*(in4.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA5}
+        + fak5*(in5.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA6}
+        + fak6*(in6.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA7}
+        + fak7*(in7.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA8}
+        + fak8*(in8.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA9}
+        + fak9*(in9.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA10}
+        + fak10*(in10.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA11}
+        + fak11*(in11.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA12}
+        + fak12*(in12.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA13}
+        + fak13*(in13.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA14}
+        + fak14*(in14.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA15}
+        + fak15*(in15.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA16}
+        + fak16*(in16.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA17}
+        + fak17*(in17.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA18}
+        + fak18*(in18.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA19}
+        + fak19*(in19.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA20}
+        + fak20*(in20.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA21}
+        + fak21*(in21.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA22}
+        + fak22*(in22.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA23}
+        + fak23*(in23.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA24}
+        + fak24*(in24.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA25}
+        + fak25*(in25.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA26}
+        + fak26*(in26.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA27}
+        + fak27*(in27.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA28}
+        + fak28*(in28.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA29}
+        + fak29*(in29.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA30}
+        + fak30*(in30.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA31}
+        + fak31*(in31.impulsraum[i,true]+j)^
+        {$ENDIF}
+        {$IFDEF lkA32}
+        + fak32*(in32.impulsraum[i,true]+j)^
+        {$ENDIF};
 
-procedure tFelder.liKo(in1,in2
-{$IFDEF lkA3},in3
-{$IFDEF lkA4},in4
-{$IFDEF lkA5},in5
-{$IFDEF lkA6},in6
-{$IFDEF lkA7},in7
-{$IFDEF lkA8},in8
-{$IFDEF lkA9},in9
-{$IFDEF lkA10},in10
-{$IFDEF lkA11},in11
-{$IFDEF lkA12},in12
-{$IFDEF lkA14},in13,in14
-{$IFDEF lkA15},in15
-{$IFDEF lkA16},in16
-{$IFDEF lkA17},in17
-{$IFDEF lkA18},in18
-{$IFDEF lkA19},in19
-{$IFDEF lkA22},in20,in21,in22
-{$IFDEF lkA23},in23
-{$IFDEF lkA31},in24,in25,in26,in27,in28,in29,in30,in31
-{$IFDEF lkA32},in32
-{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}: tFelder;
-fak2
-{$IFDEF lkA3},fak3
-{$IFDEF lkA4},fak4
-{$IFDEF lkA5},fak5
-{$IFDEF lkA6},fak6
-{$IFDEF lkA7},fak7
-{$IFDEF lkA8},fak8
-{$IFDEF lkA9},fak9
-{$IFDEF lkA10},fak10
-{$IFDEF lkA11},fak11
-{$IFDEF lkA12},fak12
-{$IFDEF lkA14},fak13,fak14
-{$IFDEF lkA15},fak15
-{$IFDEF lkA16},fak16
-{$IFDEF lkA17},fak17
-{$IFDEF lkA18},fak18
-{$IFDEF lkA19},fak19
-{$IFDEF lkA22},fak20,fak21,fak22
-{$IFDEF lkA23},fak23
-{$IFDEF lkA31},fak24,fak25,fak26,fak27,fak28,fak29,fak30,fak31
-{$IFDEF lkA32},fak32
-{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}: extended);
-var
-  i: longint;
-begin
-  for i:=0 to length(inhalt)-1 do
-    inhalt[i].liKo(
-      in1.inhalt[i],in2.inhalt[i]
-      {$IFDEF lkA3},in3.inhalt[i]
-      {$IFDEF lkA4},in4.inhalt[i]
-      {$IFDEF lkA5},in5.inhalt[i]
-      {$IFDEF lkA6},in6.inhalt[i]
-      {$IFDEF lkA7},in7.inhalt[i]
-      {$IFDEF lkA8},in8.inhalt[i]
-      {$IFDEF lkA9},in9.inhalt[i]
-      {$IFDEF lkA10},in10.inhalt[i]
-      {$IFDEF lkA11},in11.inhalt[i]
-      {$IFDEF lkA12},in12.inhalt[i]
-      {$IFDEF lkA14},in13.inhalt[i],in14.inhalt[i]
-      {$IFDEF lkA15},in15.inhalt[i]
-      {$IFDEF lkA16},in16.inhalt[i]
-      {$IFDEF lkA17},in17.inhalt[i]
-      {$IFDEF lkA18},in18.inhalt[i]
-      {$IFDEF lkA19},in19.inhalt[i]
-      {$IFDEF lkA22},in20.inhalt[i],in21.inhalt[i],in22.inhalt[i]
-      {$IFDEF lkA23},in23.inhalt[i]
-      {$IFDEF lkA31},in24.inhalt[i],in25.inhalt[i],in26.inhalt[i],in27.inhalt[i],in28.inhalt[i],in29.inhalt[i],in30.inhalt[i],in31.inhalt[i]
-      {$IFDEF lkA32},in32.inhalt[i]
-      {$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF},
-      fak2
-      {$IFDEF lkA3},fak3
-      {$IFDEF lkA4},fak4
-      {$IFDEF lkA5},fak5
-      {$IFDEF lkA6},fak6
-      {$IFDEF lkA7},fak7
-      {$IFDEF lkA8},fak8
-      {$IFDEF lkA9},fak9
-      {$IFDEF lkA10},fak10
-      {$IFDEF lkA11},fak11
-      {$IFDEF lkA12},fak12
-      {$IFDEF lkA14},fak13,fak14
-      {$IFDEF lkA15},fak15
-      {$IFDEF lkA16},fak16
-      {$IFDEF lkA17},fak17
-      {$IFDEF lkA18},fak18
-      {$IFDEF lkA19},fak19
-      {$IFDEF lkA22},fak20,fak21,fak22
-      {$IFDEF lkA23},fak23
-      {$IFDEF lkA31},fak24,fak25,fak26,fak27,fak28,fak29,fak30,fak31
-      {$IFDEF lkA32},fak32
-      {$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF});
-  for i:=0 to length(inhalt)-1 do
-    gesamtDefizit:=gesamtDefizit+inhalt[i].nichtnegativieren;
 end;
-