Stock Portfolio Organizer

The ultimate porfolio management solution.

Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
Find Out More Here

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Find Out More Here

Volume Based Intraday Trading Strategy for Amibroker (AFL)

Rating:
5 / 5 (Votes 1)
Tags:
amibroker, trading system, volume, intraday

Volume based intraday trading strategy, suitable for algo traders. Buy and Sell conditions are based on previous day Volume. Trigger price, start Time, end time, stop loss and target has been added.

Screenshots

Indicator / Formula

Copy & Paste Friendly
	///Volume Based Intraday AFl for algo traders
	///Created by Team Viatrades
	///viatradess@gmail.com
	SetPositionSize(1, spsShares);
	SetBarsRequired(sbrAll, sbrAll);
	
	SetChartOptions(0,chartShowArrows|chartShowDates);
	SetChartBkGradientFill(colorBlack,colorBlack,colorBlack);
	SetBarFillColor(IIf(C>O,colorPaleBlue,IIf(C<=O,colorOrange,colorLightGrey)));
	Plot(C,"\nPrice",IIf(C>O,colorPaleBlue,IIf(C<=O,colorOrange,colorLightGrey)),64|styleNoTitle,0,0,0,0);
	GraphXSpace = 10;
	
	// Time Given for MCX You can Change this
	StartTime = ParamTime("Start Time", "10:00:00");
	StopTime = ParamTime("End Time", "23:00:00");
	
	Target = Param("Target %", 1, 0.1, 50, 0.01)/100;
	StopLoss = Param("Stop Loss %", 0.6, 0.1, 50, 0.01)/100;
	
	
	DCAL = DateNum();
	HCAL = 0;
	HCALPrice = 0;
	LCALPrice = 0;
	CurDNPrice = 0;
	FirDNDNPrice = DCAL[0];
	TN = TimeNum();
	DT = DateTime();
	LDT = DT[BarCount-1];
	
	VOLPRICECAL = Null;
	VOLLOWPRICECAL = Null;
	
	HIGPRCCALC = Null;
	LOWPRCCALC = Null;
	
	PrevDay = 0;
	
	for(i = 1; i < BarCount; i++)
	{
		if(CurDNPrice != DCAL[i] && FirDNDNPrice != DCAL[i])
		{
			VOLPRICECAL = HCALPrice;
			VOLLOWPRICECAL = LCALPrice;
			
			CurDNPrice = DCAL[i];
			HCAL = 0;
			HCALPrice = 0;
			LCALPrice = 0;
			HIGPRCCALC[i-1] = Null;
			LOWPRCCALC[i-1] = Null;
		}
		
		HIGPRCCALC[i] = VOLPRICECAL;
		LOWPRCCALC[i] = VOLLOWPRICECAL;
		
		if(HCAL < Volume[i])
		{
			HCAL = Volume[i];
			HCALPrice = High[i];
			LCALPrice = Low[i];
		}
	}
	
	
	Plot(HIGPRCCALC, "Prev High", colorGrey50, styleStaircase|styleDashed);
	Plot(LOWPRCCALC, "Prev Low", colorGrey50, styleStaircase|styleDashed);
	
	Buy = Ref(Close > HIGPRCCALC, -1) AND TN > StartTime AND TN < StopTime AND TN > Ref(TN, -1);
	Short = Ref(Close < LOWPRCCALC, -1) AND TN > StartTime AND TN < StopTime  AND TN > Ref(TN, -1);
	
	Sell = Ref(Close < LOWPRCCALC, 1) OR TN >= StopTime;
	Cover = Ref(Close > HIGPRCCALC, -1) OR TN >= StopTime; 
	
	Buy = ExRem(Buy, Sell);
	Sell = ExRem(Sell, Buy);
	
	Short = ExRem(Short, Cover);
	Cover = ExRem(Cover, Short);
	
	BuyPrice = ValueWhen(Buy, Open);
	ShortPrice = ValueWhen(Short, Open);
	
	SellPrice = ValueWhen(Sell, Open);
	CoverPrice = ValueWhen(Cover, Open);
	
	LongTargetPrice = BuyPrice + (BuyPrice * Target);
	ShortTargetPrice = ShortPrice - (ShortPrice * Target);
	
	LongSLPrice = BuyPrice - (BuyPrice * Target);
	ShortSLPrice = ShortPrice + (ShortPrice * Target);
	
	Sell1 = High > LongTargetPrice;
	Sell2 = Low < LongSLPrice;
	
	Cover1 = Low < ShortTargetPrice;
	Cover2 = High > ShortSLPrice;
	
	Sell = Sell OR Sell1 OR Sell2;
	Cover = Cover OR Cover1 OR Cover2;
	
	SellPrice = IIf(Sell1, LongTargetPrice, IIf(Sell2, LongSLPrice, SellPrice));
	CoverPrice = IIf(Cover1, ShortTargetPrice, IIf(Cover2, ShortSLPrice, CoverPrice));
	
	Buy = ExRem(Buy, Sell);
	Sell = ExRem(Sell, Buy);
	
	Short = ExRem(Short, Cover);
	Cover = ExRem(Cover, Short);
	
	BuyPlotsCandles = (BarsSince(Buy)<BarsSince(Sell)) AND (BarsSince(Buy)!=0);
	ShortPlotCandles = (BarsSince(Cover)>BarsSince(Short)) AND (BarsSince(Short)!=0);
	
	Plot(IIf(BuyPlotsCandles, BuyPrice, Null), "Buy Price", colorYellow, styleStaircase|styleDashed);
	Plot(IIf(BuyPlotsCandles, LongTargetPrice, Null), "Long Target", colorBrightGreen, styleStaircase|styleDashed);
	Plot(IIf(BuyPlotsCandles, LongSLPrice, Null), "Long Target", colorCustom12, styleStaircase|styleDashed);
	
	Plot(IIf(ShortPlotCandles, ShortPrice, Null), "Short Price", colorYellow, styleStaircase|styleDashed);
	Plot(IIf(ShortPlotCandles, ShortTargetPrice, Null), "Short Target", colorBrightGreen, styleStaircase|styleDashed);
	Plot(IIf(ShortPlotCandles, ShortSLPrice, Null), "Short Target", colorCustom12, styleStaircase|styleDashed);
	
	Buyshape = Buy * shapeUpArrow;
	SellShape = Sell * shapeStar;
	PlotShapes( Buyshape, colorBrightGreen, 0, Low );
	PlotShapes( SellShape, colorRed, 0, High );

	Shortshape = Short * shapeDownArrow;
	CoverShape = Cover * shapeStar;
	PlotShapes( Shortshape, colorOrange, 0, High, -30);
	PlotShapes( CoverShape, colorTurquoise, 0, Low, -30 );
	

0 comments

Leave Comment

Please login here to leave a comment.

Back