(T_S_R)-DATA WINDOW#2





//+------------------------------------------------------------------+
//|                                        (T_S_R)-DATA WINDOW#2.mq4 |
//|                      Copyright © 2006, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+

#property copyright "Copyright © 2006, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"
#property link      "Display by cja" 
// Thanks to the coders who supplied some of the code 
// & Xdard777 for his MM labels code. 

#property indicator_separate_window
#property indicator_buffers 3


//---- indicator buffers

#define Daily "Daily"
#define Daily1 "Daily1"
#define Daily2 "Daily2"
#define OP1 "OP1"
extern color DailyColor =Maroon;
extern color DailyColor1 =DarkGreen;
extern color DailyColor2= C'0,44,09';

//---- buffers

//---- input parameters
int shift=0,i2=0,WorkTime=0,Periods=0,CurPeriod=0,nTime=0;

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
{
IndicatorShortName("TSR");

   return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
           
   
   ObjectsDeleteAll(0,OBJ_TRENDBYANGLE);
   ObjectsDeleteAll(0,OBJ_RECTANGLE);
   ObjectsDeleteAll(0, OBJ_TEXT); 
   ObjectsDeleteAll(0, OBJ_LABEL); 
   ObjectDelete(OP1);
   Comment(""); 
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+

int start()
 {
    CreateOP();
}
void CreateObj2(string objName2, double start, double end, color clr)
  {
   ObjectCreate(objName2, OBJ_TRENDBYANGLE, 0, iTime(NULL,1440,0), start, Time[0], end);
   ObjectSet(objName2, OBJPROP_COLOR, clr);
   ObjectSet(objName2,OBJPROP_RAY,false);
   ObjectSet(objName2,OBJPROP_WIDTH,2);
   }
   ObjectDelete(OP1);
   
   void CreateOP()
   {
   ObjectsDeleteAll(0,OBJ_TRENDBYANGLE);
CreateHL();
}

void CreateObj(string objName, double start, double end, color clr)
  {
  ObjectCreate(objName, OBJ_RECTANGLE, 0, iTime(NULL,1440,0), start, Time[0], end);
   ObjectSet(objName, OBJPROP_COLOR, clr);
   ObjectCreate(objName, OBJ_RECTANGLE, 0, iTime(NULL,1440,0), 0, Time[0],0);
   ObjectSet(objName, OBJPROP_COLOR, clr);
   
   }
   void DeleteObjects()
   {
   ObjectDelete(Daily);
  
   ObjectDelete(Daily1);
   
   ObjectDelete(Daily2);
   
   }
   void CreateHL()
   {
   DeleteObjects();
  double HI2 = iHigh(NULL,1440,0);
  double LOW2 = iLow(NULL,1440,0); 
  double HI3 = iHigh(NULL,1440,1);
  double LOW3 = iLow(NULL,1440,1);
  double HI4 = iHigh(NULL,1440,0);
  double LOW4 = iLow(NULL,1440,0);
  double HI5 = iHigh(NULL,1440,2);
  double LOW5 = iLow(NULL,1440,2);
  double HI6 = iHigh(NULL,1440,3);
  double LOW6 = iLow(NULL,1440,3);
  double HI7 = iHigh(NULL,1440,4);
  double LOW7 = iLow(NULL,1440,4);
  double HI8 = iHigh(NULL,1440,5);
  double LOW8 = iLow(NULL,1440,5);
  double HI9 = iHigh(NULL,1440,6);
  double LOW9 = iLow(NULL,1440,6);
  double HI10 = iHigh(NULL,1440,7);
  double LOW10 = iLow(NULL,1440,7);
  double HI11 = iHigh(NULL,1440,8);
  double LOW11 = iLow(NULL,1440,8);
  double HI12 = iHigh(NULL,1440,9);
  double LOW12 = iLow(NULL,1440,9);
  double HI13 = iHigh(NULL,1440,10);
  double LOW13 = iLow(NULL,1440,10);
  double HI14 = iHigh(NULL,1440,11);
  double LOW14 = iLow(NULL,1440,11);
  double HI15 = iHigh(NULL,1440,12);
  double LOW15 = iLow(NULL,1440,12);
  double HI16 = iHigh(NULL,1440,13);
  double LOW16 = iLow(NULL,1440,13);
  double HI17 = iHigh(NULL,1440,14);
  double LOW17 = iLow(NULL,1440,14);
  double HI18 = iHigh(NULL,1440,15);
  double LOW18 = iLow(NULL,1440,15);
  double HI19 = iHigh(NULL,1440,16);
  double LOW19 = iLow(NULL,1440,16);
  double HI20 = iHigh(NULL,1440,17);
  double LOW20 = iLow(NULL,1440,17);
  double HI21 = iHigh(NULL,1440,18);
  double LOW21 = iLow(NULL,1440,18);
  double HI22 = iHigh(NULL,1440,19);
  double LOW22 = iLow(NULL,1440,19);
  double HI23 = iHigh(NULL,1440,20);
  double LOW23 = iLow(NULL,1440,20);
  
  double OPEN = iOpen(NULL,1440,0);
  double CLOSE = iClose(NULL,1440,0);
  
  
  
  double ONE = (HI3-LOW3)/2;
  
  double FIVE = ((HI3-LOW3)+(HI5-LOW5)+(HI6-LOW6)+(HI7-LOW7)+(HI8-LOW8))/10;
                   
                
  double TEN = ((HI3-LOW3)+(HI5-LOW5)+(HI6-LOW6)+(HI7-LOW7)+(HI8-LOW8)+
                  (HI9-LOW9)+(HI10-LOW10)+(HI11-LOW11)+(HI12-LOW12)+(HI13-LOW13))/20;
                    
  double TWENTY = ((HI3-LOW3)+(HI5-LOW5)+(HI6-LOW6)+(HI7-LOW7)+(HI8-LOW8)+
               (HI9-LOW9)+(HI10-LOW10)+(HI11-LOW11)+(HI12-LOW12)+(HI13-LOW13)+
               (HI14-LOW14)+(HI15-LOW15)+(HI16-LOW16)+(HI17-LOW17)+(HI18-LOW18)+
               (HI19-LOW19)+(HI20-LOW20)+(HI21-LOW21)+(HI22-LOW22)+(HI23-LOW23))/40; 
                                              
  double AV = (ONE+FIVE+TEN+TWENTY)/4;// New Setting AV = (FIVE+TEN+TWENTY)/3;
  
  double HIDaily = iHigh(NULL,1440,0)-(AV);
  double LOWDaily = iLow(NULL,1440,0)+(AV);
  double HIDaily1 = iHigh(NULL,1440,0); 
  double LOWDaily1 =iLow(NULL,1440,0); 
  double HIDaily2 = iHigh(NULL,1440,0)-(AV)*2; 
  double LOWDaily2 =iLow(NULL,1440,0)+(AV)*2; 
   
  double CURRPRICE = iMA(Symbol(),0,1,0,MODE_EMA,PRICE_CLOSE,0); 
  
 

//Short Average
 if(ObjectFind("HIDaily1") != 0)
{
ObjectCreate("HIDaily1", OBJ_TEXT, 0, Time[0], HIDaily);
ObjectSetText("HIDaily1", "                        SHORT Entry", 9, "Verdana", Yellow);
}
else
{
ObjectMove("HIDaily1", 0, Time[0], HIDaily);
} 

//High Average
 if(ObjectFind("HIDaily2") != 0)
{
ObjectCreate("HIDaily2", OBJ_TEXT, 0, Time[0], LOWDaily);
ObjectSetText("HIDaily2", "                      LONG Entry", 9, "Verdana", Yellow);
}
else
{
ObjectMove("HIDaily2", 0, Time[0], LOWDaily);
}

//Today's High
 if(ObjectFind("HIDaily3") != 0)
{
ObjectCreate("HIDaily3", OBJ_TEXT, 0, Time[0], HI4);
ObjectSetText("HIDaily3", "            High ", 9, "Verdana", YellowGreen);
}
else
{
ObjectMove("HIDaily3", 0, Time[0], HI4);
}

//Todays Low 
 if(ObjectFind("HIDaily4") != 0)
{
ObjectCreate("HIDaily4", OBJ_TEXT, 0, Time[0], LOW4);
ObjectSetText("HIDaily4", "           Low ", 9, "Verdana", YellowGreen);
}
else
{
ObjectMove("HIDaily4", 0, Time[0], LOW4);
}

//Open
 if(ObjectFind("HIDaily5") != 0)
{
ObjectCreate("HIDaily5", OBJ_TEXT, 0, Time[2], OPEN);
ObjectSetText("HIDaily5", "Open", 9, "Verdana",SandyBrown);
}
else
{
ObjectMove("HIDaily5", 0, Time[2], OPEN);
}

//Bottom of Daily Range
 if(ObjectFind("HIDaily6") != 0)
{
ObjectCreate("HIDaily6", OBJ_TEXT, 0, Time[8],HIDaily2);
ObjectSetText("HIDaily6", "Bottom Daily Range", 9, "Verdana",SandyBrown);
}
else
{
ObjectMove("HIDaily6", 0, Time[8], HIDaily2);
}
//TOP of Daily Range
 if(ObjectFind("HIDaily7") != 0)
{
ObjectCreate("HIDaily7", OBJ_TEXT, 0, Time[7],LOWDaily2);
ObjectSetText("HIDaily7", "Top Daily Range", 9, "Verdana",SandyBrown);
}
else
{
ObjectMove("HIDaily7", 0, Time[7], LOWDaily2);
}

   {
if( (WorkTime != Time[0]) || (Periods != Period()) ) {
CreateObj(Daily, HIDaily, LOWDaily, DailyColor);
CreateObj(Daily1, HIDaily1, LOWDaily1, DailyColor1);
CreateObj(Daily2, HIDaily2, LOWDaily2, DailyColor2);
CreateObj2(OP1,OPEN,OPEN, Coral);}


   
        
        ObjectCreate("ATSR2", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR2","50% Average Daily Range:", 11, "Arial Narrow Bold", Silver);
        ObjectSet("ATSR2", OBJPROP_CORNER, 0);
        ObjectSet("ATSR2", OBJPROP_XDISTANCE, 5);
        ObjectSet("ATSR2", OBJPROP_YDISTANCE, 65);
        ObjectCreate("ATSR3", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR3",DoubleToStr(AV/Point,0),12, "Arial Bold", Orange);
        ObjectSet("ATSR3", OBJPROP_CORNER, 0);
        ObjectSet("ATSR3", OBJPROP_XDISTANCE, 150);
        ObjectSet("ATSR3", OBJPROP_YDISTANCE, 65);
        
        ObjectCreate("ATSR4", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR4","SHORT Entry:", 15, "Arial Narrow Bold", Tomato);
        ObjectSet("ATSR4", OBJPROP_CORNER, 0);
        ObjectSet("ATSR4", OBJPROP_XDISTANCE, 340);
        ObjectSet("ATSR4", OBJPROP_YDISTANCE, 40);
        ObjectCreate("ATSR5", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR5",DoubleToStr(HIDaily,Digits),20, "Arial Narrow Bold", Red);
        ObjectSet("ATSR5", OBJPROP_CORNER, 0);
        ObjectSet("ATSR5", OBJPROP_XDISTANCE, 470);
        ObjectSet("ATSR5", OBJPROP_YDISTANCE, 35);
        
       ObjectCreate("ATSR6", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR6","LONG Entry:", 15, "Arial Narrow Bold",YellowGreen);
        ObjectSet("ATSR6", OBJPROP_CORNER, 0);
        ObjectSet("ATSR6", OBJPROP_XDISTANCE, 340);
        ObjectSet("ATSR6", OBJPROP_YDISTANCE, 15);
        ObjectCreate("ATSR7", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR7",DoubleToStr(LOWDaily,Digits),20, "Arial Narrow Bold", Lime);
        ObjectSet("ATSR7", OBJPROP_CORNER, 0);
        ObjectSet("ATSR7", OBJPROP_XDISTANCE, 470);
        ObjectSet("ATSR7", OBJPROP_YDISTANCE, 10);
        
        ObjectCreate("ATSR8", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR8","Top Daily Average Range:", 15, "Arial Narrow Bold", YellowGreen);
        ObjectSet("ATSR8", OBJPROP_CORNER, 0);
        ObjectSet("ATSR8", OBJPROP_XDISTANCE, 5);
        ObjectSet("ATSR8", OBJPROP_YDISTANCE, 15);
        ObjectCreate("ATSR9", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR9",DoubleToStr(LOWDaily2,Digits),20, "Arial Narrow Bold", Lime);
        ObjectSet("ATSR9", OBJPROP_CORNER, 0);
        ObjectSet("ATSR9", OBJPROP_XDISTANCE, 240);
        ObjectSet("ATSR9", OBJPROP_YDISTANCE, 10);
        
        ObjectCreate("ATSR10", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR10","Bottom Average Daily Range:", 15, "Arial Narrow Bold",Tomato);
        ObjectSet("ATSR10", OBJPROP_CORNER, 0);
        ObjectSet("ATSR10", OBJPROP_XDISTANCE, 5);
        ObjectSet("ATSR10", OBJPROP_YDISTANCE, 40);
        ObjectCreate("ATSR11", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR11",DoubleToStr(HIDaily2,Digits),20, "Arial Narrow Bold", Red);
        ObjectSet("ATSR11", OBJPROP_CORNER, 0);
        ObjectSet("ATSR11", OBJPROP_XDISTANCE, 240);
        ObjectSet("aTSR11", OBJPROP_YDISTANCE, 35);
        
        ObjectCreate("ATSR12", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR12","Pips From HI to LOW:", 11, "Arial Narrow Bold", Silver);
        ObjectSet("ATSR12", OBJPROP_CORNER, 0);
        ObjectSet("ATSR12", OBJPROP_XDISTANCE, 320);
        ObjectSet("ATSR12", OBJPROP_YDISTANCE, 65);
        ObjectCreate("ATSR13", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR13",DoubleToStr((HI2-LOW2)/Point,0),12, "Arial Bold", Orange);
        ObjectSet("ATSR13", OBJPROP_CORNER, 0);
        ObjectSet("ATSR13", OBJPROP_XDISTANCE, 445);
        ObjectSet("ATSR13", OBJPROP_YDISTANCE, 65);
        
        ObjectCreate("ATSR14", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR14","OPEN:",11, "Arial Narrow Bold", Silver);
        ObjectSet("ATSR14", OBJPROP_CORNER, 0);
        ObjectSet("ATSR14", OBJPROP_XDISTANCE, 200);
        ObjectSet("ATSR14", OBJPROP_YDISTANCE, 65);
        ObjectCreate("ATSR15", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR15",DoubleToStr(OPEN,Digits),12, "Arial Bold", Orange);
        ObjectSet("ATSR15", OBJPROP_CORNER, 0);
        ObjectSet("ATSR15", OBJPROP_XDISTANCE, 240);
        ObjectSet("ATSR15", OBJPROP_YDISTANCE, 65);
        
        ObjectCreate("ATSR16", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR16","Profit LONG:", 15, "Arial Narrow Bold", YellowGreen);
        ObjectSet("ATSR16", OBJPROP_CORNER, 0);
        ObjectSet("ATSR16", OBJPROP_XDISTANCE, 570);
        ObjectSet("ATSR16", OBJPROP_YDISTANCE, 15);
        ObjectCreate("ATSR17", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR17",DoubleToStr(CURRPRICE-LOWDaily ,Digits),20, "Arial Narrow Bold", Lime);
        ObjectSet("ATSR17", OBJPROP_CORNER, 0);
        ObjectSet("ATSR17", OBJPROP_XDISTANCE, 690);
        ObjectSet("ATSR17", OBJPROP_YDISTANCE, 10);
        
        ObjectCreate("ATSR18", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR18","Profit SHORT:", 15, "Arial Narrow Bold", Tomato);
        ObjectSet("ATSR18", OBJPROP_CORNER, 0);
        ObjectSet("ATSR18", OBJPROP_XDISTANCE, 570);
        ObjectSet("ATSR18", OBJPROP_YDISTANCE, 40);
        ObjectCreate("ATSR19", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR19",DoubleToStr(HIDaily-CURRPRICE,Digits),20, "Arial Narrow Bold", Red);
        ObjectSet("ATSR19", OBJPROP_CORNER, 0);
        ObjectSet("ATSR19", OBJPROP_XDISTANCE, 690);
        ObjectSet("ATSR19", OBJPROP_YDISTANCE, 35);
        
        ObjectCreate("ATSR20", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR20",DoubleToStr(CURRPRICE,Digits),35, "Arial Narrow", Aqua);
        ObjectSet("ATSR20", OBJPROP_CORNER, 0);
        ObjectSet("ATSR20", OBJPROP_XDISTANCE, 780);
        ObjectSet("ATSR20", OBJPROP_YDISTANCE, 0);
        
         
        ObjectCreate("ATSR21", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR21","Daily HI:", 11, "Arial Narrow Bold", Silver);
        ObjectSet("ATSR21", OBJPROP_CORNER, 0);
        ObjectSet("ATSR21", OBJPROP_XDISTANCE, 495);
        ObjectSet("ATSR21", OBJPROP_YDISTANCE, 65);
        ObjectCreate("ATSR22", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR22",DoubleToStr(HI2,Digits),12, "Arial Bold", Orange);
        ObjectSet("ATSR22", OBJPROP_CORNER, 0);
        ObjectSet("ATSR22", OBJPROP_XDISTANCE, 547);
        ObjectSet("ATSR22", OBJPROP_YDISTANCE, 65);
        
         
        ObjectCreate("ATSR23", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR23","Daily LOW:", 11, "Arial Narrow Bold", Silver);
        ObjectSet("ATSR23", OBJPROP_CORNER, 0);
        ObjectSet("ATSR23", OBJPROP_XDISTANCE, 630);
        ObjectSet("ATSR23", OBJPROP_YDISTANCE, 65);
        ObjectCreate("ATSR24", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR24",DoubleToStr(LOW2,Digits),12, "Arial Bold", Orange);
        ObjectSet("ATSR24", OBJPROP_CORNER, 0);
        ObjectSet("ATSR24", OBJPROP_XDISTANCE, 695);
        ObjectSet("ATSR24", OBJPROP_YDISTANCE, 65);
        
         
        ObjectCreate("ATSR25", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR25","LocalTime:", 11, "Arial Narrow Bold", Silver);
        ObjectSet("ATSR25", OBJPROP_CORNER, 0);
        ObjectSet("ATSR25", OBJPROP_XDISTANCE, 785);
        ObjectSet("ATSR25", OBJPROP_YDISTANCE, 47);
        ObjectCreate("ATSR26", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR26",TimeToStr(LocalTime(),Digits-2),12, "Arial Bold", Orange);
        ObjectSet("ATSR26", OBJPROP_CORNER, 0);
        ObjectSet("ATSR26", OBJPROP_XDISTANCE, 850);
        ObjectSet("ATSR26", OBJPROP_YDISTANCE, 47);
        
         ObjectCreate("ATSR27", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR27","SeverTime:", 11, "Arial Narrow Bold", Silver);
        ObjectSet("ATSR27", OBJPROP_CORNER, 0);
        ObjectSet("ATSR27", OBJPROP_XDISTANCE, 785);
        ObjectSet("ATSR27", OBJPROP_YDISTANCE, 65);
        ObjectCreate("ATSR28", OBJ_LABEL, WindowFind("TSR"), 0, 0);
        ObjectSetText("ATSR28",TimeToStr(CurTime(),Digits-2),12, "Arial Bold", Orange);
        ObjectSet("ATSR28", OBJPROP_CORNER, 0);
        ObjectSet("ATSR28", OBJPROP_XDISTANCE, 850);
        ObjectSet("ATSR28", OBJPROP_YDISTANCE, 65);

} 
  
   
   return(0);
  }
//+------------------------------------------------------------------+






Sample





Analysis



Market Information Used:

Series array that contains open time of each bar
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Series array that contains open prices of each bar
Series array that contains close prices for each bar


Indicator Curves created:


Indicators Used:

Moving average indicator


Custom Indicators Used:

Order Management characteristics:

Other Features: