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