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 ....
RMO with ADX for Amibroker (AFL)
Copy & Paste Friendly
Back
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 | //Here is RMO code & Exploration i'm using successfully for last few//months on 5Min. bars for single stock futures of indian NSE._SECTION_BEGIN( "RMO");SwingTrd1 = 100 * (Close - ((MA(C,2)+MA(MA(C,2),2) +MA(MA(MA(C,2) ,2),2) +MA(MA(MA(MA( C,2),2),2) ,2) +MA(MA(MA(MA( MA(C,2),2) ,2),2),2) +MA(MA(MA(MA( MA(MA(C,2) ,2),2),2) ,2),2) +MA(MA(MA(MA( MA(MA(MA( C,2),2),2) ,2),2),2) ,2)+MA(MA(MA(MA( MA(MA(MA( MA(C,2),2) ,2),2),2) ,2),2),2) +MA(MA(MA(MA( MA(MA(MA( MA(MA(C,2) ,2),2),2) ,2),2),2) , 2),2)+MA(MA(MA(MA( MA(MA(MA( MA(MA(MA( C,2),2),2) ,2),2),2) , 2),2),2),2))/10))/(HHV(C, 10)-LLV(C, 10));SwingTrd2=EMA(SwingTrd1, 30);SwingTrd3=EMA(SwingTrd2, 30);RMO= EMA(SwingTrd1, 81);Buy=Cross(SwingTrd2 ,SwingTrd3) ;Sell=Cross(SwingTrd3,SwingTrd2) ;Bull_Trend=EMA( SwingTrd1, 81)>0;Bear_Trend=EMA( SwingTrd1, 81)<0;Ribbon_kol=IIf( Bull_Trend, colorGreen, IIf(Bear_Trend, colorRed,colorBlack)) ;Plot(4, "ribbon", Ribbon_kol, styleOwnScale| styleArea| styleNoLabel,-0.5,100);Impulse_UP= EMA(SwingTrd1, 30) > 0;Impulse_Down= EMA(SwingTrd1, 81) < 0;bar_kol=IIf( impulse_UP, colorBlue, IIf(impulse_Down,colorRed,IIf( Bull_Trend, colorRed, colorBlue))) ;Plot(Close," Close",bar_kol,styleBar | styleThick );shape = Buy * shapeUpArrow + Sell * shapeDownArrow;//PlotShapes( shape, IIf( Buy, colorBlue, colorRed ),0, IIf( Buy, Low,High ) );_SECTION_END( );//RMO EXPLORATIONS - INTRADAY_SECTION_BEGIN( "RMO");range = Param("Periods", 14, 2, 200, 1 );//Plot( ADX(range), _DEFAULT_NAME(), ParamColor( "ADX color", colorBlue ), ParamStyle("ADX style", styleThick ) );//Plot( PDI(range), "+DI", ParamColor( "+DI color", colorGreen ), ParamStyle("+DI style") );//Plot( MDI(range), "-DI", ParamColor( "-DI color", colorRed ), ParamStyle("-DI style") );WR_VALUE = -100 * ( HHV( H, range) - C )/( HHV( H, range ) - LLV( L, range ) );ADX_VALUE=ADX(range);PDI_VALUE = PDI(range);MDI_VALUE=MDI(range);New_Bullish = IIf(RMO > 0 AND Ref(RMO, -1) <= 0,1,0);New_Bearish = IIf(RMO < 0 AND Ref(RMO, -1) >= 0,1,0);New_Buy_Arrow = IIf(Cross(SwingTrd2 ,SwingTrd3) ,1,0) AND RMO >0;New_Sell_Arrow = IIf(Cross(SwingTrd3 ,SwingTrd2) ,1,0) AND RMO <0;New_Blue_Bar = IIf(Cross(SwingTrd2 ,0),1,0) AND RMO >0;New_Red_Bar = IIf(Cross(0, SwingTrd2) ,1,0) AND RMO <0;Old_Bullish = IIf(RMO > 0 AND Ref(RMO, -1) > 0,1,0);Old_Bearish = IIf(RMO < 0 AND Ref(RMO, -1) < 0,1,0);New_Buy_Bar = IIf(Ref(New_Buy_Arrow, -1) AND C > Ref(H,-1), 1, 0);New_Sell_Bar = IIf(Ref(New_Sell_Arrow, -1) AND C < Ref(L,-1), 1, 0);P_Buy = (Ref(RMO,-1) > 0) AND (Ref(New_Blue_Bar,-1) > 0);P_Sell= (Ref(RMO,-1) < 0) AND (Ref(New_Red_Bar,-1) > 0);CBR = RMO;CBS2= SwingTrd2;CBS3= SwingTrd3;PBR = Ref(RMO,-1);PBS2= Ref(SwingTrd2, -1);PBS3= Ref(SwingTrd3, -1);New3CBuy = ((CBR > 0) AND (CBS2 >0) AND (CBS2 > CBS3) AND ((PBR <= 0)AND (PBS2 <=0) AND (PBS2 <= PBS3)));New3CSell= ((CBR < 0) AND (CBS2 <0) AND (CBS2 < CBS3) AND ((PBR >= 0)AND (PBS2 >=0) AND (PBS2 >= PBS3)));New_Arrow_New_Bar_Buy = ((CBR > 0) AND (CBS2 >0) AND (CBS2 > CBS3) AND((PBS2 <=0) AND (PBS2 <= PBS3)));New_Arrow_New_Bar_Sell= ((CBR < 0) AND (CBS2 <0) AND (CBS2 < CBS3) AND((PBS2 >=0) AND (PBS2 >= PBS3)));B1=New_Buy_Bar;S1=New_Sell_Bar;B2=New3CBuy;S2=New3CSell;B3=New_Buy_Arrow;S3=New_Sell_Arrow;B4=New_Buy_Arrow;S4=New_Sell_Arrow;B5=New_Blue_Bar;S5=New_Red_Bar;B6=New_Bullish;S6=New_Bearish;Buy= (B1 OR B2 OR B3 OR B4 OR B5 OR B6) ;Sell= (S1 OR S2 OR S3 OR S4 OR S5 OR S6);shape = Buy * shapeUpArrow + Sell * shapeDownArrow;PlotShapes( shape, IIf( Buy, colorBlue, colorRed ),0, IIf( Buy, Low,High ) );Filter=Buy OR Sell;SetOption("NoDefaultColumns" , True );AddTextColumn( Name(),"Security ",1.2, colorDefault, colorDefault, 90);AddColumn( DateTime(), "Date", formatDateTime,colorDefault, colorDefault, 100);AddColumn(IIf( B1,66,IIf( S1,83,32) ),"New Trade Bar", formatChar, colorWhite, bkcolor =IIf(B1, colorGreen,IIf( S1,colorRed, colorDefault) ));AddColumn(IIf( B2,66,IIf( S2,83,32) ),"New3C" , formatChar, colorWhite,bkcolor =IIf(B2, colorGreen,IIf( S2,colorRed, colorDefault) ));AddColumn(IIf( B3,66,IIf( S3,83,32) ),"New Arrow+Bar", formatChar,colorWhite, bkcolor =IIf(B3, colorGreen,IIf( S3,colorRed, colorDefault) ));AddColumn(IIf( B4,66,IIf( S4,83,32) ),"New Arrow", formatChar,colorWhite, bkcolor =IIf(B4, colorGreen,IIf( S4,colorRed, colorDefault) ));AddColumn(IIf( B5,66,IIf( S5,83,32) ),"New Bar", formatChar, colorWhite,bkcolor =IIf(B5, colorGreen,IIf( S5,colorRed, colorDefault) ));AddColumn(IIf( B6,66,IIf( S6,83,32) ),"New RMO", formatChar, colorWhite,bkcolor =IIf(B6, colorGreen,IIf( S6,colorRed, colorDefault) ));AddColumn(ADX_VALUE,"ADX");AddColumn(WR_VALUE,"Williams");//bkcolor =IIf(B6, colorGreen,IIf( S6,colorRed, colorDefault) ));//AlertIf( Buy, "SOUND C:\\Windows\ \Media\\chimes. wav", "Audio alert", 1, 1+8 );//AlertIf( Sell, "SOUND C:\\Windows\ \Media\\ding. wav", "Audio alert", 2,1+8 );_SECTION_END( ); |