15 Minute MACD, Stochastic & EMA Swing AFL for Amibroker

15 Minute MACD, Stochastic & EMA Swing AFL for Amibroker

15 Minute Time Frame based Swing AFL made with mix-up of MACD, Stochastic, EMAs & RSIs for better results for Swing Trading (both Intraday and Positional). Stair-cased Trailing Stoploss also seems nice performing for limited losses and maximum profit from a trend.

Use Quick Profit Trading System AFL only for Intraday and Positional Trading in MCX Commodity, NCDEX Agriculture Commodity, NSE Equity Cash Stocks, Nifty Future, Bank Nifty Future, Nifty Options, Most Active Stock Futures, Currency Futures & Options, Etc.

Download 15min Swing Trading AFL for Amibroker

Password : techarticles.in

AmiTrader

COPY & PASTE CODE :

_SECTION_BEGIN(“Price”);
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 ) ) ));

SD = StochD(8, 3, 3);
MH = MACD(8, 21) – Signal(8, 21, 5);

trendup = IIf(MH > 0 OR (MH > 0 AND MH > Ref(MH, -1)) AND RSI(3) >50 AND SD < 80 AND SD > Ref(SD, -1) AND ValueWhen(C,O<C), colorGREEN, colorWhite);
trendcolor = IIf(MH < 0 OR (MH < 0 AND MH < Ref(MH, -1)) AND RSI(3) <50 AND SD > 20 AND SD < Ref(SD, -1) AND ValueWhen(C,O>C), colorRed, trendup);
Plot( C, “Close”, trendcolor, styleCandle | styleThick );

_SECTION_END();

no=Param( “Swing”, 8, 1, 55 );

res=HHV(H,no);
sup=LLV(L,no);
tsl=IIf(ValueWhen(IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0))!=0,IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0)),1)==1,sup,res);

Plot(tsl, _DEFAULT_NAME(), colororange, styleStaircase);
Buy = Cross(C,res) ;
Sell = Cross(sup,C)  ;
_SECTION_END();

a=C;
g=(EMA(Close,3) * (2 / 4 – 1)-EMA(Close,5) * (2 / 6 – 1)) / (2 /4- 2 /6);
e=Ref(tsl,-1);
Buy = Cross(C,tsl) ;
Sell = Cross(tsl,C)  ;
SellPrice=ValueWhen(Sell,e,1);
BuyPrice=ValueWhen(Buy,e,1);
Long=Flip(Buy,Sell);
Shrt=Flip(Sell,Buy );
Filter=Buy OR Sell;
Buy = Cross(C,tsl) ;
Sell = Cross(tsl,C)  ;
shape = Buy * shapeUpArrow + Sell * shapeDownArrow;

PlotShapes( shape, IIf( Buy, colorGreen, colorRed ),0, IIf( Buy, Low, High ) );
a1=Ref(tsl,-1);
GraphXSpace = 5;
dist = 2*ATR(5);
for( i = 0; i < BarCount; i++ )
{if( Buy[i] ) PlotText( “Buy @” + a1[ i ], i, L[ i ]-dist[i], colorGreen );
if( Sell[i] ) PlotText( “Sell @” + a1[ i ], i, H[ i ]+dist[i], colorRed);
}

GraphXSpace = 5;
dist = 2.5*ATR(5);
for( i = 0; i < BarCount; i++ )
{if( Buy[i] ) PlotText( “Stop @” + tsl[ i ], i, L[ i ]-dist[i], colorRed );
if( Sell[i] ) PlotText( “Stop @” + tsl[ i ], i, H[ i ]+dist[i], colorGreen);
}