//+------------------------------------------------------------------+
//|                       Форекс Портал - FOREXGUN.RU                |
//|                       http://forexgun.ru                         |
//+------------------------------------------------------------------+

#property copyright "Copyright © 2010, FOREX GOILER INDICATOR"
#property link      ""

#property indicator_chart_window

extern int CountDays     =1;
extern int Font_Size = 9;
extern int Corner = 3;
extern bool Show_Calc = TRUE;
extern int width=2;
extern int style=0;

double ny_close[];

int ny_shift[];
datetime ny_time[];
datetime time1;
datetime time2;
int shift, num;


datetime prevDay=0;
bool fTime;

int init() {
   fTime = true;
   IndicatorBuffers(1);
   SetIndexBuffer(0,ny_close); 
   //IndicatorShortName("HAMADASALAM_v1.5");
   //ObjectsDeleteAll(0, OBJ_LABEL);
   return (0);
}

int deinit() {
   ObjDel();
   return (0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   int    counted_bars=IndicatorCounted();
//----
  
   double  Today_Open_Price=0; 
   double  Price_Angle=0; 
   double  Correction_V=0;
   double  Correction_V1=0;
   double  Correction_V2=0;
   double  Corrected_price_angle=0;
   double  Corrected_price_angle1=0;
   double  Corrected_price_angle2=0;
   double  Factor_no=0;
   double  Factor_no1=0;
   double  Factor_no2=0;         
   
   
   int xxx = 100;
   int digits;
   if (StringFind(Symbol(), "JPY", 0) == -1) xxx = 10000; 
  
   if (MarketInfo(Symbol(), MODE_DIGITS) == 5 || MarketInfo(Symbol(), MODE_DIGITS) == 4) 
   digits = 4;
   if (MarketInfo(Symbol(), MODE_DIGITS) == 3 || MarketInfo(Symbol(), MODE_DIGITS) == 2) 
   digits = 2;
      
   datetime cDay = iTime(NULL,PERIOD_D1,0);
   if (cDay != prevDay || fTime)  
   {
//***      
      ObjDel();
      ArrayResize(ny_time,CountDays+1);
      
      for (shift=0;shift<=CountDays;shift++)
      {
       ny_time[shift]  = iTime(NULL,PERIOD_D1,shift);
       ny_close[shift] = iOpen(NULL,PERIOD_D1,shift)*xxx;        
      }
//***
      for (shift=0;shift<=CountDays-1;shift++)
      {
        
       //Today_Open_Price = iOpen(Symbol(), PERIOD_D1, 0)*xxx;   
       Price_Angle = MathMod(((MathSqrt(ny_close[shift])*180) -225), 360);
       
         time1 = ny_time[shift];
         if (shift==0) 
         time2 = ny_time[shift] + 24*3600;
         else
         time2 = ny_time[shift-1];
         
         
       if (Price_Angle >= 90) 
        {
         Correction_V1 = NormalizeDouble ((Price_Angle/90),0);
         Corrected_price_angle1 =  (Price_Angle/Correction_V1);
         Factor_no1 = Corrected_price_angle1/180;

         Correction_V = Correction_V1; 
         Corrected_price_angle = Corrected_price_angle1 ;
         Factor_no = Factor_no1;
        }
        else 
        {
         Correction_V2 = NormalizeDouble ((90/Price_Angle),0);
         Corrected_price_angle2 =  (Price_Angle * Correction_V2);
         Factor_no2 = Corrected_price_angle2/180;


         Correction_V=Correction_V2 ;
         Corrected_price_angle =Corrected_price_angle2 ;
         Factor_no=Factor_no2;
        }


double Entry,Entry2,TP1,TP2,SL;
double MathS_OP = MathSqrt(ny_close[shift]);

//*
      if(Price_Angle >=0 && Price_Angle<=90)
      {
       Entry = (ny_close[shift]/xxx);
       Entry2 =((MathS_OP - (Factor_no/2))* (MathS_OP - (Factor_no/2)))/xxx;
       TP1 = ((MathS_OP + (Factor_no/2))*(MathS_OP + (Factor_no/2)))/xxx;
       TP2 = ((MathS_OP +  Factor_no)*(MathS_OP +  Factor_no))/xxx;
       SL  = ((MathS_OP -  Factor_no)*(MathS_OP -  Factor_no))/xxx;

       PlotLine("вход["+shift+"]",Entry,White) ;
       PlotLine("добавка["+shift+"]",Entry2,Orange);
       PlotLine("тейк["+shift+"]",TP1,Lime);
       PlotLine("тейк_2["+shift+"]",TP2,DodgerBlue);
       PlotLine("стоп["+shift+"]",SL,Red);
      }
//*      
      if(Price_Angle >=180 && Price_Angle<=270)
      {
       Entry = (ny_close[shift]/xxx);
       Entry2 =((MathS_OP - (Factor_no/2))* (MathS_OP - (Factor_no/2)))/xxx;
       TP1 = ((MathS_OP + (Factor_no/2))*(MathS_OP + (Factor_no/2)))/xxx;
       TP2 = ((MathS_OP +  Factor_no)*(MathS_OP +  Factor_no))/xxx;
       SL  = ((MathS_OP -  Factor_no)*(MathS_OP -  Factor_no))/xxx;

       PlotLine("вход["+shift+"]",Entry,White) ;
       PlotLine("добавка["+shift+"]",Entry2,Orange);
       PlotLine("тейк["+shift+"]",TP1,Lime);
       PlotLine("тейк_2["+shift+"]",TP2,DodgerBlue);
       PlotLine("стоп["+shift+"]",SL,Red);
      }
//*       
      if(Price_Angle >=91  && Price_Angle<180) 
      {
       Entry = ny_close[shift]/xxx;
       Entry2 =((MathS_OP + (Factor_no/2))* (MathS_OP + (Factor_no/2)))/xxx;
       TP1 = ((MathS_OP - (Factor_no/2))*(MathS_OP -(Factor_no/2)))/xxx;
       TP2 = ((MathS_OP -  Factor_no)*(MathS_OP -  Factor_no))/xxx;
       SL  = ((MathS_OP +  Factor_no)*(MathS_OP +  Factor_no))/xxx;

       PlotLine("вход["+shift+"]",Entry,White) ;
       PlotLine("добавка["+shift+"]",Entry2,Orange);
       PlotLine("тейк["+shift+"]",TP1,Lime);
       PlotLine("тейк_2["+shift+"]",TP2,DodgerBlue);
       PlotLine("стоп["+shift+"]",SL,Red);
      }
//* 
      if(Price_Angle >=271 && Price_Angle<=360)
      {
       Entry = ny_close[shift]/xxx;
       Entry2 =((MathS_OP + (Factor_no/2))* (MathS_OP + (Factor_no/2)))/xxx;
       TP1 = ((MathS_OP - (Factor_no/2))*(MathS_OP -(Factor_no/2)))/xxx;
       TP2 = ((MathS_OP -  Factor_no)*(MathS_OP -  Factor_no))/xxx;
       SL  = ((MathS_OP +  Factor_no)*(MathS_OP +  Factor_no))/xxx;

       PlotLine("вход["+shift+"]",Entry,White) ;
       PlotLine("добавка["+shift+"]",Entry2,Orange);
       PlotLine("тейк["+shift+"]",TP1,Lime);
       PlotLine("тейк_2["+shift+"]",TP2,DodgerBlue);
       PlotLine("стоп["+shift+"]",SL,Red);
      }
   
if (shift==0) 
{
string EntryS = DoubleToStr(Entry,digits);
string Entry2S = DoubleToStr(Entry2,digits);
string TP1S = DoubleToStr(TP1,digits);
string TP2S = DoubleToStr(TP2,digits);
string SLS = DoubleToStr(SL,digits);
   
string sText1, sText2, sText3,sText4, sText5, sText6, sText7 ; 
string sNameRT1 = "En1";      
string sNameRT2 = "En2";
string sNameRT3 = "TP1";
string sNameRT4 = "TP2";
string sNameRT5 = "SL";
string sNameRT6 = "Calculation1";
string sNameRT7 = "Calculation2";

       if (Show_Calc == True) 
       {
        sText1 =  sText1 + "   "+ "вход  " + EntryS  ;
        ObjectCreate(sNameRT1, OBJ_LABEL, 0, 0, 0);
        ObjectSetText(sNameRT1,sText1,Font_Size, "Verdana", White);
        ObjectSet(sNameRT1, OBJPROP_CORNER, Corner);
        ObjectSet(sNameRT1, OBJPROP_XDISTANCE, 20);
        ObjectSet(sNameRT1, OBJPROP_YDISTANCE, 84);
        
        sText2 =  sText2 + "   "+ "вход  "+Entry2S  ;
        ObjectCreate(sNameRT2, OBJ_LABEL, 0, 0, 0);
        ObjectSetText(sNameRT2,sText2,Font_Size, "Verdana", Orange);
        ObjectSet(sNameRT2, OBJPROP_CORNER, Corner);
        ObjectSet(sNameRT2, OBJPROP_XDISTANCE, 20);
        ObjectSet(sNameRT2, OBJPROP_YDISTANCE, 71);            
      
        sText3 = sText3 + "   " + "тейк  "+ TP1S  ;
        ObjectCreate(sNameRT3, OBJ_LABEL, 0, 0, 0);
        ObjectSetText(sNameRT3,sText3,Font_Size, "Verdana", Lime);
        ObjectSet(sNameRT3, OBJPROP_CORNER, Corner);
        ObjectSet(sNameRT3, OBJPROP_XDISTANCE, 20);
        ObjectSet(sNameRT3, OBJPROP_YDISTANCE, 58); 

        sText4 = sText4 + "   "+ "тейк  "+TP2S ;
        ObjectCreate(sNameRT4, OBJ_LABEL, 0, 0, 0);
        ObjectSetText(sNameRT4,sText4,Font_Size, "Verdana", DodgerBlue);
        ObjectSet(sNameRT4, OBJPROP_CORNER, Corner);
        ObjectSet(sNameRT4, OBJPROP_XDISTANCE, 20);
        ObjectSet(sNameRT4, OBJPROP_YDISTANCE, 45); 

        sText5 = sText5 + "   " + "стоп  "+ SLS  ;
        ObjectCreate(sNameRT5, OBJ_LABEL, 0, 0, 0);
        ObjectSetText(sNameRT5,sText5,Font_Size, "Verdana", Red);
        ObjectSet(sNameRT5, OBJPROP_CORNER, Corner);
        ObjectSet(sNameRT5, OBJPROP_XDISTANCE, 20);
        ObjectSet(sNameRT5, OBJPROP_YDISTANCE, 32); 

        sText6 = sText6 + "   " + "P.Angle : " + DoubleToStr(Price_Angle,0) + "   " + "Adjustment: " +DoubleToStr(Correction_V,0);
        ObjectCreate(sNameRT6, OBJ_LABEL, 0, 0, 0);
        ObjectSetText(sNameRT6,sText6,8, "Verdana", White);
        ObjectSet(sNameRT6, OBJPROP_CORNER, Corner);
        ObjectSet(sNameRT6, OBJPROP_XDISTANCE, 20);
        ObjectSet(sNameRT6, OBJPROP_YDISTANCE, 20); 
        
        sText7 = sText7 + "   " + "Corrected P.Angle : " + DoubleToStr(Corrected_price_angle,0) + "   " + "Factor : " +DoubleToStr(Factor_no,5);
        ObjectCreate(sNameRT7, OBJ_LABEL, 0, 0, 0);
        ObjectSetText(sNameRT7,sText7,8, "Verdana", White);
        ObjectSet(sNameRT7, OBJPROP_CORNER, Corner);
        ObjectSet(sNameRT7, OBJPROP_XDISTANCE, 20);
        ObjectSet(sNameRT7, OBJPROP_YDISTANCE, 10); 
       }
       else  
       {
        sText1 =  sText1 + "   "+ "вход  " + EntryS  ;
        ObjectCreate(sNameRT1, OBJ_LABEL, 0, 0, 0);
        ObjectSetText(sNameRT1,sText1,Font_Size, "Verdana", White);
        ObjectSet(sNameRT1, OBJPROP_CORNER, Corner);
        ObjectSet(sNameRT1, OBJPROP_XDISTANCE, 20);
        ObjectSet(sNameRT1, OBJPROP_YDISTANCE, 61);
        
        sText2 =  sText2 + "   "+ "вход  "+Entry2S  ;
        ObjectCreate(sNameRT2, OBJ_LABEL, 0, 0, 0);
        ObjectSetText(sNameRT2,sText2,Font_Size, "Verdana", Orange);
        ObjectSet(sNameRT2, OBJPROP_CORNER, Corner);
        ObjectSet(sNameRT2, OBJPROP_XDISTANCE, 20);
        ObjectSet(sNameRT2, OBJPROP_YDISTANCE, 48);            
      
        sText3 = sText3 + "   " + "тейк  "+ TP1S  ;
        ObjectCreate(sNameRT3, OBJ_LABEL, 0, 0, 0);
        ObjectSetText(sNameRT3,sText3,Font_Size, "Verdana", Lime);
        ObjectSet(sNameRT3, OBJPROP_CORNER, Corner);
        ObjectSet(sNameRT3, OBJPROP_XDISTANCE, 20);
        ObjectSet(sNameRT3, OBJPROP_YDISTANCE, 36); 

        sText4 = sText4 + "   "+ "тейк  "+TP2S ;
        ObjectCreate(sNameRT4, OBJ_LABEL, 0, 0, 0);
        ObjectSetText(sNameRT4,sText4,Font_Size, "Verdana", DodgerBlue);
        ObjectSet(sNameRT4, OBJPROP_CORNER, Corner);
        ObjectSet(sNameRT4, OBJPROP_XDISTANCE, 20);
        ObjectSet(sNameRT4, OBJPROP_YDISTANCE, 23); 

        sText5 = sText5 + "   " + "стоп  "+ SLS  ;
        ObjectCreate(sNameRT5, OBJ_LABEL, 0, 0, 0);
        ObjectSetText(sNameRT5,sText5,Font_Size, "Verdana", Red);
        ObjectSet(sNameRT5, OBJPROP_CORNER, Corner);
        ObjectSet(sNameRT5, OBJPROP_XDISTANCE, 20);
        ObjectSet(sNameRT5, OBJPROP_YDISTANCE, 10); 
       }}}
//** 
   fTime = false;
   prevDay = cDay;
   }  
   return (0);
} 
        
//****************************************************        

void PlotLine(string name,double value,color line_color)
{
   //datetime time1= iTime(NULL,PERIOD_D1,0)+Period()*60 + (GMT-Period()/60.0)*3600; 
   //datetime time2= time1+24*3600+Period()*60 ;
   double valueN=NormalizeDouble(value,Digits);
   bool res = ObjectCreate(name,OBJ_TREND,0,time1,valueN,time2,valueN);
   ObjectSet(name, OBJPROP_WIDTH, width);
   ObjectSet(name, OBJPROP_STYLE, style);
   ObjectSet(name, OBJPROP_RAY, false);
   ObjectSet(name, OBJPROP_BACK, true);
   ObjectSet(name, OBJPROP_COLOR, line_color);
} 
//*******************************************************
void ObjDel()
{
   if (ObjectsTotal() > 0)
   for (num=0;num<=CountDays;num++)
   {
   ObjectDelete("вход["+num+"]");
   ObjectDelete("добавка["+num+"]");
   ObjectDelete("тейк["+num+"]");
   ObjectDelete("тейк_2["+num+"]");
   ObjectDelete("стоп["+num+"]");
   }
   
   ObjectDelete("En1");
   ObjectDelete("En2");
   ObjectDelete("TP1");
   ObjectDelete("TP2");
   ObjectDelete("SL");
   ObjectDelete("Calculation1");
   ObjectDelete("Calculation2");
   
}