龙听期货论坛's Archiver

龙听 发表于 2022-11-1 13:37

【ExtremePrice】

[code]Inputs: Len(Numeric), UseLog(TrueFalse);
Variables: var0(0);

If UseLog Then Begin
        If Len <= 2 Then
                ExtremePrice = Log(Highest(High, Len) / Lowest(Low, Len))
        Else Begin
                var0 = Len - 1;
                ExtremePrice = Log(MaxList(High, High[var0]) / MinList(Low, Low[var0]));
        End;
End
Else Begin
        If Len <= 2 Then
                ExtremePrice = Highest(High, Len) / Lowest(Low, Len)
        Else Begin
                var0 = Len - 1;
                ExtremePrice = MaxList(High, High[var0]) / MinList(Low, Low[var0]);
        End;
End;
[/code]

页: [1]