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 ....
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
LINKON'S DAY TRADING SYSTEM for 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 14 years ago
Kase Peak Osc. V2 batu
Submitted
by batu1453 over 10 years ago
Kase CD V2batu
Submitted
by batu1453 over 10 years ago
Ichimoku
Submitted
by prashantrdx over 10 years ago
buy and sell two EMAS
Submitted
by mundo0007 about 13 years ago
Adaptive Price Zone (APZ)
Submitted
by AndrewThomas about 14 years ago
Indicator / Formula
Copy & Paste Friendly
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 | _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
Leave Comment
Please login here to leave a comment.
Back
Nice AFL… Thanks ecki.
sd
good job
THANKS
GOOD ONE
Thanks for Sharing
not showing BUY sell signal
too many signals being generated, a lot of whipsaws, not good linkon sir