Автор:
Разместил:   Дата: 2005-12-27 16:55
Комментарии: (0)   Рейтинг:

DBS-Where

Type : Indicator, Name: DBS-Where

Inputs: Ceil(60), Flr(20);

Vars: X(0), Y(0), ZDelta(0), VarA(0), VarB(0), OldVarA(0),
TopB(0), LowB(0), Where(0), WhereH(0), WhereL(0);

Y = X;
X = Stddev(Close, 30);
ZDelta = (X - Y) / X;

If CurrentBar = 1 then
  VarA = 20;

OldVarA = VarA;
VarA = OldVarA * (1 + ZDelta);
VarA = MaxList(VarA, Flr);
VarA = MinList(VarA, Ceil);
VarB = VarA * 0.5;

TopB = Highest(High, VarA)[1];
LowB = Lowest(Low, VarA)[1];
WhereH = (High - LowB) * 100 / (TopB - LowB);
Where = (Close - LowB) * 100 / (TopB - LowB);
WhereL = (Low - LowB) * 100 / (TopB - LowB);

If WhereH > 67 Then Where = WhereH;
If WhereL < 33 Then Where = WhereL;

Plot1(Where, "%-Where");
Plot2(100, "Upper");
Plot3(0, "Lower");





 
Пока комментариев нет
Реклама:

Rambler's Top100

Страница создана за 0.032 секунды