【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]