_SECTION_BEGIN("Trendscore.aflet");
HaClose = EMA((O+H+L+C)/4,3);
HaOpen=IIf(BarIndex()>0,AMA(Ref(HaClose,-1),0.5),Open);
HaHigh=Max(H,Max(HaClose,HaOpen));
HaLow=Min(L,Min(HaClose,HaOpen));
p1=Param("Extreme period1",5,3,10);
p2=Param("Extreme period2",8,3,20);
p3=Param("Extreme period3",13,3,50);
HaDiff=IIf(HaClose>HaOpen,1,IIf(HaClose<HaOpen,-1,0));
HaDiff1=IIf(HaClose>EMA(HaClose,p1),1,IIf(HaClose<EMA(HaClose,p1),-1,0));
HaDiff2=IIf(HaClose>EMA(HaClose,p2),1,IIf(HaClose<EMA(HaClose,p2),-1,0));
HaDiff3=IIf(HaClose>EMA(HaClose,p3),1,IIf(HaClose<EMA(HaClose,p3),-1,0));
HaDiff4=IIf(EMA(HaClose,p1)>EMA(HaClose,p2),1,IIf(EMA(HaClose,p1)<EMA(HaClose,p2),-1,0));
HaDiff5=IIf(EMA(HaClose,p2)>EMA(HaClose,p3),1,IIf(EMA(HaClose,p2)<EMA(HaClose,p3),-1,0));
HaDiff6=IIf(HaClose>Ref(HaClose,-1),1,IIf(HaClose<Ref(HaClose,-1),-1,0));
tsc=HaDiff+HaDiff1+HaDiff2+HaDiff3+HaDiff4+HaDiff5+HaDiff6;
function plottscColumn(cc,X1,Y1,distance,ht,wt,tsc)
{xPos=X1;endYPos=Y1+wt;
for(i=cc;i>0;i--){
color=IIf(tsc>i-1,ColorRGB(0,100+i*20,0),IIf(tsc<-1*(i-1),
IIf(i>3,ColorRGB(255,(20*i)-60,0),ColorRGB(195+(i*20),0,0)),GetChartBkColor()));
GfxSelectSolidBrush(color);
GfxRoundRect(Y1,xPos,endYPos,xPos-ht,3,3);
xPos+=distance;}}
GfxSelectPen(ColorRGB(180,180,180),1,0);
tp=Status("pxchartheight")-Param("Vertical Position",272,70,500,1);
rp=Param("Horizontal Position",49,48,800,1);
sp=12;
ht=wt=10;
plottscColumn(7,tp,rp,sp,ht,wt,SelectedValue(tsc));
rp-=sp;
plottscColumn(7,tp,rp,sp,ht,wt,SelectedValue(Ref(tsc,-1)));
rp-=sp;
plottscColumn(7,tp,rp,sp,ht,wt,SelectedValue(Ref(tsc,-2)));
rp-=sp;
plottscColumn(7,tp,rp,sp,ht,wt,SelectedValue(Ref(tsc,-3)));
rp-=sp;
plottscColumn(7,tp,rp,sp,ht,wt,SelectedValue(Ref(tsc,-4)));
_SECTION_END();