عرض مشاركة مفردة
  رقم المشاركة : [ 6  ]
قديم 23-11-2013, 04:19 PM
الأمير
عضو فعال
الصورة الشخصية لـ الأمير
رقم العضوية : 1555
تاريخ التسجيل : 1 / 6 / 2007
عدد المشاركات : 192
قوة السمعة : 17

الأمير بدأ يبرز
غير متواجد
 
الافتراضي
معادلة لمؤشر برسلي للشموع نسخة اخيرة

ستظهر الاشارات الصحيحة عن طريق السهم في اي مكان

تجنبنا الاشارات الاتوماتيكية عند ظهور السهم الابيض تكون الشروط مكتملة

تم تزويد المؤشر ببحث ممكن عمل بحث

الاشارات هنا ثابتة ولاتتغير وظاهرة ولا تتغير بالضغط على اي شمعة والبحث موجود وثابت

المعادلة

SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
numbars = SelectedValue(Cum(Status("barvisible")));
fraction= IIf(StrRight(Name(),3) == "",3.2,3.2);
PlotText("" + WriteVal(C,fraction),
SelectedValue(BarIndex()+1)-(numbars/-50),SelectedValue(C),11);
_SECTION_END();
_SECTION_BEGIN("MotheCandle");
y0 = StrToNum(NumToStr(ValueWhen(L, Ref(L,-2))));
TDL = LineArray(0, y0, (BarCount-1), y0);
Plot(IIf(TDL,TDL,Null), "",colorGold, styleLine);
y0 = StrToNum(NumToStr(ValueWhen(H, Ref(H,-2))));
TDH= LineArray(0, y0,(BarCount-1), y0);
Plot(IIf(TDH,TDH,Null), "",colorCustom12, styleLine);
numbars = SelectedValue(Cum(Status("barvisible")));
fraction= IIf(StrRight(Name(),3) == "",3.2,3.2);
PlotText("" + WriteVal(C,fraction),
SelectedValue(BarIndex()+1)-(numbars/-50),SelectedValue(C),2);
PlotText("" + WriteVal(TDH,fraction),
SelectedValue(BarIndex()+1)-(numbars/-50),SelectedValue(TDH),11);
PlotText("" + WriteVal(TDL,fraction),
SelectedValue(BarIndex()+1)-(numbars/-50),SelectedValue(TDL),4);
_SECTION_END();
_SECTION_END();
Cond1=Cross(C,Ref(H,-2));
Cond2=Ref(C,-3)<Ref(O,-3);
Cond3=Ref(C,-2)<Ref(O,-2)AND Ref(C,-2)<Ref(C,-3)AND Ref(H,-2)<Ref(H,-3)AND Ref(L,-2)<Ref(L,-3);
Cond4=Ref(L,-1)>=Ref(L,-2) AND Ref(C,-1)<Ref(H,-2);Buy=Cond1 AND Cond2 AND Cond3 AND Cond4;
PlotShapes(IIf(Buy,shapeSmallUpTriangle,shapeNone) ,colorWhite,0,L,-12);
_SECTION_BEGIN("Exploration");Filter=Close;
AddColumn(Buy,"Brosly Candle",1.4,colorBlue);
_SECTION_END();
_SECTION_BEGIN("AuthorName");
k = (GetPerformanceCounter()/100)%100;
printf("GetPerformance Counter %g",k);
GfxSelectFont("jokerman", 14,800);
GfxSetBkMode(1);
GfxSetTextColor(colorWhite);
GfxTextOut("Brosly Candle System",-10+k,20);
RequestTimedRefresh(10);
_SECTION_END();


توقيع الأمير
[youtube]http://www.youtube.com/watch?v=wRD6AM_7TVk[/youtube]