Ind-WSO+WRO+Trend Line

#property version   "1.02"
#property strict

#property description "The indicator is based on support and resistance points."
#property description "The parameters for determining WSO/WRO points are 9 bars by default"
#property description "(4 on the left | 5 point maximum/minimum HI/LO | 4 on the right)."
#property description "The length of the lines depends on the specified FIBO level. If you"
#property description "want to display multiple FIBO levels, select Do not delete Marker in the"
#property description "settings and change the fibo level."

#property indicator_chart_window
#property indicator_buffers 0
#property indicator_plots   0

double dFibo[] = {161.8,261.8,423.6};

enum eFibo
  {
   L1 = 1,                                   // level Fibo 161.8
   L2 = 2,                                   // level Fibo 261.8
   L3 = 3                                    // level Fibo 423.6
  };

input int      Number_Line =  6;             // Number of lines (WSO, WRO, Trend Line) > 0
input int      nPeriod = 9;                  // Period (WSO, WRO) > 0 (default:9)
input eFibo    Fibo = L3;                    // Fibo lenght line (161.8; 261.8; 423.6)
input string   _i2 = "=================";    // ===== Comment & ID =====
input bool     ray = false;                  // Drawing Line RAY Right
input bool     Draw_Horlizont_Line = true;   // Drawing Horizont Line (WSO/WRO)?
input bool     Draw_Trend_Line = true;       // Drawing Trend Line (WSO/WRO)?
input bool     Draw_Right_Marker = true;     // Drawing Right Marker?
input bool     bDelete_All_Marker = true;    // Delete All Right Marker if DeInit?
input string   sID = "WSRT_";                // ID Drawing Object

input string   _i3 = "=== Color Line ===";   // ===== WSO Line =====
input color    cWSOa = clrBrown;             // Color WSO all line
input ENUM_LINE_STYLE sWSOa = STYLE_SOLID;   // Style WSO all line
input int      wWSOa = 2;                    // Width WSO all line
input string   _i4 = "=================";    // ===== WSO Trend Line Low =====
input color    cTSOa = clrFireBrick;         // Color WSO all line
input ENUM_LINE_STYLE sTSOa = STYLE_DOT;     // Style WSO all line
input int      wTSOa = 1;                    // Width WSO all line

input string   _i5 = "=================";    // ===== WRO Line =====
input color    cWROa = clrMediumBlue;        // Color WRO all line
input ENUM_LINE_STYLE sWROa = STYLE_SOLID;   // Style WRO all line
input int      wWROa = 2;                    // Width WRO all line
input string   _i6 = "=================";    // ===== WRO Trend Line High =====
input color    cTROa = clrNavy;              // Color WRO all line
input ENUM_LINE_STYLE sTROa = STYLE_DOT;     // Style WRO all line
input int      wTROa = 1;                    // Width WRO all line

bool Create_OBJ_TREND(const string name,
                      const string Description,
                      const ENUM_OBJECT obj = OBJ_TREND,
                      const datetime t1 = 0,
                      const double p1 = 0,
                      const datetime t2 = 0,
                      const double p2 = 0,
                      const color clr = clrCyan,
                      const int width = 1,
                      const ENUM_LINE_STYLE style = STYLE_SOLID,
                      const bool RAY_RIGHT = false,
                      const bool SELECTABLE = false)
  {
   if(ObjectFind(ChartID(), name) < 0)
      if(!ObjectCreate(ChartID(), name, obj, 0, t1, p1, t2, p2))
        {
         Print(__FUNCTION__, ": не удалось создать объекте! Код ошибки = ",GetLastError());
         return(false);
        }
   ObjectSetInteger(ChartID(),name,OBJPROP_ARROWCODE,6);
   ObjectMove(ChartID(), name, 0, t1, p1);
   ObjectMove(ChartID(), name, 1, t2, p2);
   ObjectSetInteger(ChartID(), name, OBJPROP_COLOR, clr);
   ObjectSetInteger(ChartID(), name, OBJPROP_BACK, true);
   ObjectSetInteger(ChartID(), name, OBJPROP_WIDTH, width);
   ObjectSetInteger(ChartID(), name, OBJPROP_STYLE, style);
   ObjectSetString(ChartID(), name, OBJPROP_TEXT, Description);
   ObjectSetInteger(ChartID(), name, OBJPROP_HIDDEN, false);
   ObjectSetInteger(ChartID(), name, OBJPROP_RAY_RIGHT, RAY_RIGHT);                 //--- RAY_RIGHT
   ObjectSetInteger(ChartID(), name, OBJPROP_SELECTABLE, true);

   return(true);
  }

void OnInit()
  {
      // код доступен только после оплаты
   }

void OnDeinit(const int reason)
  {
   ObjectsDeleteAll(ChartID(), sID, -1, OBJ_TREND);
   if(bDelete_All_Marker == true)
     {
      ObjectsDeleteAll(ChartID(), sID, -1, OBJ_ARROW_RIGHT_PRICE);
      ObjectsDeleteAll(ChartID(), sID, -1, OBJ_ARROW);
     }
  }

int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime & time[],
                const double & open[],
                const double & high[],
                const double & low[],
                const double & close[],
                const long & tick_volume[],
                const long & volume[],
                const int &spread[])
  {
      // код доступен только после оплаты
   }

   double r[], s[];
   datetime rt[], st[];
   ArrayResize(r, Number_Line + 1, 0);
   ArrayResize(s, Number_Line + 1, 0);
   ArrayResize(

Показано первые 50% кода (символов: 7168)