| عضو مميز
تاريخ التسجيل: Dec 2011
المشاركات: 1,414
|  RSI دايفرجنس
مؤشر الدايفرجنس ل RSI وفية الدايفرجنس الظاهر والمخفي
ممكن تغيير البراميتر ولاتنس ان تضع الباراميتر المناسب للحظي والتاريخي حتى تاخذ افضل نتيجة للمؤشر
المؤشر من بنائي ولم اضعة الا في هذا المنتدى ومنتدى اخر
_SECTION_BEGIN("EMA Time Frame");
r= RSI(14);
Plot(r,"",colorBlack,styleDots+styleThick);
Plot( 30 , "", colorDarkRed);
Plot(50, "", colorWhite,styleDashed);
Plot(70, "", colorDarkRed);
numbars = LastValue(Cum(Status("barvisible")));
fraction= IIf(StrRight(Name(),3) == "",3.2,3.2);
hts = Param ("Text Shift", -50,-100,100,10);
PlotText(">>>" + WriteVal(r,fraction),
SelectedValue(BarIndex())-(numbars/hts),SelectedValue(r),1);
PlotText("Bot= " + WriteVal(30,fraction),
SelectedValue(BarIndex()+2)-(numbars/hts),SelectedValue(30),colorDarkRed);
PlotText("Top= " + WriteVal(70,fraction),
SelectedValue(BarIndex()+2)-(numbars/hts),SelectedValue(70),colorDarkRed);
_SECTION_END();
_SECTION_BEGIN("TD Fractl LINE");
Per= Param("Per",1,1,15);
pR=PeakBars(RSI(14),Per)==0;
pivothigh = Ref(pR,-1)<pR AND pR>Ref(pR,1);
y0=SelectedValue(ValueWhen(pivothigh,RSI(14),2));
y1=SelectedValue(ValueWhen(pivothigh,RSI(14),1));
x0=SelectedValue(ValueWhen(pivothigh,Cum( 1)-1,2));
x1=SelectedValue(ValueWhen(pivothigh,Cum( 1)-1,1));
LineA=LineArray(x0,y0,x1,y1,1);
Plot(LineA,"",colorWhite,4+8,styleNoLabel);
_SECTION_END();
_SECTION_BEGIN("TD Fractl LINE");
pS =TroughBars(RSI(14),Per)==0;
pivotlow = Ref(pS,-1)<pS AND pS>Ref(pS,1);
yt0=SelectedValue(ValueWhen(pivotlow,RSI(14),2));
yt1=SelectedValue(ValueWhen(pivotlow,RSI(14),1));
xt0=SelectedValue(ValueWhen(pivotlow,Cum( 1)-1,2));
xt1=SelectedValue(ValueWhen(pivotlow,Cum( 1)-1,1));
LineB=LineArray(xt0,yt0,xt1,yt1,1);
Plot(LineB,"",colorWhite,4+8,styleNoLabel);
_SECTION_END();
_SECTION_BEGIN("DIV");
u00=LastValue(Peak(r,Per,2));
u11=LastValue(Peak(r,Per,1));
a00=BarCount - 1 - LastValue(PeakBars(r,Per,2));
price_start1=Close[a00];
a11=BarCount - 1 - LastValue(PeakBars(r,Per,1));
price_end1=Close[a11];
Line = LineArray(a00,u00,a11,u11, 0 );
LastPointSell = LineArray(a11-1,u11-1,a11,u11,0);
Plot( LineA, "Resistance line",colorBlack);
GG1=u11<=u00 AND price_end1>price_start1;
GG2=price_end1<=price_start1 AND u11>u00;
GG=GG1 OR GG2;
PlotShapes(shapeSmallCircle*GG ,colorDarkRed,0,Line,10);
PlotShapes(shapeDownTriangle*GG,colorDarkRed,0,Las tPointSell);
_SECTION_END();
_SECTION_BEGIN("DIV");
u0=LastValue(Trough(r,Per,2));
u1=LastValue(Trough(r,Per,1));
a0=BarCount - 1 - LastValue(TroughBars(r,Per,2));
price_start=Close[a0];
a1=BarCount - 1 - LastValue(TroughBars(r,Per,1));
price_end=Close[a1];
Line = LineArray(a0,u0,a1,u1, 0 );
Plot( LineB, "Support line", colorWhite);
TT1=u1>=u0 AND price_end<price_start;
TT2=price_end>=price_start AND u1<u0;
TT=TT1 OR TT2;
LastPointBuy = LineArray(a1-1,u1-1,a1,u1,0);
PlotShapes(shapeSmallCircle*TT,colorDarkRed,0,Line );
PlotShapes(shapeUpTriangle*TT,colorDarkRed,0,LastP ointBuy);
_SECTION_END();
 |