龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

龙听 发表于 2022-11-2 13:00

【SerialHighsLows】

[code]Inputs: Len(numeric);
Variables: var0(0), var1(0), var2(0);

If Len <> 0 Then Begin
        var1 = 0;
        For var0 = 0 To Len - 1 Begin
                condition1 = Close[var0] > Highest(Close, Len)[var0 + 1] ;
                If condition1 Then Begin
                        If var1 < 0 Then
                                var1 = 0;
                        var1 = var1 + 1;
                End
                Else Begin
                condition1 = Close[var0] < Lowest(Close, Len)[var0 + 1] ;
                        If condition1 Then Begin
                                If var1 > 0 Then
                                        var1 = 0;
                                var1 = var1-1;
                        End;
                End;
        End;
        SerialHighsLows = (AbsValue(var1) / Len) * 100;
End
Else
        SerialHighsLows = 0;
[/code]

页: [1]