diff options
author | Erich Eckner <git@eckner.net> | 2015-09-30 12:51:58 +0200 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2015-09-30 12:51:58 +0200 |
commit | 5dd58583367a578d8ad82ebcd5c9f93c768241b9 (patch) | |
tree | f9053ae7fbdadaef9a4fa5a26d5d376a4d4b4dd0 | |
parent | b9c251fbb813025ed2f13c1ac5b6b90243385b1b (diff) | |
download | Plasmapropagation-5dd58583367a578d8ad82ebcd5c9f93c768241b9.tar.xz |
es werden nun nur die Felder linearkombiniert, die auch Ableitungen
haben.
-rwxr-xr-x | genLikoInc | 2 | ||||
-rw-r--r-- | linearkombination.inc | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -65,7 +65,7 @@ echo "var" >> ${file} echo " i,j: longint;" >> ${file} echo " emF: tEMFeldGroesze;" >> ${file} echo "begin" >> ${file} -echo " for emF:=low(tEMFeldGroesze) to high(tEMFeldGroesze) do" >> ${file} +echo " for emF:=erstesEMFMitAbleitung to letztesEMFMitAbleitung do" >> ${file} echo " for i:=0 to aX-1 do" >> ${file} echo " (emFelder[emF,false]+i)^:=" >> ${file} echo -ne " (in1.emFelder[emF,false]+i)^" >> ${file} diff --git a/linearkombination.inc b/linearkombination.inc index 5727f04..05aeeee 100644 --- a/linearkombination.inc +++ b/linearkombination.inc @@ -67,7 +67,7 @@ var i,j: longint; emF: tEMFeldGroesze; begin - for emF:=low(tEMFeldGroesze) to high(tEMFeldGroesze) do + for emF:=erstesEMFMitAbleitung to letztesEMFMitAbleitung do for i:=0 to aX-1 do (emFelder[emF,false]+i)^:= (in1.emFelder[emF,false]+i)^ |