LE:If((H-EMA(C,13))>0-(L-EMA(C,13)),1,0),ColorGreen;
SE:If((L-EMA(C,13))<0-(H-EMA(C,13)),1,0),ColorRed;
FillRgn(LE==1,0,LE),Brush#50008000;
FillRgn(SE==1,0,SE),Brush#50800000;
PS Bull power Bear Power 1 System
Moderator: Chris White
PS Bull power Bear Power 1 System
Last edited by henry1224 on Fri Jul 29, 2016 12:45 pm, edited 1 time in total.
Re: PS Bull power Bear Power 1 System
Here is another version with a 3cc65 Trend Filter
LE:If((H-EMA(C,13))>0-(L-EMA(C,13)) & Sum(C>MA(C,65),3)>2,1,0),ColorGreen;
SE:If((L-EMA(C,13))<0-(H-EMA(C,13)) & Sum(C<MA(C,65),3)>2,1,0),ColorRed;
FillRgn(LE==1,0,LE),Brush#50008000;
FillRgn(SE==1,0,SE),Brush#50800000;
FillRgn(LE==0 & SE==0,0,1),Brush#501E90FF;
LE:If((H-EMA(C,13))>0-(L-EMA(C,13)) & Sum(C>MA(C,65),3)>2,1,0),ColorGreen;
SE:If((L-EMA(C,13))<0-(H-EMA(C,13)) & Sum(C<MA(C,65),3)>2,1,0),ColorRed;
FillRgn(LE==1,0,LE),Brush#50008000;
FillRgn(SE==1,0,SE),Brush#50800000;
FillRgn(LE==0 & SE==0,0,1),Brush#501E90FF;