Testing TValue as Params

2025-07-28 00:55:39 +02:00
parent 1ddc295c9d
commit 75675b8dc1
4 changed files with 107 additions and 145 deletions
@@ -38,18 +38,7 @@ begin
    var Hull := Closes.Chain<Double>(THMA.CreateHMA(250)).MakeParallel;
    var Sma := Closes.Chain<Double>(TSMA.CreateSMA(200)).MakeParallel;

-    var ATR :=
-        Ohlc
-            .Chain<TATR.TArgs>(
-                TConverter<TOhlcItem, TATR.TArgs>.CreateConverter(
-                    function(const Ohlc: TOhlcItem): TATR.TArgs
-                    begin
-                        Result.Close := Ohlc.Close;
-                        Result.High := Ohlc.High;
-                        Result.Low := Ohlc.Low;
-                    end
-                ))
-            .Chain<Double>(TATR.CreateATR(50));
+    var ATR := Ohlc.Chain<Double>(TATR.CreateATR(50));

    var conv := TConverter.Join<Double>([Ohlc.Field<Double>('Low'), Ohlc.Field<Double>('High'), Closes, ATR, Hull, Sma]);