Trend Advisor Diamond Phase
Posted: Sat Jun 11, 2016 10:26 am
Here is my version
ML1:=MA(Close,50);
ML2:=MA(Close,200);
RecP:= If((ML1 < ML2 & Close < ML2 & Close > ML1) ,1,0),ColorLightGreen;
WarnP:= If((ML1 > ML2 & Close > ML2 & Close < ML1) ,-1,0),ColorOrange;
AcumP:= If((ML1 < ML2 & Close > ML2 & Close > ML1) ,2,0),ColorGreen;
DispP:= If((ML1 > ML2 & Close < ML2 & Close < ML1) ,-2,0),ColorRed;
BullP:= If((ML1 > ML2 & Close > ML2 & Close > ML1) ,3,0),ColorDarkGreen;
BearP:= If((ML1 < ML2 & Close < ML2 & Close < ML1),-3,0),ColorDarkRed;
PlotUp1: FILLRGN(RecP,0, 1),ExtendLR,Brush#80ADFF2F;
PlotUp2: FILLRGN(AcumP,0, 2),ExtendLR,Brush#8000FF00;
PlotUp3: FILLRGN(BullP,0, 3),ExtendLR,Brush#80008000;
PlotDn1: FILLRGN(WarnP,-1,0),ExtendLR,Brush#80FFA500;
PlotDn2: FILLRGN(DispP,-2, 0),ExtendLR,Brush#80FF0000;
PlotDn3: FILLRGN(BearP,-3, 0),ExtendLR,Brush#808B008B;
ML1:=MA(Close,50);
ML2:=MA(Close,200);
RecP:= If((ML1 < ML2 & Close < ML2 & Close > ML1) ,1,0),ColorLightGreen;
WarnP:= If((ML1 > ML2 & Close > ML2 & Close < ML1) ,-1,0),ColorOrange;
AcumP:= If((ML1 < ML2 & Close > ML2 & Close > ML1) ,2,0),ColorGreen;
DispP:= If((ML1 > ML2 & Close < ML2 & Close < ML1) ,-2,0),ColorRed;
BullP:= If((ML1 > ML2 & Close > ML2 & Close > ML1) ,3,0),ColorDarkGreen;
BearP:= If((ML1 < ML2 & Close < ML2 & Close < ML1),-3,0),ColorDarkRed;
PlotUp1: FILLRGN(RecP,0, 1),ExtendLR,Brush#80ADFF2F;
PlotUp2: FILLRGN(AcumP,0, 2),ExtendLR,Brush#8000FF00;
PlotUp3: FILLRGN(BullP,0, 3),ExtendLR,Brush#80008000;
PlotDn1: FILLRGN(WarnP,-1,0),ExtendLR,Brush#80FFA500;
PlotDn2: FILLRGN(DispP,-2, 0),ExtendLR,Brush#80FF0000;
PlotDn3: FILLRGN(BearP,-3, 0),ExtendLR,Brush#808B008B;