/* //----+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -+ //Version October 1, 2006 | Editing Nikolay Kositsin 15.06.2006 farria@mail.redcom.ru | //----+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -+ */ //+------------------------------------------------------------------+ //| 3Color_KeltnerCh.mqh | //| Copyright © 2006, Nikolay Kositsin | //| Khabarovsk, farria@mail.redcom.ru | //+------------------------------------------------------------------+ /* #property copyright "Nikolay Kositsin" #property link "farria@mail.redcom.ru" //---- отрисовка индикатора в главном окне #property indicator_chart_window //---- количество индикаторных буферов #property indicator_buffers 6 //---- цвета индикатора #property indicator_color1 Lime #property indicator_color2 Lime #property indicator_color3 Red #property indicator_color4 Red #property indicator_color5 Gray #property indicator_color6 Gray */ //---- ВХОДНЫЕ ПАРАМЕТРЫ ИНДИКАТОРА ------------------------------------+ extern int Keltner_period = 50; // период канала Кёлтнера extern int Keltner_Step = 9; // параметр, пределящий размер колебаний принимаемых за флэт ( цыфровой шаг дискретизации в пунктах) extern int Ind_Shift = 0; // cдвиг индикатора вдоль оси времени extern int Trend_Minimum = 0; // минимальная скорость тренда в пунктах //---- -----------------------------------------------------------------+ //---- индикаторные буферы double Buffer1 []; double Buffer2 []; double Buffer3 []; double Buffer4 []; double Buffer5 []; double Buffer6 []; double Buffer7 []; double Buffer8 []; //---- double Value_Buffer[4]; //---- введение логических констант bool ReStart=false; //---- введение констант с плавающей точкой double MINIMUM,Norma; //---- введение переменных с плавающей точкой double Value1,Value0; //---- введение целых переменных int bar,ind_N1,ind_N2; //----+ Введение функции GetKeltner //----+ (файл GetKeltner.mqh следует положить в папку (директорию): MetaTrader\experts\include) #include //+------------------------------------------------------------------+ //| 3Color_KeltnerCh initialization function | //+------------------------------------------------------------------+ int init() { //---- стили изображения индикатора SetIndexStyle (0, DRAW_LINE); SetIndexStyle (1, DRAW_LINE); SetIndexStyle (2, DRAW_LINE); SetIndexStyle (3, DRAW_LINE); SetIndexStyle (4, DRAW_LINE); SetIndexStyle (5, DRAW_LINE); SetIndexStyle (6, DRAW_LINE); SetIndexStyle (7, DRAW_LINE); //---- 8 индикаторных буферов использованы для счёта IndicatorBuffers(8); SetIndexBuffer (0, Buffer1); SetIndexBuffer (1, Buffer2); SetIndexBuffer (2, Buffer3); SetIndexBuffer (3, Buffer4); SetIndexBuffer (4, Buffer5); SetIndexBuffer (5, Buffer6); SetIndexBuffer (6, Buffer7); SetIndexBuffer (7, Buffer8); //---- установка значений индикатора, которые не будут видимы на графике SetIndexEmptyValue(0,EmptyValue); SetIndexEmptyValue(1,EmptyValue); SetIndexEmptyValue(2,EmptyValue); SetIndexEmptyValue(3,EmptyValue); SetIndexEmptyValue(4,EmptyValue); SetIndexEmptyValue(5,EmptyValue); SetIndexEmptyValue(6,EmptyValue); SetIndexEmptyValue(7,EmptyValue); //---- установка сдига значений индикатора вдоль оси времени SetIndexShift(0,Ind_Shift); SetIndexShift(1,Ind_Shift); SetIndexShift(2,Ind_Shift); SetIndexShift(3,Ind_Shift); SetIndexShift(4,Ind_Shift); SetIndexShift(5,Ind_Shift); SetIndexShift(6,Ind_Shift); SetIndexShift(7,Ind_Shift); //---- установка номера бара, начиная с которого будет отрисовываться индикатор int drow_begin; if (COUNT_begin()>=0) { drow_begin=COUNT_begin()+Ind_Shift+3; SetIndexDrawBegin(0,drow_begin); SetIndexDrawBegin(1,drow_begin); SetIndexDrawBegin(2,drow_begin); SetIndexDrawBegin(3,drow_begin); SetIndexDrawBegin(4,drow_begin); SetIndexDrawBegin(5,drow_begin); SetIndexDrawBegin(6,drow_begin); SetIndexDrawBegin(7,drow_begin); } //---- Установка формата точности (количество знаков после десятичной точки) для визуализации значений индикатора IndicatorDigits(digits()); //---- имена для окон данных и лэйбы для субъокон IndicatorShortName(""+Label+""); SetIndexLabel(0,"Up_Trend"); SetIndexLabel(1,"Up_Trend"); SetIndexLabel(2,"Down_Trend"); SetIndexLabel(3,"Down_Trend"); SetIndexLabel(4,"Straight_Trend"); SetIndexLabel(5,"Straight_Trend"); SetIndexLabel(6,"Channals_UP"); SetIndexLabel(7,"Channals_DOUN"); //---- инициализация констант MINIMUM=Trend_Minimum*Point; Norma=Keltner_Step*Point; //---- завершение инициализации return(0); } //+------------------------------------------------------------------+ //| 3Color KeltnerChannel code | //+------------------------------------------------------------------+ int start() { //---- введение переменных с плавающей точкой double Trend0,Trend1,Trend2,Keltner,Line,UpLine,DnLine; //----+ Введение целых переменных и получение уже подсчитанных баров int limit,size,MaxBar,MaxBar1,counted_bars=IndicatorCounted(); //---- проверка на возможные ошибки if (counted_bars<0)return(-1); //---- последний подсчитанный бар должен быть пересчитан if (counted_bars>0) counted_bars--; //---- определение номера самого старого бара, начиная с которого будет произедён пересчёт новых баров MaxBar=Bars-1; limit=MaxBar-counted_bars; size=limit+4; if (size>MaxBar+1)size=MaxBar+1; ArrayResize(Value_Buffer,size); //---- Загрузка значений исходного индикатора в буфер for(bar=size-1; bar>=0; bar--)Value_Buffer[bar]=INDICATOR(bar); //---- определение номера самого старого бара, начиная с которого будет произедён пересчёт всех баров if ((counted_bars==0)&&(COUNT_begin()==-1)) { for(bar=MaxBar; bar>=0; bar--)if (Value_Buffer[bar]!=EmptyValue){MaxBar1=bar-3;break;} //---- установка номера бара, начиная с которого будет отрисовываться индикатор int drow_begin; drow_begin=MaxBar-MaxBar1+Ind_Shift; SetIndexDrawBegin(0,drow_begin); SetIndexDrawBegin(1,drow_begin); SetIndexDrawBegin(2,drow_begin); SetIndexDrawBegin(3,drow_begin); SetIndexDrawBegin(4,drow_begin); SetIndexDrawBegin(5,drow_begin); //---- } else MaxBar1=MaxBar-COUNT_begin()-3; //---- корекция максимального номера самого старого бара, начиная с которого будет произедён пересчёт новых баров //---- инициализация нуля if (limit>MaxBar1) { limit=MaxBar1; for(int ttt=MaxBar;ttt>MaxBar1;ttt--) { Buffer1[ttt]=EmptyValue; Buffer2[ttt]=EmptyValue; Buffer3[ttt]=EmptyValue; Buffer4[ttt]=EmptyValue; Buffer5[ttt]=EmptyValue; Buffer6[ttt]=EmptyValue; Buffer7[ttt]=EmptyValue; Buffer8[ttt]=EmptyValue; } } //---- Вычисление каналов for(bar=limit; bar>=0; bar--) { Line=Value_Buffer[bar]; Keltner=GetKeltner(Symbol(),0,Keltner_period,bar); //---- UpLine=Line+Keltner; DnLine=Line-Keltner; //----+ нормализация полученных значений UpLine/=Norma; DnLine/=Norma; //---- UpLine=NormalizeDouble(UpLine,0); DnLine=NormalizeDouble(DnLine,0); //---- UpLine*=Norma; DnLine*=Norma; //---- Buffer7[bar]=UpLine; Buffer8[bar]=DnLine; } bar=limit; //---- ОСНОВНОЙ ЦИКЛ РАСЧЁТА ИНДИКАТОРА //+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+ //|++++++++++++++++++++++++ <<< Three Color Indicator code >>> ++++++++++++++++++++++++++++++++++++++++++++| //+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+ // Input indicator buffer: Value_Buffer. | // Output indicator buffers: Buffer1, Buffer2, Buffer1, Buffer2, Buffer1, Buffer2. | | //+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+ while(bar>=0) { if (!ReStart) { Trend2=Value_Buffer[bar+2]-Value_Buffer[bar+3]; Trend1=Value_Buffer[bar+1]-Value_Buffer[bar+2]; //---- if (MathAbs(Trend2)0) ind_N2=1; else {if (Trend2<0) ind_N2=3; else ind_N2=5;} if (Trend1>0) ind_N1=1; else {if (Trend1<0) ind_N1=3; else ind_N1=5;} } //----+---------------------------------------------------------------------------------------------------------------+ if((ReStart)&&(bar==limit)) { Trend2=Value_Buffer[bar+2]-Value_Buffer[bar+3]; Trend1=Value_Buffer[bar+1]-Value_Buffer[bar+2]; //---- if (MathAbs(Trend2) 0){if (Buffer1[iii+2]!=EmptyValue){ind_N2=1;break;} if (Buffer2[iii+2]!=EmptyValue){ind_N2=2;break;}} if (Trend2< 0){if (Buffer3[iii+2]!=EmptyValue){ind_N2=3;break;} if (Buffer4[iii+2]!=EmptyValue){ind_N2=4;break;}} if (Trend2==0){if (Buffer5[iii+2]!=EmptyValue){ind_N2=5;break;} if (Buffer6[iii+2]!=EmptyValue){ind_N2=6;break;}} } //---- for(int kkk=bar;kkk<=bar;kkk++) { if (Trend1> 0){if (Buffer1[kkk+1]!=EmptyValue){ind_N1=1;break;} if (Buffer2[kkk+1]!=EmptyValue){ind_N1=2;break;}} if (Trend1< 0){if (Buffer3[kkk+1]!=EmptyValue){ind_N1=3;break;} if (Buffer4[kkk+1]!=EmptyValue){ind_N1=4;break;}} if (Trend1==0){if (Buffer5[kkk+1]!=EmptyValue){ind_N1=5;break;} if (Buffer6[kkk+1]!=EmptyValue){ind_N1=6;break;}} } //---- } //----+---------------------------------------------------------------------------------------------------------------+ Value0 = Value_Buffer[bar+0]; Value1 = Value_Buffer[bar+1]; Trend0 = Value0 - Value1; if (MathAbs(Trend0)0){Buffer1[bar]=Value0; Buffer1[bar+1]=Value1; ind_N1=1; ReStart=true;} if(Trend0 <0){Buffer3[bar]=Value0; Buffer3[bar+1]=Value1; ind_N1=3; ReStart=true;} if(Trend0==0){Buffer5[bar]=Value0; Buffer5[bar+1]=Value1; ind_N1=5; ReStart=true;} } //----+=============================================================================================+ if(Trend0>0)Up_Trend();else if(Trend0<0)Down_Trend();else No_trend(); bar--; } //----ЗАВЕРШЕНИЕ ОСНОВНОГО ЦИКЛА // ++++++++++++++++ <<< Three Color Indicator code done >>> +++++++++++++++++++++++++++++ for(kkk=2; kkk>=0; kkk--)Value_Buffer[kkk+1]=Value_Buffer[kkk]; return(0); } //----+ +------------------------------------------------------------------------------------------------------+ //+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+ //----+ +++++++++++++++++++ <<< Дополнительные функции для индикатора >>> ++++++++++++++++++++++++++ //+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+ void Up_Trend(){switch(ind_N1) { case 1 : {Buffer1[bar]=Value0; Buffer1[bar+1]=Value1; ind_N2=ind_N1; ind_N1=1;}break; case 2 : {Buffer2[bar]=Value0; Buffer2[bar+1]=Value1; ind_N2=ind_N1; ind_N1=2;}break; case 3 :{switch(ind_N2) {case 1 : {Buffer2[bar]=Value0; Buffer2[bar+1]=Value1; ind_N2=ind_N1; ind_N1=2;}break; default : {Buffer1[bar]=Value0; Buffer1[bar+1]=Value1; ind_N2=ind_N1; ind_N1=1;}}}break; case 4 :{switch(ind_N2) {case 1 : {Buffer2[bar]=Value0; Buffer2[bar+1]=Value1; ind_N2=ind_N1; ind_N1=2;}break; default : {Buffer1[bar]=Value0; Buffer1[bar+1]=Value1; ind_N2=ind_N1; ind_N1=1;}}}break; case 5 :{switch(ind_N2) {case 1 : {Buffer2[bar]=Value0; Buffer2[bar+1]=Value1; ind_N2=ind_N1; ind_N1=2;}break; default : {Buffer1[bar]=Value0; Buffer1[bar+1]=Value1; ind_N2=ind_N1; ind_N1=1;}}}break; case 6 :{switch(ind_N2) {case 1 : {Buffer2[bar]=Value0; Buffer2[bar+1]=Value1; ind_N2=ind_N1; ind_N1=2;}break; default : {Buffer1[bar]=Value0; Buffer1[bar+1]=Value1; ind_N2=ind_N1; ind_N1=1;}}} } } //+================================================================================================+ void Down_Trend(){switch(ind_N1) { case 3 : {Buffer3[bar]=Value0; Buffer3[bar+1]=Value1; ind_N2=ind_N1; ind_N1=3;}break; case 4 : {Buffer4[bar]=Value0; Buffer4[bar+1]=Value1; ind_N2=ind_N1; ind_N1=4;}break; case 1 :{switch(ind_N2) {case 3 : {Buffer4[bar]=Value0; Buffer4[bar+1]=Value1; ind_N2=ind_N1; ind_N1=4;}break; default : {Buffer3[bar]=Value0; Buffer3[bar+1]=Value1; ind_N2=ind_N1; ind_N1=3;}}}break; case 2 :{switch(ind_N2) {case 3 : {Buffer4[bar]=Value0; Buffer4[bar+1]=Value1; ind_N2=ind_N1; ind_N1=4;}break; default : {Buffer3[bar]=Value0; Buffer3[bar+1]=Value1; ind_N2=ind_N1; ind_N1=3;}}}break; case 5 :{switch(ind_N2) {case 3 : {Buffer4[bar]=Value0; Buffer4[bar+1]=Value1; ind_N2=ind_N1; ind_N1=4;}break; default : {Buffer3[bar]=Value0; Buffer3[bar+1]=Value1; ind_N2=ind_N1; ind_N1=3;}}}break; case 6 :{switch(ind_N2) {case 3 : {Buffer4[bar]=Value0; Buffer4[bar+1]=Value1; ind_N2=ind_N1; ind_N1=4;}break; default : {Buffer3[bar]=Value0; Buffer3[bar+1]=Value1; ind_N2=ind_N1; ind_N1=3;}}} } } //+================================================================================================+ void No_trend(){switch(ind_N1) { case 5 : {Buffer5[bar]=Value0; Buffer5[bar+1]=Value1; ind_N2=ind_N1; ind_N1=5;}break; case 6 : {Buffer6[bar]=Value0; Buffer6[bar+1]=Value1; ind_N2=ind_N1; ind_N1=6;}break; case 1 :{switch(ind_N2) {case 5 : {Buffer6[bar]=Value0; Buffer6[bar+1]=Value1; ind_N2=ind_N1; ind_N1=6;}break; default : {Buffer5[bar]=Value0; Buffer5[bar+1]=Value1; ind_N2=ind_N1; ind_N1=5;}}}break; case 2 :{switch(ind_N2) {case 5 : {Buffer6[bar]=Value0; Buffer6[bar+1]=Value1; ind_N2=ind_N1; ind_N1=6;}break; default : {Buffer5[bar]=Value0; Buffer5[bar+1]=Value1; ind_N2=ind_N1; ind_N1=5;}}}break; case 3 :{switch(ind_N2) {case 5 : {Buffer6[bar]=Value0; Buffer6[bar+1]=Value1; ind_N2=ind_N1; ind_N1=6;}break; default : {Buffer5[bar]=Value0; Buffer5[bar+1]=Value1; ind_N2=ind_N1; ind_N1=5;}}}break; case 4 :{switch(ind_N2) {case 5 : {Buffer6[bar]=Value0; Buffer6[bar+1]=Value1; ind_N2=ind_N1; ind_N1=6;}break; default : {Buffer5[bar]=Value0; Buffer5[bar+1]=Value1; ind_N2=ind_N1; ind_N1=5;}}} } } //+================================================================================================+