neue Makros verwenden in input.epostVlasov

2 files changed, 35 insertions, 26 deletions

diff --git a/Plasmapropagation.lps b/Plasmapropagation.lps
index f1081f7..8ab5b1a 100644
--- a/Plasmapropagation.lps
+++ b/Plasmapropagation.lps
@@ -16,9 +16,8 @@
         <Filename Value="Physikunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="1604"/>
+        <TopLine Value="2128"/>
         <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>
@@ -43,7 +42,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="226"/>
-        <UsageCount Value="183"/>
+        <UsageCount Value="184"/>
       </Unit4>
       <Unit5>
         <Filename Value="linearkombinationen.inc"/>
@@ -51,15 +50,14 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="52"/>
         <CursorPos X="11" Y="6"/>
-        <UsageCount Value="146"/>
+        <UsageCount Value="147"/>
       </Unit5>
       <Unit6>
         <Filename Value="Compilerswitches.inc"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <CursorPos Y="24"/>
-        <UsageCount Value="27"/>
+        <UsageCount Value="28"/>
         <Loaded Value="True"/>
       </Unit6>
       <Unit7>
@@ -68,28 +66,29 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="18"/>
         <CursorPos X="14" Y="21"/>
-        <UsageCount Value="27"/>
+        <UsageCount Value="28"/>
       </Unit7>
       <Unit8>
         <Filename Value="../units/compilerswitchupdateunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="62" Y="34"/>
-        <UsageCount Value="26"/>
+        <UsageCount Value="27"/>
       </Unit8>
       <Unit9>
         <Filename Value="../units/compilerswitchupdateunit.rc"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="80"/>
-        <UsageCount Value="26"/>
+        <UsageCount Value="27"/>
         <DefaultSyntaxHighlighter Value="None"/>
       </Unit9>
       <Unit10>
         <Filename Value="input.epost"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="5"/>
-        <TopLine Value="28"/>
-        <CursorPos X="24" Y="41"/>
+        <TopLine Value="40"/>
+        <CursorPos Y="65"/>
         <UsageCount Value="100"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="None"/>
diff --git a/input.epost b/input.epost
index 009506c..6afa9e8 100644
--- a/input.epost
+++ b/input.epost
@@ -37,15 +37,15 @@ Palette
   00ffff
 Ende
 
-!setze $iBereich: 0..0
-!setze $jBereich: 0..99
+!setze $iMax: 6
+!setze $jMax: 199
 
-#!setze $iBereich: 0
-#!setze $jBereich: 00
+!setze $iBereich: 0..$iMax
+!setze $jBereich: 0..$jMax
 
 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
@@ -55,17 +55,24 @@ sequentiell lesen
 !Schleife: $i: $iBereich
 !Schleife: $j: $jBereich
 
-Daten einlesen     Phasenraum$spezies-$i-$j
+? $j = $jmax: Daten einlesen                    Phasenraum$spezies-$i-$j
+? $j ≠ $jmax: Daten einlesen (ohne Ausgaben)    Phasenraum$spezies-$i-$j
   Genauigkeit:     double
   PhaseSpace-Datei: /nfs/synologynfs/erich/Plasmapropagation/Daten/N$spezies-$i-$j_test.dat
 Ende
 
+!Schleifenende
+!Schleifenende
+
+!Schleife: $i: $iBereich
+!Schleife: $j: $jBereich
+
 maximale und minimale Dichten bestimmen Phasenraum$spezies-$i-$j
 
 !Schleifenende
 !Schleifenende
 
-maximale und minimale Dichten angleichen Phasenraum$spezies-0-00
+maximale und minimale Dichten angleichen Phasenraum$spezies-$iMax-$jMax
  !Schleife: $i: $iBereich
  !Schleife: $j: $jBereich
  Phasenraum$spezies-$i-$j
@@ -73,11 +80,9 @@ maximale und minimale Dichten angleichen Phasenraum$spezies-0-00
  !Schleifenende
 Ende
 
-!Schleifenende
-
-!Schleife: $spezies: -beides 1 2
+#!Schleifenende
 
-# !Schleife: $spezies: 1 2
+#!Schleife: $spezies: -beides 1 2
 
 !Schleife: $i: $iBereich
 !Schleife: $j: $jBereich
@@ -91,8 +96,10 @@ Ende
 ?$spezies ≠ -beides:   Palette:         erweiterter Regenbogen
 
   Minimaldichte: 10^-4
+  x-Vergrößerung: 0.5
+  t-Vergrößerung: 0.35
   Nachbearbeitung: Log: 10^-4
-  Datei:           /home_raid/erich/Dokumente/Prograemmchen/Plasmapropagation/Bilder/Phasenraum$spezies-$i$j.test.bmp
+  Datei:           /home_raid/erich/Dokumente/Prograemmchen/Plasmapropagation/Bilder/Phasenraum$spezies-$[$i*($jMax+1)+$j ; 4].test.bmp
   Schriftgröße: 60
   Achse: oben   10+
   Achse: links  2+
@@ -101,15 +108,18 @@ Ende
   Rahmen
 Ende
 
-externer Befehl:   convert /home_raid/erich/Dokumente/Prograemmchen/Plasmapropagation/Bilder/Phasenraum$spezies-$i$j.test.bmp /home_raid/erich/Dokumente/Prograemmchen/Plasmapropagation/Bilder/Phasenraum$spezies-$i$j.test.png&
+externer Befehl: \
+   convert \
+     /home_raid/erich/Dokumente/Prograemmchen/Plasmapropagation/Bilder/Phasenraum$spezies-$[$i*($jMax+1)+$j ; 4].test.bmp \
+     /home_raid/erich/Dokumente/Prograemmchen/Plasmapropagation/Bilder/Phasenraum$spezies-$[$i*($jMax+1)+$j ; 4].test.png &
 
 !Schleifenende
 !Schleifenende
 
 warte auf externe Befehle
 
-# 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 &
+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-%04d.test.png /home_raid/erich/Dokumente/Prograemmchen/Plasmapropagation/Videos/Phasenraum$spezies-test.mp4 &
 
 !Schleifenende