//+------------------------------------------------------------------+
//|                                                Elliott_Waves.mq4 |
//|                                Copyright © 2009, صëûٌٍîâ آëàنèىً |
//|                                                ٌmillion@narod.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2009, صëûٌٍîâ آëàنèىً"
#property link      "ٌmillion@narod.ru"
 
#property indicator_chart_window
 
   datetime X1,X2;
   double   Y1,Y2,LINE[11][6];
   int رزبثـ,ز_ثبحبب,آخثحہ,ضآإز;
   double High_Win,Low_Win,shift_X,shift_Y;
   string Name[11]={ "-",
                     "1 آخثحہ ","2 آخثحہ ","3 آخثحہ ","4 آخثحہ ","5 آخثحہ ",
                     "a آخثحہ ","b آخثحہ ","c آخثحہ ","d آخثحہ ","e آخثحہ "};
   string ٍهêٌٍ,Obj_Name,بحشخ;
   int per;
   extern bool  ïîêàçàٍü_âٌه_ïهًèîنû = true;
   extern color ض1=White;
   extern color ض2=DeepSkyBlue;
   extern color ض3=Yellow;
   extern color ض4=Turquoise;
   extern color ض5=Magenta;
   extern color ض6=Yellow;
   extern color ض7=MediumSpringGreen;
   extern color ض8=Violet;
   extern color ض9=DarkOrchid;
 
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو
//////////////////////////////////////////////////////////////////////
int init()
{
   ObjectCreate ("لàً", OBJ_LABEL, 0, 0, 0);// رîçنàيèه îلْ.
   ObjectSet    ("لàً", OBJPROP_XDISTANCE, 500);      
   ObjectSet    ("لàً", OBJPROP_YDISTANCE, 0);
   ObjectSet    ("لàً", OBJPROP_CORNER, 1); //َمîë_âûâîنà_îًنهًîâ
   per =Period();
   Obj_Name = string_ïهً(per);
   for(int k=0; k<=10; k++) Name[k] = Name[k]+Obj_Name;
   Comment("آخثحغ فثثبخزہ "+Obj_Name+" "+âًهىے(CurTime()));
   return(0);
}
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو
//*////////////////////////////////////////////////////////////////*//
int deinit()
  {
      ObjectDelete("لàً");
      َنàëèٍü_îلüهêٍû("ض");
      َنàëèٍü_îلüهêٍû("Name");
      َنàëèٍü_îلüهêٍû("بيôî");
   return(0);
  }
//*////////////////////////////////////////////////////////////////*//
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو
 
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو
//////////////////////////////////////////////////////////////////////
int start()
{
   High_Win = WindowPriceMax();
   Low_Win  = WindowPriceMin();
   shift_X = WindowBarsPerChart();
   ObjectSetText("لàً","ءàً يà ‎êًàيه "+DoubleToStr(shift_X,0),8,"Arial",White);   
   shift_X = shift_X/80*per;
   shift_Y = (High_Win-Low_Win) / 50;
   for(int k=0; k<=ObjectsTotal(); k++) 
   {
      Obj_Name = ObjectName(k);                           // اàïًàّèâàهى èىے îلْهêٍà
      if (Obj_Name=="") continue;
      آخثحہ = N_آîëيû(Obj_Name);
      if (آخثحہ>0&&آخثحہ<11)
      {
         if (Obj_Name != Name[آخثحہ]) redraw_LINE(Obj_Name,Name[آخثحہ]);
         X1 =    ObjectGet(Name[آخثحہ], OBJPROP_TIME1); 
         Y1 =    ObjectGet(Name[آخثحہ], OBJPROP_PRICE1);
         X2 =    ObjectGet(Name[آخثحہ], OBJPROP_TIME2); 
         Y2 =    ObjectGet(Name[آخثحہ], OBJPROP_PRICE2);
         ضآإز  = ObjectGet(Name[آخثحہ], OBJPROP_COLOR);
         رزبثـ = ObjectGet(Name[آخثحہ], OBJPROP_STYLE);
         ز_ثبحبب=ObjectGet(Name[آخثحہ], OBJPROP_WIDTH);
         if (X1 > X2) redraw_LINE(Name[آخثحہ],Name[آخثحہ]+" r ");
         if (Y1 < Y2) LINE[آخثحہ][0]=1; else LINE[آخثحہ][0]=-1;//يàïًàâëهيèه âîëيû
         ObjectDelete("ض "+Name[آخثحہ]);
         ObjectDelete("ضهëü "+Name[آخثحہ]);
         LINE[آخثحہ][1]=X1;//يà÷àëî âîëيû
         LINE[آخثحہ][2]=Y1;
         LINE[آخثحہ][3]=X2;//êîيهِ âîëيû
         LINE[آخثحہ][4]=Y2;
         LINE[آخثحہ][5]=خلüهى_آîëيû(Name[آخثحہ]);
         if ((MathAbs(LINE[آخثحہ][3]-LINE[آخثحہ+1][1])<per*120) || (MathAbs(LINE[آخثحہ][4]-LINE[آخثحہ+1][2])/Point<=MarketInfo(Symbol(),MODE_STOPLEVEL)))
         {
            ObjectSet   (Name[آخثحہ+1], OBJPROP_COLOR, ضآإز); //ٌٍûêîâêà - âûنهëهيèه ِâهٍà
            ObjectSet   (Name[آخثحہ+1], OBJPROP_STYLE, رزبثـ);// رٍèëü   
            ObjectSet   (Name[آخثحہ+1], OBJPROP_WIDTH, ز_ثبحبب);
            ObjectSet   (Name[آخثحہ+1], OBJPROP_PRICE1 ,LINE[آخثحہ][4]);//دًèâےçêà ٌëهنَ‏ùهé âîëيû ê ٍهêَùهé PRICE1
            ObjectSet   (Name[آخثحہ+1], OBJPROP_TIME1  ,LINE[آخثحہ][3]);//دًèâےçêà ٌëهنَ‏ùهé âîëيû ê ٍهêَùهé TIME1
         }
         بحشخ = "بيôî "+Name[آخثحہ]+" ًû÷àم "+DoubleToStr(MathAbs(LINE[آخثحہ][2]-LINE[آخثحہ][4])/Point,0);
         if (آخثحہ==3&&(LINE[3][5]<LINE[2][5]||LINE[3][5]<LINE[1][5]||LINE[3][5]<LINE[4][5]||LINE[3][5]<LINE[5][5])) ٍهêٌٍ = "خلüهى يه ىîوهٍ لûٍü ىهيüّه â 3 âîëيه "+DoubleToStr(LINE[آخثحہ][5],0);
         else ٍهêٌٍ = "V = "+DoubleToStr(LINE[آخثحہ][5],0);
         َنàëèٍü_îلüهêٍû("بيôî");
         ObjectCreate (بحشخ, OBJ_TEXT  ,0,LINE[آخثحہ][3], LINE[آخثحہ][4]+shift_Y*ز_ثبحبب*3*LINE[آخثحہ][0],0,0,0,0);
         ObjectSetText(بحشخ,ٍهêٌٍ ,8,"Arial");
         ObjectSet    (بحشخ, OBJPROP_COLOR, ضآإز);
         
         ObjectDelete ("Name "+Name[آخثحہ]);
         ObjectCreate ("Name "+Name[آخثحہ], OBJ_TEXT  ,0,LINE[آخثحہ][3], LINE[آخثحہ][4]+shift_Y*ز_ثبحبب*2*LINE[آخثحہ][0]+0.7*shift_Y,0,0,0,0);
         if (شذہتزہث(LINE[آخثحہ][3],Name[آخثحہ])==true)
         {
            ObjectSetText("Name "+Name[آخثحہ], StringSubstr(Name[آخثحہ],0,1),10*ز_ثبحبب,"Arial");
            ObjectSet    ("Name "+Name[آخثحہ], OBJPROP_COLOR, ضآإز);
         }
         else
         {
            ObjectSetText("Name "+Name[آخثحہ], "يهٍ ôًàêٍàëà" ,10,"Arial");
            ObjectSet    ("Name "+Name[آخثحہ], OBJPROP_COLOR, Red);
         }
         if (LINE[آخثحہ][3]!=LINE[آخثحہ+1][1]) // هٌëè يهٍ ٌëهنَ‏ùهé âîëيû
         {
               if (LINE[آخثحہ][1]!=LINE[آخثحہ-1][3]) // هٌëè يهٍ ïًهنûنَùهé âîëيû
               {
                  X1=LINE[آخثحہ][3]+(LINE[آخثحہ][3]-LINE[آخثحہ][1])*0.38;
                  X2=LINE[آخثحہ][3]+(LINE[آخثحہ][3]-LINE[آخثحہ][1])*0.62;
                  Y1=LINE[آخثحہ][4]+(LINE[آخثحہ][2]-LINE[آخثحہ][4])*0.38; 
                  Y2=LINE[آخثحہ][4]+(LINE[آخثحہ][2]-LINE[آخثحہ][4])*0.62;
 
                  if (آخثحہ==6) //ٍهêَùàے آîëيà a
                        Y1=LINE[6][4]+(LINE[6][2]-LINE[6][4])*0.50; 
 
               }
               else//هٌٍü ïًهن âîëيà
               {
                  switch(آخثحہ)
                  {
                     case 2 ://ٍهêَùàے آîëيà 2
                        X2=LINE[2][3]+(LINE[2][3]-LINE[1][1])/0.38;
                        X1=LINE[2][3]+(LINE[2][3]-LINE[1][1])/0.62;
                        Y1=LINE[1][4]-MathAbs(LINE[1][2]-LINE[1][4])*LINE[2][0]*1.00; 
                        Y2=LINE[1][4]-MathAbs(LINE[1][2]-LINE[1][4])*LINE[2][0]*1.62;
                        break;
                     case 3 ://ٍهêَùàے آîëيà 3
                        X1=LINE[2][1]+(LINE[3][3]-LINE[1][3])*1.38;
                        X2=LINE[3][1]+(LINE[3][3]-LINE[1][3])*1.62;
                        Y1=LINE[3][4]-MathAbs(LINE[3][2]-LINE[3][4])*LINE[3][0]*0.38; 
                        Y2=LINE[3][4]-MathAbs(LINE[3][2]-LINE[3][4])*LINE[3][0]*0.50;
                        if ((Y2<LINE[1][4] && LINE[3][0]==1)||(Y2>LINE[1][4] && LINE[3][0]==-1))
                        {
                           ObjectSetText("Name "+Name[آخثحہ],"4 آخثحہ يه ىîوهٍ ëهوàٍü يèوه 1 آخثحغ",8,"Arial");
                           ObjectSet    ("Name "+Name[آخثحہ], OBJPROP_COLOR, Red);
                        }
                        if (LINE[1][3]!=LINE[2][1])
                        {
                           ObjectSet(Name[آخثحہ], OBJPROP_COLOR, Red);
                           ObjectSetText("Name "+Name[آخثحہ],"يهٍ آخثحغ 1",8,"Arial");
                           ObjectSet    ("Name "+Name[آخثحہ], OBJPROP_COLOR, Red);
                        }
                        break;
                     case 4 ://ٍهêَùàے آîëيà 4
                        X1=LINE[4][3]+(LINE[3][3]-LINE[3][1])*0.38;
                        X2=LINE[4][3]+(LINE[3][3]-LINE[3][1])*0.62;
                        Y1=LINE[4][2]-MathAbs(LINE[1][2]-LINE[3][4])*LINE[4][0]*0.62; 
                        Y2=LINE[4][2]-MathAbs(LINE[1][2]-LINE[3][4])*LINE[4][0]*1.00;
                        ٍهêٌٍ="--4 آخثحہ <> 1 آخثحغ--";
                        ObjectDelete(ٍهêٌٍ);
                        if ((LINE[4][4]<LINE[1][4] && LINE[4][0]==-1)||(LINE[4][4]>LINE[1][4] && LINE[4][0]==1))
                        {
                           ObjectSet(Name[آخثحہ], OBJPROP_COLOR, Red);
                           ObjectSetText("Name "+Name[آخثحہ],"4 آخثحہ يه ىîوهٍ ëهوàٍü يèوه 1 آخثحغ",8,"Arial");
                           ObjectSet    ("Name "+Name[آخثحہ], OBJPROP_COLOR, Red);
                           ObjectCreate(ٍهêٌٍ, OBJ_TREND, 0,LINE[1][3],LINE[1][4],LINE[4][3],LINE[1][4]);
                           ObjectSet   (ٍهêٌٍ, OBJPROP_COLOR, Red);    // ضâهٍ   
                           ObjectSet   (ٍهêٌٍ, OBJPROP_STYLE, STYLE_DASH);// رٍèëü   
                           ObjectSet   (ٍهêٌٍ, OBJPROP_WIDTH, 0);
                           ObjectSet   (ٍهêٌٍ, OBJPROP_BACK,  true);
                           ObjectSet   (ٍهêٌٍ, OBJPROP_RAY,   false);     // ثَ÷   
                        }
                        if (LINE[1][3]!=LINE[2][1] || LINE[2][3]!=LINE[3][1])
                        {
                           ObjectSet(Name[آخثحہ], OBJPROP_COLOR, Red);
                           ObjectSetText("Name "+Name[آخثحہ],"يهٍ آخثحغ 1 èëè 2",8,"Arial");
                           ObjectSet    ("Name "+Name[آخثحہ], OBJPROP_COLOR, Red);
                        }
                        break;
                     case 5 ://ٍهêَùàے آîëيà 5
                        X1=LINE[5][3]+(LINE[5][3]-LINE[5][1])*0.38;
                        X2=LINE[5][3]+(LINE[5][3]-LINE[5][1])*0.62;
                        Y1=LINE[5][4]-MathAbs(LINE[5][2]-LINE[5][4])*LINE[5][0]*0.38; 
                        Y2=LINE[5][4]-MathAbs(LINE[5][2]-LINE[5][4])*LINE[5][0]*0.62;
                        double MFI_3=iMACD(NULL,0,5,34,5,PRICE_CLOSE,MODE_MAIN  ,iBarShift(NULL,0,LINE[3][3],FALSE));
                        double MFI_5=iMACD(NULL,0,5,34,5,PRICE_CLOSE,MODE_MAIN  ,iBarShift(NULL,0,LINE[5][3],FALSE));
                        if (LINE[1][3]!=LINE[2][1] || LINE[2][3]!=LINE[3][1] || LINE[3][3]!=LINE[4][1])
                        {
                           ObjectSet(Name[آخثحہ], OBJPROP_COLOR, Red);
                           ObjectSetText("Name "+Name[آخثحہ],"يهٍ آخثحغ 1,2 èëè 3",8,"Arial");
                           ObjectSet    ("Name "+Name[آخثحہ], OBJPROP_COLOR, Red);
                        }
                        if ((MFI_3 < MFI_5 && LINE[5][0]==1)||(MFI_3 > MFI_5 && LINE[5][0]==-1))
                        {
                           ObjectDelete ("MFI "+âًهىے(LINE[3][3]));
                           ObjectCreate ("MFI "+âًهىے(LINE[3][3]),OBJ_TEXT,0,LINE[3][3],LINE[5][4]+shift_Y*LINE[5][0],0,0,0,0);
                           ObjectSetText("MFI "+âًهىے(LINE[3][3]),DoubleToStr(MFI_3,0),8,"Arial");
                           ObjectSet    ("MFI "+âًهىے(LINE[3][3]),OBJPROP_COLOR, ضآإز);
                           ObjectDelete ("MFI "+âًهىے(LINE[5][3]));
                           ObjectCreate ("MFI "+âًهىے(LINE[5][3]),OBJ_TEXT,0,LINE[5][3],LINE[5][4]+shift_Y*LINE[5][0],0,0,0,0);
                           ObjectSetText("MFI "+âًهىے(LINE[5][3]),DoubleToStr(MFI_5,0),8,"Arial");
                           ObjectSet    ("MFI "+âًهىے(LINE[5][3]),OBJPROP_COLOR, ضآإز);
                           ObjectSetText("Name "+Name[آخثحہ],"حهٍ نèâهًمهيِèè MFI 3 è 5 آخثحغ",8,"Arial");
                           ObjectSet    ("Name "+Name[آخثحہ], OBJPROP_COLOR, Red);
                        }
                        break;
                     case 6 ://ٍهêَùàے آîëيà a
                        X1=LINE[6][3]+(LINE[6][3]-LINE[6][1])*0.38;
                        X2=LINE[6][3]+(LINE[6][3]-LINE[6][1])*0.62;
                        Y1=LINE[6][4]+(LINE[6][2]-LINE[6][4])*0.50; 
                        Y2=LINE[6][4]+(LINE[6][2]-LINE[6][4])*0.62;
                        break;
                     case 7 ://ٍهêَùàے آîëيà b
                        X2=LINE[7][3]+(LINE[7][3]-LINE[6][1])/0.38;
                        X1=LINE[7][3]+(LINE[7][3]-LINE[6][1])/0.62;
                        Y1=LINE[6][4]-MathAbs(LINE[6][2]-LINE[6][4])*LINE[7][0]*1.00; 
                        Y2=LINE[6][4]-MathAbs(LINE[6][2]-LINE[6][4])*LINE[7][0]*1.62;
                        break;
                     case 8 ://ٍهêَùàے آîëيà c
                        X1=LINE[7][1]+(LINE[8][3]-LINE[6][3])*1.38;
                        X2=LINE[7][1]+(LINE[8][3]-LINE[6][3])*1.62;
                        Y1=LINE[8][4]-MathAbs(LINE[8][2]-LINE[8][4])*LINE[8][0]*0.38; 
                        Y2=LINE[8][4]-MathAbs(LINE[8][2]-LINE[8][4])*LINE[8][0]*0.50;
                        if (LINE[6][3]!=LINE[7][1])
                        {
                           ObjectSet(Name[آخثحہ], OBJPROP_COLOR, Red);
                           ObjectSetText("Name "+Name[آخثحہ],"يهٍ آخثحغ a",8,"Arial");
                           ObjectSet    ("Name "+Name[آخثحہ], OBJPROP_COLOR, Red);
                        }
                        break;
                     case 9 ://ٍهêَùàے آîëيà d
                        X1=LINE[9][3]+(LINE[8][3]-LINE[8][1])*0.38;
                        X2=LINE[9][3]+(LINE[8][3]-LINE[8][1])*0.62;
                        Y1=LINE[9][2]-MathAbs(LINE[6][2]-LINE[8][4])*LINE[9][0]*0.62; 
                        Y2=LINE[9][2]-MathAbs(LINE[6][2]-LINE[8][4])*LINE[9][0]*1.00;
                         if (LINE[6][3]!=LINE[7][1] || LINE[7][3]!=LINE[8][1])
                        {
                           ObjectSet(Name[آخثحہ], OBJPROP_COLOR, Red);
                           ObjectSetText("Name "+Name[آخثحہ],"يهٍ آخثحغ a èëè b ",8,"Arial");
                           ObjectSet    ("Name "+Name[آخثحہ], OBJPROP_COLOR, Red);
                        }
                        break;
                     case 10 ://ٍهêَùàے آîëيà e
                        X1=LINE[10][3]+(LINE[10][3]-LINE[10][1])*0.38;
                        X2=LINE[10][3]+(LINE[10][3]-LINE[10][1])*0.62;
                        Y1=LINE[10][4]-MathAbs(LINE[10][2]-LINE[10][4])*LINE[10][0]*0.38; 
                        Y2=LINE[10][4]-MathAbs(LINE[10][2]-LINE[10][4])*LINE[10][0]*0.62;
                        if (LINE[6][3]!=LINE[7][1] || LINE[7][3]!=LINE[8][1] || LINE[8][3]!=LINE[9][1])
                        {
                           ObjectSet(Name[آخثحہ], OBJPROP_COLOR, Red);
                           ObjectSetText("Name "+Name[آخثحہ],"يهٍ آخثحغ a,b èëè c",8,"Arial");
                           ObjectSet    ("Name "+Name[آخثحہ], OBJPROP_COLOR, Red);
                        }
                        break;
                  }//switch
            }
            ObjectCreate("ض "+Name[آخثحہ], OBJ_TREND, 0,LINE[آخثحہ][3],LINE[آخثحہ][4],X1,Y1);
            ObjectSet   ("ض "+Name[آخثحہ], OBJPROP_COLOR, ضآإز);    // ضâهٍ   
            ObjectSet   ("ض "+Name[آخثحہ], OBJPROP_STYLE, STYLE_DASH);// رٍèëü   
            ObjectSet   ("ض "+Name[آخثحہ], OBJPROP_WIDTH, 0);
            ObjectSet   ("ض "+Name[آخثحہ], OBJPROP_BACK,  true);
            ObjectSet   ("ض "+Name[آخثحہ], OBJPROP_RAY,   false);     // ثَ÷   
               
            ObjectCreate("ضهëü "+Name[آخثحہ], OBJ_RECTANGLE,0,0,0,0,0);
            ObjectSet   ("ضهëü "+Name[آخثحہ], OBJPROP_STYLE, STYLE_DASH);
            ObjectSet   ("ضهëü "+Name[آخثحہ], OBJPROP_COLOR, ضآإز);
            ObjectSet   ("ضهëü "+Name[آخثحہ], OBJPROP_BACK,  false);
            ObjectSet   ("ضهëü "+Name[آخثحہ], OBJPROP_TIME1 ,X1);
            ObjectSet   ("ضهëü "+Name[آخثحہ], OBJPROP_PRICE1,Y1);
            ObjectSet   ("ضهëü "+Name[آخثحہ], OBJPROP_TIME2 ,X2);
            ObjectSet   ("ضهëü "+Name[آخثحہ], OBJPROP_PRICE2,Y2);
         }
      }//-آîëيû 1 - ه --------------------------------------------------------------------------------------------------------+
   }//for
  
   ضآإز = color_per(per);
   for(k=1; k<=10; k++) 
   {
      ObjectDelete ("Name "+k);
      if (ObjectFind(Name[k])==0)
      {
         ObjectCreate ("Name "+k, OBJ_LABEL, 0, 0, 0);// رîçنàيèه îلْ.
         ObjectSetText("Name "+k, Name[k]+âًهىے(LINE[k][1])+" "+DoubleToStr(LINE[k][2],Digits)+" "+âًهىے(LINE[k][3])+" "+DoubleToStr(LINE[k][4],Digits)     ,8,"Arial");
         ObjectSet    ("Name "+k, OBJPROP_CORNER, 3);
         ObjectSet    ("Name "+k, OBJPROP_XDISTANCE, 300);
         ObjectSet    ("Name "+k, OBJPROP_YDISTANCE, 10+10*k);
         ObjectSet    ("Name "+k, OBJPROP_COLOR, ضآإز);    // ضâهٍ 
      }
      else //î÷èٌٍêà çيà÷هيèé َنàëهييîé âîëيû
      {
         LINE[k][0]=0;LINE[k][1]=0;LINE[k][2]=0;LINE[k][3]=0;LINE[k][4]=0;LINE[k][5]=0;
         //َنàëèٍü_îلüهêٍû("Name");
         //َنàëèٍü_îلüهêٍû("MFI");
         ObjectDelete("ض "+Name[k]);
         ObjectDelete("شذہتزہث "+Name[k]);
         ObjectDelete("color_MFI "+Name[k]+"1");
         ObjectDelete("color_MFI "+Name[k]+"2");
         ObjectDelete("color_MFI "+Name[k]+"3");
         ObjectDelete("color_MFI "+Name[k]+"4");
         ObjectDelete("color_MFI "+Name[k]+"5");
         َنàëèٍü_îلüهêٍû("بيôî "+Name[k]);
         ObjectDelete("ضهëü "+Name[k]);
         ObjectDelete("Name "+Name[k]);
      } //î÷èٌٍêà çيà÷هيèé َنàëهييîé âîëيû
   }
return;
}
//////////////////////////////////////////////////////////////////////
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو*/
 
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو*/
//////////////////////////////////////////////////////////////////////
void redraw_LINE(string old, string بجك)
{
   datetime x1,x2;
   double   y1,y2;
   رزبثـ = ObjectGet(old, OBJPROP_STYLE);
   ضآإز = ObjectGet(old, OBJPROP_COLOR);
   ز_ثبحبب = ObjectGet(old, OBJPROP_WIDTH);    // ز ثبحبب
   x1 =     ObjectGet(old, OBJPROP_TIME1);
   y1 =     ObjectGet(old, OBJPROP_PRICE1);
   x2 =     ObjectGet(old, OBJPROP_TIME2);
   y2 =     ObjectGet(old, OBJPROP_PRICE2);
   if (x1>x2)
   {
      x2 =     ObjectGet(old, OBJPROP_TIME1);
      y2 =     ObjectGet(old, OBJPROP_PRICE1);
      x1 =     ObjectGet(old, OBJPROP_TIME2);
      y1 =     ObjectGet(old, OBJPROP_PRICE2);
   }
   ObjectDelete(بجك); //َنàëےهٍ نâîéيèêà
   ObjectCreate(بجك, OBJ_TREND, 0,  x1,y1,x2,y2);
   ObjectSet   (بجك, OBJPROP_COLOR, ضآإز);    // ضâهٍ   
   ObjectSet   (بجك, OBJPROP_STYLE, رزبثـ);    // رٍèëü   
   ObjectSet   (بجك, OBJPROP_WIDTH, ز_ثبحبب);    // ز ثبحبب
   ObjectSet   (بجك, OBJPROP_BACK,  true);
   ObjectSet   (بجك, OBJPROP_RAY,   false);    // ثَ÷   
   ObjectDelete(old);
 
return;
}
//////////////////////////////////////////////////////////////////////
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو*/
 
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو*/
//////////////////////////////////////////////////////////////////////
//-- شذہتزہث -------------------------------------------------------------------------
bool شذہتزہث(datetime t,string بجك)
{
   int i=0,KOD;
   int زإت_ءہذ=iBarShift(NULL,0,t,FALSE);
   double fr_DN = iFractals(NULL,0,MODE_LOWER,زإت_ءہذ);
   double fr_UP = iFractals(NULL,0,MODE_UPPER,زإت_ءہذ);
   if (fr_UP==0 &&fr_DN ==0) return(false);
   ObjectDelete("شذہتزہث "+بجك);
   double y,Y,fr;
   if (ObjectFind(بجك)==0)
   {
      if (fr_DN!=0) fr=fr_DN; else fr=fr_UP;
      if (t==ObjectGet(بجك, OBJPROP_TIME2)) ObjectSet(بجك, OBJPROP_PRICE2,fr);//دًèâےçêà âîëيû ê شذہتزہثس
      if (t==ObjectGet(بجك, OBJPROP_TIME1)) ObjectSet(بجك, OBJPROP_PRICE1,fr);//دًèâےçêà âîëيû ê شذہتزہثس
      ضآإز  = ObjectGet(بجك, OBJPROP_COLOR);
      ز_ثبحبب = ObjectGet(بجك, OBJPROP_WIDTH);    // ز ثبحبب
   }
   else
   {
      ضآإز  = Yellow;
      ز_ثبحبب = 1;    // ز ثبحبب
   }
   if (fr_DN != 0) {Y = fr_DN-shift_Y * ز_ثبحبب + 0.5 * shift_Y; y = Y + 0.7 * shift_Y; KOD=218;} 
   if (fr_UP != 0) {Y = fr_UP+shift_Y * ز_ثبحبب + 0.5 * shift_Y; y = Y - 1.2 * shift_Y; KOD=217;}
   ObjectCreate("شذہتزہث "+بجك, OBJ_ARROW,0,t,Y,0,0,0,0);
   ObjectSet   ("شذہتزہث "+بجك, OBJPROP_ARROWCODE,KOD);
   ObjectSet   ("شذہتزہث "+بجك, OBJPROP_COLOR,ضآإز );
   for(int k=زإت_ءہذ-2; k<=زإت_ءہذ+2; k++) 
   {
      i++;
      ObjectDelete("color_MFI "+بجك+i);
      ObjectCreate("color_MFI "+بجك+i, OBJ_ARROW,0,Time[k],y,0,0,0,0);
      ObjectSet   ("color_MFI "+بجك+i, OBJPROP_ARROWCODE,117);
      ObjectSet   ("color_MFI "+بجك+i, OBJPROP_WIDTH, 0);    // ز ثبحبب
      ObjectSet   ("color_MFI "+بجك+i, OBJPROP_BACK, true);
      if ( iVolume(NULL, 0, k) > iVolume(NULL, 0, k+1) && iBWMFI(NULL, 0, k) > iBWMFI(NULL, 0, k+1) ) ObjectSet("color_MFI "+بجك+i, OBJPROP_COLOR,Lime); //اهëهيûé
      if ( iVolume(NULL, 0, k) < iVolume(NULL, 0, k+1) && iBWMFI(NULL, 0, k) < iBWMFI(NULL, 0, k+1) ) ObjectSet("color_MFI "+بجك+i, OBJPROP_COLOR,Brown); //سâےنà‏ùèé
      if ( iVolume(NULL, 0, k) < iVolume(NULL, 0, k+1) && iBWMFI(NULL, 0, k) > iBWMFI(NULL, 0, k+1) ) ObjectSet("color_MFI "+بجك+i, OBJPROP_COLOR,Blue); //شàëüّèâûé
      if ( iVolume(NULL, 0, k) > iVolume(NULL, 0, k+1) && iBWMFI(NULL, 0, k) < iBWMFI(NULL, 0, k+1) ) ObjectSet("color_MFI "+بجك+i, OBJPROP_COLOR,Pink); //دًèٌهنà‏ùèé
      ObjectSet("شذہتزہث "+بجك, OBJPROP_WIDTH,ز_ثبحبب);    // ز ثبحبب
   }
return(true);
}
   //-- شذہتزہث -------------------------------------------------------------------------
//////////////////////////////////////////////////////////////////////
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو*/
 
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو
///////////////////////////////////////////////////////////////////
string âًهىے(int taim)
{
   string sTaim;
   //int YY=TimeYear(taim);   // Year         
   int MN=TimeMonth(taim);  // Month                  
   int DD=TimeDay(taim);    // Day         
   int HH=TimeHour(taim);   // Hour                  
   int MM=TimeMinute(taim); // Minute   
 
   if (DD<10) sTaim = "0"+DoubleToStr(DD,0);
   else sTaim = DoubleToStr(DD,0);
   sTaim = sTaim+"/";
   if (MN<10) sTaim = sTaim+"0"+DoubleToStr(MN,0);
   else sTaim = sTaim+DoubleToStr(MN,0);
   sTaim = sTaim+" ";
   if (HH<10) sTaim = sTaim+"0"+DoubleToStr(HH,0);
   else sTaim = sTaim+DoubleToStr(HH,0);
   if (MM<10) sTaim = sTaim+":0"+DoubleToStr(MM,0);
   else sTaim = sTaim+":"+DoubleToStr(MM,0);
   return(sTaim);
}
//*////////////////////////////////////////////////////////////////*//
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو
 
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو
//////////////////////////////////////////////////////////////////////
int N_آîëيû(string Obj_Name)
{
   if (ObjectType(Obj_Name)!=2) return(-1);//ٍèï îلüهêٍà يه ëèيèے
   int V=-1;
   string volna = StringSubstr( Obj_Name, 0, 2);
   if (volna=="1 ") V=1; 
   if (volna=="2 ") V=2; 
   if (volna=="3 ") V=3; 
   if (volna=="4 ") V=4; 
   if (volna=="5 ") V=5; 
   if (volna=="a ") V=6; 
   if (volna=="b ") V=7; 
   if (volna=="c ") V=8; 
   if (volna=="d ") V=9; 
   if (volna=="e ") V=10;
   if (V<0) return(-1);
   if (StringFind(Obj_Name,"آخثحہ",2) != 2) return(V);
   //خٌٍàëèٌü ٍîëüêî آخثحû îلîçيà÷هييûه "آخثحہ"
   if (StringFind(Obj_Name,string_ïهً(per),8) == 8) //âîëيà ٌîçنàيà â ‎ٍîى âًهىهييîى ïهًèîنه
   {
      ضآإز = color_per(per);
      ObjectSet(Obj_Name,OBJPROP_COLOR,ضآإز);
      return(V);
   }
return(-1);
}
//////////////////////////////////////////////////////////////////////
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو*/
 
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو
//////////////////////////////////////////////////////////////////////
color color_per(int per)
{
      switch(per)
      {
         case 1    :  //1 ىèيٍَà
            return(ض1);
         case 5    :  //5 ىèيٍَ 
            return(ض2);
         case 15   :  //15 ىèيٍَ
            return(ض3);
         case 30   :  //30 ىèيٍَ
            return(ض4);
         case 60   :  //1 ÷àٌ
            return(ض5);
         case 240  :  //4 ÷àٌà
            return(ض6);
         case 1440 :  //1 نهيü
            return(ض7);
         case 10080:  //1 يهنهëے
            return(ض8);
         case 43200:  //1 ىهٌےِ
            return(ض9);
      }
return(Gray);
}
//////////////////////////////////////////////////////////////////////
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو*/
 
 
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو
//////////////////////////////////////////////////////////////////////
double خلüهى_آîëيû(string Name)
{
   double vol=0;
   int حà÷_ءہذ,تîي_ءہذ;
   int i=0;
   حà÷_ءہذ=iBarShift(NULL,0,ObjectGet(Name, OBJPROP_TIME1),FALSE);
   تîي_ءہذ=iBarShift(NULL,0,ObjectGet(Name, OBJPROP_TIME2),FALSE);
   for(int n=تîي_ءہذ; n<=حà÷_ءہذ; n++) 
   {
      vol = vol + iVolume(NULL,0,n);
      i++;
   }
   vol = vol/i;
//   vol = iVolume(NULL,0,حà÷_ءہذ);
return(vol);
}
//////////////////////////////////////////////////////////////////////
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو*/
 
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو
//*////////////////////////////////////////////////////////////////*//
string string_ïهً(int per)
{
   switch(per)
   {
      case 1    : return("M_1");   //1 ىèيٍَà
         break;
      case 5    : return("M_5");   //5 ىèيٍَ 
         break;
      case 15   : return("M15");  //15 ىèيٍَ
         break;
      case 30   : return("M30");  //30 ىèيٍَ
         break;
      case 60   : return("H 1");   //1 ÷àٌ
         break;
      case 240  : return("H_4");   //4 ÷àٌà
         break;
      case 1440 : return("D_1");   //1 نهيü
         break;
      case 10080: return("W_1");   //1 يهنهëے
         break;
      case 43200: return("MN1");  //1 ىهٌےِ
         break;
   }
return("îّèلêà ïهًèîنà");
}
//*////////////////////////////////////////////////////////////////*//
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو
 
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو
//*////////////////////////////////////////////////////////////////*//
int َنàëèٍü_îلüهêٍû(string PreName)                                     //َنàëےهٍ îلüهêٍû يà÷èيà‏ùèهٌے يà PreName
  {
   for(int k=ObjectsTotal()-1; k>=0; k--) 
     {
      string Obj_Name=ObjectName(k);                           // اàïًàّèâàهى èىے îلْهêٍà
      string Head=StringSubstr(Obj_Name,0,StringLen(PreName)); // بçâëهêàهى ïهًâûه ٌèىîëû
 
      if (Head==PreName)// حàéنهي îلْهêٍ, ..
         {
         ObjectDelete(Obj_Name);
         }                  
     }
   return(0);
  }
//*////////////////////////////////////////////////////////////////*//
//ووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو