Intraday Stochastic Trading System for Amibroker (AFL)

Day trading can be tricky and unpredictable if you do not understand the basics behind it. You need to be armed with reliable indicators and patterns to be successfuly at intraday trading. Stochastic is one such indicator which has been round for a long time. It is suitable for both intraday trading as well as swing trading. Below Intraday Stochastic trading system which has given 63%~ annual compounded returns in last 3 years.

Read more about this system and download backtest report at http://tradingtuitions.com/intraday-stochastic-trading-system-amibroker-afl/

_SECTION_BEGIN(“Intraday Stochastic System”);
SetTradeDelays( 1, 1, 1, 1 );
SetOption( “InitialEquity”, 200000);
SetOption(“FuturesMode” ,True);
SetOption(“MinShares”,1);
SetOption(“CommissionMode”,2);
SetOption(“CommissionAmount”,100);
SetOption(“AccountMargin”,10);
SetPositionSize(100,spsPercentOfEquity);
SetOption( “AllowPositionShrinking”, True );
BuyPrice=Open;
SellPrice=Open;
ShortPrice=Open;
CoverPrice=Open;
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat(“{{NAME}} – {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}”, O, H, L, C ));
Plot( Close, “Price”, colorWhite, styleCandle );
NewDay = (Day()!= Ref(Day(), -1)) OR BarIndex() == 0;
Plot(NewDay,””,colorlightGrey,styleHistogram|styleDots|styleNoLabel|styleOwnScale);
FirstTradeTime=093000;
SquareOffTime = 151500;
periods = Param( “Periods”, 14, 1, 200, 1 );
Ksmooth = Param( “%K avg”, 12, 1, 20, 1 );
Dsmooth = Param( “%D avg”, 10, 1, 20, 1 );
myStochD =StochD( periods , Ksmooth, DSmooth );
myStochK =StochK( periods , Ksmooth);
Overbought = 80 ;
Oversold =20 ;
Center = 50 ;
Buy = Cross(myStochK, myStochD) AND Cross(myStochK, Oversold) AND TimeNum()>= FirstTradeTime AND TimeNum()= FirstTradeTime AND TimeNum()<SquareOffTime;
Sell=short OR TimeNum() >= SquareOffTime;
Cover=buy OR TimeNum() >= SquareOffTime;
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);
Short=ExRem(Short,Cover);
Cover=ExRem(Cover,Short);
StopLoss=Param(“stop”,0.5,0.5,2,0.5);
ApplyStop(Type=0,Mode=1,Amount=StopLoss);
Target=Param(“Target”,1,1,5,1);
ApplyStop(Type=1,Mode=1,Amount=Target);
printf(“\nBuy : ” + Buy );
printf(“\nSell : ” + Sell );
printf(“\nShort : ” + Short );
printf(“\nCover : ” + Cover );
printf(“\nmyStochK : ” + myStochK );
printf(“\nmyStochD : ” + myStochD );
/* Plot Buy and Sell Signal Arrows */
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-50);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-45);
PlotShapes(IIf(Cover, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Cover, shapeSquare, shapeNone),colorLime, 0,L, Offset=-50);
PlotShapes(IIf(Cover, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-45);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, H, Offset=40);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0,H, Offset=50);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-45);
PlotShapes(IIf(Short, shapeSquare, shapeNone),colorRed, 0, H, Offset=40);
PlotShapes(IIf(Short, shapeSquare, shapeNone),colorOrange, 0,H, Offset=50);
PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-45);
_SECTION_END();