//+------------------------------------------------------------------+ //| Discipline.mq5 | //| Copyright © 2009, Михаил Волочук | //| webtecnic@terra.es | //+------------------------------------------------------------------+ #property copyright "Copyright © 2009, Михаил Волочук" #property link "webtecnic@terra.es" //---- номер версии индикатора #property version "1.00" //---- отрисовка индикатора в отдельном окне #property indicator_separate_window //---- количество индикаторных буферов 2 #property indicator_buffers 2 //---- использовано всего одно графическое построение #property indicator_plots 1 //+-----------------------------------+ //| Параметры отрисовки индикатора | //+-----------------------------------+ //---- отрисовка индикатора в виде пятицветной гистограммы #property indicator_type1 DRAW_COLOR_HISTOGRAM //---- в качестве цветов четырёхцветной гистограммы использованы #property indicator_color1 clrMagenta,clrBrown,clrGray,clrGreen,clrLime //---- линия индикатора - сплошная #property indicator_style1 STYLE_SOLID //---- толщина линии индикатора равна 2 #property indicator_width1 2 //---- отображение лэйбы индикатора #property indicator_label1 "Discipline" //+-----------------------------------+ //| объявление перечислений | //+-----------------------------------+ enum Applied_price_ //Тип константы { PRICE_CLOSE_ = 1, //Close PRICE_OPEN_, //Open PRICE_HIGH_, //High PRICE_LOW_, //Low PRICE_MEDIAN_, //Median Price (HL/2) PRICE_TYPICAL_, //Typical Price (HLC/3) PRICE_WEIGHTED_, //Weighted Close (HLCC/4) PRICE_SIMPL_, //Simpl Price (OC/2) PRICE_QUARTER_, //Quarted Price (HLOC/4) PRICE_TRENDFOLLOW0_, //TrendFollow_1 Price PRICE_TRENDFOLLOW1_, //TrendFollow_2 Price PRICE_DEMARK_, //Demark Price PRICE_NAVEL_ //Navel Price }; //+-----------------------------------+ //| ВХОДНЫЕ ПАРАМЕТРЫ ИНДИКАТОРА | //+-----------------------------------+ input uint IndPeriod=10; //период индикатора input Applied_price_ IPC=PRICE_CLOSE;//ценовая константа input uint IndBars=300; //количество просчитываемых баров //+-----------------------------------+ //---- Объявление целых переменных начала отсчёта данных int min_rates_total,AtrPeriod; double Threshold; //---- объявление динамических массивов, которые будут в // дальнейшем использованы в качестве индикаторных буферов double IndBuffer[],ColorIndBuffer[]; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ void OnInit() { //---- Инициализация переменных начала отсчёта данных AtrPeriod=10; min_rates_total=int(IndPeriod+3+1); min_rates_total=MathMax(AtrPeriod,min_rates_total); Threshold=1.2; //---- превращение динамического массива IndBuffer в индикаторный буфер SetIndexBuffer(0,IndBuffer,INDICATOR_DATA); //---- осуществление сдвига начала отсчёта отрисовки индикатора PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total); //---- установка значений индикатора, которые не будут видимы на графике PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,EMPTY_VALUE); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(IndBuffer,true); //---- превращение динамического массива в цветовой, индексный буфер SetIndexBuffer(1,ColorIndBuffer,INDICATOR_COLOR_INDEX); //---- индексация элементов в буфере как в таймсерии ArraySetAsSeries(ColorIndBuffer,true); //--- создание имени для отображения в отдельном подокне и во всплывающей подсказке IndicatorSetString(INDICATOR_SHORTNAME,"Discipline"); //--- определение точности отображения значений индикатора IndicatorSetInteger(INDICATOR_DIGITS,_Digits+1); //---- завершение инициализации } //+------------------------------------------------------------------+ //| Custom indicator deinitialization function | //+------------------------------------------------------------------+ void OnDeinit(const int reason) { //---- int total=ObjectsTotal(0,0,-1)-1; string name,sirname; for(int numb=total; numb>=0 && !IsStopped(); numb--) { name=ObjectName(0,numb,0,-1); sirname=StringSubstr(name,0,StringLen("Exit")); if(sirname=="Exit") ObjectDelete(0,name); sirname=StringSubstr(name,0,StringLen("Buy")); if(sirname=="Buy") ObjectDelete(0,name); sirname=StringSubstr(name,0,StringLen("Sell")); if(sirname=="Sell") ObjectDelete(0,name); } //---- ChartRedraw(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ 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[]) { //---- проверка количества баров на достаточность для расчёта if(rates_totalrates_total || prev_calculated<=0)// проверка на первый старт расчёта индикатора { limit=int(MathMin(rates_total-min_rates_total,IndBars)); // стартовый номер для расчёта всех баров for(bar=rates_total-1; bar>limit && !IsStopped(); bar--) IndBuffer[bar]=EMPTY_VALUE; Value1=0.0; Value2=0.0; Fish1=0.0; Fish2=0.0; } else { limit=int(MathMin(rates_total-prev_calculated,IndBars)); // стартовый номер для расчёта новых баров } //---- индексация элементов в массивах как в таймсериях ArraySetAsSeries(open,true); ArraySetAsSeries(close,true); ArraySetAsSeries(high,true); ArraySetAsSeries(low,true); ArraySetAsSeries(time,true); //---- Основной цикл расчёта индикатора for(bar=limit; bar>=0 && !IsStopped(); bar--) { MaxH=high[ArrayMaximum(high,bar,IndPeriod)]; MinL=low[ArrayMinimum(low,bar,IndPeriod)]; price=PriceSeries(IPC,bar,open,low,high,close); Range=MaxH-MinL; if(Range) Value0=0.33*2*((price-MinL)/Range-0.5)+0.67*Value1; else Value0=0.999; Value0=MathMin(MathMax(Value0,-0.999),+0.999); Fish0=0.5*MathLog((1.0+Value0)/(1.0-Value0))+0.5*Fish1; IndBuffer[bar]=Fish0; string sTime=TimeToString(time[bar],TIME_DATE|TIME_MINUTES); name="Exit"+sTime; if(bar==limit) ObjectDelete(0,name); if(Fish0<0 && Fish1>0) SetArrow(0,name,0,time[bar],close[bar],118,clrRed,4,ANCHOR_TOP); if(Fish0>0 && Fish1<0) SetArrow(0,name,0,time[bar],close[bar],118,clrBlue,4,ANCHOR_BOTTOM); name="Sell"+sTime; if(bar==limit) ObjectDelete(0,name); if(Fish0<-Threshold && Fish0>Fish1 && Fish1<=Fish2) { pos=high[bar]+GetRange(bar,low,high,AtrPeriod)/2; SetArrow(0,name,0,time[bar],pos,234,clrRed,4,ANCHOR_BOTTOM); } name="Buy"+sTime; if(bar==limit) ObjectDelete(0,name); if(Fish0>Threshold && Fish0=Fish2) { pos=low[bar]-GetRange(bar,low,high,AtrPeriod)/2; SetArrow(0,name,0,time[bar],pos,233,clrBlue,4,ANCHOR_TOP); } if(bar) { Value2=Value1; Value1=Value0; Fish2=Fish1; Fish1=Fish0; } } if(prev_calculated>rates_total || prev_calculated<=0) limit--; //---- Основной цикл раскраски индикатора for(bar=limit; bar>=0 && !IsStopped(); bar--) { clr=2; if(IndBuffer[bar]>0) { if(IndBuffer[bar]>IndBuffer[bar+1]) clr=4; if(IndBuffer[bar]IndBuffer[bar+1]) clr=1; } ColorIndBuffer[bar]=clr; } //---- ChartRedraw(0); return(rates_total); } //+------------------------------------------------------------------+ //| GetRange function | //+------------------------------------------------------------------+ double GetRange(int index,const double &Low[],const double &High[],uint Len) { //---- double AvgRange=0.0; for(int count=index; countOpen[bar])return(High[bar]); else { if(Close[bar]Open[bar])return((High[bar]+Close[bar])/2.0); else { if(Close[bar]Open[bar]) res=(res+High[bar])/2; if(Close[bar]==Open[bar]) res=(res+Close[bar])/2; return(((res-Low[bar])+(res-High[bar]))/2); } //---- default: return(Close[bar]); } //---- //return(0); } //+------------------------------------------------------------------+ //| создание текстовой лейбы | //+------------------------------------------------------------------+ void CreateArrow(long chart_id,// chart ID string name, // object name int nwin, // window index datetime time, // price level time double price, // price level uint arrow, // Labels color Color, // Text color int Size, // Text size ENUM_ARROW_ANCHOR point // The chart corner to Which an text is attached ) //---- { //---- ObjectCreate(chart_id,name,OBJ_ARROW,nwin,time,price); ObjectSetInteger(chart_id,name,OBJPROP_ARROWCODE,arrow); ObjectSetInteger(chart_id,name,OBJPROP_COLOR,Color); ObjectSetInteger(chart_id,name,OBJPROP_WIDTH,Size); ObjectSetInteger(chart_id,name,OBJPROP_BACK,false); ObjectSetInteger(chart_id,name,OBJPROP_ANCHOR,point); //---- } //+------------------------------------------------------------------+ //| изменение текстовой лейбы | //+------------------------------------------------------------------+ void SetArrow(long chart_id,// chart ID string name, // object name int nwin, // window index datetime time, // price level time double price, // price level uint arrow, // Labels color Color, // Text color int Size, // Text size ENUM_ARROW_ANCHOR point // The chart corner to Which an text is attached ) //---- { //---- if(ObjectFind(chart_id,name)==-1) CreateArrow(chart_id,name,nwin,time,price,arrow,Color,Size,point); else { ObjectMove(chart_id,name,0,time,price); } //---- } //+------------------------------------------------------------------+