المشاركة الأصلية كتبت بواسطة الرجل المستحيل
 هدية متواضعه
المؤشر مركب من الهستوقرام (ماكد) + 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(); |