مركز السوق السعودي

مركز السوق السعودي (https://mrkazksa.com/vb/index.php)
-   مركز التحليل الفني والاساسي (https://mrkazksa.com/vb/forumdisplay.php?f=3)
-   -   لمحبي الايمي بروكر (https://mrkazksa.com/vb/showthread.php?t=9689)

الرجل المستحيل 14-11-2011 10:24 PM

لمحبي الايمي بروكر
 
هدية متواضعه
المؤشر مركب من الهستوقرام (ماكد) + adx + مؤشر المختصر الزقزاق اخذنا الاشارات التي تدل على القمم والقيعان واضفناها على المؤشر ------------------------
_SECTION_BEGIN("Unnamed 2");
//Trend Following Systems DO NOT work when ADX is Below 20 - Tech Analysis A-Z; page 120

P1 = Param("Period",9,0,100,1);

MyPDI= PDI(P1);//Positive Directional Indicator

MyMDI= MDI(P1);//Negative Directional Indicator (Minus)

MyADX= ADX(P1);//Average Directional Movement Index

//Green ADX Line=Rising; Red ADX Line=Falling

col = IIf( MyADX > Ref( MyADX, -1 ), colorCustom12, colorCustom11 );



Title=Name()+ " " + Date() + " Price: " + C + EncodeColor(colorIndigo) +" ADX" + WriteVal( MyADX )+ EncodeColor(colorWhite) + " +DMI" + WriteVal( MyPDI )+ EncodeColor(colorBlue) + " -DMI" + WriteVal( MyMDI );

_SECTION_END();
Buy=Cross( MyPDI , MyMDI );
Sell=Cross( MyMDI, MyPDI );
PlotShapes(IIf(Buy,shapeCircle,shapeNone) ,colorGreen);
PlotShapes(IIf(Buy,shapeSmallCircle,shapeNone) ,colorWhite);
PlotShapes(IIf(Sell,shapeCircle,shapeNone) ,colorWhite);
PlotShapes(IIf(Sell,shapeSmallCircle,shapeNone),co lorRed);
Plot(Buy,"",colorBrightGreen,styleLine|styleHistog ram|styleOwnScale);
Plot(Sell,"",colorRed,styleLine|styleHistogram|sty leOwnScale);

_SECTION_BEGIN("Background");
SetChartOptions(0,chartShowArrows|chartShowDates);
priceTitle=StrFormat("---- {{NAME}} ---------- {{VALUES}}");
Title ="Averages" + priceTitle;

if( ParamToggle("Tooltip shows", "All Values|Only Prices" ) )
{
ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));
}

SetChartBkColor(ParamColor("Outer panel color ",colorBlack)); // color of outer border
SetChartBkGradientFill( ParamColor("Inner panel color upper half",colorBlack),ParamColor("Inner panel color lower half",colorBlack)); // color of inner panel
_SECTION_END();

_SECTION_BEGIN("ADX with multiple Timeframe");
range = Param("Periods", 14, 2, 200, 1 );
p = ParamList("Timeframe", "5 Minute|15 Minute|Hourly|Daily|Weekly|Monthly", 3);
switch (p) {
case "5 Minute": tf = in5Minute; break;
case "15 Minute": tf = in15Minute; break;
case "Hourly": tf = inHourly; break;
case "Daily": tf = inDaily; break;
case "Weekly": tf = inWeekly; break;
case "Monthly": tf = inMonthly; break;
default: tf = inDaily; break;
}

TimeFrameSet(tf);
adxVal = ADX(range);
pdiVal = PDI(range);
mdiVal = MDI(range);
TimeFrameRestore();
BarColor = IIf((TimeFrameExpand(adxVal, tf)>Ref(TimeFrameExpand(adxVal, tf),-1)),colorBrightGreen,colorRed);
Plot(TimeFrameExpand(adxVal, tf), "ADX in " ,BarColor,styleDots+styleOwnScale);
r = ADX(range);

_SECTION_END();


_SECTION_BEGIN("MACD");
ml = MACD(14, 26);
dd= Signal(14,26,9);
Hist=ml-dd;

Plot(MA((ml-dd),1) ,"",2,styleLine+styleDots);
col_hist= IIf(Hist > BBandTop( Hist, 5, 0.5 ),colorLightBlue,IIf(Hist < BBandBot( Hist, 5, 0.5 ),colorBlue,colorRed));

pr=PeakBars(C,5)==0;
ps =TroughBars(C,5)==0;

Plot(pr,"",colorCustom12,styleDashed|styleHistogra m|styleOwnScale);
Plot(ps,"",colorCustom11,styleDashed|styleHistogra m|styleOwnScale);
rf=ValueWhen(pr,C);
sf=ValueWhen(ps,C);

rf1 = IIf(rf AND BarsSince(pr) <=C,rf,Null);

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(),11) == "",3.2,3.2);
hts = Param ("Text Shift", -50,-100,100,10);
PlotText(">>>" + WriteVal(ml,fraction),
SelectedValue(BarIndex())-(numbars/hts),SelectedValue(ml),2);
SetChartBkColor( ParamColor("background",colorBlack));
Plot (Hist,"",col_hist, styleHistogram+styleNoLabel);


_SECTION_END();

طير بيروت 19-11-2011 12:47 PM

رد: لمحبي الايمي بروكر
 
مشكوووووور والله يعطيك الف عافيه

عزام1433 29-11-2011 06:09 PM

رد: لمحبي الايمي بروكر
 
بارك الله فيك

السر وينه 30-11-2011 02:47 AM

رد: لمحبي الايمي بروكر
 
حسبنا الله سيؤتينا الله من فصله إنا إلى الله راغبون

Hanan 02-12-2011 12:23 AM

رد: لمحبي الايمي بروكر
 
جزاك الله خير

M7tar M3k 14-12-2011 11:32 PM

رد: لمحبي الايمي بروكر
 
مشكوووووور والله يعطيك الف عافيه

الكـايد 28-12-2011 12:06 PM

رد: لمحبي الايمي بروكر
 
مؤشر رائع بارك الله فيك أخوي

THE LORD KSA 28-12-2011 01:04 PM

رد: لمحبي الايمي بروكر
 
اقتباس:

المشاركة الأصلية كتبت بواسطة الرجل المستحيل (المشاركة 406425)
هدية متواضعه
المؤشر مركب من الهستوقرام (ماكد) + adx + مؤشر المختصر الزقزاق اخذنا الاشارات التي تدل على القمم والقيعان واضفناها على المؤشر ------------------------
_SECTION_BEGIN("Unnamed 2");
//Trend Following Systems DO NOT work when ADX is Below 20 - Tech Analysis A-Z; page 120

P1 = Param("Period",9,0,100,1);

MyPDI= PDI(P1);//Positive Directional Indicator

MyMDI= MDI(P1);//Negative Directional Indicator (Minus)

MyADX= ADX(P1);//Average Directional Movement Index

//Green ADX Line=Rising; Red ADX Line=Falling

col = IIf( MyADX > Ref( MyADX, -1 ), colorCustom12, colorCustom11 );



Title=Name()+ " " + Date() + " Price: " + C + EncodeColor(colorIndigo) +" ADX" + WriteVal( MyADX )+ EncodeColor(colorWhite) + " +DMI" + WriteVal( MyPDI )+ EncodeColor(colorBlue) + " -DMI" + WriteVal( MyMDI );

_SECTION_END();
Buy=Cross( MyPDI , MyMDI );
Sell=Cross( MyMDI, MyPDI );
PlotShapes(IIf(Buy,shapeCircle,shapeNone) ,colorGreen);
PlotShapes(IIf(Buy,shapeSmallCircle,shapeNone) ,colorWhite);
PlotShapes(IIf(Sell,shapeCircle,shapeNone) ,colorWhite);
PlotShapes(IIf(Sell,shapeSmallCircle,shapeNone),co lorRed);
Plot(Buy,"",colorBrightGreen,styleLine|styleHistog ram|styleOwnScale);
Plot(Sell,"",colorRed,styleLine|styleHistogram|sty leOwnScale);

_SECTION_BEGIN("Background");
SetChartOptions(0,chartShowArrows|chartShowDates);
priceTitle=StrFormat("---- {{NAME}} ---------- {{VALUES}}");
Title ="Averages" + priceTitle;

if( ParamToggle("Tooltip shows", "All Values|Only Prices" ) )
{
ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));
}

SetChartBkColor(ParamColor("Outer panel color ",colorBlack)); // color of outer border
SetChartBkGradientFill( ParamColor("Inner panel color upper half",colorBlack),ParamColor("Inner panel color lower half",colorBlack)); // color of inner panel
_SECTION_END();

_SECTION_BEGIN("ADX with multiple Timeframe");
range = Param("Periods", 14, 2, 200, 1 );
p = ParamList("Timeframe", "5 Minute|15 Minute|Hourly|Daily|Weekly|Monthly", 3);
switch (p) {
case "5 Minute": tf = in5Minute; break;
case "15 Minute": tf = in15Minute; break;
case "Hourly": tf = inHourly; break;
case "Daily": tf = inDaily; break;
case "Weekly": tf = inWeekly; break;
case "Monthly": tf = inMonthly; break;
default: tf = inDaily; break;
}

TimeFrameSet(tf);
adxVal = ADX(range);
pdiVal = PDI(range);
mdiVal = MDI(range);
TimeFrameRestore();
BarColor = IIf((TimeFrameExpand(adxVal, tf)>Ref(TimeFrameExpand(adxVal, tf),-1)),colorBrightGreen,colorRed);
Plot(TimeFrameExpand(adxVal, tf), "ADX in " ,BarColor,styleDots+styleOwnScale);
r = ADX(range);

_SECTION_END();


_SECTION_BEGIN("MACD");
ml = MACD(14, 26);
dd= Signal(14,26,9);
Hist=ml-dd;

Plot(MA((ml-dd),1) ,"",2,styleLine+styleDots);
col_hist= IIf(Hist > BBandTop( Hist, 5, 0.5 ),colorLightBlue,IIf(Hist < BBandBot( Hist, 5, 0.5 ),colorBlue,colorRed));

pr=PeakBars(C,5)==0;
ps =TroughBars(C,5)==0;

Plot(pr,"",colorCustom12,styleDashed|styleHistogra m|styleOwnScale);
Plot(ps,"",colorCustom11,styleDashed|styleHistogra m|styleOwnScale);
rf=ValueWhen(pr,C);
sf=ValueWhen(ps,C);

rf1 = IIf(rf AND BarsSince(pr) <=C,rf,Null);

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(),11) == "",3.2,3.2);
hts = Param ("Text Shift", -50,-100,100,10);
PlotText(">>>" + WriteVal(ml,fraction),
SelectedValue(BarIndex())-(numbars/hts),SelectedValue(ml),2);
SetChartBkColor( ParamColor("background",colorBlack));
Plot (Hist,"",col_hist, styleHistogram+styleNoLabel);


_SECTION_END();

بارك الله فيك اخي المستحيل وانت من خيرة من يفيد اخوانة بارك الله فيك وننتظر منك المزيد
بس عندي احتجاج بسيط المؤشر للويلث لاب هو للمختصر وهو ليس لة بل موجود اتوماتيكيا في الويلث لاب
فاذا نسبنا مؤشر الويلث لاب الى المختصر فلا باس
ام هذا فهو مؤشر الويلث لاب للزيق زاق وانا حولتة الى لغة الايمي بروكر والمفروض ان ينسب لي لاني بعد توفيق الله انا من حولة الى لغة الايمي بروكر وهو مؤشر الاهداف تحقق بنسبة كبيرة
عموما بارك الله فيك ونشكرك ورائي فيك مجروح

الرجل المستحيل 28-12-2011 05:16 PM

رد: لمحبي الايمي بروكر
 
[QUOTE=THE LORD KSA;551485]بارك الله فيك اخي المستحيل وانت من خيرة من يفيد اخوانة بارك الله فيك وننتظر منك المزيد
بس عندي احتجاج بسيط المؤشر للويلث لاب هو للمختصر وهو ليس لة بل موجود اتوماتيكيا في الويلث لاب
فاذا نسبنا مؤشر الويلث لاب الى المختصر فلا باس
ام هذا فهو مؤشر الويلث لاب للزيق زاق وانا حولتة الى لغة الايمي بروكر والمفروض ان ينسب لي لاني بعد توفيق الله انا من حولة الى لغة الايمي بروكر وهو مؤشر الاهداف تحقق بنسبة كبيرة
عموما بارك الله فيك ونشكرك ورائي فيك مجروح[/Q
والله يابوعبدالعزيز انا ما ادري لمن لكن اذكر ان من طلب المؤشر كان يقول مؤشر المختصر وفعلا للولثي لاب
حقيقة انا اسف والخطأ عن جهل ليس مقصود

امل 147852 19-01-2012 09:56 PM

رد: لمحبي الايمي بروكر
 
بارك الله فيك


الساعة الآن 08:30 PM

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By Almuhajir