Dynamic RSI

#property version     "1.0"

#property strict

#property description "Dynamic RSI\n "
#property indicator_separate_window

#property indicator_buffers 6

input double   DZbuy             =  0.1;                 // Buyers Dynamic Zone Probability
input double   DZsell            =  0.1;                 // Sellers Dynamic Zone Probability
input int      PeriodRSI         =  14;                  // Period RSI
input int      LookBack          =  60;                  // Look Back PeriodRSI
input color    MaxColor          =  clrDarkOrchid;       // Sell Signall Color
input color    MinColor          =  clrDodgerBlue;       // Buy Signall Color
input color    UpColor           =  clrDarkGray;         // Up Line Color
input color    MiddleColor       =  clrGold;             // Middle Line Color
input color    DnColor           =  clrDarkGray;         // Down Line Color
input color    RSIColor          =  clrDarkSeaGreen;     // RSI Line Color
input int      Width             =  2;                   // Width Line
input bool     DrawGraphic       =  true;                // Draw Graphic?
input int      SizeArrow         =  15;                  // Size Arrow (5 .. 50)
input color    UpArrowColor      =  clrDarkOrchid;       // Color Up Arrow
input color    DnArrowColor      =  clrDodgerBlue;       // Color Down Arrow
input uchar    Opaque            =  80;                  // Opaque Arrow
input int      Offset            =  10;                  // Up and Down Offset from Arrow
input string   ID                =  "RSI ID ";           // ID Name

double         UpLineBuffer[];
double         DnLineBuffer[];
double         RSILineBuffer[];
double         RSIValueBuffer[];
double         MaxLineBuffer[];
double         MinLineBuffer[];
double         WMALineBuffer[];
double         DeltaBuffer[];
double         UpBuffer[];
double         DnBuffer[];
double         LineBuffer[];

uint UpDrawBuffer[], DnDrawBuffer[];
int XDraw, YDraw;
string UpResourceName, DnResourceName;

#define  DrawArrow(Name, Rnm, Buff, time, prc, Anchor)                                          \
         if(DrawGraphic)                                                                        \
            if(ObjectFind(Name) < 0)                                                            \
            {                                                                                   \
               ObjectCreate(0, Name, OBJ_BITMAP, 0, 0, 0);                                      \
               ObjectSetInteger(0, Name, OBJPROP_TIME, 0, time);                                \
               ObjectSetDouble(0, Name, OBJPROP_PRICE, 0, prc);                                 \
               ObjectSetInteger(0, Name, OBJPROP_ANCHOR, Anchor);                               \
               ObjectSetInteger(0, Name, OBJPROP_SELECTABLE, false);                            \
               ObjectSetString(0, Name, OBJPROP_BMPFILE, Rnm);                                  \
               ResourceCreate(Rnm, Buff, XDraw, YDraw, 0, 0, 0, COLOR_FORMAT_ARGB_NORMALIZE);   \
           }                                                                                    \
            else                                                                                \
               if(ObjectGetDouble(0, Name, OBJPROP_PRICE) != prc)                               \
                  ObjectMove(Name, 0 , time, prc);

#define  GetName(i)  ID + TimeToString(Time[i])

#define  UpArrow(i) DrawArrow(GetName(i), UpResourceName, UpDrawBuffer, Time[i], High[i], ANCHOR_LOWER)
#define  DnArrow(i) DrawArrow(GetName(i), DnResourceName, DnDrawBuffer, Time[i], Low[i], ANCHOR_UPPER)
#define  Delete(i) if(DrawGraphic) ObjectDelete(0,GetName(i))

void OnDeinit(const int reason)
  {

   ObjectsDeleteAll(0, ID, 0);
  }

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

   if(DrawGraphic)
     {
      UpResourceName = "::Arrow Up";
      DnResourceName = "::Arrow Down";
      XDraw = SizeArrow * 2 + 1;
      YDraw = SizeArrow * 2 + Offset;
      ArrayResize(UpDrawBuffer, XDraw * YDraw);
      ArrayResize(DnDrawBuffer, XDraw * YDraw);
      ArrayI

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