مواضيع مدمجة عن معادلات الأمي بروكر

المشاركة الأصلية كتبت بواسطة منادي_2005

المشاركة الأصلية كتبت بواسطة الرجل المستحيل

المؤشر عباره عن aroon 50 + histogram macd انا ركبتها والنتائج فوق الممتازه
// aroon indicator
// the advisor october-8-2007

_section_begin("aroon");
if( paramtoggle("tooltip shows", "aroon|prices" ) )
{
tooltip=strformat("open: %g\nhigh: %g\nlow: %g\nclose: %g (%.1f%%)\nvolume: "+numtostr( v, 1 ), o, h, l, c, selectedvalue( roc( c, 1 )));
}
aroonswitch = paramtoggle("aroon","on,off");
periods = param("aroon periods", 50, 1, 100, 1 );
_section_end();

_section_begin("aroon_up");
upcolor = paramcolor( "aroon_up color", colorgreen );
upstyle = paramstyle("aroon_up style",stylethick);
_section_end();

_section_begin("aroon_dn");
dncolor = paramcolor( "aroon_dn color", colorred );
dnstyle = paramstyle("aroon_dn style",stylethick);
_section_end();

hhvbarssince = hhvbars(h, periods+1);
llvbarssince = llvbars(l, periods+1);

aroon_up = ((periods - hhvbarssince) / periods) * 100;
aroon_down = ((periods - llvbarssince) / periods) * 100;

plot(iif(aroonswitch,null,aroon_up),"aroon_up",upcolor,upstyle);
plot(iif(aroonswitch,null,aroon_down),"aroon_down",dncolor,dnstyle);

upline = param("upper limit",80,50,100,1);
dnline = param("down limit",20,1,50,1);
plot(upline,"",paramcolor("upper limit color",4),paramstyle("upper limit style",stylenolabel+styledashed ));
plot(dnline,"",paramcolor("down limit color",5),paramstyle("down limit style",stylenolabel+styledashed ));

_section_begin("fill color");
fillswitch = paramtoggle("fill color1","on,off");
r1 = aroon_down;
r2 = aroon_up;
fillcolor = iif( r1 > 50 or r2 < 50, paramcolor("up fill color1", colorrose),paramcolor("down fill color1", colorpalegreen));
if (not fillswitch) plotohlc( r1,r1,50,r1, "", fillcolor, stylenolabel | styleclipminmax, dnline, upline );
if (not fillswitch) plotohlc( r2,r2,50,r2, "", fillcolor, stylenolabel | styleclipminmax, dnline, upline );
_section_end();





// ****************************************************************************** ** ********
// end of code (arron.afl)
// ****************************************************************************** ** ********
/**/
_section_end();

buy=cross(aroon_up,aroon_down);
sell=cross(aroon_down,aroon_up);
plotshapes(iif(buy,shapeuparrow,shapenone) ,colorgreen);
plotshapes(iif(sell,shapedownarrow,shapenone),colorred);


_section_begin("macd");
ml = macd(14, 26);
dd= signal(14,26,9);
hist=ml-dd;
plot(0,"",colorwhite,styleline+stylethick);plot(ml-dd ,"macd histogram",7,stylehistogram+stylethick+styleownscale);
plot(ma((ml-dd),1) ,"",10,styleline+styledots);
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));
_section_end();

ارجوا من الجميع خصوصا من يستفيد من المؤشر ان لا يحرمنا الدعاء

المشاركة الأصلية كتبت بواسطة aasheq albadar

السلام عليكم

ياليت من صاحب هذي الصورة ولا عليه أمر يحط لنا معادلتها هنا ....

وله جزيل الشكر والعرفان


http://e.top4top.net/p_323xy8k40.png

المشاركة الأصلية كتبت بواسطة adel828

ياليت المساعدة بتعديل الخطأ بالمعادلة





_SECTION_BEGIN("TSI");
r = Param( "TSI period 'R':", 7, 1, 100, 1 );
s = Param( "TSI period 'S':", 27, 1, 100, 1 );
u = Param( "TSI period 'U':", 1, 1, 100, 1 );
sig = Param( "Signal period:", 7, 1, 100, 1 );
Mtm = C - Ref ( C, -1 );
AbsMtm = abs ( Mtm );
Num_T = EMA ( EMA( EMA ( Mtm, r ), s ), u );
Den_T = EMA ( EMA( EMA ( AbsMtm, r ), s ), u);
TSI = 100 * Nz ( Num_T / Den_T );
TSIL = 100 * Nz ( Num_T / Den_T );
//Green TSIL Line=Rising; Red TSIL Line=Falling
col = IIf( TSIL > Ref( TSIL, -1 ), colorGreen, colorRed );
Plot( TSIL, "TSI("+r+","+s+","+u+")", col, styleLine | styleThick);
//Green EMA TSI,sig Line=Rising; Red EMA TSI,sig Line=Falling
col = IIf( EMA(TSI,sig) > Ref( EMA(TSI,sig), -1 ), colorGreen, colorRed );
Plot( EMA(TSI,sig), "", col, styleThick);
Histcol= IIf(TSI>0,colorLime,colorRed) ;
Plot( TSI, "", histcol, ParamStyle("Histogram style", styleThick |
styleHistogram | styleNoLabel, maskHistogram ) );
Plot(0,"",ParamColor( "ColorZero", colorBrown ),styleLine);
//Title = "TSI";
_SECTION_END();
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
//FORMULE
Cuptop1= C>BBandTop( C,20,1 ) ;
top1up= BBandTop( C,20,1 )>=Ref(BBandTop( C,20,1 ),-1) ;
top2up= BBandTop( C,20,2 )>=Ref(BBandTop( C,20,2 ),-1) ;
MACDup= MACD()>Signal() ;
Hist= MACD()-Signal() ;
Histup= Hist>Ref(Hist,-1) ;
stochup= StochK()>StochD() ;
stoch80= StochK()<80 br="">MFIup= MFI()>EMA(MFI(),5) AND MFI()>20 ;
ma10up= MA(C,10)>=Ref(MA(C,10),-1) ;
ma20up= MA(C,20)>=Ref(MA(C,20),-1) ;
EMA50up= EMA(C,50)>=Ref(EMA(C,50),-1) ;
Cupma10= C>MA(C,10) ;
Cupma20= C>MA(C,20) ;


cupema50= C>EMA(C,50) ;
Vup50= V>50000 ;
CCIup0= CCI()>0 ;
Cupo= C>O ;
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
mybuy= TSIL > Ref( TSIL, -1 ) AND EMA(TSI,sig) > Ref( EMA(TSI,sig), -1 ) AND TSIL>EMA(TSI,sig) AND
macdup AND ema50up AND mfiup ;
mysell= TSIL < Ref( TSIL, -1 ) AND EMA(TSI,sig) < Ref( EMA(TSI,sig), -1 ) AND TSILBuy = ExRem(myBuy, mysell);
Sell = ExRem(mysell, myBuy);
PlotShapes(IIf(Buy,shapeUpArrow,shapeNone),colorBlue,0);
PlotShapes(IIf(Sell,shapeDownArrow,shapeNone),colorRed,0);