龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

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

【AverageUpMove】

[code]Input: Len(Numeric);
Variables: var0(0), var1(0), var2(0), var3(0), var4(0), var5(0);

var1 = 0;
var0 = 0;
var4 = 0;

For var3 = 0 To Len - 1 Begin
condition1 = Close[Len + var3] <> 0;
        If condition1 Then
                var2 = (Close[var3] / Close[Len + var3]) - 1
        Else
                var2 = 0;
        If var2 > 0 Then Begin
                var1 = var1 + var2;
                var4 = var4 + 1;
        End;
End;

AverageUpMove = AbsValue(var1 / MaxList(1, var4)) * 100;
[/code]

页: [1]