elliotte5wave

Author: TraderKNJ@yahoo.com
0 Views
0 Downloads
0 Favorites
elliotte5wave
ÿþ//+------------------------------------------------------------------+

//|                               https://www.facebook.com/traderknj |

//|                                      Copyright 2016, KNJ company |

//|                                              TraderKNJ@yahoo.com |

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

#property copyright "TraderKNJ@yahoo.com"

#property link      "https://www.facebook.com/traderknj"



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

//| script program start function                                    |

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

int start()

  {

color txtCol=Blue;    // Text Color

color lnCol=Blue;  // Line Color

//----

   int zx;

   switch(Period())

     {

      case 1:     zx = 5;   break;

      case 5:     zx = 10;  break;

      case 15:    zx = 15;  break;

      case 30:    zx = 20;  break;

      case 60:    zx = 25;  break;

      case 240:   zx = 30;  break;

      case 1440:  zx = 35;  break;

      case 10080: zx = 150; break;

      case 43200: zx = 250; break;

      default:    zx = 15;

     }

   int k;

   int IndList[];

   double TxtX[][9];

   double TxtY[][9];

   ArrayResize(IndList,0);

   ArrayResize(TxtX,0);

   ArrayResize(TxtY,0);

   while(!IsStopped())

     {

      bool Fnd=false;

      for(int i=0; i<ObjectsTotal(); i++)

        {

         if(StringFind(ObjectName(i),"WM("+k+")_",0)==0)

           {

            Fnd=true;

            ArrayResize(IndList,ArraySize(IndList)+1);

            IndList[ArraySize(IndList)-1]=k;

            ArrayResize(TxtX,ArraySize(TxtX)/9+1);

            TxtX[ArraySize(TxtX)/9-1][0]=ObjectGet("WM("+k+")_"+

                           "T_0",OBJPROP_TIME1);

            TxtX[ArraySize(TxtX)/9-1][0]=ObjectGet("WM("+k+")_"+

                           "T_1",OBJPROP_TIME1);

            TxtX[ArraySize(TxtX)/9-1][1]=ObjectGet("WM("+k+")_"+

                           "T_2",OBJPROP_TIME1);

            TxtX[ArraySize(TxtX)/9-1][2]=ObjectGet("WM("+k+")_"+

                           "T_3",OBJPROP_TIME1);

            TxtX[ArraySize(TxtX)/9-1][3]=ObjectGet("WM("+k+")_"+

                           "T_4",OBJPROP_TIME1);

            TxtX[ArraySize(TxtX)/9-1][4]=ObjectGet("WM("+k+")_"+

                           "T_5",OBJPROP_TIME1);

            TxtX[ArraySize(TxtX)/9-1][5]=ObjectGet("WM("+k+")_"+

                           "T_A",OBJPROP_TIME1);

            TxtX[ArraySize(TxtX)/9-1][6]=ObjectGet("WM("+k+")_"+

                           "T_B",OBJPROP_TIME1);

            TxtX[ArraySize(TxtX)/9-1][7]=ObjectGet("WM("+k+")_"+

                           "T_C",OBJPROP_TIME1);

            ArrayResize(TxtY,ArraySize(TxtY)/9+1);

            TxtY[ArraySize(TxtY)/9-1][0]=ObjectGet("WM("+k+")_"+

                           "T_0",OBJPROP_PRICE1);

            TxtY[ArraySize(TxtY)/9-1][0]=ObjectGet("WM("+k+")_"+

                           "T_1",OBJPROP_PRICE1);

            TxtY[ArraySize(TxtY)/9-1][1]=ObjectGet("WM("+k+")_"+

                           "T_2",OBJPROP_PRICE1);

            TxtY[ArraySize(TxtY)/9-1][2]=ObjectGet("WM("+k+")_"+

                           "T_3",OBJPROP_PRICE1);

            TxtY[ArraySize(TxtY)/9-1][3]=ObjectGet("WM("+k+")_"+

                           "T_4",OBJPROP_PRICE1);

            TxtY[ArraySize(TxtY)/9-1][4]=ObjectGet("WM("+k+")_"+

                           "T_5",OBJPROP_PRICE1);

            break;

           }

        }

      if(!Fnd)

        {

         ArrayResize(IndList,ArraySize(IndList)+1);

         IndList[ArraySize(IndList)-1]=k;

         break;

        }

      k++;

     }

   int fb=FirstVisibleBar()-5;

   int mfontsize=20;

   string mfont="Arial Bold";

   while(!IsStopped())

     {

      if(ObjectFind("WM("+k+")_"+"T_0")!=0)

        {

         ObjectCreate("WM("+k+")_"+"T_0",OBJ_TEXT,0,MyTime(fb),

                      Close[fb]+zx*Point);

         ObjectSetText("WM("+k+")_"+"T_0","0",mfontsize,mfont,txtCol);

        }

      if(ObjectFind("WM("+k+")_"+"T_1")!=0)

        {

         ObjectCreate("WM("+k+")_"+"T_1",OBJ_TEXT,0,MyTime(fb-5),

                      Close[fb]+zx*Point);

         ObjectSetText("WM("+k+")_"+"T_1","1",mfontsize,mfont,txtCol);

        }

      if(ObjectFind("WM("+k+")_"+"T_2")!=0)

        {

         ObjectCreate("WM("+k+")_"+"T_2",OBJ_TEXT,0,MyTime(fb-10),

                      Close[fb]+zx*Point);

         ObjectSetText("WM("+k+")_"+"T_2","2",mfontsize,mfont,txtCol);

        }

      if(ObjectFind("WM("+k+")_"+"T_3")!=0)

        {

         ObjectCreate("WM("+k+")_"+"T_3",OBJ_TEXT,0,MyTime(fb-15),

                      Close[fb]+zx*Point);

         ObjectSetText("WM("+k+")_"+"T_3","3",mfontsize,mfont,txtCol);

        }

      if(ObjectFind("WM("+k+")_"+"T_4")!=0)

        {

         ObjectCreate("WM("+k+")_"+"T_4",OBJ_TEXT,0,MyTime(fb-20),

                      Close[fb]+zx*Point);

         ObjectSetText("WM("+k+")_"+"T_4","4",mfontsize,mfont,txtCol);

        }

      if(ObjectFind("WM("+k+")_"+"T_5")!=0)

        {

         ObjectCreate("WM("+k+")_"+"T_5",OBJ_TEXT,0,MyTime(fb-25),

                      Close[fb]+zx*Point);

         ObjectSetText("WM("+k+")_"+"T_5","5",mfontsize,mfont,txtCol);

        }

      for(int j=0; j<ArraySize(IndList); j++)

        {

         k=IndList[j];

         if(j<ArraySize(IndList)-1)

           {

            if(ObjectFind("WM("+k+")_"+"T_0")!=0)

              {

               ObjectCreate("WM("+k+")_"+"T_0",OBJ_TEXT,

                            0,TxtX[j][0],TxtY[j][0]);

               ObjectSetText("WM("+k+")_"+"T_0","0",mfontsize,

                             mfont,txtCol);

              }

            if(ObjectFind("WM("+k+")_"+"T_1")!=0)

              {

               ObjectCreate("WM("+k+")_"+"T_1",OBJ_TEXT,

                            0,TxtX[j][1],TxtY[j][1]);

               ObjectSetText("WM("+k+")_"+"T_1","1",mfontsize,

                             mfont,txtCol);

              }

            if(ObjectFind("WM("+k+")_"+"T_2")!=0)

              {

               ObjectCreate("WM("+k+")_"+"T_2",OBJ_TEXT,

                            0,TxtX[j][2],TxtY[j][2]);

               ObjectSetText("WM("+k+")_"+"T_2","2",mfontsize,

                             mfont,txtCol);

              }

            if(ObjectFind("WM("+k+")_"+"T_3")!=0)

              {

               ObjectCreate("WM("+k+")_"+"T_3",OBJ_TEXT,

                            0,TxtX[j][3],TxtY[j][3]);

               ObjectSetText("WM("+k+")_"+"T_3","3",mfontsize,

                             mfont,txtCol);

              }

            if(ObjectFind("WM("+k+")_"+"T_4")!=0)

              {

               ObjectCreate("WM("+k+")_"+"T_4",OBJ_TEXT,

                            0,TxtX[j][4],TxtY[j][4]);

               ObjectSetText("WM("+k+")_"+"T_4","4",mfontsize,

                             mfont,txtCol);

              }

            if(ObjectFind("WM("+k+")_"+"T_5")!=0)

              {

               ObjectCreate("WM("+k+")_"+"T_5",OBJ_TEXT,

                            0,TxtX[j][5],TxtY[j][5]);

               ObjectSetText("WM("+k+")_"+"T_5","5",mfontsize,

                             mfont,txtCol);

              }



            TxtX[j][0]=ObjectGet("WM("+k+")_"+"T_0",OBJPROP_TIME1);

            TxtX[j][1]=ObjectGet("WM("+k+")_"+"T_1",OBJPROP_TIME1);

            TxtX[j][2]=ObjectGet("WM("+k+")_"+"T_2",OBJPROP_TIME1);

            TxtX[j][3]=ObjectGet("WM("+k+")_"+"T_3",OBJPROP_TIME1);

            TxtX[j][4]=ObjectGet("WM("+k+")_"+"T_4",OBJPROP_TIME1);

            TxtX[j][5]=ObjectGet("WM("+k+")_"+"T_5",OBJPROP_TIME1);

            TxtX[j][6]=ObjectGet("WM("+k+")_"+"T_A",OBJPROP_TIME1);

            TxtX[j][7]=ObjectGet("WM("+k+")_"+"T_B",OBJPROP_TIME1);

            TxtX[j][8]=ObjectGet("WM("+k+")_"+"T_C",OBJPROP_TIME1);

            TxtY[j][0]=ObjectGet("WM("+k+")_"+"T_0",OBJPROP_PRICE1);

            TxtY[j][1]=ObjectGet("WM("+k+")_"+"T_1",OBJPROP_PRICE1);

            TxtY[j][2]=ObjectGet("WM("+k+")_"+"T_2",OBJPROP_PRICE1);

            TxtY[j][3]=ObjectGet("WM("+k+")_"+"T_3",OBJPROP_PRICE1);

            TxtY[j][4]=ObjectGet("WM("+k+")_"+"T_4",OBJPROP_PRICE1);

            TxtY[j][5]=ObjectGet("WM("+k+")_"+"T_5",OBJPROP_PRICE1);

           }

         int l_1_x1 = ObjectGet("WM("+ k + ")_" + "T_0", OBJPROP_TIME1);

         int l_1_x2 = ObjectGet("WM(" + k + ")_" + "T_1", OBJPROP_TIME1);

         double l_1_y1=ObjectGet("WM("+k+")_"+"T_0",OBJPROP_PRICE1)+

                       Point*zx;

         double l_1_y2=ObjectGet("WM("+k+")_"+"T_1",OBJPROP_PRICE1)+

                       Point*zx;

         if(l_1_y1<l_1_y2)

           {

            if(l_1_x1 <= Time[0])

               l_1_y1 = Low[iBarShift(NULL, 0, l_1_x1, false)];

            if(l_1_x2 <= Time[0])

               l_1_y2 = High[iBarShift(NULL, 0, l_1_x2, false)];

           }

         if(l_1_y1>l_1_y2)

           {

            if(l_1_x1 <= Time[0])

               l_1_y1 = High[iBarShift(NULL, 0, l_1_x1, false)];

            if(l_1_x2 <= Time[0])

               l_1_y2 = Low[iBarShift(NULL, 0, l_1_x2, false)];

           }

         int l_2_x1 = ObjectGet("WM(" + k + ")_" + "T_1", OBJPROP_TIME1);

         int l_2_x2 = ObjectGet("WM(" + k + ")_" + "T_2", OBJPROP_TIME1);

         double l_2_y1=ObjectGet("WM("+k+")_"+"T_1",OBJPROP_PRICE1)+

                       Point*zx;

         double l_2_y2=ObjectGet("WM("+k+")_"+"T_2",OBJPROP_PRICE1)+

                       Point*zx;

         if(l_2_y1<l_2_y2)

           {

            if(l_2_x1 <= Time[0])

               l_2_y1 = Low[iBarShift(NULL, 0, l_2_x1, false)];

            if(l_2_x2 <= Time[0])

               l_2_y2 = High[iBarShift(NULL, 0, l_2_x2, false)];

           }

         if(l_2_y1>l_2_y2)

           {

            if(l_2_x1 <= Time[0])

               l_2_y1 = High[iBarShift(NULL, 0, l_2_x1, false)];

            if(l_2_x2 <= Time[0])

               l_2_y2 = Low[iBarShift(NULL, 0, l_2_x2, false)];

           }

         int l_3_x1 = ObjectGet("WM(" + k + ")_" + "T_2", OBJPROP_TIME1);

         int l_3_x2 = ObjectGet("WM(" + k + ")_" + "T_3", OBJPROP_TIME1);

         double l_3_y1=ObjectGet("WM("+k+")_"+"T_2",OBJPROP_PRICE1)+

                       Point*zx;

         double l_3_y2=ObjectGet("WM("+k+")_"+"T_3",OBJPROP_PRICE1)+

                       Point*zx;

         if(l_3_y1<l_3_y2)

           {

            if(l_3_x1 <= Time[0])

               l_3_y1 = Low[iBarShift(NULL, 0, l_3_x1, false)];

            if(l_3_x2 <= Time[0])

               l_3_y2 = High[iBarShift(NULL, 0,l_3_x2, false)];

           }

         if(l_3_y1>l_3_y2)

           {

            if(l_3_x1 <= Time[0])

               l_3_y1 = High[iBarShift(NULL, 0, l_3_x1, false)];

            if(l_3_x2 <= Time[0])

               l_3_y2 = Low[iBarShift(NULL, 0, l_3_x2, false)];

           }

         int l_4_x1 = ObjectGet("WM(" + k + ")_"+"T_3",OBJPROP_TIME1);

         int l_4_x2 = ObjectGet("WM(" + k + ")_"+"T_4",OBJPROP_TIME1);

         double l_4_y1=ObjectGet("WM("+k+")_"+"T_3",OBJPROP_PRICE1)+

                       Point*zx;

         double l_4_y2=ObjectGet("WM("+k+")_"+"T_4",OBJPROP_PRICE1)+

                       Point*zx;

         if(l_4_y1<l_4_y2)

           {

            if(l_4_x1 <= Time[0])

               l_4_y1 = Low[iBarShift(NULL, 0, l_4_x1, false)];

            if(l_4_x2 <= Time[0])

               l_4_y2 = High[iBarShift(NULL, 0, l_4_x2, false)];

           }

         if(l_4_y1>l_4_y2)

           {

            if(l_4_x1 <= Time[0])

               l_4_y1 = High[iBarShift(NULL, 0, l_4_x1, false)];

            if(l_4_x2 <= Time[0])

               l_4_y2=Low[iBarShift(NULL,0,l_4_x2,false)];

           }

         int l_5_x1 = ObjectGet("WM(" + k + ")_" + "T_4", OBJPROP_TIME1);

         int l_5_x2 = ObjectGet("WM(" + k + ")_" + "T_5", OBJPROP_TIME1);

         double l_5_y1=ObjectGet("WM("+k+")_"+"T_4",OBJPROP_PRICE1)+

                       Point*zx;

         double l_5_y2=ObjectGet("WM("+k+")_"+"T_5",OBJPROP_PRICE1)+

                       Point*zx;

         if(l_5_y1<l_5_y2)

           {

            if(l_5_x1 <= Time[0])

               l_5_y1 = Low[iBarShift(NULL, 0, l_5_x1, false)];

            if(l_5_x2 <= Time[0])

               l_5_y2 = High[iBarShift(NULL, 0, l_5_x2, false)];

           }

         if(l_5_y1>l_5_y2)

           {

            if(l_5_x1 <= Time[0])

               l_5_y1 = High[iBarShift(NULL, 0, l_5_x1, false)];

            if(l_5_x2 <= Time[0])

               l_5_y2 = Low[iBarShift(NULL, 0, l_5_x2, false)];

           }

         int l_6_x1 = ObjectGet("WM(" + k + ")_" + "T_5", OBJPROP_TIME1);

         int l_6_x2 = ObjectGet("WM(" + k + ")_" + "T_A", OBJPROP_TIME1);

         double l_6_y1=ObjectGet("WM("+k+")_"+"T_5",OBJPROP_PRICE1)+

                       Point*zx;

         double l_6_y2=ObjectGet("WM("+k+")_"+"T_A",OBJPROP_PRICE1)+

                       Point*zx;

         ///



         ////--------------

         if(ObjectFind("WM("+k+")_"+"L_1")!=0)

           {

            ObjectCreate("WM("+k+")_"+"L_1",OBJ_TREND,0,

                         l_1_x1,l_1_y1,l_1_x2,l_1_y2);

           }

         ObjectSet("WM("+k+")_"+"L_1",OBJPROP_TIME1,l_1_x1);

         ObjectSet("WM("+k+")_"+"L_1",OBJPROP_PRICE1,l_1_y1);

         ObjectSet("WM("+k+")_"+"L_1",OBJPROP_TIME2,l_1_x2);

         ObjectSet("WM("+k+")_"+"L_1",OBJPROP_PRICE2,l_1_y2);

         ObjectSet("WM("+k+")_"+"L_1",OBJPROP_COLOR,lnCol);

         ObjectSet("WM("+k+")_"+"L_1",OBJPROP_RAY,false);

         if(ObjectFind("WM("+k+")_"+"L_2")!=0)

           {

            ObjectCreate("WM("+k+")_"+"L_2",OBJ_TREND,0,

                         l_2_x1,l_2_y1,l_2_x2,l_2_y2);

           }

         ObjectSet("WM("+k+")_"+"L_2",OBJPROP_TIME1,l_2_x1);

         ObjectSet("WM("+k+")_"+"L_2",OBJPROP_TIME2,l_2_x2);

         ObjectSet("WM("+k+")_"+"L_2",OBJPROP_PRICE1,l_2_y1);

         ObjectSet("WM("+k+")_"+"L_2",OBJPROP_PRICE2,l_2_y2);

         ObjectSet("WM("+k+")_"+"L_2",OBJPROP_COLOR,lnCol);

         ObjectSet("WM("+k+")_"+"L_2",OBJPROP_RAY,false);

         if(ObjectFind("WM("+k+")_"+"L_3")!=0)

           {

            ObjectCreate("WM("+k+")_"+"L_3",OBJ_TREND,0,

                         l_3_x1,l_3_y1,l_3_x2,l_3_y2);

           }

         ObjectSet("WM("+k+")_"+"L_3",OBJPROP_TIME1,l_3_x1);

         ObjectSet("WM("+k+")_"+"L_3",OBJPROP_TIME2,l_3_x2);

         ObjectSet("WM("+k+")_"+"L_3",OBJPROP_PRICE1,l_3_y1);

         ObjectSet("WM("+k+")_"+"L_3",OBJPROP_PRICE2,l_3_y2);

         ObjectSet("WM("+k+")_"+"L_3",OBJPROP_COLOR,lnCol);

         ObjectSet("WM("+k+")_"+"L_3",OBJPROP_RAY,false);

         if(ObjectFind("WM("+k+")_"+"L_4")!=0)

           {

            ObjectCreate("WM("+k+")_"+"L_4",OBJ_TREND,0,

                         l_4_x1,l_4_y1,l_4_x2,l_4_y2);

           }

         ObjectSet("WM("+k+")_"+"L_4",OBJPROP_TIME1,l_4_x1);

         ObjectSet("WM("+k+")_"+"L_4",OBJPROP_TIME2,l_4_x2);

         ObjectSet("WM("+k+")_"+"L_4",OBJPROP_PRICE1,l_4_y1);

         ObjectSet("WM("+k+")_"+"L_4",OBJPROP_PRICE2,l_4_y2);

         ObjectSet("WM("+k+")_"+"L_4",OBJPROP_COLOR,lnCol);

         ObjectSet("WM("+k+")_"+"L_4",OBJPROP_RAY,false);

         if(ObjectFind("WM("+k+")_"+"L_5")!=0)

           {

            ObjectCreate("WM("+k+")_"+"L_5",OBJ_TREND,0,

                         l_5_x1,l_5_y1,l_5_x2,l_5_y2);

           }

         ObjectSet("WM("+k+")_"+"L_5",OBJPROP_TIME1,l_5_x1);

         ObjectSet("WM("+k+")_"+"L_5",OBJPROP_TIME2,l_5_x2);

         ObjectSet("WM("+k+")_"+"L_5",OBJPROP_PRICE1,l_5_y1);

         ObjectSet("WM("+k+")_"+"L_5",OBJPROP_PRICE2,l_5_y2);

         ObjectSet("WM("+k+")_"+"L_5",OBJPROP_COLOR,lnCol);

         ObjectSet("WM("+k+")_"+"L_5",OBJPROP_RAY,false);



        }

      WindowRedraw();

      Sleep(1);

     }

//----

   return(0);

  }

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

//|                                                                  |

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

datetime MyTime(int bs)

  {

   if(bs<0)

      return(Time[0] + Period()*60*MathAbs(bs));

   return(Time[bs]);

  }

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

Comments