// Downloaded From https://www.WiseStockTrader.com
SetChartBkColor(colorOrange);
P1=(Ref(C,-1)+C+L+H)/4;
P2=Ref(P1,-1);
P3=Ref(P1,-2);

PR=(P1-P2)/P2;
PH=(H-P2)/P2;
PL=(L-P2)/P2;

MYPERIOD=Param("EMA PERIOD",10,5,50);

EPR=EMA(PR,MYPERIOD);
EPH=EMA(PH,MYPERIOD);
EPL=EMA(PL,MYPERIOD);

HL=(PH-PL);

DIV=(EPH+EPL);



M=N=0;
M=IIf(C>Ref(C,-1),(M+V),M);
N=IIf(C<Ref(C,-1),(N+V),N);
P=Sum(M,6);
Q=Sum(N,6);
R=Sum(M,12);
S=Sum(N,12);
T=EMA(M,6);
U=EMA(M,12);
W=PDI()*MACD(5);
X=EMA(W,5);






/*Plot(EPR,"MY PIVOT LINE",colorBlack,styleLine);*/
/*Plot(EPH,"MY HIGHS LINE",colorGreen,styleDots);*/
/*Plot(EPL,"MY LOWS LINE",colorRed,styleLine);*/

/*PlotOHLC(O,H,L,C,"",IIf(C>O,colorGreen,colorRed));*/

MYCOLOR=IIf(R>S*1.3,colorDarkBlue,IIf(R>S,colorTeal,colorRed));



Plot(DIV,"TREND.VISION",MYCOLOR,styleHistogram);

A=LLV(DIV,10);
B=LLV(DIV,30);
D=DIV>Ref(DIV,-1) AND A>B;

Buy=MYCOLOR==colorDarkBlue  AND EMA(DIV,10)>EMA(DIV,20) AND EMA(C,5)< EMA(C,10) AND C>Ref(C,-1);
Sell=MYCOLOR==colorRed;
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);
PlotShapes(Buy*shapeStar,colorPlum,Layer=0,yposition=0,Offset=-12);