summaryrefslogtreecommitdiff
path: root/linearkombination.inc
diff options
context:
space:
mode:
Diffstat (limited to 'linearkombination.inc')
-rw-r--r--linearkombination.inc567
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;
-
generated by cgit v1.2.3-70-g09d2 (git 2.47.0) at 2024-11-01 13:28:41 +0000