diff options
Diffstat (limited to 'linearkombination.inc')
| -rw-r--r-- | linearkombination.inc | 6 |
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; |