龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

龙听 发表于 2022-11-1 11:29

【BarQuality】

[code]Input: Len(Numeric);
Variables: var0(0), var1(0);

var0 = 0;

If Len > 1 Then Begin
        For var1 = 0 To Len - 1 Begin
                Condition1 = QualityBar[var1];
                If Condition1 = True Then
                        var0 = var0 + 1;
                Condition1 = False;
        End;

        BarQuality = (MaxList(1, var0) / Len) * 100;
End
Else
        BarQuality = 0;
[/code]

页: [1]