عضو مميز
تاريخ التسجيل: Dec 2011
المشاركات: 1,414
| من اهم مؤشرات الويلث لاب تم تحويل معادلتة للايمي بروكر وهو مايسمى بمؤشر المختصر هذا المؤشر من اهم المؤشرات في الويلث لاب وهو خطير ودقيق في تحقيق الاهداف
بتوفيق الله تم تحويلة الى لغة الايمي بروكر من قبل العبد الفقير الى الله
_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 في الكيبورد |