ارجوا اعادة صياغة مؤشر peak & valley

**mohamedfx2005** · 02-04-2018, 02:48 PM

السلام عليكم ورحمة الله

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

وفي بعض الاحيان يقوم باضافة اشارات(نقاط) على الشارت بعد 10 او 20 شمعة

ارجوا ان يتم اخذ طلبي في الحسبان من قبل الاستاذ المبدع فيلسوف البادية او الاستاذ اسامة

ودي واحترامي

**mohamedfx2005** · 03-04-2018, 12:22 AM

ارجوا التعديل او اعادة الصياغة من فضلكم

**فيلسوف البادية** · 03-04-2018, 12:53 AM

عن نفسي اطلعت على الكود اخي,
ليش ماتستخدم الفراكتالز؟؟ افضل وشيء جاهز في الميتا؟؟

**فيلسوف البادية** · 03-04-2018, 12:58 AM

منها عدم القدرة على تغيير لون النقاط

============

**فيلسوف البادية** · 03-04-2018, 01:01 AM

وكذلك عند حذف المؤشر من الشارت تبقى النقاط على الشارت

========

**فيلسوف البادية** · 03-04-2018, 01:06 AM

وفي بعض الاحيان يقوم باضافة اشارات(نقاط) على الشارت بعد 10 او 20 شمعة

=========

**فيلسوف البادية** · 03-04-2018, 01:11 AM

وكذلك استهلاك الكثير من موارد الحاسوب

===========

**فيلسوف البادية** · 03-04-2018, 01:13 AM

يحفظ تحت خبير--لانه ليس مؤشر أساساًَ
كل مرة تريد تحديث--ضغطة ماوس على التشارت

كود PHP:

  
extern int PeakValley_Period=24;

extern int FastShift=7;

input color peak_color=clrLime;

input color valley_color=clrOrange;

 
int OnInit(){   return(INIT_SUCCEEDED);}

 
void OnDeinit(const int reason)

{

   ObjectsDeleteAll();

}

 
//+------------------------------------------------------------------+

//| Script program start function                                    |

//+------------------------------------------------------------------+

 
void OnChartEvent(const int id,const long &lparam,const double &dparam,const string &sparam)

{

   if(id==CHARTEVENT_CLICK)

   {

   double PeakBuffer[],ValleyBuffer[];

   double PVDomain=PeakValley_Period*5;

   int i;

   int TotalBar=Bars-PVDomain;

   ArrayResize(PeakBuffer,TotalBar);

   ArrayResize(ValleyBuffer,TotalBar);

   for(i=0; i<TotalBar; i++)

   {

      PeakBuffer[i]=peak_function(i,PeakValley_Period,FastShift,PVDomain);

      ValleyBuffer[i]=valley_function(i,PeakValley_Period,FastShift,PVDomain);

   }

  }

  }

//+------------------------------------------------------------------+

 
//====================================================================

// calculate peak

double peak_function(int i,int PeriodPV,int ShiftFast,int DomainPV)

{

   double Peak=0;

   int bsPeak=0;

   

   for(int pw=i+ShiftFast;pw<=i+DomainPV;pw++)

   if(iHigh(NULL,0,pw)>=High[iHighest(NULL,0,MODE_HIGH,ShiftFast,pw-ShiftFast)])

   {

      if(iHigh(NULL,0,pw)>=High[iHighest(NULL,0,MODE_HIGH,ShiftFast,pw+1)])

      {

         for(int Apw=pw-ShiftFast;Apw>=pw-(PeriodPV-ShiftFast);Apw--)

         if(iHigh(NULL,0,pw)==High[iHighest(NULL,0,MODE_HIGH,PeriodPV,Apw)])

         {

            Peak=iHigh(NULL,0,pw);

            bsPeak=pw;

            if(ObjectFind(0,"Peak Period: "+IntegerToString(PeakValley_Period)+" Time: "+TimeToStr(iTime(NULL,0,pw),TIME_DATE|TIME_MINUTES))==-1)

            {

               string objPeak = "Peak Period: "+IntegerToString(PeakValley_Period)+" Time: "+TimeToStr(iTime(NULL,0,pw),TIME_DATE|TIME_MINUTES);

               ObjectDelete(objPeak);

               ObjectCreate(objPeak, OBJ_ARROW, 0, iTime(NULL,0,pw), iHigh(NULL,0,pw));

               ObjectSet(objPeak, OBJPROP_COLOR, peak_color);

               ObjectSet(objPeak, OBJPROP_ARROWCODE, 117);

               ObjectSet(objPeak, OBJPROP_WIDTH, 1);

               ObjectSet(objPeak, OBJPROP_BACK, true);

            }

            break;

         }

         if(bsPeak>0)break;else continue;   

      }

   }

   

   return(Peak);

}

 
//====================================================================

// calculate valley

double valley_function(int i,int PeriodPV,int ShiftFast,int DomainPV)

{

   double Valley=0;

   int bsValley=0;

   

   for(int vw=i+ShiftFast;vw<=i+DomainPV;vw++)

   if(iLow(NULL,0,vw)<=Low[iLowest(NULL,0,MODE_LOW,ShiftFast,vw-ShiftFast)])

   {

      if(iLow(NULL,0,vw)<=Low[iLowest(NULL,0,MODE_LOW,ShiftFast,vw+1)])

      {

         for(int Avw=vw-ShiftFast;Avw>=vw-(PeriodPV-ShiftFast);Avw--)

         if(iLow(NULL,0,vw)==Low[iLowest(NULL,0,MODE_LOW,PeriodPV,Avw)])

         {

            Valley=iLow(NULL,0,vw);

            bsValley=vw;

            if(ObjectFind(0,"Valley Period: "+IntegerToString(PeakValley_Period)+" Time: "+TimeToStr(iTime(NULL,0,vw),TIME_DATE|TIME_MINUTES))==-1)

            {

               string objValley = "Valley Period: "+IntegerToString(PeakValley_Period)+" Time: "+TimeToStr(iTime(NULL,0,vw),TIME_DATE|TIME_MINUTES);

               ObjectDelete(objValley);

               ObjectCreate(objValley, OBJ_ARROW, 0, iTime(NULL,0,vw), iLow(NULL,0,vw));

               ObjectSet(objValley, OBJPROP_COLOR, valley_color);

               ObjectSet(objValley, OBJPROP_ARROWCODE, 117);

               ObjectSet(objValley, OBJPROP_WIDTH, 1);

               ObjectSet(objValley, OBJPROP_BACK, true);

            }

            break;

         }

         if(bsValley>0)break;else continue;      

      }

   }

   

   return(Valley);

}

**فيلسوف البادية** · 03-04-2018, 01:37 AM

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

**mohamedfx2005** · 03-04-2018, 03:17 AM

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

عن نفسي اطلعت على الكود اخي,
ليش ماتستخدم الفراكتالز؟؟ افضل وشيء جاهز في الميتا؟؟

الفراكتلز لا نستطيع التحكم في عدد الشموع قبل وبعد مثل هذا المؤشر

**mohamedfx2005** · 03-04-2018, 03:18 AM

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

يحفظ تحت خبير--لانه ليس مؤشر أساساًَ
كل مرة تريد تحديث--ضغطة ماوس على التشارت

كود PHP:

 
extern int PeakValley_Period=24;
extern int FastShift=7;
input color peak_color=clrLime;
input color valley_color=clrOrange;

int OnInit(){   return(INIT_SUCCEEDED);}

void OnDeinit(const int reason)
{
   ObjectsDeleteAll();
}

//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+

void OnChartEvent(const int id,const long &lparam,const double &dparam,const string &sparam)
{
   if(id==CHARTEVENT_CLICK)
   {
   double PeakBuffer[],ValleyBuffer[];
   double PVDomain=PeakValley_Period*5;
   int i;
   int TotalBar=Bars-PVDomain;
   ArrayResize(PeakBuffer,TotalBar);
   ArrayResize(ValleyBuffer,TotalBar);
   for(i=0; i<TotalBar; i++)
   {
      PeakBuffer[i]=peak_function(i,PeakValley_Period,FastShift,PVDomain);
      ValleyBuffer[i]=valley_function(i,PeakValley_Period,FastShift,PVDomain);
   }
  }
  }
//+------------------------------------------------------------------+

//====================================================================
// calculate peak
double peak_function(int i,int PeriodPV,int ShiftFast,int DomainPV)
{
   double Peak=0;
   int bsPeak=0;
   
   for(int pw=i+ShiftFast;pw<=i+DomainPV;pw++)
   if(iHigh(NULL,0,pw)>=High[iHighest(NULL,0,MODE_HIGH,ShiftFast,pw-ShiftFast)])
   {
      if(iHigh(NULL,0,pw)>=High[iHighest(NULL,0,MODE_HIGH,ShiftFast,pw+1)])
      {
         for(int Apw=pw-ShiftFast;Apw>=pw-(PeriodPV-ShiftFast);Apw--)
         if(iHigh(NULL,0,pw)==High[iHighest(NULL,0,MODE_HIGH,PeriodPV,Apw)])
         {
            Peak=iHigh(NULL,0,pw);
            bsPeak=pw;
            if(ObjectFind(0,"Peak Period: "+IntegerToString(PeakValley_Period)+" Time: "+TimeToStr(iTime(NULL,0,pw),TIME_DATE|TIME_MINUTES))==-1)
            {
               string objPeak = "Peak Period: "+IntegerToString(PeakValley_Period)+" Time: "+TimeToStr(iTime(NULL,0,pw),TIME_DATE|TIME_MINUTES);
               ObjectDelete(objPeak);
               ObjectCreate(objPeak, OBJ_ARROW, 0, iTime(NULL,0,pw), iHigh(NULL,0,pw));
               ObjectSet(objPeak, OBJPROP_COLOR, peak_color);
               ObjectSet(objPeak, OBJPROP_ARROWCODE, 117);
               ObjectSet(objPeak, OBJPROP_WIDTH, 1);
               ObjectSet(objPeak, OBJPROP_BACK, true);
            }
            break;
         }
         if(bsPeak>0)break;else continue;   
      }
   }
   
   return(Peak);
}

//====================================================================
// calculate valley
double valley_function(int i,int PeriodPV,int ShiftFast,int DomainPV)
{
   double Valley=0;
   int bsValley=0;
   
   for(int vw=i+ShiftFast;vw<=i+DomainPV;vw++)
   if(iLow(NULL,0,vw)<=Low[iLowest(NULL,0,MODE_LOW,ShiftFast,vw-ShiftFast)])
   {
      if(iLow(NULL,0,vw)<=Low[iLowest(NULL,0,MODE_LOW,ShiftFast,vw+1)])
      {
         for(int Avw=vw-ShiftFast;Avw>=vw-(PeriodPV-ShiftFast);Avw--)
         if(iLow(NULL,0,vw)==Low[iLowest(NULL,0,MODE_LOW,PeriodPV,Avw)])
         {
            Valley=iLow(NULL,0,vw);
            bsValley=vw;
            if(ObjectFind(0,"Valley Period: "+IntegerToString(PeakValley_Period)+" Time: "+TimeToStr(iTime(NULL,0,vw),TIME_DATE|TIME_MINUTES))==-1)
            {
               string objValley = "Valley Period: "+IntegerToString(PeakValley_Period)+" Time: "+TimeToStr(iTime(NULL,0,vw),TIME_DATE|TIME_MINUTES);
               ObjectDelete(objValley);
               ObjectCreate(objValley, OBJ_ARROW, 0, iTime(NULL,0,vw), iLow(NULL,0,vw));
               ObjectSet(objValley, OBJPROP_COLOR, valley_color);
               ObjectSet(objValley, OBJPROP_ARROWCODE, 117);
               ObjectSet(objValley, OBJPROP_WIDTH, 1);
               ObjectSet(objValley, OBJPROP_BACK, true);
            }
            break;
         }
         if(bsValley>0)break;else continue;      
      }
   }
   
   return(Valley);
}

بارك الله فيك يا فيلسوفنا

جاري التجربة

كل ودي واحترامي

**فيلسوف البادية** · 03-04-2018, 04:27 AM

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

الفراكتلز لا نستطيع التحكم في عدد الشموع قبل وبعد مثل هذا المؤشر

تستطيع اخي من قلب البرنامج--ومنها اجلعها متغيرات خارجية

**mohamedfx2005** · 03-04-2018, 01:39 PM

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

تستطيع اخي من قلب البرنامج--ومنها اجلعها متغيرات خارجية

السلام عليكم ورحمة الله

لم استطع تغيير الفراكتلز من قلب البرنامج

وبالنسبة للاكسبرت هل يجب مع اغلاق كل شمعة تغيير التايم فريم والرجوع للتحديث لانني لاحضت انه لم يرسم نقطة الا بعد تغيير التايم فريم

**فيلسوف البادية** · 03-04-2018, 01:43 PM

كل مرة تريد تحديث--ضغطة ماوس على التشارت

===============

اذا غيرت الفريم يفترض ينظف التشارت وكانه لايوجد اكسبيرت 0 -بايت

===
مكتوبة بالعربي

**فيلسوف البادية** · 03-04-2018, 01:52 PM

اذا تريده الي وعندك قدرة لتحمل الضغط---شيل ONCHARTEBENT واكتب مكانها ONTICK

الموضوع: ارجوا اعادة صياغة مؤشر peak & valley

أدوات الموضوع

ارجوا اعادة صياغة مؤشر peak & valley

عروض شركات الفوركس