مركز السوق السعودي - من اهم مؤشرات الويلث لاب تم تحويل معادلتة للايمي بروكر وهو مايسمى بمؤشر المختصر

مركز السوق السعودي (https://mrkazksa.com/vb/index.php)

- مركز التحليل الفني والاساسي (https://mrkazksa.com/vb/forumdisplay.php?f=3)

من اهم مؤشرات الويلث لاب تم تحويل معادلتة للايمي بروكر وهو مايسمى بمؤشر المختصر

هذا المؤشر من اهم المؤشرات في الويلث لاب وهو خطير ودقيق في تحقيق الاهداف
بتوفيق الله تم تحويلة الى لغة الايمي بروكر من قبل العبد الفقير الى الله

_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
Plot( Open, "Open", 0, styleHidden );
Plot(Close, "Close", 0, styleHidden );
Plot(High, "High", 0, styleHidden );
Plot(Low, "Low", 0, styleHidden );
_SECTION_END();

_SECTION_BEGIN("ZZT");
Para = ParamToggle("plot zz0","Off,On");
cbar = Param("cbar",4,2,50,1);
per = Param("per",5,1,30,1);
zz0 = Zig(C,per);
zz1 = Ref( zz0, -1 );
zz2 = Ref( zz0, -2 );
tr = ValueWhen(zz0 > zz1 AND zz1 < zz2, zz1);
pk = ValueWhen(zz0 < zz1 AND zz1 > zz2, zz1);
PU = tr + 0.01 * abs(tr)*per;
PD = pk - 0.01 * abs(pk)*per;
ZZT = IIf(C>= PU AND zz0 > zz1, 1,
IIf(C<= PD AND zz0 < zz1, -1, 0 ) );
ZZT= ValueWhen( ZZT != 0, ZZT );
ColorP2= IIf((C>O)OR(C<O),colorWhite,colorYellow);
Plot(IIf(Para,zz0,Null)," ",colorWhite,styleLine);
pR=PeakBars(C,5)==0;
pS =TroughBars(C,5)==0;
Plot(pR,"",colorRed,styleArea|styleOwnScale);
Plot(pS,"",colorGreen,styleArea|styleHistogram|sty leOwnScale);
RF=ValueWhen(pR,C);
SF=ValueWhen(pS,C);
RF1 = IIf(RF AND BarsSince(pR) <=cbar,RF,Null);
SF1 = IIf(SF AND BarsSince(pS ) <=cbar,SF,Null);
Plot(RF1,"",colorWhite,styleDots | styleNoLine);
Plot(SF1,"",colorWhite,styleDots | styleNoLine);
Plot(RF,"",colorBlack,40+16);
Plot(SF,"",colorBlack,40+16);
PlotShapes(IIf(pR, shapeSmallSquare,shapeNone),colorYellow,0,C,10);
PlotShapes(shapeSmallCircle*pR,colorBlack,0,C,10);
PlotShapes(IIf(pS, shapeSmallSquare,shapeNone),colorYellow,0,C,-10);
PlotShapes(shapeSmallCircle*pS,colorBlack,0,C,-10);
numbars = SelectedValue(Cum(Status("barvisible")));
fraction= IIf(StrRight(Name(),3) == "",3.2,3.2);
hts = Param ("Text Shift", -50,-100,100,10);
PlotText(">>>" + WriteVal(C,fraction),
SelectedValue(BarIndex())-(numbars/hts),SelectedValue(C),2);
PlotText("" + WriteVal(RF,fraction),
SelectedValue(BarIndex()+2)-(numbars/hts),SelectedValue(RF),colorCustom12);
PlotText("" + WriteVal(SF,fraction),
SelectedValue(BarIndex()+2)-(numbars/hts),SelectedValue(SF),5);
_SECTION_END();

لوفية اخطا تزال عن طريق مفتاح backspace في الكيبورد
http://img62.imageshack.us/img62/5931/59583212.png