typenunit.pas: tRTVorbereitungsTransformation.aktualisiereXsTs(): Zweierpotentz als Länge um FFTs zu beschleunigen

2 files changed, 54 insertions, 54 deletions

diff --git a/epost.lps b/epost.lps
index 6a80e84..a305e15 100644
--- a/epost.lps
+++ b/epost.lps
@@ -7,8 +7,8 @@
       <Unit0>
         <Filename Value="epost.lpr"/>
         <IsPartOfProject Value="True"/>
-        <TopLine Value="180"/>
-        <CursorPos X="37" Y="198"/>
+        <TopLine Value="175"/>
+        <CursorPos Y="193"/>
         <UsageCount Value="202"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -22,10 +22,9 @@
       <Unit2>
         <Filename Value="epostunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="7127"/>
-        <CursorPos X="35" Y="7155"/>
+        <TopLine Value="6121"/>
+        <CursorPos Y="6125"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -41,9 +40,10 @@
       <Unit4>
         <Filename Value="typenunit.pas"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="10"/>
-        <TopLine Value="2547"/>
-        <CursorPos X="77" Y="2561"/>
+        <TopLine Value="2520"/>
+        <CursorPos X="22" Y="2538"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit4>
@@ -86,7 +86,7 @@
         <EditorIndex Value="7"/>
         <TopLine Value="86"/>
         <CursorPos X="26" Y="115"/>
-        <UsageCount Value="87"/>
+        <UsageCount Value="88"/>
         <Loaded Value="True"/>
       </Unit9>
       <Unit10>
@@ -94,7 +94,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="8"/>
         <CursorPos X="3" Y="2"/>
-        <UsageCount Value="83"/>
+        <UsageCount Value="84"/>
         <Loaded Value="True"/>
       </Unit10>
       <Unit11>
@@ -210,123 +210,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="583" Column="24" TopLine="554"/>
+        <Caret Line="461" Column="27" TopLine="444"/>
       </Position1>
       <Position2>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="597" Column="24" TopLine="568"/>
+        <Caret Line="2647" Column="46" TopLine="2624"/>
       </Position2>
       <Position3>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="616" Column="24" TopLine="587"/>
+        <Caret Line="385" Column="26" TopLine="368"/>
       </Position3>
       <Position4>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="682" Column="24" TopLine="653"/>
+        <Caret Line="2230" Column="82" TopLine="2201"/>
       </Position4>
       <Position5>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="6146" Column="147" TopLine="6130"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="2232" Column="39" TopLine="2203"/>
       </Position5>
       <Position6>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="461" Column="27" TopLine="444"/>
+        <Caret Line="2233" Column="66" TopLine="2204"/>
       </Position6>
       <Position7>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2647" Column="46" TopLine="2624"/>
+        <Caret Line="2239" Column="82" TopLine="2210"/>
       </Position7>
       <Position8>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="385" Column="26" TopLine="368"/>
+        <Caret Line="2245" Column="43" TopLine="2216"/>
       </Position8>
       <Position9>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2230" Column="82" TopLine="2201"/>
+        <Caret Line="2248" Column="88" TopLine="2219"/>
       </Position9>
       <Position10>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2232" Column="39" TopLine="2203"/>
+        <Caret Line="2251" Column="39" TopLine="2222"/>
       </Position10>
       <Position11>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2233" Column="66" TopLine="2204"/>
+        <Caret Line="2252" Column="71" TopLine="2223"/>
       </Position11>
       <Position12>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2239" Column="82" TopLine="2210"/>
+        <Caret Line="2325" Column="74" TopLine="2296"/>
       </Position12>
       <Position13>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2245" Column="43" TopLine="2216"/>
+        <Caret Line="2327" Column="39" TopLine="2298"/>
       </Position13>
       <Position14>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2248" Column="88" TopLine="2219"/>
+        <Caret Line="2328" Column="59" TopLine="2299"/>
       </Position14>
       <Position15>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="2251" Column="39" TopLine="2222"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="6146" TopLine="6130"/>
       </Position15>
       <Position16>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="2252" Column="71" TopLine="2223"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="124" Column="31" TopLine="102"/>
       </Position16>
       <Position17>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="2325" Column="74" TopLine="2296"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="2584" Column="52" TopLine="2568"/>
       </Position17>
       <Position18>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="2327" Column="39" TopLine="2298"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="5483" Column="36" TopLine="5462"/>
       </Position18>
       <Position19>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="2328" Column="59" TopLine="2299"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="6016" Column="36" TopLine="5995"/>
       </Position19>
       <Position20>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6146" TopLine="6130"/>
+        <Caret Line="6129" Column="44" TopLine="6112"/>
       </Position20>
       <Position21>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="124" Column="31" TopLine="102"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="7142" Column="63" TopLine="7130"/>
       </Position21>
       <Position22>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="2584" Column="52" TopLine="2568"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="187" Column="41" TopLine="171"/>
       </Position22>
       <Position23>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="5483" Column="36" TopLine="5462"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="2538" Column="18" TopLine="2519"/>
       </Position23>
       <Position24>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="6016" Column="36" TopLine="5995"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="439" Column="21" TopLine="421"/>
       </Position24>
       <Position25>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6129" Column="44" TopLine="6112"/>
+        <Caret Line="6176" Column="54" TopLine="6143"/>
       </Position25>
       <Position26>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="7142" Column="63" TopLine="7130"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="198" Column="37" TopLine="261"/>
       </Position26>
       <Position27>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="187" Column="41" TopLine="171"/>
+        <Caret Line="7155" Column="35" TopLine="7127"/>
       </Position27>
       <Position28>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="2538" Column="18" TopLine="2519"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="657" TopLine="576"/>
       </Position28>
       <Position29>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="439" Column="21" TopLine="421"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="7029" TopLine="6997"/>
       </Position29>
       <Position30>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="6176" Column="54" TopLine="6143"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="2538" Column="79" TopLine="2530"/>
       </Position30>
     </JumpHistory>
     <RunParams>
diff --git a/typenunit.pas b/typenunit.pas
index cfbbdf4..8692d92 100644
--- a/typenunit.pas
+++ b/typenunit.pas
@@ -2535,7 +2535,7 @@ end;
 
 procedure tRTVorbereitungsTransformation.aktualisiereXsTs;
 begin
-  outXSTS['x']:=3*max(inXSTS['x'],inXSTS['y']); // TODO: wieso gerade so?
+  outXSTS['x']:=round(power(2,ceil(ln(3*max(inXSTS['x'],inXSTS['y']))/ln(2))));
   outXSTS['y']:=outXSTS['x'];
   aktualisiereAchsen;
 end;