epostunit.pas: tWerte.fuelleMitDummys(): Dummys für Radontransformationstest

2 files changed, 72 insertions, 77 deletions

diff --git a/epost.lps b/epost.lps
index d9188d7..80c269d 100644
--- a/epost.lps
+++ b/epost.lps
@@ -23,18 +23,17 @@
         <Filename Value="epostunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="6139"/>
-        <CursorPos X="47" Y="6129"/>
+        <TopLine Value="7127"/>
+        <CursorPos X="6" Y="7130"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
       <Unit3>
         <Filename Value="werteunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="5"/>
-        <TopLine Value="2244"/>
-        <CursorPos X="8" Y="2271"/>
+        <TopLine Value="2241"/>
+        <CursorPos X="22" Y="2269"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit3>
@@ -42,8 +41,8 @@
         <Filename Value="typenunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="10"/>
-        <TopLine Value="2506"/>
-        <CursorPos X="23" Y="2524"/>
+        <TopLine Value="2484"/>
+        <CursorPos X="112" Y="2517"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit4>
@@ -74,9 +73,10 @@
       <Unit8>
         <Filename Value="werteunit.inc"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="6"/>
-        <TopLine Value="173"/>
-        <CursorPos X="54" Y="202"/>
+        <TopLine Value="180"/>
+        <CursorPos X="70" Y="203"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit8>
@@ -86,7 +86,7 @@
         <EditorIndex Value="7"/>
         <TopLine Value="86"/>
         <CursorPos X="26" Y="115"/>
-        <UsageCount Value="75"/>
+        <UsageCount Value="83"/>
         <Loaded Value="True"/>
       </Unit9>
       <Unit10>
@@ -94,21 +94,21 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="8"/>
         <CursorPos X="3" Y="2"/>
-        <UsageCount Value="71"/>
+        <UsageCount Value="79"/>
         <Loaded Value="True"/>
       </Unit10>
       <Unit11>
         <Filename Value="fileunit.pas"/>
         <EditorIndex Value="-1"/>
         <CursorPos Y="204"/>
-        <UsageCount Value="191"/>
+        <UsageCount Value="190"/>
       </Unit11>
       <Unit12>
         <Filename Value="../units/mystringlistunit.pas"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="712"/>
         <CursorPos X="22" Y="735"/>
-        <UsageCount Value="91"/>
+        <UsageCount Value="90"/>
       </Unit12>
       <Unit13>
         <Filename Value="../units/lowlevelunit.pas"/>
@@ -129,48 +129,48 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="190"/>
         <CursorPos X="22" Y="195"/>
-        <UsageCount Value="95"/>
+        <UsageCount Value="94"/>
       </Unit15>
       <Unit16>
         <Filename Value="/usr/lib/fpc/src/rtl/inc/objpash.inc"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="176"/>
         <CursorPos X="23" Y="194"/>
-        <UsageCount Value="1"/>
+        <UsageCount Value="10"/>
       </Unit16>
       <Unit17>
         <Filename Value="/usr/lib/fpc/src/rtl/unix/bunxovlh.inc"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="61"/>
         <CursorPos X="10" Y="99"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit17>
       <Unit18>
         <Filename Value="/usr/lib/fpc/src/rtl/unix/baseunix.pp"/>
         <UnitName Value="BaseUnix"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="61"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit18>
       <Unit19>
         <Filename Value="/usr/lib/fpc/src/rtl/unix/bunxovl.inc"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="414"/>
         <CursorPos X="20" Y="434"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit19>
       <Unit20>
         <Filename Value="/usr/lib/fpc/src/rtl/linux/bunxsysc.inc"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="16"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit20>
       <Unit21>
         <Filename Value="/usr/lib/fpc/src/rtl/unix/bunxh.inc"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="74"/>
         <CursorPos X="15" Y="102"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit21>
       <Unit22>
         <Filename Value="/usr/lib/fpc/src/packages/fcl-image/src/fpimage.pp"/>
@@ -178,154 +178,152 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="10"/>
         <CursorPos X="3" Y="30"/>
-        <UsageCount Value="6"/>
+        <UsageCount Value="5"/>
       </Unit22>
       <Unit23>
         <Filename Value="../units/protokollunit.pas"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="18"/>
         <CursorPos X="3" Y="18"/>
-        <UsageCount Value="40"/>
+        <UsageCount Value="39"/>
       </Unit23>
       <Unit24>
         <Filename Value="../fpGUI/src/corelib/render/software/agg_2D.pas"/>
         <EditorIndex Value="-1"/>
         <TopLine Value="2116"/>
         <CursorPos X="2" Y="2134"/>
-        <UsageCount Value="5"/>
+        <UsageCount Value="4"/>
       </Unit24>
       <Unit25>
         <Filename Value="../units/randomunit.pas"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="19" Y="11"/>
-        <UsageCount Value="5"/>
+        <UsageCount Value="4"/>
       </Unit25>
       <Unit26>
         <Filename Value="epost.lpi"/>
         <EditorIndex Value="-1"/>
-        <UsageCount Value="7"/>
+        <UsageCount Value="6"/>
         <DefaultSyntaxHighlighter Value="XML"/>
       </Unit26>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6080" Column="39" TopLine="6070"/>
+        <Caret Line="7149" Column="31" TopLine="7121"/>
       </Position1>
       <Position2>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6130" Column="71" TopLine="6112"/>
+        <Caret Line="187" Column="41" TopLine="171"/>
       </Position2>
       <Position3>
         <Filename Value="epostunit.pas"/>
+        <Caret Line="6152" Column="64" TopLine="6131"/>
       </Position3>
       <Position4>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6078" Column="110" TopLine="6069"/>
+        <Caret Line="9850" Column="38" TopLine="9851"/>
       </Position4>
       <Position5>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="187" Column="123" TopLine="171"/>
       </Position5>
       <Position6>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6149" Column="20" TopLine="6133"/>
+        <Caret Line="495" Column="37" TopLine="466"/>
       </Position6>
       <Position7>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6126" TopLine="6112"/>
+        <Caret Line="6087" Column="82" TopLine="6097"/>
       </Position7>
       <Position8>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="6129" Column="24" TopLine="6112"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="450" Column="20" TopLine="432"/>
       </Position8>
       <Position9>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="181" Column="29" TopLine="165"/>
+        <Caret Line="6111" Column="34" TopLine="6098"/>
       </Position9>
       <Position10>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5414" Column="32" TopLine="5394"/>
+        <Caret Line="6152" Column="54" TopLine="6122"/>
       </Position10>
       <Position11>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="5470" TopLine="5451"/>
+        <Filename Value="werteunit.pas"/>
       </Position11>
       <Position12>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="5466" TopLine="5451"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="61" Column="63" TopLine="32"/>
       </Position12>
       <Position13>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="516" Column="4" TopLine="498"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="918" Column="68" TopLine="896"/>
       </Position13>
       <Position14>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="5465" Column="22" TopLine="5448"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="187" Column="39" TopLine="168"/>
       </Position14>
       <Position15>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6131" Column="37" TopLine="6111"/>
+        <Caret Line="9864" TopLine="9861"/>
       </Position15>
       <Position16>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="181" Column="29" TopLine="165"/>
+        <Caret Line="495" Column="3" TopLine="477"/>
       </Position16>
       <Position17>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5414" Column="32" TopLine="5385"/>
+        <Caret Line="9870" Column="85" TopLine="9861"/>
       </Position17>
       <Position18>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5479" Column="29" TopLine="5451"/>
+        <Caret Line="4189" Column="33" TopLine="4172"/>
       </Position18>
       <Position19>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6131" Column="52" TopLine="6114"/>
       </Position19>
       <Position20>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="2601" Column="77" TopLine="2570"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="4189" Column="33" TopLine="4161"/>
       </Position20>
       <Position21>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6129" Column="50" TopLine="6102"/>
+        <Caret Line="7148" Column="33" TopLine="7127"/>
       </Position21>
       <Position22>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="729" TopLine="713"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="187" Column="41" TopLine="171"/>
       </Position22>
       <Position23>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5483" TopLine="5461"/>
+        <Caret Line="7148" TopLine="7124"/>
       </Position23>
       <Position24>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="450" Column="7" TopLine="436"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="187" Column="41" TopLine="171"/>
       </Position24>
       <Position25>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="2524" Column="71" TopLine="2502"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="6125" Column="66" TopLine="6116"/>
       </Position25>
       <Position26>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="2597" Column="19" TopLine="2579"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="7139" Column="13" TopLine="7121"/>
       </Position26>
       <Position27>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="60" Column="38" TopLine="36"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="187" Column="41" TopLine="171"/>
       </Position27>
       <Position28>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="61" Column="42" TopLine="36"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="6129" Column="64" TopLine="6122"/>
       </Position28>
       <Position29>
         <Filename Value="werteunit.inc"/>
-        <Caret Line="202" Column="54" TopLine="173"/>
+        <Caret Line="221" Column="46" TopLine="192"/>
       </Position29>
       <Position30>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="28" Column="29" TopLine="8"/>
+        <Caret Line="28" Column="29" TopLine="9"/>
       </Position30>
     </JumpHistory>
     <RunParams>
diff --git a/epostunit.pas b/epostunit.pas
index 68a0308..9025534 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -7127,7 +7127,7 @@ end;
 
 procedure tWerte.fuelleMitDummys(sT: boolean);
 var
-  i,j,ts2: int64;
+  i,j: int64;
 begin
   genauigkeit:=gExtended;
   transformationen:=tKeineTransformation.create;
@@ -7135,21 +7135,18 @@ begin
   transformationen.xStop:=1;
   transformationen.tStart:=-1;
   transformationen.tStop:=1;
-  _xSteps:=1024;
-  ts2:=512;
-  _tSiz:=2*ts2;
+  _xSteps:=129;
+  _tSiz:=129;
   transformationen.xSteps:=_xSteps;
-  transformationen.tSiz:=_tSiz div 2;
+  transformationen.tSiz:=_tSiz;
   if sT then
     exit;
   holeRAM(3);
-  for j:=0 to ts2-1 do
-    for i:=0 to _xSteps-1 do begin
+  for j:=0 to _tSiz-1 do
+    for i:=0 to _xSteps-1 do
       eWerte.werte[i+j*_xSteps]:=
-        2*i/(_xSteps-1)-1;
-      eWerte.werte[i+(j+ts2)*_xSteps]:=
-        2*j/(_tSiz-1)-1;
-    end;
+        1/(1+sqr(i-110)/9+sqr(j-110)/9) +
+        1/(1+sqr(i-60)/9+sqr(j-80)/9);
 end;
 
 procedure tWerte.verschiebe(threads: longint; richtung: tInt64Point);