this afl requires 15 min data with atleast 10 days backup.. 

_SECTION_BEGIN("15 min trading system");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));

x = StochK(14,3)-StochD(14,3,3)>0;
x1 = StochK(14,3)-StochD(14,3,3)<0;
y = MACD(12,26)-Signal(12,26,9)>0;
y1 = MACD(12,26)-Signal(12,26,9)<0;
TimeFrameSet( inDaily );
w = 0.5*ATR(5);
z = Ref(HHV(High,5),-1);
z1 = Ref(LLV(Low,5),-1);
a = ((Ref(HHV(High,5),-1)-Ref(LLV(Low,5),-1))*0.618)+Ref(LLV(Low,5),-1);
a1 = Ref(HHV(High,5),-1)-(((Ref(HHV(High,5),-1)-Ref(LLV(Low,5),-1))*0.618));
TimeFrameRestore();
b = Cross(High,z) AND Cross(High,a);
b1 = Cross(z1,Low) AND Cross(a1,Low);
UpCandle = ParamColor("Up Color", colorGreen ); 
DownCandle = ParamColor("Down Color", colorRed );
Consolidation = ParamColor("Consolidation", colorBlack); 
BG2a=HHV(LLV(L,4)+ATR(4),8); 
BR2a=LLV(HHV(H,4)-ATR(4),8);
Candlecolor = IIf(Close>BG2a ,UpCandle,IIf(Close < BR2a,DownCandle,Consolidation)); 
Buy = b  AND x AND y AND Close>BG2a;
Buytrgt = w + Open;
Selltrgt = Open - w;
Buysl = Selltrgt;
Sellsl = Buytrgt;
Sell = b1  AND x1 AND y1 AND Close<BR2a;
Filter = Buy OR Sell;
AddColumn(Close,"close");
AddColumn(Buy,"buy");
AddColumn(Buytrgt,"buytrgt");
AddColumn(Buysl,"buysl");
AddColumn(Sell,"sell");
AddColumn(Selltrgt,"selltrgt");
AddColumn(Sellsl,"sellsl");
Plot( Close, "Price", CandleColor, styleCandle ); 
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorGreen, 0,Low,-15);  
PlotShapes(IIf(Sell, shapeHollowDownArrow, shapeNone),colorRed, 0,High,-15); 
_SECTION_END();