Rmo atm

#1
Hi

I am using AmiBroker 5.2 and as well as Meta Stock 10 Pro
I have RMO up and running in both software

But there is a update version of RMO which is called RMO ATM trading system consisting of 6 indicators and 4 templates, I though the new RMO ATM would be in MetaStock 10 but its not ..

Any one know where to get them or how to install them... Metastock plugins or AmiBroker AFL code either one would be fine

Thanks in advance .. Please help ...
 
#3
//RMO
//1st look that a buy arrow have appeared. its 1st condition.
//2nd look if bar is blue. Say next bar is blue. Now,
//3rd Now wait for riboon to appear blue. when its happens too. take that bars High as Buy stop. means once this High is crossed Buy trigred
_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 Exit Swing
//using RMO ,when u enter a trade,and its profitable, rahul suggest to use exit swing signal,to exit at least partially from the trade,when exit swing leaves 75.

periods = Param( "Periods", 5, 1, 200, 1 );
Ksmooth = Param( "%K avg", 2, 1, 200, 1 );
Dsmooth = Param( "%D avg", 1, 1, 200, 1 );

Plot( StochD(periods,ksmooth,dsmooth), "EXIT SWING SIGNAL", ParamColor( "Color", colorDarkBlue ), ParamStyle("Style" , styleHistogram + styleThick, maskHistogram ) );
Plot(80,"", ParamColor("UP-LINECOLOR", colorBlue),ParamStyle("UPLINESTYLE", styleThick));
Plot(25,"", ParamColor("DN-LINECOLOR", colorRed),ParamStyle("DN-LINESTYLE", styleThick));


//RMO EXPLORATIONS - INTRADAY
_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);
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);
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)));
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();




//Code Source: http://www.stockmeetingplace.com/forum/viewthread.php?tid=1455
//AFL Coding: Mubashar Virk, [email protected]


//Indicators

ST1 = 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));


Plot( ST1, "SwingTrade-1", 3, styleThick);
ST2= EMA( ST1,30);
Plot( ST2, "SwingTrade-2",colorRed, styleThick);
ST3= EMA( ST2,30);
Plot(ST3, "SwingTrade-3", colorBlue, styleThick);


//System Section

Buy = Cross(ST2,ST3); //AND ST2 > 0; (you may or may not wish to include final argument in the line)
Sell = Cross(ST3,ST2); //AND EMA (ST1,81) < 0; (you may or may not wish to include final argument in the line)

//Eploration Section

//Bullish Trend
BT= EMA( ST1,81) > 0;

//BearishTrend
Brt=EMA( ST1,81) <0;

T_status= WriteIf(BT, "Bulllish", WriteIf(Brt, "Bearish", "Neutral"));

// Set the background color for Impulse Status Column
T_Col=IIf(BT, colorGreen, IIf(Brt, colorRed, colorLightGrey));



Filter = Buy OR Sell;
AddColumn (Buy, "Buy", 1);
AddColumn (Sell, "Sell", 1);
AddColumn (C, "Close", 1.2);
AddColumn (V, "Volume", 1);
AddTextColumn(T_Status, "Trend Status", 1, colorWhite, T_Col);
 
#5
thank u for posting the code it seems interesting i am posting a eod chart of neyveli lignite
i want to know weather my chart interperation is correct in the above chart

buy signal is given on 16 th marked with white arrow when it crosses previous blue bar and ribbon is green

am i right it not plz correct me

is sell signal exactly reverse of conditions laid down for buy
then wht abt the exit if price move in our trend

thank u guys i am learnig lot of things from this traderji forum
 
Last edited:
#6
//RMO
//1st look that a buy arrow have appeared. its 1st condition.
//2nd look if bar is blue. Say next bar is blue. Now,
//3rd Now wait for riboon to appear blue. when its happens too. take that bars High as Buy stop. means once this High is crossed Buy trigred
_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 Exit Swing
//using RMO ,when u enter a trade,and its profitable, rahul suggest to use exit swing signal,to exit at least partially from the trade,when exit swing leaves 75.

periods = Param( "Periods", 5, 1, 200, 1 );
Ksmooth = Param( "%K avg", 2, 1, 200, 1 );
Dsmooth = Param( "%D avg", 1, 1, 200, 1 );

Plot( StochD(periods,ksmooth,dsmooth), "EXIT SWING SIGNAL", ParamColor( "Color", colorDarkBlue ), ParamStyle("Style" , styleHistogram + styleThick, maskHistogram ) );
Plot(80,"", ParamColor("UP-LINECOLOR", colorBlue),ParamStyle("UPLINESTYLE", styleThick));
Plot(25,"", ParamColor("DN-LINECOLOR", colorRed),ParamStyle("DN-LINESTYLE", styleThick));


//RMO EXPLORATIONS - INTRADAY
_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);
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);
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)));
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();




//Code Source: http://www.stockmeetingplace.com/forum/viewthread.php?tid=1455
//AFL Coding: Mubashar Virk, [email protected]


//Indicators

ST1 = 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));


Plot( ST1, "SwingTrade-1", 3, styleThick);
ST2= EMA( ST1,30);
Plot( ST2, "SwingTrade-2",colorRed, styleThick);
ST3= EMA( ST2,30);
Plot(ST3, "SwingTrade-3", colorBlue, styleThick);


//System Section

Buy = Cross(ST2,ST3); //AND ST2 > 0; (you may or may not wish to include final argument in the line)
Sell = Cross(ST3,ST2); //AND EMA (ST1,81) < 0; (you may or may not wish to include final argument in the line)

//Eploration Section

//Bullish Trend
BT= EMA( ST1,81) > 0;

//BearishTrend
Brt=EMA( ST1,81) <0;

T_status= WriteIf(BT, "Bulllish", WriteIf(Brt, "Bearish", "Neutral"));

// Set the background color for Impulse Status Column
T_Col=IIf(BT, colorGreen, IIf(Brt, colorRed, colorLightGrey));



Filter = Buy OR Sell;
AddColumn (Buy, "Buy", 1);
AddColumn (Sell, "Sell", 1);
AddColumn (C, "Close", 1.2);
AddColumn (V, "Volume", 1);
AddTextColumn(T_Status, "Trend Status", 1, colorWhite, T_Col);


sir, first i like to tell thanks for u r rmo, but now new rmo atm is new indicator which is now more popular, link for video http://forum.equis.com/Training/Online Demo/RMO ATM Demo/RMO_ATM_DEMO.htm and i need this afl for amibroker sir
regards
magesh
 
#8
thank u for posting the code it seems interesting i am posting a eod chart of neyveli lignite
i want to know weather my chart interperation is correct in the above chart

buy signal is given on 16 th marked with white arrow when it crosses previous blue bar and ribbon is green

am i right it not plz correct me

is sell signal exactly reverse of conditions laid down for buy
then wht abt the exit if price move in our trend

thank u guys i am learnig lot of things from this traderji forum
i dont know if its just me, but did you hide swingtrade 1-3?
my chart looks really busy, with a bunch of lines
 
#9
Hai, recently equis released version 11 metastock. RMO ATM is not included in the metastock 11 also. it comes as a add-on package. it vl cost you almost Rs. 49,000/- per year. I attended rahul's technical workshop and it seems to be a nice one. He told that out of 235 test cases only 4 failed. If any one have rmo plugin, they r welcome .
 

Similar threads