From ab9808b04e22fae1fb867703be71a537ecf604b9 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Mon, 24 Aug 2015 16:26:55 +0200
Subject: Tagesendstand, immernoch langsam, aber vmtl. ist die Methode einfach
 langsam

---
 Physikunit.pas        |  14 ++----
 Plasmapropagation.lps | 116 +++++++++++++++++++++++++-------------------------
 input.plap            |   2 +-
 3 files changed, 62 insertions(+), 70 deletions(-)

diff --git a/Physikunit.pas b/Physikunit.pas
index ef77ee4..556334d 100644
--- a/Physikunit.pas
+++ b/Physikunit.pas
@@ -1142,10 +1142,7 @@ begin
 
   // Ableitungen nach PX
 
-  write('.');
-
   len:=length(inhalt[0].phasenraum);
-  write(len);
   setlength(res,len);
   setlength(ims,len);
   for i:=0 to length(inhalt)-1 do
@@ -1168,16 +1165,14 @@ begin
       end;
       fft(res,ims,true);
       for j:=0 to length(inhalt[i].phasenraum)-1 do
-        inhalt[i].phasenraum[j].grad[tlc,0]:=res[j]*iDP*0;
+        inhalt[i].phasenraum[j].grad[tlc,0]:=res[j]*iDP;
     end;
 
   // Ableitungen nach X
 
-  write('.');
   len:=length(inhalt);
-  write(len);
-  setlength(res,2*len);
-  setlength(ims,2*len);
+  setlength(res,len);
+  setlength(ims,len);
   for i:=0 to length(inhalt[0].phasenraum)-1 do
     for tlc:=0 to length(teilchen)-1 do begin
       for j:=0 to length(inhalt)-1 do begin
@@ -1196,9 +1191,8 @@ begin
       end;
       fft(res,ims,true);
       for j:=0 to length(inhalt)-1 do
-        inhalt[j].phasenraum[i].grad[tlc,1]:=res[j]*iDX*0;
+        inhalt[j].phasenraum[i].grad[tlc,1]:=res[j]*iDX;
     end;
-  write('>');
 end;
 
 procedure tFelder.berechneAbleitungen(dX,iDX: extended);
diff --git a/Plasmapropagation.lps b/Plasmapropagation.lps
index 557ace6..c266d7b 100644
--- a/Plasmapropagation.lps
+++ b/Plasmapropagation.lps
@@ -16,10 +16,10 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="1156"/>
-        <CursorPos X="14" Y="1178"/>
-        <FoldState Value=" T3mG0{F5 pjdmK0G[945jZ0Q3[95d0C4]97jV0C7 piajL0v5]9fkW0E1131[e4Bo9031 pp4pD0G2 T0'4Pc071F311A"/>
-        <UsageCount Value="188"/>
+        <TopLine Value="329"/>
+        <CursorPos Y="1136"/>
+        <FoldState Value=" T3mG0{F5 pjdmK0G[945jZ0Q3[95d0C4]97jV0C7 piajL0v5]9fkW0E2]9bjE0S[I4ZjY0{1]Jp7rB0G2 T0)fPc071F3119"/>
+        <UsageCount Value="189"/>
         <Loaded Value="True"/>
       </Unit1>
       <Unit2>
@@ -27,15 +27,14 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="20" Y="8"/>
-        <UsageCount Value="150"/>
+        <UsageCount Value="151"/>
       </Unit2>
       <Unit3>
         <Filename Value="input.plap"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="3"/>
-        <TopLine Value="15"/>
-        <CursorPos X="23" Y="62"/>
-        <UsageCount Value="149"/>
+        <CursorPos X="20" Y="11"/>
+        <UsageCount Value="150"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="None"/>
       </Unit3>
@@ -45,14 +44,14 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="285"/>
         <CursorPos X="20" Y="323"/>
-        <UsageCount Value="97"/>
+        <UsageCount Value="98"/>
       </Unit4>
       <Unit5>
         <Filename Value="linearkombinationen.inc"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="64"/>
-        <UsageCount Value="60"/>
+        <UsageCount Value="61"/>
       </Unit5>
       <Unit6>
         <Filename Value="input.epost"/>
@@ -66,10 +65,9 @@
       <Unit7>
         <Filename Value="../units/matheunit.pas"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="532"/>
-        <CursorPos X="42" Y="516"/>
-        <FoldState Value=" T3iA05B pj0jV034 piaj60U6 plLmM04K"/>
-        <UsageCount Value="14"/>
+        <TopLine Value="19"/>
+        <CursorPos X="66" Y="48"/>
+        <UsageCount Value="15"/>
         <Loaded Value="True"/>
       </Unit7>
       <Unit8>
@@ -155,123 +153,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="../units/matheunit.pas"/>
-        <Caret Line="521" TopLine="295"/>
+        <Caret Line="543" Column="19" TopLine="524"/>
       </Position1>
       <Position2>
         <Filename Value="../units/matheunit.pas"/>
-        <Caret Line="510" Column="32" TopLine="295"/>
+        <Caret Line="511" Column="9" TopLine="505"/>
       </Position2>
       <Position3>
-        <Filename Value="../units/matheunit.pas"/>
-        <Caret Line="543" Column="3" TopLine="522"/>
+        <Filename Value="Physikunit.pas"/>
+        <Caret Line="1190" Column="40" TopLine="1159"/>
       </Position3>
       <Position4>
-        <Filename Value="../units/matheunit.pas"/>
-        <Caret Line="530" Column="20" TopLine="499"/>
+        <Filename Value="Physikunit.pas"/>
+        <Caret Line="606" TopLine="507"/>
       </Position4>
       <Position5>
-        <Filename Value="../units/matheunit.pas"/>
-        <Caret Line="511" Column="27" TopLine="505"/>
+        <Filename Value="Physikunit.pas"/>
+        <Caret Line="591" Column="8" TopLine="536"/>
       </Position5>
       <Position6>
-        <Filename Value="../units/matheunit.pas"/>
-        <Caret Line="543" Column="19" TopLine="524"/>
+        <Filename Value="Plasmapropagation.lpr"/>
+        <Caret Line="53" Column="32" TopLine="21"/>
       </Position6>
       <Position7>
-        <Filename Value="../units/matheunit.pas"/>
-        <Caret Line="511" Column="9" TopLine="505"/>
+        <Filename Value="Plasmapropagation.lpr"/>
+        <Caret Line="34" Column="10" TopLine="14"/>
       </Position7>
       <Position8>
-        <Filename Value="Physikunit.pas"/>
-        <Caret Line="1190" Column="40" TopLine="1159"/>
+        <Filename Value="Plasmapropagation.lpr"/>
+        <Caret Line="11" Column="45"/>
       </Position8>
       <Position9>
-        <Filename Value="Physikunit.pas"/>
-        <Caret Line="606" TopLine="507"/>
+        <Filename Value="Plasmapropagation.lpr"/>
+        <Caret Line="34" Column="10" TopLine="14"/>
       </Position9>
       <Position10>
-        <Filename Value="Physikunit.pas"/>
-        <Caret Line="591" Column="8" TopLine="536"/>
+        <Filename Value="Plasmapropagation.lpr"/>
+        <Caret Line="11" Column="55"/>
       </Position10>
       <Position11>
-        <Filename Value="Physikunit.pas"/>
-        <Caret Line="1158" Column="110" TopLine="1161"/>
+        <Filename Value="Plasmapropagation.lpr"/>
+        <Caret Line="35" Column="18" TopLine="33"/>
       </Position11>
       <Position12>
         <Filename Value="Plasmapropagation.lpr"/>
-        <Caret Line="53" Column="32" TopLine="21"/>
+        <Caret Line="36" Column="19" TopLine="34"/>
       </Position12>
       <Position13>
         <Filename Value="Plasmapropagation.lpr"/>
-        <Caret Line="34" Column="10" TopLine="14"/>
+        <Caret Line="57" Column="14" TopLine="33"/>
       </Position13>
       <Position14>
         <Filename Value="Plasmapropagation.lpr"/>
-        <Caret Line="11" Column="45"/>
+        <Caret Line="34" TopLine="30"/>
       </Position14>
       <Position15>
-        <Filename Value="Plasmapropagation.lpr"/>
-        <Caret Line="34" Column="10" TopLine="14"/>
+        <Filename Value="Physikunit.pas"/>
+        <Caret Line="1154" TopLine="1097"/>
       </Position15>
       <Position16>
-        <Filename Value="Plasmapropagation.lpr"/>
-        <Caret Line="11" Column="55"/>
+        <Filename Value="Physikunit.pas"/>
+        <Caret Line="1742" Column="122" TopLine="1695"/>
       </Position16>
       <Position17>
-        <Filename Value="Plasmapropagation.lpr"/>
-        <Caret Line="35" Column="18" TopLine="33"/>
+        <Filename Value="Physikunit.pas"/>
+        <Caret Line="1404" Column="13" TopLine="1289"/>
       </Position17>
       <Position18>
-        <Filename Value="Plasmapropagation.lpr"/>
-        <Caret Line="36" Column="19" TopLine="34"/>
+        <Filename Value="Physikunit.pas"/>
+        <Caret Line="1267" Column="24" TopLine="1226"/>
       </Position18>
       <Position19>
-        <Filename Value="Plasmapropagation.lpr"/>
-        <Caret Line="57" Column="14" TopLine="33"/>
+        <Filename Value="Physikunit.pas"/>
+        <Caret Line="875" TopLine="658"/>
       </Position19>
       <Position20>
-        <Filename Value="Plasmapropagation.lpr"/>
-        <Caret Line="34" TopLine="30"/>
+        <Filename Value="Physikunit.pas"/>
+        <Caret Line="130" Column="17" TopLine="109"/>
       </Position20>
       <Position21>
         <Filename Value="Physikunit.pas"/>
-        <Caret Line="1154" TopLine="1097"/>
+        <Caret Line="466" Column="83" TopLine="231"/>
       </Position21>
       <Position22>
         <Filename Value="Physikunit.pas"/>
-        <Caret Line="1742" Column="122" TopLine="1695"/>
+        <Caret Line="1192" Column="57" TopLine="1159"/>
       </Position22>
       <Position23>
         <Filename Value="Physikunit.pas"/>
-        <Caret Line="1404" Column="13" TopLine="1289"/>
+        <Caret Line="1166" Column="53" TopLine="1146"/>
       </Position23>
       <Position24>
         <Filename Value="Physikunit.pas"/>
-        <Caret Line="1267" Column="24" TopLine="1226"/>
+        <Caret Line="1185" Column="76" TopLine="1166"/>
       </Position24>
       <Position25>
         <Filename Value="Physikunit.pas"/>
-        <Caret Line="875" TopLine="658"/>
+        <Caret Line="1136" TopLine="1057"/>
       </Position25>
       <Position26>
         <Filename Value="Physikunit.pas"/>
-        <Caret Line="130" Column="17" TopLine="109"/>
+        <Caret Line="1152" TopLine="1114"/>
       </Position26>
       <Position27>
         <Filename Value="Physikunit.pas"/>
-        <Caret Line="466" Column="83" TopLine="231"/>
+        <Caret Line="1156" TopLine="1136"/>
       </Position27>
       <Position28>
         <Filename Value="Physikunit.pas"/>
-        <Caret Line="1192" Column="57" TopLine="1159"/>
+        <Caret Line="1157" TopLine="1138"/>
       </Position28>
       <Position29>
         <Filename Value="Physikunit.pas"/>
-        <Caret Line="1166" Column="53" TopLine="1146"/>
+        <Caret Line="1169" TopLine="1146"/>
       </Position29>
       <Position30>
         <Filename Value="Physikunit.pas"/>
-        <Caret Line="1185" Column="76" TopLine="1166"/>
+        <Caret Line="1192" Column="42" TopLine="1164"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
diff --git a/input.plap b/input.plap
index f83acba..3196fee 100644
--- a/input.plap
+++ b/input.plap
@@ -10,7 +10,7 @@ allgemein
   ortsschritt    10^-2 * λ
   zeitschritt    10^-2 * T
   maximalimpuls  5
-  impulsschritt  10^-2
+  impulsschritt  2*10^-2
   zeit           2 * T
 !setze $breite: (5 * λ)
   breite         $breite
-- 
cgit v1.2.3-70-g09d2