_SECTION_BEGIN(“PRT Crossover”);
function ZeroLagTEMA( array, period )
{
TMA1 = TEMA( array, period );
TMA2 = TEMA( TMA1, period );
Diff = TMA1 - TMA2;
return TMA1 + Diff ;
}
HaClose = (O+H+L+C)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
HaClose = ( HaClose + HaOpen + HaHigh + HaLow )/4;
if( ParamToggle(“Plot Heikin-Ashi”, “No,Yes”, 1 ) )
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, “Heikin Ashi " + Name(), colorRose, styleCandle );
else
Plot( C, “Regular candles " + Name(), colorRose, styleCandle );
period = Param(“Avg. TEMA period”, 15, 1, 100 );
ZLHa = ZeroLagTEMA( HaClose, period );
ZLTyp = ZeroLagTEMA( Avg, period );
Plot( ZLHa, “ZLTema(Ha,”+period+”)”, colorRed );
Plot( ZLTyp, “ZLTema(Typ,”+period+")", colorRed );
Buy = Cross( ZLTyp, ZLHa );
Sell = Cross( ZLHa, ZLTyp );
Short = Sell;
Cover = Buy;
PlotShapes( shapeUpArrow * Buy, colorGreen, 0, HaLow );
PlotShapes( shapeDownArrow * Sell, colorRed, 0, HaHigh );
Title = EncodeColor(colorWhite)+ " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
" - " + Date() +" - “+EncodeColor(colorYellow) +“Op-”+O+” “+“Hi-”+H+” “+“Lo-”+L+” “+
“Cl-”+C+” "+ “Vol= “+ WriteVal(V)+”\n”+
_SECTION_END();
