currency strength giraia 28 pairs tro modified 3.mq4

???//+------------------------------------------------------------------+

#property indicator_chart_window

extern bool TURN_OFF    = false ;    // TRO
extern bool SHOW_CURRENCIES    = true ;    // TRO
extern bool SHOW_CHART_PAIR    = false ;    // TRO  
extern bool SHOW_COMMENT       = false ;    // TRO 
extern bool SHOW_DATA          = true ;    // TRO  

extern string myCorner = 2 ;         // TRO

extern string   missingPairs        = "To have 28 pairs, these must be added: ";
extern string   CurrencyPairs       = "GU,UF,EU,UJ,UC,NU,AU,AN,AC,AF,AJ,CJ,FJ,EG,EA,EF,EJ,EN,EC,GF,GA,GC,GJ,GN,NJ,NC,CF,NF";         
input string    symbols="AUDCAD,AUDCHF,AUDJPY,AUDNZD,AUDUSD,CADCHF,CADJPY,CHFJPY,EURAUD,EURCAD,EURCHF,EURGBP,EURJPY,EURNZD,EURUSD,GBPAUD,GBPCAD,GBPCHF,GBPJPY,GBPNZD,GBPUSD,NZDCAD,NZDCHF,NZDJPY,NZDUSD,USDCAD,USDCHF,USDJPY"; //Symbols To Scan
extern string   FontName            = "Calibri";   //Courier New";
extern int      FontSize            = 8;

extern int      HorizPos            = 10;
extern int      VertPos             = 10;
extern int      VertSpacing         = 20;
extern int      RefreshEveryXMins   = 0;
extern color    Color1              = clrGreenYellow;
extern double   Level1              = 6.0;
extern color    Color2              = clrAqua;
extern double   Level2              = 5.0;
extern color    Color3              = clrRed;
extern double   Level3              = 2.9;
extern color    Color4              = Red;
extern double   Level4              = 0.0;
extern bool     ShowNoOfPairs       = false;
extern bool     SortDescending      = false;
extern int      checkSeconds        = 1;

double    spr, pnt, tickval, ccy_strength[8];
int       dig, tf, ccy_count[8], ccCP;
string    IndiName, ccy, CP[99], ccy_name[8];
datetime  prev_time;

   string BaseCur, QuoteCur, tMessage;   
   double BaseVal, QuoteVal, PairVal;

input string symbolPrefix=""; //Symbol Prefix
input string symbolSuffix=""; //Symbol Suffix   
string symbolListFinal[]; // array of symbols after merging post and prefix
string symbolList[]; // array of symbols  
int numSymbols=0; //the number of symbols to scan 

int Jolly[28];
int    alertmail[28][6][2];
double priceLow[28]; 
double priceHigh[28];
string array_to_sort[8];  
string Symb_text;
double Symb_value;

input double flashover              = 0.7;                // Livello Alert Pivot 
input ENUM_TIMEFRAMES timeframe     = PERIOD_M15;         // Timeframe Fibonacci corto
input int lookback                  = 144;                // Numero di candele Fibonacci corto 
input int lastbar                   = 0;                  // Partenza Fibonacci corto

datetime previousTime[28]; 

int tipo;    

input ENUM_TIMEFRAMES TimeFrame=PERIOD_D1;//Period for calculating
input ENUM_TIMEFRAMES Per   = PERIOD_M15; //Period for new opened charts
input color   UPcolor = clrLimeGreen;     //Color when moved up
input color   DownColor = clrRed;      //Color when moved down

int    Size=10; //Font size
string Font= "Arial Black";
int    BGcolor;  //Bars background color
int    cF = 100; //Coefficient of scale
int    Zero,Wbar,Hbar,Xsize,Ysize;
string PairsArray[28];  //Array for Pairs Name
double ChangeArray[28]; //Array for Pairs Change    

string subfolder="";
string namafile="";
string date_="";
string time_="";          
int    handlefile=0;
bool   writefile=false;

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

int deinit()  {

  del_obj();
  Comment("") ;
  return(0);
}

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

void plot_obj()   {

  ArrayInitialize(ccy_strength,0.0);
  ArrayInitialize(ccy_count,0);

  for (int i=0; i<ccCP; i++)   {
    double day_high     = MarketInfo(CP[i],MODE_HIGH);
    double day_low      = MarketInfo(CP[i],MODE_LOW);
    double curr_bid     = MarketInfo(CP[i],MODE_BID);
    double bid_ratio    = DivZero(curr_bid - day_low, day_high - day_low);

    double ind_strength = 0;
    if (bid_ratio >= 0.97)   ind_strength = 9;    else
    if (bid_ratio >= 0.90)   ind_strength = 8;    else
    if (bid_ratio >= 0.75)   ind_strength = 7;    else
    if (bid_ratio >= 0.60)   ind_strength = 6;    else
    if (bid_ratio >= 0.50)   ind_strength = 5;    else
    if (bid_ratio >= 0.40)   ind_strength = 4;    else
    if (bid_ratio >= 0.25)   ind_strength = 3;    else
    if (bid_ratio >= 0.10)   ind_strength = 2;    else
    if (bid_ratio >= 0.03)   ind_strength = 1;

    string temp = StringSubstr(CP[i],0,3);
    for (int j=0; j<8; j++)   {
      if (ccy_name[j] == temp)  {
        ccy_strength[j] += ind_strength;
        ccy_count[j]    += 1;
        break;
    } }    

    temp = StringSubstr(CP[i],3,3);
    for (j=0; j<8; j++)   {
      if (ccy_name[j] == temp)  {
   

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