My System - My trades.

All the Masters of afl can anyone please send me RSI/obv divergence afl which one you guys use regularly for EOD stocks analysis...Had asked in coding forum but didn't get any :(... Should have asked here it seems :)... Thanks :)
RSI OBV AFL...Not sure what exactly you are asking...
Check if it helps
Code:
_SECTION_BEGIN("rsionobv");
r = RSIa(OBV(),21);

Plot( r, "rsionobv", IIf(r> 50, colorGreen, colorRed), styleLine|styleThick );
Plot(70,"",colorWhite,styleDashed);
Plot(50,"",colorWhite,styleDashed);
Plot(30,"",colorWhite,styleDashed);
_SECTION_END();
 

checkmate7

Well-Known Member
RSI OBV AFL...Not sure what exactly you are asking...
Check if it helps
Code:
_SECTION_BEGIN("rsionobv");
r = RSIa(OBV(),21);

Plot( r, "rsionobv", IIf(r> 50, colorGreen, colorRed), styleLine|styleThick );
Plot(70,"",colorWhite,styleDashed);
Plot(50,"",colorWhite,styleDashed);
Plot(30,"",colorWhite,styleDashed);
_SECTION_END();
Thanks but this is not exactly what I want I need afl which tells RSI divergence aswell as OBV divergence Vs Price for daily analysis on stock :)
 

Ajax

Well-Known Member
Thanks but this is not exactly what I want I need afl which tells RSI divergence aswell as OBV divergence Vs Price for daily analysis on stock :)
this will help >>>>>>

/*BULLISH OBV DIVERGENCE, DD==Dn*/
ST33=OBV();//
TR1=LLVBARS(ST33,4);
TR2=IIF(ST33<Dn AND TR1>0 AND REF(TR1,-1)==0,ref(ST33,-1),0);
TRC=IIF(TR2>0,C,0);
vs=valuewhen(tr2, ref(st33,-1), 1);
dvs=vs-ref(vs,-1);
vc=valuewhen(trc, LLV(c,3), 1);
dvc=vc-ref(vc,-1);
diver=iif(dvs>0 and dvc<0,Dn,0);
DAS=BARSSINCE(REF(TR2,-1)>0);
DDOBV=IIF(DAS<20 AND C>=REF(C,-1),DIVER,0);
STBULLOBV=DDOBV==Dn;

/*BEARISH OBV DIVERGENCE, BDDD==Bn*/
BTR1=HHVBARS(ST33,4);
BTR2=IIF(ST33>70 AND BTR1>0 AND REF(BTR1,-1)==0,ref(ST33,-1),0);
BTRC=IIF(BTR2>0,C,0);
Bvs=valuewhen(Btr2, ref(st33,-1), 1);
Bdvs=Bvs-ref(Bvs,-1);
Bvc=valuewhen(Btrc, HHV(H,3), 1);
Bdvc=Bvc-ref(Bvc,-1);
Bdiver=iif(Bdvs<0 and Bdvc>0,Bn,0);
BDAS=BARSSINCE(REF(BTR2,-1)>0);
BDOBV=IIF(BDAS<20 AND C<=REF(C,-1),BDIVER,0);
STBEAROBV=BDOBV==Bn;
PlotShapes(STBULLOBV*shapehollowcircle , colorbrightgreen, 0,L, Offset=-10);
PlotShapes(STBEAROBV*shapehollowcircle , colorcustom12, 0,H, Offset=10);
 

checkmate7

Well-Known Member
Dn = 30;//Optimize("Dn",30,0,100,10);
Bn = 90;//Optimize("Bn",90,0,100,10);

add this at beginning and play around
Thanks a lot Ajax :)
 

extremist

Well-Known Member
PDR - Previous Day Range

Code:
_SECTION_BEGIN("OBV PD Range");

nd = Day()!=Ref(Day(),-1);   
Ob = OBV();                           
prh = ValueWhen(nd,Ref(HighestSince(nd,ob),-1));
prl =  ValueWhen(nd,Ref(LowestSince(nd,ob),-1));

if( ParamToggle("PD Range ", "No|Yes", 1))   
PlotOHLC(prl,prh,prl,prl,"",colorblack,stylenoreScale|styleNoLabel|styleCloud,0,0,0,-7);

_SECTION_END();
this from my post :
http://www.traderji.com/community/t...or-beginners-only.104279/page-28#post-1224985
 

extremist

Well-Known Member
If a person has a will to find something in the universe he will find it.
This is just Traderji.
and i'm the tiny part of it.
so it would have not been that difficult to find what i have posted.
provided you have will to find it.

To all new starter and for those people who seat back , relax and just ask for something directly serve ready to their plate
i want to tell something; before few years ago i was also like you.
nobody serve ready plate you have to find what you wanted. i understood that.
and started taking efforts.

Just keep the will to find something you will get the way out.
 
Last edited:

Similar threads