عرض مشاركة واحدة
قديم 13-09-2010, 01:43 AM   #7
مفتي الاسهم
عضو هوامير المميز
 
تاريخ التسجيل: Jun 2009
المشاركات: 2,776

رد: خطا في مؤشر موجة الذئب للايمي بروكر من يساعدنا على اصلاحة

اقتباس:
المشاركة الأصلية كتبت بواسطة فـواز العنزي مشاهدة المشاركة
جرب هذا

كود:
_section_begin("wolfe tool");
wolfe=paramtoggle("wolfe","off|on",1);
 
type=paramtoggle("label","price|12345",1);
snap=paramtoggle("snap","yes|no",0);
 
if(wolfe==1)
{
setbarsrequired( -2, -2 );
bi = barindex();
bis = selectedvalue( bi );
 
symbol = name();
tframe = interval();
chartid = getchartid();
xname = "x" + chartid + symbol + tframe;
yname = "y" + chartid + symbol + tframe;
 
leftbutton = getcursormousebuttons() & 1;
a = nz(staticvarget("counter"));
if ( leftbutton )
{
   staticvarset("counter", a+1);
 
     x = getcursorxposition(  );
   y = getcursoryposition(  );
   staticvarset( xname + bis, x );
   staticvarset( yname + bis, y );
 
}
 
 
j = 0;
dt = datetime();
shapeplot = 0;
shapepos = null;
xx = yy = null;
firstvisiblebar = status( "firstvisiblebar" );
lastvisiblebar = status( "lastvisiblebar" );
for ( i = firstvisiblebar; i <lastvisiblebar and i<barcount; i++ )
{
   x = staticvarget( xname + i );
   y = staticvarget( yname + i );
 
   if ( x == dt[i] and snap==0)
   {
       shapeplot[i] = 1;
       shapepos[i] = iif(abs(h[i]-y) < abs(l[i]-y), h[i], l[i]);
       xx[j] = i;
       yy[j] = iif(abs(h[i]-y) < abs(l[i]-y), h[i], l[i]);
       j++;
   }
    else if ( x == dt[i] and snap==1)
   {
       shapeplot[i] = 1;
       shapepos[i] = y;
       xx[j] = i;
       yy[j] = y;
       j++;
   }
 
}
 
 
 
shape = shapesmallcircle;
plotshapes( shapeplot*shape, colorred, 0, shapepos, 0 );
values=paramtoggle("segment values","no|yes",0);
vr=paramtoggle("r1","no|yes",1);
 
 
 
for ( i = 1; i <= j ; i++ )
 
{
if(i==1 and type==1)
{
plottext("1 ",xx[i-1]-2,yy[i-1],colorblue,colorlightgrey);
}
if(i==2 and type==1)
{
plottext("2 ",xx[i-1]-2,yy[i-1],colorblue,colorlightgrey);
}
if(i==3 and type==1)
{
plottext("3 ",xx[i-1]-2,yy[i-1],colorblue,colorlightgrey);
}
if(i==4 and type==1)
{
plottext("4 ",xx[i-1]+2,yy[i-1],colorblue,colorlightgrey);
}
if(i==5 and type==1)
{
plottext("5 ",xx[i-1]+2,yy[i-1],colorblue,colorlightgrey);
}
 
 
if(type==0)
{
plottext(""+yy[i-1],xx[i-1]+2,yy[i-1],colorwhite);
}
 
 
plot( linearray( xx[i-1], yy[i-1], xx[i], yy[i] ), "", coloryellow, styleline|stylethick|stylenorescale );
xa=yy[i]-yy[i-1];
ab=yy[i]-yy[i+1];
ad=yy[i]-yy[i+3];
bc=yy[i+1]-yy[i+2];
cd=yy[i+2]-yy[i+3];
r=cd/xa;
r2=ab/xa;
r3=xa/bc;
 
if(i==4){
epa=linearray(xx[i-4],yy[i-4],xx[i-1],yy[i-1],1);
plot(epa,"",colorred,stylethick|stylenorescale);
}
 
if(i==3){
epa=linearray(xx[i-3],yy[i-3],xx[i-1],yy[i-1],1);
plot(epa,"",colorblue,stylethick|stylenorescale);
}
 
if(i==4){
epa=linearray(xx[i-3],yy[i-3],xx[i-1],yy[i-1],1);
plot(epa,"",colorblue,stylethick|stylenorescale);
}
 
 
 
 
if(vr==1 and i<4)
{
plottext(""+prec(abs(r2), 2 )+" ("+(abs(xx[i-1]-xx[i+1]))+")",xx[i-1]+int((xx[i+1]-xx[i-1])/2),yy[i-1]+((yy[i+1]-yy[i-1])/2),colorblue,colorlightgrey);
//plot( linearray( xx[i-1], yy[i-1], xx[i+1], yy[i+1] ), "", colorblue, styledashed );
}
 
if(values==1)
{
plottext(""+prec(abs(xa), 2 ),xx[i-1]+int((xx[i]-xx[i-1])/2),yy[i-1]+xa/2,colorblue);
}
 
}
 
if ( getcursormousebuttons() == 12 )
{
 
for ( i = 0; i < barcount; i++ )
 
   {
       staticvarremove("counter");
       staticvarremove( xname + i );
       staticvarremove( yname + i );
     requesttimedrefresh(1,true );
 
    }
}
 
}
_section_end();




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

غفر الله لك
مفتي الاسهم غير متواجد حالياً   رد مع اقتباس