DRAW_COLOR_HISTOGRAM2

DRAW_COLOR_HISTOGRAM2 样式使用两个指标缓冲区的值绘制一个指定颜色–垂直段的直方图。但与单色DRAW_HISTOGRAM2不同,在该样式中直方图的每一列都有其来自预定义设置的颜色。所有节段值都从指标缓冲区获得。

直方图的宽度,样式和颜色的指定类似 DRAW_HISTOGRAM2 样式 - 使用 编译程序指令 或动态使用 PlotIndexSetInteger() 函数。动态改变标图属性允许基于当前状况改变直方图的外观。

DRAW_COLOR_HISTOGRAM2 样式可以被用在单独的图表子窗口和它的主窗口。由于不绘制空值,指标缓冲区的所有值都需要明确设定。缓冲区不通过空值初始化。

标图DRAW_COLOR_HISTOGRAM2 所需的缓冲区的数量是 3:

  • 在每个柱上存储垂直段上下端的两个缓冲区;
  • 存储颜色标引的一个缓冲区,它被用于绘制节段(它使得仅设置非空值有意义)。

在最高价和最低价之间绘制指定颜色直方图的指标示例。对于每个工作日,直方图的线都有不同的颜色。直方图的日颜色,宽度和样式每 N 个订单号都会随机变化一次。

DRAW_COLOR_HISTOGRAM2 样式的示例

请注意,DRAW_COLOR_HISTOGRAM2样式的plot1,使用编译程序指令#property设置5个颜色,然后在 OnCalculate() 函数随机选择来自存储在colors[] 数组的14种颜色的颜色。

N 参数设置在指标的 外部参数 ,使手动配置成为可能(指标属性窗口的参数标签)。

//+------------------------------------------------------------------+
//|                                        DRAW_COLOR_HISTOGRAM2.mq5 |
//|                        Copyright 2011, MetaQuotes Software Corp. |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2000-2024, MetaQuotes Ltd."
#property link      "https://www.mql5.com"
#property version   "1.00"
 
#property description "An indicator to demonstrate DRAW_COLOR_HISTOGRAM2"
#property description "It draws a segment between Open and Close on each bar"
#property description "The color, width and style are changed randomly"
#property description "after every N ticks"
 
#property indicator_chart_window
#property indicator_buffers 3
#property indicator_plots   1
//--- 标图ColorHistogram_2
#property indicator_label1  "ColorHistogram_2"
#property indicator_type1   DRAW_COLOR_HISTOGRAM2
//--- 定义 5 种颜色用于为基于工作日的直方图填充颜色(它们存储在指定数组)
#property indicator_color1  clrRed,clrBlue,clrGreen,clrYellow,clrMagenta
#property indicator_style1  STYLE_SOLID
#property indicator_width1  1
 
//--- 输入参数
input int      N=5;              // 改变直方图的订单号数量
int            color_sections;
//--- 缓冲区值
double         ColorHistogram_2Buffer1[];
double         ColorHistogram_2Buffer2[];
//--- 颜色标引缓冲区
double         ColorHistogram_2Colors[];
//--- 存储颜色的数组包含14种元素
color colors[]=
  {
   clrRed,clrBlue,clrGreen,clrChocolate,clrMagenta,clrDodgerBlue,clrGoldenrod,
   clrIndigo,clrLightBlue,clrAliceBlue,clrMoccasin,clrWhiteSmoke,clrCyan,clrMediumPurple
  };
//--- 存储线型样式的数组
ENUM_LINE_STYLE styles[]={STYLE_SOLID,STYLE_DASH,STYLE_DOT,STYLE_DASHDOT,STYLE_DASHDOTDOT};
//+------------------------------------------------------------------+
//| 自定义指标初始化函数                                                |
//+------------------------------------------------------------------+
int OnInit()
  {
//--- 指标缓冲区映射
   SetIndexBuffer(0,ColorHistogram_2Buffer1,INDICATOR_DATA);
   SetIndexBuffer(1,ColorHistogram_2Buffer2,INDICATOR_DATA);
   SetIndexBuffer(2,ColorHistogram_2Colors,INDICATOR_COLOR_INDEX);
//--- 设置空值
   PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,0);
//---- 为正弦曲线填充颜色的颜色数量
   color_sections=8;   // 请见注释#property indicator_color1
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| 自定义指标迭代函数                                                 |
//+------------------------------------------------------------------+
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[])
  {
   static int ticks=0;
//--- 计算订单号改变样式,颜色和线型宽度
   ticks++;
//--- 如果订单号的临界值被积累
   if(ticks>=N)
     {
      //--- 改变线型属性
      ChangeLineAppearance();
      //--- 改变用于绘制直方图的颜色
      ChangeColors(colors,color_sections);      
      //--- 重置0计数器
      ticks=0;
     }
 
//--- 计算指标值
   int start=0;
//--- 通过每柱的开盘价获得工作日
   MqlDateTime dt;
//---如果之前OnCalculate开始期间已经计算
   if(prev_calculated>0) start=prev_calculated-1; // 在倒数第二柱设置计算起点
//--- 填写指标缓冲区的值
   for(int i=start;i<rates_total;i++)
     {
      TimeToStruct(time[i],dt);
      //--- 价值
      ColorHistogram_2Buffer1[i]=high[i];
      ColorHistogram_2Buffer2[i]=low[i];
      //--- 根据工作日设置颜色标引
      int day=dt.day_of_week;
      ColorHistogram_2Colors[i]=day;
     }
//--- 返回prev_calculated值以便下次调用函数
   return(rates_total);
  }
//+------------------------------------------------------------------+
//| 改变线段颜色                                                       |
//+------------------------------------------------------------------+
void  ChangeColors(color  &cols[],int plot_colors)
  {
//--- 颜色数
   int size=ArraySize(cols);
//--- 
   string comm=ChartGetString(0,CHART_COMMENT)+"\r\n\r\n";
 
//--- 为每个颜色标引随机定义一个新的颜色
   for(int plot_color_ind=0;plot_color_ind<plot_colors;plot_color_ind++)
     {
      //--- 获得随机数
      int number=MathRand();
      //--- 获得col[]数组的标引作为整数除法的余数
      int i=number%size;
      //--- 设置每个标引的颜色为 PLOT_LINE_COLOR属性
      PlotIndexSetInteger(0,                    //  图形样式数量
                          PLOT_LINE_COLOR,      //  属性标识符
                          plot_color_ind,       //  颜色标引,我们在这里编写颜色
                          cols[i]);             //  新颜色
      //--- 编写颜色
      comm=comm+StringFormat("HistogramColorIndex[%d]=%s \r\n",plot_color_ind,ColorToString(cols[i],true));
      ChartSetString(0,CHART_COMMENT,comm);
     }
//---
  }
//+------------------------------------------------------------------+
//| 改变指标的线型显示外观                                              |
//+------------------------------------------------------------------+
void ChangeLineAppearance()
  {
//--- 形成线型属性信息的字符串
   string comm="";
//--- 改变线型宽度的模块
   int number=MathRand();
//--- 获得整数除法余数的宽度
   int width=number%5; // 宽度设置从 0 到 4
//--- 设置颜色为PLOT_LINE_WIDTH属性
   PlotIndexSetInteger(0,PLOT_LINE_WIDTH,width);
//--- 写下线型宽度
   comm=comm+" Width="+IntegerToString(width);
 
//--- 改变线型样式的模块
   number=MathRand();
//--- 除数等于样式数组的大小
   int size=ArraySize(styles);
//--- 获得选择新样式作为整数除法余数的标引
   int style_index=number%size;
//--- 设置颜色为 PLOT_LINE_COLOR 属性
   PlotIndexSetInteger(0,PLOT_LINE_STYLE,styles[style_index]);
//--- 写下线型样式
   comm=EnumToString(styles[style_index])+", "+comm;
//--- 使用注释在图表上显示信息
   Comment(comm);
  }