From 00deeb0a0b00d6074093ce01e5d763ca1803580a Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 9 Dec 2015 15:49:09 +0100
Subject: fourierWindow nun per compilerSwitches.inc konfigurierbar

---
 Physikunit.pas        |   2 +-
 Plasmapropagation.lps | 106 +++++++++++++++++++++++++-------------------------
 input.epost           |   6 +--
 input.plap            |  12 +++---
 4 files changed, 63 insertions(+), 63 deletions(-)

diff --git a/Physikunit.pas b/Physikunit.pas
index 2102877..17044d4 100644
--- a/Physikunit.pas
+++ b/Physikunit.pas
@@ -2165,7 +2165,7 @@ end;
 
 function fourierWindow(x: extended): extended;
 begin
-  result:=exp(-sqr(3*x));
+  result:=__fourierWindowOfX;
 end;
 
 initialization
diff --git a/Plasmapropagation.lps b/Plasmapropagation.lps
index ff546aa..f1081f7 100644
--- a/Plasmapropagation.lps
+++ b/Plasmapropagation.lps
@@ -7,9 +7,8 @@
       <Unit0>
         <Filename Value="Plasmapropagation.lpr"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <TopLine Value="22"/>
-        <CursorPos X="37" Y="54"/>
+        <CursorPos Y="38"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -17,9 +16,9 @@
         <Filename Value="Physikunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="1560"/>
-        <CursorPos X="56" Y="1570"/>
-        <FoldState Value=" T7i0MO2 T3mP0{D5 pjYmB0R[944k20R6]9RkT0}h3]A1o60{j4]AgnA0V2 pkJlF0L013)"/>
+        <TopLine Value="1604"/>
+        <CursorPos X="26" Y="2168"/>
+        <FoldState Value=" T7i0MO2 T3mP0{D5 pjYmB0R[944k20R6]9RkT0}h3]A1o60{j4]AgnA0V011]B0lG0L412 ppVtZ0H4!"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit1>
@@ -34,7 +33,7 @@
         <Filename Value="input.plap"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="4"/>
-        <CursorPos X="19" Y="12"/>
+        <CursorPos X="19" Y="14"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="None"/>
@@ -44,7 +43,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="226"/>
-        <UsageCount Value="182"/>
+        <UsageCount Value="183"/>
       </Unit4>
       <Unit5>
         <Filename Value="linearkombinationen.inc"/>
@@ -52,14 +51,15 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="52"/>
         <CursorPos X="11" Y="6"/>
-        <UsageCount Value="145"/>
+        <UsageCount Value="146"/>
       </Unit5>
       <Unit6>
         <Filename Value="Compilerswitches.inc"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <CursorPos X="5" Y="8"/>
-        <UsageCount Value="26"/>
+        <CursorPos Y="24"/>
+        <UsageCount Value="27"/>
         <Loaded Value="True"/>
       </Unit6>
       <Unit7>
@@ -68,28 +68,28 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="18"/>
         <CursorPos X="14" Y="21"/>
-        <UsageCount Value="26"/>
+        <UsageCount Value="27"/>
       </Unit7>
       <Unit8>
         <Filename Value="../units/compilerswitchupdateunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="62" Y="34"/>
-        <UsageCount Value="25"/>
+        <UsageCount Value="26"/>
       </Unit8>
       <Unit9>
         <Filename Value="../units/compilerswitchupdateunit.rc"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="80"/>
-        <UsageCount Value="25"/>
+        <UsageCount Value="26"/>
         <DefaultSyntaxHighlighter Value="None"/>
       </Unit9>
       <Unit10>
         <Filename Value="input.epost"/>
         <EditorIndex Value="5"/>
-        <TopLine Value="58"/>
-        <CursorPos X="23" Y="40"/>
+        <TopLine Value="28"/>
+        <CursorPos X="24" Y="41"/>
         <UsageCount Value="100"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="None"/>
@@ -104,9 +104,9 @@
       <Unit12>
         <Filename Value="../units/lowlevelunit.pas"/>
         <EditorIndex Value="3"/>
-        <TopLine Value="857"/>
-        <CursorPos X="24" Y="895"/>
-        <UsageCount Value="19"/>
+        <TopLine Value="886"/>
+        <CursorPos X="40" Y="915"/>
+        <UsageCount Value="20"/>
         <Loaded Value="True"/>
       </Unit12>
       <Unit13>
@@ -213,124 +213,124 @@
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="Plasmapropagation.lpr"/>
-        <Caret Line="39" Column="28" TopLine="20"/>
+        <Filename Value="Physikunit.pas"/>
+        <Caret Line="1585" Column="10" TopLine="1560"/>
       </Position1>
       <Position2>
-        <Filename Value="Plasmapropagation.lpr"/>
-        <Caret Line="40" Column="28" TopLine="21"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="98" Column="21" TopLine="77"/>
       </Position2>
       <Position3>
-        <Filename Value="Physikunit.pas"/>
-        <Caret Line="1585" Column="10" TopLine="1560"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="858" Column="43" TopLine="843"/>
       </Position3>
       <Position4>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="98" Column="21" TopLine="77"/>
+        <Caret Line="857" Column="32" TopLine="846"/>
       </Position4>
       <Position5>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="858" Column="43" TopLine="843"/>
+        <Caret Line="865" Column="9" TopLine="842"/>
       </Position5>
       <Position6>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="857" Column="32" TopLine="846"/>
+        <Caret Line="870" Column="45" TopLine="849"/>
       </Position6>
       <Position7>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="865" Column="9" TopLine="842"/>
+        <Caret Line="858" TopLine="840"/>
       </Position7>
       <Position8>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="870" Column="45" TopLine="849"/>
+        <Caret Line="863" Column="18" TopLine="844"/>
       </Position8>
       <Position9>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="858" TopLine="840"/>
+        <Caret Line="870" Column="34" TopLine="848"/>
       </Position9>
       <Position10>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="863" Column="18" TopLine="844"/>
+        <Caret Line="856" Column="32" TopLine="844"/>
       </Position10>
       <Position11>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="870" Column="34" TopLine="848"/>
+        <Caret Line="866" Column="18" TopLine="840"/>
       </Position11>
       <Position12>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="856" Column="32" TopLine="844"/>
+        <Caret Line="854" Column="34" TopLine="844"/>
       </Position12>
       <Position13>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="866" Column="18" TopLine="840"/>
+        <Caret Line="877" Column="34" TopLine="850"/>
       </Position13>
       <Position14>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="854" Column="34" TopLine="844"/>
+        <Caret Line="863" Column="48" TopLine="850"/>
       </Position14>
       <Position15>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="877" Column="34" TopLine="850"/>
+        <Caret Line="879" Column="27" TopLine="860"/>
       </Position15>
       <Position16>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="863" Column="48" TopLine="850"/>
+        <Caret Line="881" Column="30" TopLine="855"/>
       </Position16>
       <Position17>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="879" Column="27" TopLine="860"/>
+        <Caret Line="882" Column="41" TopLine="862"/>
       </Position17>
       <Position18>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="881" Column="30" TopLine="855"/>
+        <Caret Line="862" Column="66" TopLine="847"/>
       </Position18>
       <Position19>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="882" Column="41" TopLine="862"/>
+        <Caret Line="99" Column="30" TopLine="98"/>
       </Position19>
       <Position20>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="862" Column="66" TopLine="847"/>
+        <Caret Line="100" TopLine="79"/>
       </Position20>
       <Position21>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="99" Column="30" TopLine="98"/>
+        <Caret Line="853" TopLine="848"/>
       </Position21>
       <Position22>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="100" TopLine="79"/>
+        <Caret Line="100" TopLine="90"/>
       </Position22>
       <Position23>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="853" TopLine="848"/>
+        <Caret Line="855" Column="18" TopLine="848"/>
       </Position23>
       <Position24>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="100" TopLine="90"/>
+        <Caret Line="854" Column="11" TopLine="839"/>
       </Position24>
       <Position25>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="855" Column="18" TopLine="848"/>
+        <Caret Line="858" TopLine="839"/>
       </Position25>
       <Position26>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="854" Column="11" TopLine="839"/>
+        <Caret Line="869" Column="40" TopLine="846"/>
       </Position26>
       <Position27>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="858" TopLine="839"/>
+        <Caret Line="872" Column="87" TopLine="849"/>
       </Position27>
       <Position28>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="869" Column="40" TopLine="846"/>
+        <Caret Line="99" Column="87" TopLine="81"/>
       </Position28>
       <Position29>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="872" Column="87" TopLine="849"/>
+        <Filename Value="Physikunit.pas"/>
+        <Caret Line="1418" Column="13" TopLine="1365"/>
       </Position29>
       <Position30>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="99" Column="87" TopLine="81"/>
+        <Filename Value="Physikunit.pas"/>
+        <Caret Line="2168" Column="29" TopLine="1604"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
diff --git a/input.epost b/input.epost
index 4a14358..009506c 100644
--- a/input.epost
+++ b/input.epost
@@ -37,7 +37,7 @@ Palette
   00ffff
 Ende
 
-!setze $iBereich: 0..4
+!setze $iBereich: 0..0
 !setze $jBereich: 0..99
 
 #!setze $iBereich: 0
@@ -45,7 +45,7 @@ Ende
 
 Threadanzahl:     11
 
-externer Befehl:   rm /home_raid/erich/Dokumente/Prograemmchen/Plasmapropagation/Bilder/*
+#externer Befehl:   rm /home_raid/erich/Dokumente/Prograemmchen/Plasmapropagation/Bilder/*
 externer Befehl:   rm /home_raid/erich/Dokumente/Prograemmchen/Plasmapropagation/Videos/*
 
 sequentiell lesen
@@ -108,7 +108,7 @@ externer Befehl:   convert /home_raid/erich/Dokumente/Prograemmchen/Plasmapropag
 
 warte auf externe Befehle
 
-externer Befehl:   rm /home_raid/erich/Dokumente/Prograemmchen/Plasmapropagation/Bilder/*.bmp
+# externer Befehl:   rm /home_raid/erich/Dokumente/Prograemmchen/Plasmapropagation/Bilder/*.bmp
 externer Befehl:   ffmpeg -r 25 -i /home_raid/erich/Dokumente/Prograemmchen/Plasmapropagation/Bilder/Phasenraum$spezies-%03d.test.png /home_raid/erich/Dokumente/Prograemmchen/Plasmapropagation/Videos/Phasenraum$spezies-test.mp4 &
 
 !Schleifenende
diff --git a/input.plap b/input.plap
index 67ba191..dd98c45 100644
--- a/input.plap
+++ b/input.plap
@@ -7,12 +7,12 @@ allgemein
   runge-Kutta-3/8
 #  runge-Kutta-4
 #  euler-Vorwärts
-  ortsschritt    10^-2 * λ
-  zeitschritt    10^-2 * T
-  maximalimpuls  5
-  impulsschritt  2*10^-2
-  zeit           5 * T
-!setze $breite: (5 * λ)
+  ortsschritt    5*10^-3 * λ
+  zeitschritt    5*10^-3 * T
+  maximalimpuls  10
+  impulsschritt  10^-2
+  zeit           7 * T
+!setze $breite: (7 * λ)
   breite         $breite
   mit Fortschrittsanzeige
   Ausgabeverzeichnis aufräumen
-- 
cgit v1.2.3-54-g00ecf