İndikatör Jackson Zones

Jackson Zones
TF:=Input("1=hour 2=day 3=week 4=month 5=year ",1,5,4);
NW:=If(TF=1,ROC(Minute(),1,$)<0,
If(TF=2,ROC(Hour(),1,$)<0,
If(TF=3,ROC(DayOfWeek(),1,$)<0,
If(TF=4,ROC(DayOfMonth(),1,$)<0,ROC(Month(),1,$)<0))));
WH:=ValueWhen(1,Nw,Ref(HighestSince(1,Nw,H),-1));
WL:=ValueWhen(1,Nw,Ref(LowestSince(1,Nw,L),-1));
WCL:=ValueWhen(1,Nw,Ref(C,-1));
BP:=(WH+WL+WCL)/3;
D:=((WH-WL)/2)+BP;
B:=BP-((WH-WL)/2);
D1:=(WH-WL)+BP;
B1:=BP-(WH-WL);
SB1:=BP-((WH-WL)*.618);
SB2:=BP-((WH-WL)*1.382);
RB1:=((WH-WL)*.618)+BP;
RB2:=((WH-WL)*1.382)+BP;
RB2;
D1;
RB1;
D;
BP;
B;
SB1;
B1;
SB2;​

Source / From:​

http://www.equis.com​