【TrendingStocks】
[code]Inputs: Len(Numeric), MinimumPriceValue(Numeric);Variables: var0(0), var1(0), var2(0), var3(0), var4(0), var5(0), var6(0);
var0 = SerialHighsLows(Len);
var1 = BarQuality(Len);
var2 = AverageUpMove(Len);
var3 = AverageDnMove(Len);
var4 = AbsValue(var2-var3);
var6 = MinList(var0, var4);
condition1 = Lowest(Low, Len) < MinimumPriceValue OR var1 < 10 Or var0 < 15 ;
If condition1 Then
var6 = 0;
For var5 = 0 To Len * 2 Begin
condition1 = High[var5] < Low[var5 + 1];
If condition1 Then Begin
condition1 = High[var5] < Low[var5 + 1] * .8;
If condition1 Then
var6 = 0;
End
Else
begin
condition1 = Low[var5] > High[var5 + 1];
If condition1 Then
Begin
condition1 = Low[var5] > High[var5 + 1] * 1.2;
If condition1 Then
var6 = 0;
End;
end;
End;
TrendingStocks = var6;
[/code]
页:
[1]