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 ....
For Portfolio Manager Click Here

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

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

LINKON'S DAY TRADING SYSTEM for Amibroker (AFL)
ecki
over 11 years ago
Amibroker (AFL)

Rating:
3 / 5 (Votes 6)
Tags:
trading system, amibroker

Complete Trading System which gives Buy and Sell Signals using coloured chart and candles.

Similar Indicators / Formulas

EMA crossover
Submitted by Ketan-0 about 13 years ago
Kase Peak Osc. V2 batu
Submitted by batu1453 over 9 years ago
Kase CD V2batu
Submitted by batu1453 over 9 years ago
Ichimoku
Submitted by prashantrdx over 9 years ago
buy and sell two EMAS
Submitted by mundo0007 about 12 years ago
Adaptive Price Zone (APZ)
Submitted by AndrewThomas about 13 years ago

Indicator / Formula

Copy & Paste Friendly
_SECTION_BEGIN("Linkon's Day Trading System");


icol = IIf ( MA (Close,25) > Ref (MA (Close,25),-1),colorGreen,colorRed);

Plot( MA( High, 25 ),"", icol, styleThick);
Plot( MA( Low, 25 ), "",icol, styleThick);

Color_buy = IIf(Close > EMA(Close,89) AND Close > EMA(High,25),colorBlue,IIf(Close < EMA(Close,89) AND Close < EMA(Low,25),colorRed,colorYellow));

PlotOHLC( Open, High, Low, Close, "", Color_buy, styleCandle ); 
_SECTION_END();

  
_SECTION_BEGIN("EMA fabonachi");

fab5 = EMA(Close,5);
fab8 = EMA(Close,8);
fab13 = EMA(Close,13);
fab21 = EMA(Close,21);
fab34 = EMA(Close,34);
fab55 = EMA(Close,55);
fab89 = EMA(Close,89); 

Color_fab5 = IIf(Close > fab5,ColorRGB(197,254,214),colorPink);
Color_fab8 = IIf(Close > fab8,ColorRGB(197,254,214),colorPink);
Color_fab13 = IIf(Close > fab13,ColorRGB(197,254,214),colorPink);
Color_fab21 = IIf(Close > fab21,ColorRGB(197,254,214),colorPink);
Color_fab34 = IIf(Close > fab34,ColorRGB(197,254,214),colorPink);
Color_fab55 = IIf(Close > fab55,ColorRGB(197,254,214),colorPink);
Color_fab89 = IIf(Close > fab89,ColorRGB(197,254,214),colorPink);

Plot( fab89, "", Color_fab89, styleDashed ); 
_SECTION_END();
dist = 0.25*ATR(10); 
Capital=Param("Total capital",100000,10000,1000000,1000);
drawdown=Param("Max. loss per trade as % of Capital", 1.0,0.5,25.0,0.1);
room=Param("Room for S/L as % of Pivot value",0.001,0.001,0.02,0.001);

PH= ValueWhen(
(Ref(H,-2) > Ref(H, -4)) AND
(Ref(H,-2) > Ref(H, -3)) AND
(Ref(H,-2) > Ref(H, -1)) AND
(Ref(H,-2) > H), Ref(H,-2));

PL= ValueWhen(
(Ref(L,-2) <= Ref(L, -4)) AND
(Ref(L,-2) <= Ref(L, -3)) AND
(Ref(L,-2) <= Ref(L, -1)) AND
(Ref(L,-2) <= L), Ref(L,-2));

phfilter=PH+(room*PH);
plfilter=PL-(room*PL);

//Plot(Ref(PH,2), "UpPivot", ParamColor("UpPivot Color",colorGreen), styleDashed);
//Plot(Ref(PL,2), "DownPivot",ParamColor("DownPivot Color",colorRed), styleDashed);

/*

for (a=4;a<BarCount;a++)
{
if ((H[a-2] >= H[a-4]) AND
(H[a-2] >= H[a-3]) AND
(H[a-2] >= H[a-1]) AND
(H[a-2] >= H[a]))
PlotText("PH \n"+H[a-2], a-2, H[a-2], colorGreen);

if ((L[a-2] <= L[a-4]) AND
(L[a-2] <= L[a-3]) AND
(L[a-2] <= L[a-1]) AND
(L[a-2] <= L[a]))
PlotText("PL \n"+L[a-2], a-2, L[a-2]-dist[a-2], colorRed);
}
*/

_SECTION_END();


_SECTION_BEGIN("fabo cloud");

Lo = IIf (fab89>fab55,fab55,fab89);
Hi = IIf (fab89<fab55,fab55,fab89);
PlotOHLC(Lo,Hi,Lo,Hi,"",Color_fab89, styleNoLabel |  styleCloud);

Lo1 = IIf (fab55>fab34,fab34,fab55);
Hi1 = IIf (fab55<fab34,fab34,fab55);
PlotOHLC(Lo1,Hi1,Lo1,Hi1,"",Color_fab55, styleNoLabel | styleCloud);

Lo2 = IIf (fab34>fab21,fab21,fab34);
Hi2 = IIf (fab34<fab21,fab21,fab34);
PlotOHLC(Lo2,Hi2,Lo2,Hi2,"",Color_fab34, styleNoLabel | styleCloud);

Lo3 = IIf (fab21>fab13,fab13,fab21);
Hi3 = IIf (fab21<fab13,fab13,fab21);
PlotOHLC(Lo3,Hi3,Lo3,Hi3,"",Color_fab21, styleNoLabel | styleCloud);

Lo4 = IIf (fab13>fab8,fab8,fab13);
Hi4 = IIf (fab13<fab8,fab8,fab13);
PlotOHLC(Lo4,Hi4,Lo4,Hi4,"",Color_fab13, styleNoLabel | styleCloud);

Lo5 = IIf (fab8>fab5,fab5,fab8);
Hi5 = IIf (fab8<fab5,fab5,fab8);
PlotOHLC(Lo5,Hi5,Lo5,Hi5,"",Color_fab8, styleNoLabel | styleCloud);

_SECTION_END();




Title = EncodeColor(colorWhite)+ "LINKON'S DAY TRADING SYSTEM" + " - " +  Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
 "  - " + Date() +" - "+"Op-"+O+"  "+"Hi-"+H+"  "+"Lo-"+L+"  "+ "Cl-"+C+"  "
+ "\n"
+ "Vol= "+ WriteVal(V) +WriteIf ( V > MA(V,26) ,EncodeColor(colorGreen)+"  UP "+ (V/MA(V,26))*100 + " %", EncodeColor(colorRed)+"  DOWN "+ (V/MA(V,26))*100 + " %")
+ EncodeColor(colorGreen)+   "\n Pivot High : "+ EncodeColor(colorWhite)+PH
+EncodeColor(colorGreen)+ "  Place LONG    Trigger at :"
+EncodeColor(colorWhite)+ WriteIf(MA (H, 25) > EMA(C, 89), WriteVal(MA(H,25)),WriteVal(EMA(C,89))) 
+ EncodeColor(colorGreen)+ "   Trailing SL of :"+ EncodeColor(colorWhite)+EMA(L,25) 

+ EncodeColor(colorRed)+ "\n Pivot  Low : "+EncodeColor(colorWhite)+PL+EncodeColor(colorRed)+"  Place SHORT Trigger at :"+ EncodeColor(colorWhite)+WriteIf(MA (L, 25) < EMA(C, 89), WriteVal(MA(L,25)),WriteVal(EMA(C,89))) + EncodeColor(colorRed)+"   Training SL of :"+ EncodeColor(colorWhite)+EMA (H,25)
;

6 comments

1. sd_stocks

Nice AFL… Thanks ecki.

sd

2. shariful

good job

3. prabhakar

THANKS
GOOD ONE

4. Kabir

Thanks for Sharing

5. ravinderg911

not showing BUY sell signal

6. systemtrader

too many signals being generated, a lot of whipsaws, not good linkon sir

Leave Comment

Please login here to leave a comment.

Back