PS Cycle Progression w Tilson

This is the place to discuss EdgeRater Chart Script

Moderator: Chris White

Post Reply
henry1224
Posts: 457
Joined: Wed Feb 24, 2016 12:04 pm

PS Cycle Progression w Tilson

Post by henry1224 »

Under the parameters tab

N Double 5 2 100


here is the code

A1:= (O+H+L+C)/4;
e1:=EMA(A1,3);
e2:=EMA(e1,3);
e3:=EMA(e2,3);
e4:=EMA(e3,3);
e5:=EMA(e4,3);
e6:=EMA(e5,3);
e1a:=EMA(A1,5);
e2a:=EMA(e1a,5);
e3a:=EMA(e2a,5);
e4a:=EMA(e3a,5);
e5a:=EMA(e4a,5);
e6a:=EMA(e5a,5);
e1b:=EMA(A1,8);
e2b:=EMA(e1b,8);
e3b:=EMA(e2b,8);
e4b:=EMA(e3b,8);
e5b:=EMA(e4b,8);
e6b:=EMA(e5b,8);
e1c:=EMA(A1,13);
e2c:=EMA(e1c,13);
e3c:=EMA(e2c,13);
e4c:=EMA(e3c,13);
e5c:=EMA(e4c,13);
e6c:=EMA(e5c,13);

c1:=-.618*.618*.618;
c2:=3*.618*.618+3*.618*.618*.618;
c3:=-6*.618*.618-3*.618-3*.618*.618*.618;
c4:=1+3*.618+.618*.618*.618+3*.618*.618;
T13:=c1*e6c+c2*e5c+c3*e4c+c4*e3c,Width2,ColorBlue;
T8:=c1*e6b+c2*e5b+c3*e4b+c4*e3b,Width2,ColorCyan;
T5:=c1*e6a+c2*e5a+c3*e4a+c4*e3a,Width2,ColorRed;
T3:=c1*e6+c2*e5+c3*e4+c4*e3,Width2,ColorGreen;
SMA1:=T3;
SMA2:=T5;
SMA3:=T8;
SMA4:=T13;
P5:=If(SMA1 > SMA2 & SMA2 > SMA3 & SMA3 > SMA4,5,0),Width2,PointDot,ColorGreen;
Con4A:= If(SMA1 > SMA2 & SMA2 > SMA4 & SMA4 > SMA3,4,0);
Con4B:= If(SMA1 > SMA3 & SMA3 > SMA2 & SMA2 > SMA4,4,0);
Con4C:= If(SMA2 > SMA1 & SMA1 > SMA3 & SMA3 > SMA4,4,0);
P4:= (Con4A + Con4B + Con4C),Width2,PointDot,ColorGreen;
P3:= If(SMA2 > SMA1 & SMA1 > SMA4 & SMA4 > SMA3, 3,0),Width2,PointDot,ColorGreen;
Con2A:=If(SMA1 > SMA3 & SMA3 > SMA4 & SMA4 > SMA2,2,0);
Con2B:=If( SMA1 > SMA4 & SMA4 > SMA2 & SMA2 > SMA3,2,0);
Con2C:=If(SMA2 > SMA3 & SMA3 > SMA1 & SMA1 > SMA4,2,0);
Con2D:=If(SMA3 > SMA1 & SMA1 > SMA2 & SMA2 > SMA4,2,0);
P2:= (Con2A + Con2B + Con2C + Con2D),Width2,PointDot,ColorGreen;
Con1A:=If(SMA1 > SMA4 & SMA4 > SMA3 & SMA3 > SMA2,1,0);
Con1B:=If(SMA3 > SMA2 & SMA2 > SMA1 & SMA1 > SMA4,1,0);
P1:= (Con1A + Con1B),Width2,PointDot,ColorGreen;
M5:= If(SMA4 > SMA3 & SMA3 > SMA2 & SMA2 > SMA1, -5,0),Width2,PointDot,ColorRed;
ConM4A:=If(SMA3 > SMA4 & SMA4 > SMA2 & SMA2 > SMA1,-4,0);
ConM4B:=If(SMA4 > SMA2 & SMA2 > SMA3 & SMA3 > SMA1,-4,0);
ConM4C:=If(SMA4 > SMA3 & SMA3 > SMA1 & SMA1 > SMA2,-4,0);
M4:= (ConM4A +ConM4B + ConM4C),Width2,PointDot,ColorRed;
M3:= If(SMA3 > SMA4 & SMA4 > SMA1 & SMA1 > SMA2,-3,0),Width2,PointDot,ColorRed;
ConM2A:=If(SMA2 > SMA4 & SMA4 > SMA3 & SMA3 > SMA1,-2,0);
ConM2B:=If(SMA3 > SMA2 & SMA2 > SMA4 & SMA4 > SMA1,-2,0);
ConM2C:=If(SMA4 > SMA1 & SMA1 > SMA3 & SMA3 > SMA2,-2,0);
ConM2D:=If(SMA4 > SMA2 & SMA2 > SMA1 & SMA1 > SMA3,-2,0);
M2:=(ConM2A + ConM2B + ConM2C + ConM2D),Width2,PointDot,ColorRed;
ConM1A:=If(SMA2 > SMA3 & SMA3 > SMA4 & SMA4 > SMA1,-1,0);
ConM1B:=If(SMA4 > SMA1 & SMA1 > SMA2 & SMA2 > SMA3,-1,0);
M1:=(ConM1A + ConM1B),Width2,PointDot,ColorRed;
TD:= (P5+P4+P3+P2+P1+M5+M4+M3+M2+M1),ColorBlack;
B:=Sum(If(C>Ref(C,1),1,0),N)<Sum(If(C<Ref(C,1),1,0),N);
A:=Sum(If(C>Ref(C,1),1,0),N)>Sum(If(C<Ref(C,1),1,0),N);
Long:BarsSince(A)<BarsSince(B) & TD>0,ColorGreen;
Short:BarsSince(A)>BarsSince(B) & TD<0,ColorRed;
FillRgn(Long>0,0,Long),Brush#50008000;
FillRgn(Short>0,0,Short),Brush#50800000;
Post Reply