Live signal afl

_SECTION_BEGIN("live sign");

TimeFrameSet(10*in1Minute);
mov = 45;
hi = EMA(H,mov);
lo = EMA(L,mov) ;
x1 = IIf(C>Ref(hi,-1),1,IIf(C<Ref(lo,-1),-1,0));
x2 = ValueWhen(x1!=0,x1,1);
st = IIf(x2==-1,Hi,Lo);
//Plot(st,"ATR",colorCustom12,styleLine|styleDots);
TimeFrameRestore(); // restore time frame to original
uptrendf1=TimeFrameExpand(st , 10*in1Minute);
//downtrendf=TimeFrameExpand( downtrend, 15*in1Minute);
Colorf=TimeFrameExpand (colorCustom6, 10*in1Minute);
Plot(uptrendf1,"",colorLightBlue, styleLine | styleThick | styleDots);
_SECTION_END();




TimeFrameSet( inDaily ); // switch now to daily



mov = 13;

hi = EMA(H,mov);

lo = EMA(L,mov) ;

x1 = IIf(C>Ref(hi,-1),1,IIf(C<Ref(lo,-1),-1,0));

x2 = ValueWhen(x1!=0,x1,1);

st = IIf(x2==-1,Hi,Lo);

//Plot(st,"ATR",colorCustom12,styleLine|styleDots);



TimeFrameRestore(); // restore time frame to original



uptrendf=TimeFrameExpand(st , inDaily );

//downtrendf=TimeFrameExpand( downtrend, 15*in1Minute);

Colorf=TimeFrameExpand (colorWhite, inDaily );

Plot(uptrendf,"",Colorf, styleLine | styleThick | styleLine);



_SECTION_END();

_N(Title = StrFormat("Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));


_SECTION_BEGIN
("Price");
SetChartOptions
(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat(" Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
//kol=IIf( C > bp AND C> Vwap AND C>ST,colorBlue, IIf( C< bp AND C<Vwap AND C<ST ,colorRed,colorCustom1));

kol=IIf(C> uptrendf1 AND uptrendf1 >uptrendf, colorBrightGreen,
IIf(C<uptrendf1 AND uptrendf1 <uptrendf , colorRed,
IIf(uptrendf1>uptrendf AND C>uptrendf1 , colorCustom12,
IIf(uptrendf1<uptrendf AND C>uptrendf1 , colorBrightGreen, colorRed))));



Plot( C, "Close", kol, styleNoTitle | ParamStyle("Style") | GetPriceStyle() );

_SECTION_END();





_SECTION_END();