|
Could it possibly be this:
RMO= EMA(SwingTrd1, 81);
this would be my first guess....you are smoothing
the swingtrd1 by 81 periods...
Anthony
----- Original Message -----
Sent: Monday, July 02, 2007 8:39 AM
Subject: [amibroker] RMO for intraday.
EOD afl code attached
hi,
Can ne one help me out. I have attached an afl code
called
"RMO". Well when i explorer on intraday it
didn't select ne stock but on
EOD it works fine. Can
ne one help me out or code this for
intraday?
It will be a great
help
johnny
__________________________________________________________
Boardwalk
for $500? In 2007? Ha! Play Monopoly Here and Now (it's updated for today's
economy) at Yahoo! Games.
http://get.games.yahoo.com/proddesc?gamekey=monopolyherenow
_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");
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( );
---
avast! Antivirus: Inbound message clean.
Virus
Database (VPS): 000753-0, 07/01/2007
Tested on: 7/2/2007 8:41:45
AM
avast! - copyright (c) 1988-2007 ALWIL
Software.
http://www.avast.com
__._,_.___
Please note that this group is for discussion between users only.
To get support from AmiBroker please send an e-mail directly to
SUPPORT {at} amibroker.com
For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
http://www.amibroker.com/devlog/
For other support material please check also:
http://www.amibroker.com/support.html
![]()
SPONSORED LINKS
__,_._,___
|