//+------------------------------------------------------------------+
//|                                       Amro_magnetic(AwadKAB).mq4 |
//|                               Copyright © 2011, AwadKAB Software |
//|                                awadkab@hotmail.com               |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2011, AwadKAB Software"
#property link      ""

#property indicator_chart_window

extern int Nbars_of_day=90;
extern string note1="H1-H9 Setting";
extern color color1=Green;
extern int width1=2;
extern int style1=0;
extern string note2="H10-H18 Setting";
extern color color2=LightGreen;
extern int width2=2;
extern int style2=0;
extern string note3="L1-L9 Setting";
extern color color3=Pink;
extern int width3=2;
extern int style3=0;
extern string note4="L10-L18 Setting";
extern color color4=Red;
extern int width4=2;
extern int style4=0;
extern string note5="Rectangel Color";
extern color Rec_color1=Orange;
extern color Rec_color2=Blue;
extern string note6="Comment Setting";
extern int corner=0;
extern string note7="Column 1";
extern int xdis1=10;
extern int ydis1=10;
extern int font_size1=10;
extern string font_type1="Arial";
extern color font_color1=Maroon;
extern string note8="Column 2";
extern int xdis2=70;
extern int ydis2=10;
extern int font_size2=10;
extern string font_type2="Arial";
extern color font_color2=Blue;
extern string note9="Price Label Setting";
extern bool show_price_Label=true;
extern int size=1;
extern string x_dis_LL="05:00";
extern string x_dis_HL="23:55";
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
deletobject();
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
deletobject();
//----
   return(0);
  }
  
  
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
  
double  HL1,HL2,HL3,HL4,HL5,HL6,HL7,HL8,HL9,HL10,HL11,HL12,HL13,HL14,HL15,HL16,HL17,HL18;
double LL1,LL2,LL3,LL4,LL5,LL6,LL7,LL8,LL9,LL10,LL11,LL12,LL13,LL14,LL15,LL16,LL17,LL18;
double rang1,rang2,rang3,rang4,rang5,rang6,rang7,rang8,rang9;
static int day=0;
double high,low;
if(TimeDay(Time[0])!=day){deletobject(); day=TimeDay(Time[0]);}
   int   i, counted_bars=IndicatorCounted();
//----
  int Nbars=Nbars_of_day*1440/Period()-1;
  double gn1=1.618033989;
  double gn2=0.618033989;
  double dig=1;
        int limit,b;
//----
      if (counted_bars<0) return(-1);
   if (counted_bars>0) counted_bars--;
   limit=Nbars-1;
   if(counted_bars>=1) limit=Nbars-counted_bars-1;
   if (limit<0) limit=0;

for (i=limit;i>=0;i--)   
 {
//--------
      int barD1=iBarShift(Symbol(),PERIOD_D1,Time[i],false);
      high=NormalizeDouble(iHigh(NULL,PERIOD_D1,barD1+1),Digits)/Point;
      low=NormalizeDouble(iLow(NULL,PERIOD_D1,barD1+1),Digits)/Point;
               if(Digits==2||Digits==4){ high=high*10; low=low*10; dig=10;}

         //double range=NormalizeDouble(high-low,Digits);
         double range=high-low;
         
         double golden_range=(MathSqrt(range+(range*gn2)))*10;
         rang1=golden_range*gn1;
         rang2=golden_range*(gn1+1);
         rang3=golden_range*(gn1+2);
         rang4=golden_range*(gn1+3);
         rang5=golden_range*(gn1+4);
         rang6=golden_range*(gn1+5);
         rang7=golden_range*(gn1+6);
         rang8=golden_range*(gn1+7);
         rang9=golden_range*(gn1+8);
       
         //--HL---
         
         HL1 = high + rang1;
         HL2 = high + rang2;
         HL3 = high + rang3;
         HL4 = high + rang4;
         HL5 = high + rang5;
         HL6 = high + rang6;
         HL7 = high + rang7;
         HL8 = high + rang8;
         HL9 = high + rang9;
         HL10 = high - rang1;      
         HL11 = high - rang2;
         HL12 = high - rang3;
         HL13 = high - rang4;
         HL14 = high - rang5;
         HL15 = high - rang6;
         HL16 = high - rang7;
         HL17 = high - rang8;
         HL18 = high - rang9;
   
         //--LL---
         
   
         LL1 = low + rang1;
         LL2 = low + rang2;
         LL3 = low + rang3;
         LL4 = low + rang4;
         LL5 = low + rang5;
         LL6 = low + rang6;
         LL7 = low + rang7;
         LL8 = low + rang8;
         LL9 = low + rang9;
         LL10 = low - rang1;
         LL11 = low - rang2;
         LL12 = low - rang3;
         LL13 = low - rang4;
         LL14 = low - rang5;
         LL15 = low - rang6;
         LL16 = low - rang7;
         LL17 = low - rang8;
         LL18 = low - rang9;
         
        Tline("HL1"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL1*Point/dig,Digits),width1,color1,style1,"= "+DoubleToStr(NormalizeDouble(HL1*Point/dig,Digits),Digits));
        Tline("HL2"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL2*Point/dig,Digits),width1,color1,style1,"= "+DoubleToStr(NormalizeDouble(HL2*Point/dig,Digits),Digits));
        Tline("HL3"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL3*Point/dig,Digits),width1,color1,style1,"= "+DoubleToStr(NormalizeDouble(HL3*Point/dig,Digits),Digits));
        Tline("HL4"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL4*Point/dig,Digits),width1,color1,style1,"= "+DoubleToStr(NormalizeDouble(HL4*Point/dig,Digits),Digits));
        Tline("HL5"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL5*Point/dig,Digits),width1,color1,style1,"= "+DoubleToStr(NormalizeDouble(HL5*Point/dig,Digits),Digits));
        Tline("HL6"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL6*Point/dig,Digits),width1,color1,style1,"= "+DoubleToStr(NormalizeDouble(HL6*Point/dig,Digits),Digits));
        Tline("HL7"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL7*Point/dig,Digits),width1,color1,style1,"= "+DoubleToStr(NormalizeDouble(HL7*Point/dig,Digits),Digits));
        Tline("HL8"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL8*Point/dig,Digits),width1,color1,style1,"= "+DoubleToStr(NormalizeDouble(HL8*Point/dig,Digits),Digits));
        Tline("HL9"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL9*Point/dig,Digits),width1,color1,style1,"= "+DoubleToStr(NormalizeDouble(HL9*Point/dig,Digits),Digits));
        Tline("HL10"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL10*Point/dig,Digits),width2,color2,style2,"= "+DoubleToStr(NormalizeDouble(HL10*Point/dig,Digits),Digits)+"\n Megnatic Area = "+DoubleToStr(LL1/dig-HL10/dig,0)+" Pips");
        Tline("HL11"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL11*Point/dig,Digits),width2,color2,style2,"= "+DoubleToStr(NormalizeDouble(HL11*Point/dig,Digits),Digits));
        Tline("HL12"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL12*Point/dig,Digits),width2,color2,style2,"= "+DoubleToStr(NormalizeDouble(HL12*Point/dig,Digits),Digits));
        Tline("HL13"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL13*Point/dig,Digits),width2,color2,style2,"= "+DoubleToStr(NormalizeDouble(HL13*Point/dig,Digits),Digits));
        Tline("HL14"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL14*Point/dig,Digits),width2,color2,style2,"= "+DoubleToStr(NormalizeDouble(HL14*Point/dig,Digits),Digits));
        Tline("HL15"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL15*Point/dig,Digits),width2,color2,style2,"= "+DoubleToStr(NormalizeDouble(HL15*Point/dig,Digits),Digits));
        Tline("HL16"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL16*Point/dig,Digits),width2,color2,style2,"= "+DoubleToStr(NormalizeDouble(HL16*Point/dig,Digits),Digits));
        Tline("HL17"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL17*Point/dig,Digits),width2,color2,style2,"= "+DoubleToStr(NormalizeDouble(HL17*Point/dig,Digits),Digits)); 
        Tline("HL18"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(HL18*Point/dig,Digits),width2,color2,style2,"= "+DoubleToStr(NormalizeDouble(HL18*Point/dig,Digits),Digits));
        
        Tline("LL1"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL1*Point/dig,Digits),width3,color3,style3,"= "+DoubleToStr(NormalizeDouble(LL1*Point/dig,Digits),Digits)+"\n Megnatic Area = "+DoubleToStr(LL1/dig-HL10/dig,0)+" Pips");
        Tline("LL2"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL2*Point/dig,Digits),width3,color3,style3,"= "+DoubleToStr(NormalizeDouble(LL2*Point/dig,Digits),Digits));
        Tline("LL3"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL3*Point/dig,Digits),width3,color3,style3,"= "+DoubleToStr(NormalizeDouble(LL3*Point/dig,Digits),Digits));
        Tline("LL4"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL4*Point/dig,Digits),width3,color3,style3,"= "+DoubleToStr(NormalizeDouble(LL4*Point/dig,Digits),Digits));
        Tline("LL5"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL5*Point/dig,Digits),width3,color3,style3,"= "+DoubleToStr(NormalizeDouble(LL5*Point/dig,Digits),Digits));
        Tline("LL6"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL6*Point/dig,Digits),width3,color3,style3,"= "+DoubleToStr(NormalizeDouble(LL6*Point/dig,Digits),Digits));
        Tline("LL7"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL7*Point/dig,Digits),width3,color3,style3,"= "+DoubleToStr(NormalizeDouble(LL7*Point/dig,Digits),Digits));
        Tline("LL8"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL8*Point/dig,Digits),width3,color3,style3,"= "+DoubleToStr(NormalizeDouble(LL8*Point/dig,Digits),Digits));
        Tline("LL9"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL9*Point/dig,Digits),width3,color3,style3,"= "+DoubleToStr(NormalizeDouble(LL9*Point/dig,Digits),Digits));
        Tline("LL10"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL10*Point/dig,Digits),width4,color4,style4,"= "+DoubleToStr(NormalizeDouble(LL10*Point/dig,Digits),Digits));
        Tline("LL11"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL11*Point/dig,Digits),width4,color4,style4,"= "+DoubleToStr(NormalizeDouble(LL11*Point/dig,Digits),Digits));
        Tline("LL12"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL12*Point/dig,Digits),width4,color4,style4,"= "+DoubleToStr(NormalizeDouble(LL12*Point/dig,Digits),Digits));
        Tline("LL13"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL13*Point/dig,Digits),width4,color4,style4,"= "+DoubleToStr(NormalizeDouble(LL13*Point/dig,Digits),Digits));
        Tline("LL14"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL14*Point/dig,Digits),width4,color4,style4,"= "+DoubleToStr(NormalizeDouble(LL14*Point/dig,Digits),Digits));
        Tline("LL15"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL15*Point/dig,Digits),width4,color4,style4,"= "+DoubleToStr(NormalizeDouble(LL15*Point/dig,Digits),Digits));
        Tline("LL16"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL16*Point/dig,Digits),width4,color4,style4,"= "+DoubleToStr(NormalizeDouble(LL16*Point/dig,Digits),Digits));
        Tline("LL17"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL17*Point/dig,Digits),width4,color4,style4,"= "+DoubleToStr(NormalizeDouble(LL17*Point/dig,Digits),Digits)); 
        Tline("LL18"+" "+TimeToStr(Time[i],TIME_DATE),i,NormalizeDouble(LL18*Point/dig,Digits),width4,color4,style4,"= "+DoubleToStr(NormalizeDouble(LL18*Point/dig,Digits),Digits));
        if(HL10<LL1)
        {
        Rec("Megnatic Area"+" "+TimeToStr(Time[i],TIME_DATE),i,HL10*Point/dig,LL1*Point/dig,1,Rec_color1,0);
        }else
        {
         Rec("Megnatic Area"+" "+TimeToStr(Time[i],TIME_DATE),i,HL10*Point/dig,LL1*Point/dig,1,Rec_color2,0);
        }
if(i==0)
{

   drawL("Range1",xdis1,ydis1,"Range 1", font_size1, font_type1, font_color1,corner);
   drawL("Range2",xdis1,ydis1+20,"Range 2", font_size1, font_type1, font_color1,corner);
   drawL("Range3",xdis1,ydis1+20*2,"Range 3", font_size1, font_type1, font_color1,corner);
   drawL("Range4",xdis1,ydis1+20*3,"Range 4", font_size1, font_type1, font_color1,corner);
   drawL("Range5",xdis1,ydis1+20*4,"Range 5", font_size1, font_type1, font_color1,corner);
   drawL("Range6",xdis1,ydis1+20*5,"Range 6", font_size1, font_type1, font_color1,corner);
   drawL("Range7",xdis1,ydis1+20*6,"Range 7", font_size1, font_type1, font_color1,corner);
   drawL("Range8",xdis1,ydis1+20*7,"Range 8", font_size1, font_type1, font_color1,corner);
   drawL("Today_Range",xdis1,ydis1+20*8,"Today_Range", font_size1, font_type1, font_color1,corner);
    drawL("===",xdis1,ydis1+20*9,"=======", font_size1, font_type1, font_color1,corner);
  
   drawL("Pw_High",xdis1,ydis1+20*10,"Pw High", font_size1, font_type1, font_color1,corner);
   drawL("Pw_Low",xdis1,ydis1+20*11,"Pw Low", font_size1, font_type1, font_color1,corner);
   drawL("Pw_Open",xdis1,ydis1+20*12,"Pw Open", font_size1, font_type1, font_color1,corner);

   
   drawL("Range12",xdis2,ydis2,DoubleToStr(rang1/dig,0), font_size2, font_type2, font_color2,corner);
   drawL("Range22",xdis2,ydis2+20,DoubleToStr(rang2/dig,0), font_size2, font_type2, font_color2,corner);
   drawL("Range32",xdis2,ydis2+20*2,DoubleToStr(rang3/dig,0), font_size2, font_type2, font_color2,corner);
   drawL("Range42",xdis2,ydis2+20*3,DoubleToStr(rang4/dig,0), font_size2, font_type2, font_color2,corner);
   drawL("Range52",xdis2,ydis2+20*4,DoubleToStr(rang5/dig,0), font_size2, font_type2, font_color2,corner);
   drawL("Range62",xdis2,ydis2+20*5,DoubleToStr(rang6/dig,0), font_size2, font_type2, font_color2,corner);
   drawL("Range72",xdis2,ydis2+20*6,DoubleToStr(rang7/dig,0), font_size2, font_type2, font_color2,corner);
   drawL("Range82",xdis2,ydis2+20*7,DoubleToStr(rang8/dig,0), font_size2, font_type2, font_color2,corner);
   drawL("Today_Range_",xdis2+30,ydis2+20*8,DoubleToStr((iHigh(Symbol(),PERIOD_D1,0)-iLow(Symbol(),PERIOD_D1,0))/Point,0), font_size2, font_type2, font_color2,corner);
   
   drawL("Pw_Highh",xdis2,ydis2+20*10,DoubleToStr(trim(high),0), font_size2, font_type2, font_color2,corner);
   drawL("Pw_Loww",xdis2,ydis2+20*11,DoubleToStr(trim(low),0), font_size2, font_type2, font_color2,corner);
   drawL("Pw_Openn",xdis2,ydis2+20*12,DoubleToStr(trim(iOpen(Symbol(),PERIOD_D1,barD1)/Point),0), font_size2, font_type2, font_color2,corner);
   
   if(show_price_Label==true)
   {
   drawPrice("price_LL1",NormalizeDouble(LL1*Point/dig,Digits),color3,size,0,i,60*60*24,x_dis_LL);
   drawPrice("price_LL2",NormalizeDouble(LL2*Point/dig,Digits),color3,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL3",NormalizeDouble(LL3*Point/dig,Digits),color3,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL4",NormalizeDouble(LL4*Point/dig,Digits),color3,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL5",NormalizeDouble(LL5*Point/dig,Digits),color3,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL6",NormalizeDouble(LL6*Point/dig,Digits),color3,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL7",NormalizeDouble(LL7*Point/dig,Digits),color3,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL8",NormalizeDouble(LL8*Point/dig,Digits),color3,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL9",NormalizeDouble(LL9*Point/dig,Digits),color3,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL10",NormalizeDouble(LL10*Point/dig,Digits),color4,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL11",NormalizeDouble(LL11*Point/dig,Digits),color4,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL12",NormalizeDouble(LL12*Point/dig,Digits),color4,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL13",NormalizeDouble(LL13*Point/dig,Digits),color4,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL14",NormalizeDouble(LL14*Point/dig,Digits),color4,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL15",NormalizeDouble(LL15*Point/dig,Digits),color4,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL16",NormalizeDouble(LL16*Point/dig,Digits),color4,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL17",NormalizeDouble(LL17*Point/dig,Digits),color4,size,1,i,60*60*24,x_dis_LL);
   drawPrice("price_LL18",NormalizeDouble(LL18*Point/dig,Digits),color4,size,1,i,60*60*24,x_dis_LL);

   drawPrice("price_HL1",NormalizeDouble(HL1*Point/dig,Digits),color1,size,1,i,0,x_dis_HL);
   drawPrice("price_HL2",NormalizeDouble(HL2*Point/dig,Digits),color1,size,1,i,0,x_dis_HL);
   drawPrice("price_HL3",NormalizeDouble(HL3*Point/dig,Digits),color1,size,1,i,0,x_dis_HL);
   drawPrice("price_HL4",NormalizeDouble(HL4*Point/dig,Digits),color1,size,1,i,0,x_dis_HL);
   drawPrice("price_HL5",NormalizeDouble(HL5*Point/dig,Digits),color1,size,1,i,0,x_dis_HL);
   drawPrice("price_HL6",NormalizeDouble(HL6*Point/dig,Digits),color1,size,1,i,0,x_dis_HL);
   drawPrice("price_HL7",NormalizeDouble(HL7*Point/dig,Digits),color1,size,1,i,0,x_dis_HL);
   drawPrice("price_HL8",NormalizeDouble(HL8*Point/dig,Digits),color1,size,1,i,0,x_dis_HL);
   drawPrice("price_HL9",NormalizeDouble(HL9*Point/dig,Digits),color1,size,1,i,0,x_dis_HL);
   drawPrice("price_HL10",NormalizeDouble(HL10*Point/dig,Digits),color2,size,1,i,0,x_dis_HL);
   drawPrice("price_HL11",NormalizeDouble(HL11*Point/dig,Digits),color2,size,1,i,0,x_dis_HL);
   drawPrice("price_HL12",NormalizeDouble(HL12*Point/dig,Digits),color2,size,1,i,0,x_dis_HL);
   drawPrice("price_HL13",NormalizeDouble(HL13*Point/dig,Digits),color2,size,1,i,0,x_dis_HL);
   drawPrice("price_HL14",NormalizeDouble(HL14*Point/dig,Digits),color2,size,1,i,0,x_dis_HL);
   drawPrice("price_HL15",NormalizeDouble(HL15*Point/dig,Digits),color2,size,1,i,0,x_dis_HL);
   drawPrice("price_HL16",NormalizeDouble(HL16*Point/dig,Digits),color2,size,1,i,0,x_dis_HL);
   drawPrice("price_HL17",NormalizeDouble(HL17*Point/dig,Digits),color2,size,1,i,0,x_dis_HL);
   drawPrice("price_HL18",NormalizeDouble(HL18*Point/dig,Digits),color2,size,1,i,0,x_dis_HL);
}

}
      //----
 }
   return(0);
  }
//+------------------------Trend Drawing------------------------------------------+
void Tline(string name,int i,double p1,int width1,color color1,int style1,string des)
{

   ObjectCreate(name,OBJ_TREND,0,0,0,0,0);
   ObjectSet(name,OBJPROP_PRICE1,p1);
   ObjectSet(name,OBJPROP_TIME1,StrToTime(TimeToStr(Time[i],TIME_DATE)+" "+"00:00"));
   ObjectSet(name,OBJPROP_PRICE2,p1);
   ObjectSet(name,OBJPROP_TIME2,StrToTime(TimeToStr(Time[i],TIME_DATE)+" "+"23:00"));
   if(i>0)ObjectSet(name,OBJPROP_RAY,false);
   else
 ObjectSet(name,OBJPROP_RAY,true);
   ObjectSet(name,OBJPROP_COLOR,color1);
   ObjectSet(name,OBJPROP_WIDTH,width1);
   ObjectSet(name,OBJPROP_STYLE,style1);
   ObjectSet(name,OBJPROP_BACK,true);
   string sObjDesc = StringConcatenate("",des);  
   ObjectSetText(name, sObjDesc,10,"Times New Roman",Black);

}
//-----------------------------------------------------------------------------------------
//--------------------------Draw Lable-----------------------------------------------------
int drawL(string name,int disx,int disy,string txt,int size_font,string type_font,color color1,int corner)
{
 ObjectCreate(name,OBJ_LABEL,0,0,0,0);
 ObjectSet(name,OBJPROP_XDISTANCE,disx);
 ObjectSet(name,OBJPROP_YDISTANCE,disy);
 ObjectSetText(name,txt,size_font,type_font,color1);
ObjectSet(name,OBJPROP_CORNER,corner);
}

//-----------------------------------------------------------------------------------------
//---------------------------Draw Rec-----------------------------------------
void Rec(string name,int i,double p1,double p2,int width1,color color1,int style1)
{
   ObjectCreate(name,OBJ_RECTANGLE,0,0,0,0,0);
   ObjectSet(name,OBJPROP_PRICE1,p1);
   ObjectSet(name,OBJPROP_TIME1,StrToTime(TimeToStr(Time[i],TIME_DATE)+" "+"00:00"));
   ObjectSet(name,OBJPROP_PRICE2,p2);
   ObjectSet(name,OBJPROP_TIME2,StrToTime(TimeToStr(Time[i],TIME_DATE)+" "+"23:00"));

   ObjectSet(name,OBJPROP_COLOR,color1);
   ObjectSet(name,OBJPROP_WIDTH,width1);
   ObjectSet(name,OBJPROP_STYLE,style1);
   ObjectSet("aa",OBJPROP_SCALE,0);

}

//+------------------------------------------------------------------+
//+-------------------------Trem String------------------------------
int trim(double h)
{double last;
   string no=DoubleToStr(h,0);
   string nn[];
   int i;
   last=h;
   while(last>9)
   {last=0;
     for(i=0;i<StringLen(no);i++)
     {
        nn[i]=StringSubstr(no,i,1);      
        last=StrToDouble(nn[i])+last;     
     }  
     no=DoubleToStr(last,0);
   }
      
   return(last);
}

//-----------------------------------------------------------------------------------------
int drawPrice(string name,double p1,color color1,int width1,int style1,int i,int d,string h)
{
 ObjectCreate(name,OBJ_ARROW,0,0,0);
 ObjectSet(name,OBJPROP_ARROWCODE,6);
 ObjectSet(name,OBJPROP_TIME1,StrToTime(TimeToStr(iTime(NULL,PERIOD_D1,i)+d,TIME_DATE)+" "+h));
 ObjectSet(name,OBJPROP_PRICE1,p1);
 ObjectSet(name,OBJPROP_COLOR,color1);
 ObjectSet(name,OBJPROP_WIDTH,width1);
 ObjectSet(name,OBJPROP_STYLE,style1);
 ObjectSetText(name,DoubleToStr(p1,Digits),10,"Arial",color1);
 
 

}

//-------------------------ObjectDelete----------------------------------------------------
int deletobject()
{
//----
  int i;  

for (i=Bars;i>=0;i--)   
 {
   ObjectDelete("HL1"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL2"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL3"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL4"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL5"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL6"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL7"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL8"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL9"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL10"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL11"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL12"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL13"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL14"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL15"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL16"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL17"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("HL18"+" "+TimeToStr(Time[i],TIME_DATE));
   
   ObjectDelete("LL1"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL2"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL3"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL4"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL5"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL6"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL7"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL8"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL9"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL10"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL11"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL12"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL13"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL14"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL15"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL16"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL17"+" "+TimeToStr(Time[i],TIME_DATE));
   ObjectDelete("LL18"+" "+TimeToStr(Time[i],TIME_DATE));
   
ObjectDelete("Megnatic Area"+" "+TimeToStr(Time[i],TIME_DATE));

 }
 ObjectDelete("Range1");
 ObjectDelete("Range12");
 ObjectDelete("Range2");
 ObjectDelete("Range22");
 ObjectDelete("Range3");
 ObjectDelete("Range32");
 ObjectDelete("Range4");
 ObjectDelete("Range42");
 ObjectDelete("Range5");
 ObjectDelete("Range52");
 ObjectDelete("Range6");
 ObjectDelete("Range62");
 ObjectDelete("Range7");
 ObjectDelete("Range72");
 ObjectDelete("Range8");
 ObjectDelete("Range82");
 ObjectDelete("===");
 ObjectDelete("Pw_High");
 ObjectDelete("Pw_Low");
 ObjectDelete("Pw_Open");
 ObjectDelete("Pw_Highh");
 ObjectDelete("Pw_Loww");
 ObjectDelete("Pw_Openn");
 
 if(show_price_Label==true)
 {
 ObjectDelete("price_LL1");
 ObjectDelete("price_LL2");
 ObjectDelete("price_LL3");
 ObjectDelete("price_LL4");
 ObjectDelete("price_LL5");
 ObjectDelete("price_LL6");
 ObjectDelete("price_LL7");
 ObjectDelete("price_LL8");
 ObjectDelete("price_LL9");
 ObjectDelete("price_LL10");
 ObjectDelete("price_LL11");
 ObjectDelete("price_LL12");
 ObjectDelete("price_LL13");
 ObjectDelete("price_LL14");
 ObjectDelete("price_LL15");
 ObjectDelete("price_LL16");
 ObjectDelete("price_LL17");
 ObjectDelete("price_LL18");
 
 ObjectDelete("price_HL1");
 ObjectDelete("price_HL2");
 ObjectDelete("price_HL3");
 ObjectDelete("price_HL4");
 ObjectDelete("price_HL5");
 ObjectDelete("price_HL6");
 ObjectDelete("price_HL7");
 ObjectDelete("price_HL8");
 ObjectDelete("price_HL9");
 ObjectDelete("price_HL10");
 ObjectDelete("price_HL11");
 ObjectDelete("price_HL12");
 ObjectDelete("price_HL13");
 ObjectDelete("price_HL14");
 ObjectDelete("price_HL15");
 ObjectDelete("price_HL16");
 ObjectDelete("price_HL17");
 ObjectDelete("price_HL18");
}
 
return(0);
}