Nhờ sửa code

_SECTION_BEGIN("HutSongChich");
FormulaName = "Supe Robot 3in1";


prev=AMA2(C,1,0);
d=IIf(C>Ref(Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),-1),Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),
IIf(C<Ref(Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),-1),Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),PREV));
a=Cross(Close,d);
b=Cross(d,Close);
state=IIf(BarsSince(a)<BarsSince(b),1,0);
s=state>Ref(state,-1);
ss=state<Ref(state,-1);
sss=state==Ref(state,-1);
col=IIf(state == 1 ,8,IIf(state ==0,4,1));

Plot(C,"",Col,128|styleThick);
PlotShapes( shapeUpArrow * s ,6,0,L);
PlotShapes( shapeDownArrow *ss ,4,0,H);
Filter = s OR sss OR sss ;
AddColumn(C,"close",1.2);
AddColumn( IIf( s, 66,1 ), "MUA", formatChar, 1, bkcolor =IIf (s,colorGreen, colorRed ));
AddColumn( IIf( Ss, 83,1 ), "BAN", formatChar, 1, bkcolor =IIf (Ss,colorRed, colorGreen ));
AddColumn( IIf( sss, 87,1 ), "w", formatChar, 1, bkcolor =IIf (sss,colorYellow, colorRed ));

roboNo = Param("Robo No", 3, 1, 4);
minVolume = Param("Min Volume", 20000, 1000, 1000000);
function ZeroLagTEMA( array, period )
{
    TMA1 = TEMA( array, period );
    TMA2 = TEMA( TMA1, period );
    Diff = TMA1 - TMA2;
    return TMA1 + Diff ;
}
function Check(period, isBuy) {
    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;
    ZLHa = ZeroLagTEMA( HaClose, period );
    ZLTyp = ZeroLagTEMA( Avg, period );
    
    result = Null;
    if (isBuy > 0)
    {
        result = Cross( ZLTyp, ZLHa );
    }
    else if (isBuy < 0)
    {
        result = Cross( ZLHa, ZLTyp );
    }
    return result;
}
function Tplus(isBuy) {
    prev=AMA2(C,1,0);
    d=IIf(C>Ref(Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),-1),Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),
        IIf(C<Ref(Min(Min(L,Ref(L,-3)),Min(Ref(L,-1),Ref(L,-2))),-1),Max(Max(H,Ref(H,-3)),Max(Ref(H,-1),Ref(H,-2))),PREV));
    a=Cross(Close,d);
    b=Cross(d,Close);
    state=IIf(BarsSince(a)<BarsSince(b),1,0);
    if (isBuy > 0)
        result = state>Ref(state,-1);
    else if (isBuy < 0)
        result = state<Ref(state,-1);
    else result = state==Ref(state,-1);
    
    return result;
}
bscore = Check(13, 1) + Check(20, 1) + Check(35, 1) + Check(55, 1)+ Check(65, 1) + Tplus(1);
sscore = Check(13, -1) + Check(20, -1) + Check(35, -1) + Check(55, -1)+Check(65, -1) + Tplus(-1);

Buy = bscore >= roboNo;
Sell = sscore >= roboNo;
Filter = (V > minVolume) && ((bscore > 0) || (sscore  > 0));
AddColumn( bscore , "MUA", 1.0, colorGreen );
AddColumn( sscore , "BAN", 1.0, colorRed );
AddColumn( V , "Volume", 1.0, colorDefault );
_TRACE(FullName() + "   " +  sscore + " " + Check(13, -1)+ "  " +  Check(20, -1) + "  " + Check(35, -1) + "  " + Check(50, -1) + "  " +  Check(65, -1)+ "  " +  Tplus(-1));
_SECTION_END();

Title ="HutSongChich" + " - "  +  EncodeColor(colorYellow)+ Name()+" - Date : "+Date() + " - " +" O = "+WriteVal(O)+", H = "+WriteVal(H)+", L = "+WriteVal(L)+", C = "+WriteVal(C)+" Volume : "+WriteVal(V);


_SECTION_END();

_SECTION_END();