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 ....
Commodity Pro for Amibroker (AFL)
Rating:
3 / 5 (Votes 7)
Tags:
trading system, amibroker
This indicator provides best results in mcx base metals scrips especially copper & lead.
Screenshots
Similar Indicators / Formulas
All in One
Submitted
by Nahid over 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
Arvind' System
Submitted
by akdabc over 14 years ago
Miftha remix for dse
Submitted
by coolpace over 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 121 | TimeFrameSet(inDaily);DayHigh = LastValue(H);DayLow = LastValue(L);TimeFrameRestore();Title = Date() + ", Op=" + Open + ", Hi=" + High + ", Lo=" + Low + ", LTP=" + Close + ", Change= " + SelectedValue( ROC( C, 1 ) ) + "%" + "\n Today`s High=" + DayHigh + ", Today`s Low=" + DayLow + " © PRIME SYSTEM" ;prev=AMA2(C,1,0);d=IIf(C>Ref(Max(Max(H,Ref(H,-20)),Max(Ref(H,-10),Ref(H,-15))),-1),Min(Min(L,Ref(L,-20)),Min(Ref(L,-10),Ref(L,-15))),IIf(C<Ref(Min(Min(L,Ref(L,-20)),Min(Ref(L,-10),Ref(L,-15))),-1),Max(Max(H,Ref(H,-20)),Max(Ref(H,-10),Ref(H,-15))),PREV));a=Cross(Close,d);b=Cross(d,Close);state=IIf(BarsSince(a)<BarsSince(b),1,0);s=state>Ref(state,-1);ss=state<Ref(state,-1);sss=state==Ref(state,-1);col=IIf(state == 1 ,51,IIf(state ==0,4,1));Plot(C,"",Col,64);Buy = s;Sell = ss;shape = Buy * shapeUpArrow + Sell * shapeDownArrow;PlotShapes(shape, IIf(Buy,colorGreen,colorRed), 0, IIf(Buy,Low,High));PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-10);PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-20); PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-15); PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, H, Offset=20);PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0,H, Offset=30); PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-25);//WriteIf(s,"EXIT all Short positions\nif trading long positions, enter long Now-\nOR at the market price on tomorrow's Open with stop="+EncodeColor(4)+WriteVal(L+.75*ATR(5),1.4)+" ,","");//WriteIf(ss,"exit all long positions today with a Market On Close (MOC) order\nOR at the market price on tomorrow's Open with stop="+EncodeColor(4)+WriteVal(Ref(H+.75*ATR(5), -1),1.4)+",","");//WriteIf( sss ,"No trading signals today.","") ;dist = 0.8*ATR(10);dist1 = 2*ATR(10);for( i = 0; i < BarCount; i++ ) { if( Buy[i] ) { PlotText( "\nBuy:" + L[ i ] + "\nT= " + (L[i]*1.005) + "\nSL= " + (L[i]*0.9975), i, L[ i ]-dist[i], colorGreen, colorWhite ); } if( Sell[i] ) { PlotText( "Sell:" + H[ i ] + "\nT= " + (H[i]*0.995) + "\nSL= " + (H[i]*1.0025), i, H[ i ]+dist1[i], colorRed, colorWhite ); }}Filter = s OR sss OR sss ;AddColumn(C,"close",1.2);AddColumn( IIf( s, 66,1 ), "buy", formatChar, 1, bkcolor =IIf (s,colorYellow, colorPink ));AddColumn( IIf( Ss, 83,1 ), "sell", formatChar, 1, bkcolor =IIf (Ss,colorPink, colorWhite ));AddColumn( IIf( sss, 87,1 ), "wait", formatChar, 1, bkcolor =IIf (sss,colorYellow, colorRed ));_SECTION_BEGIN("swing1");no=20;res=HHV(H,no);sup=LLV(L,no);avd=IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0));avn=ValueWhen(avd!=0,avd,1);supres=IIf(avn==1,sup,res);a=Cross(C,supres);b=Cross(supres,C);style = a * styleStaircase + b * styleStaircase;PlotShapes(a,style, IIf(a,colorGreen,colorRed), 0, IIf(a,Low,High));Plot(supres,"Swing",colorYellow,styleStaircase);_SECTION_END();_SECTION_BEGIN("trend");uptrend=PDI(20)>MDI(10)AND Signal(29)<MACD(13);downtrend=MDI(10)>PDI(20)AND Signal(29)>MACD(13);Plot( 2, /* defines the height of the ribbon in percent of pane width */"ribbon",IIf( uptrend, colorGreen, IIf( downtrend, colorRed, 0 )), /* choose color */styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );_SECTION_END();Buy = s AND a AND uptrend ;Short = ss AND b AND downtrend ;Sell = ss AND b AND downtrend ;Cover = s AND a AND uptrend ;Buy=ExRem(Buy,Sell);Sell=ExRem(Sell,Buy);Cover=ExRem(Cover,Short);Short=ExRem(Short,Cover);Filter=Buy OR Sell;Filter= Cover OR Short;AddColumn( Buy, "Buy", 1);AddColumn(Sell, "Sell", 1);AddColumn(Close,"Close",1.2);AddColumn(Volume,"Volume",1.0);// Plot the Buy and Sell arrows.shape = Buy * shapeUpArrow + Sell * shapeDownArrow;PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-10);PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-20); PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-15); PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, H, Offset=20);PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0,H, Offset=30); PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-25);//plot volume graph_SECTION_BEGIN("Volume");Plot( Volume, _DEFAULT_NAME(), ParamColor("Color", colorLightGrey ), styleNoTitle | ParamStyle( "Style", styleHistogram | styleOwnScale | styleNoLabel, maskHistogram ), 2 );_SECTION_END();// set background gradient coloursSetChartBkGradientFill( ParamColor("BgTop", ColorRGB( 172,172,172 )),ParamColor("BgBottom", ColorRGB( 102,136,187 )),ParamColor("titleblock",ColorRGB( 255,255,255 ))); GraphXSpace = 5; |
5 comments
Leave Comment
Please login here to leave a comment.
Back
This formula is very good
why it always give sell at high not at current price
This AFL even thogh is good indicator but has not difference with Lemenchus indicator.
anyway thanks
How to use formula? .
Dear sir ,
this afl is good no doubt, but there is something problem in Trailing stoploss, can you fix it. it is showing sometimes sell signal but stoploss showing unexpected result.