summaryrefslogtreecommitdiff
path: root/linearkombination.inc
diff options
context:
space:
mode:
Diffstat (limited to 'linearkombination.inc')
-rw-r--r--linearkombination.inc6
1 files changed, 4 insertions, 2 deletions
diff --git a/linearkombination.inc b/linearkombination.inc
index 0f6ceca..6250006 100644
--- a/linearkombination.inc
+++ b/linearkombination.inc
@@ -55,7 +55,7 @@ begin
efDAXDT,efDAYDT,efDAZDT,
efDPhiDX
); *)
- for emF:=efAX to efDPhiDX do // alles außer efA, welchen Ableitung ja nicht berechnet wurde
+ for emF:=erstesEMFMitAbleitung to letztesEMFMitAbleitung do
emWerte[emF,false]:=
in1.emWerte[emF,false]
+ fak2 * in2.emWerte[emF,true] {$IFDEF lkA3}
@@ -97,7 +97,7 @@ begin
mfGamma,mfIGamma
); *)
for i:=0 to length(matWerte)-1 do // siehe oben
- for maF:=mfN to mfDPsiDX do
+ for maF:=erstesMatFMitAbleitung to letztesMatFMitAbleitung do
matWerte[i,maF,false]:=
in1.matWerte[i,maF,false]
+ fak2 * in2.matWerte[i,maF,true] {$IFDEF lkA3}
@@ -229,6 +229,8 @@ begin
{$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
+ inhalt[i].nichtnegativieren;
end;