//+------------------------------------------------------------------+ //| 10.2 TmaSlope v.1.4.mq4 | //+------------------------------------------------------------------+ #property copyright "Copyright © 2012, zznbrm" //Edited by shahrooz "sh.sadeghi.me@gmail.com" //Edited by Nanningbob April 2012 for 10.2 //---- indicator settings #property indicator_separate_window #property indicator_buffers 7 #property indicator_level1 0.4 #property indicator_level2 -0.4 #property indicator_level3 0.8 #property indicator_level4 -0.8 #property indicator_levelcolor Black #property indicator_color1 Green #property indicator_color2 Lime #property indicator_color3 FireBrick #property indicator_color4 Red #property indicator_color5 Teal #property indicator_color6 HotPink #property indicator_color7 DarkBlue #property indicator_width1 2 #property indicator_width2 2 #property indicator_width3 2 #property indicator_width4 2 #property indicator_width5 3 #property indicator_width6 3 #property indicator_width7 0 //---- input parameters extern string OtherTimeFrames = "Select below 0=current tf,1,5,15,30,60,240,1440,10080,43200"; extern int select_other_tf_to_show=0; extern int H_Pos_MTF=1; extern int V_Pos_MTF=50; extern int Font_Size_MTF = 12; extern int Corner_MTF=3; extern color Font_Color_MTF = Black; extern int eintPeriod = 20; extern double edblHigh1 = 0.4; extern double edblLow1 = -0.4; extern int atrPeriod = 100; extern color Font_Color = White; extern int H_Pos = 1; extern int V_Pos = 25; extern int Corner = 3; extern int Font_Size = 14; extern int Font_Size_text = 11; extern int H_Pos_text = 1; extern int V_Pos_text = 1; extern int Text_Corner=3; string indname = "TmaSlope"; extern string Zero = "--- Сигнал Zero (1)---"; extern bool ZeroShowAlert = true; //Включение алерта extern bool ZeroDeltaLevel = 0.4; //Отклонение уровня от нуля extern int ZeroSIGNAL_BAR = 1; //Номер бара, на котором будет искаться изменение сигнала //Alen_T extern bool ZeroB_S_B = true; // Чередование сигналов, иначе все - подряд extern bool ZeroSound = true; //Включение звукового сигнала extern string ZeroBuySound = "Alert.wav"; //Звуковой файл. BUY. В каталоге каталог_терминала\sounds или его подкаталоге. extern string ZeroSellSound = "Alert.wav"; //Звуковой файл. SELL. В каталоге каталог_терминала\sounds или его подкаталоге. extern string Trend = "--- Сигнал Trend (2,3)---"; extern bool TrendShowAlert = true; //Включение алерта extern int TrendSIGNAL_BAR = 1; //Номер бара, на котором будет искаться изменение сигнала //Alen_T extern bool TrendB_S_B = true; // Чередование сигналов, иначе все - подряд extern bool TrendSound = true; //Включение звукового сигнала extern string TrendBuySound = "Alert.wav"; //Звуковой файл. BUY. В каталоге каталог_терминала\sounds или его подкаталоге. extern string TrendSellSound = "Alert.wav"; //Звуковой файл. SELL. В каталоге каталог_терминала\sounds или его подкаталоге. extern string Peak = "--- Сигнал Peak (4,5)---"; extern bool PeakShowAlert = true; //Включение алерта extern int PeakSIGNAL_BAR = 1; //Номер бара, на котором будет искаться изменение сигнала //Alen_T extern bool PeakB_S_B = true; // Чередование сигналов, иначе все - подряд extern bool PeakSound = true; //Включение звукового сигнала extern string PeakBuySound = "Alert.wav"; //Звуковой файл. BUY. В каталоге каталог_терминала\sounds или его подкаталоге. extern string PeakSellSound = "Alert.wav"; //Звуковой файл. SELL. В каталоге каталог_терминала\sounds или его подкаталоге. //---- indicator buffers double gadblUp1[]; double gadblUp2[]; double gadblDn1[]; double gadblDn2[]; double gadblMid1[]; double gadblMid2[]; double gadblSlope[]; color Font_Color_M15; double TICK; bool AdditionalDigit; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { //IndicatorBuffers( 8 ); IndicatorBuffers( 7 ); IndicatorDigits( 5 ); IndicatorShortName( "10.2 TmaSlope_Norm" ); AdditionalDigit = MarketInfo(Symbol(), MODE_MARGINCALCMODE) == 0 && MarketInfo(Symbol(), MODE_PROFITCALCMODE) == 0 && Digits % 2 == 1; TICK = getTick(); SetIndexBuffer( 0, gadblUp1 ); SetIndexLabel( 0, "Up1" ); SetIndexStyle( 0, DRAW_HISTOGRAM ); SetIndexBuffer( 1, gadblUp2 ); SetIndexLabel( 1, "Up2" ); SetIndexStyle( 1, DRAW_HISTOGRAM ); SetIndexBuffer( 2, gadblDn1 ); SetIndexLabel( 2, "Dn1" ); SetIndexStyle( 2, DRAW_HISTOGRAM ); SetIndexBuffer( 3, gadblDn2 ); SetIndexLabel( 3, "Dn2" ); SetIndexStyle( 3, DRAW_HISTOGRAM ); SetIndexBuffer( 4, gadblMid1 ); SetIndexLabel( 4, "Mid1" ); SetIndexStyle( 4, DRAW_HISTOGRAM ); SetIndexBuffer( 5, gadblMid2 ); SetIndexLabel( 5, "Mid2" ); SetIndexStyle( 5, DRAW_HISTOGRAM ); /* SetIndexBuffer( 0, gadblUp1 ); SetIndexLabel( 0, NULL ); SetIndexStyle( 0, DRAW_HISTOGRAM ); SetIndexBuffer( 1, gadblUp2 ); SetIndexLabel( 1, NULL ); SetIndexStyle( 1, DRAW_HISTOGRAM ); SetIndexBuffer( 2, gadblDn1 ); SetIndexLabel( 2, NULL ); SetIndexStyle( 2, DRAW_HISTOGRAM ); SetIndexBuffer( 3, gadblDn2 ); SetIndexLabel( 3, NULL ); SetIndexStyle( 3, DRAW_HISTOGRAM ); SetIndexBuffer( 4, gadblMid1 ); SetIndexLabel( 4, NULL ); SetIndexStyle( 4, DRAW_HISTOGRAM ); SetIndexBuffer( 5, gadblMid2 ); SetIndexLabel( 5, NULL ); SetIndexStyle( 5, DRAW_HISTOGRAM ); */ SetIndexBuffer( 6, gadblSlope ); SetIndexLabel( 6, "TMA Slope" ); // SetIndexStyle( 6, DRAW_NONE ); SetIndexStyle( 6, DRAW_LINE); SetIndexEmptyValue( 0, 0.0 ); SetIndexEmptyValue( 1, 0.0 ); SetIndexEmptyValue( 2, 0.0 ); return( 0 ); } //+------------------------------------------------------------------+ //| Custom indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { return( 0 ); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { int counted_bars = IndicatorCounted(); if ( counted_bars < 0 ) return(-1); if ( counted_bars > 0 ) counted_bars--; int intLimit = MathMin( Bars - 1, Bars - counted_bars + eintPeriod ); double dblTma, dblPrev; double dblTmaMTF, dblPrevMTF; double atr ; double atrMTF ; for( int inx = intLimit; inx >= 0; inx-- ) { //gadblTma[inx] = calcTma( inx ); //gadblPrev[inx] = calcTma( inx+1 ); //gadblSlope[inx] = ( gadblTma[inx] - gadblPrev[inx] ) / TICK; atr= iATR(NULL,0,atrPeriod,inx+10)*0.1; atrMTF= iATR(NULL,select_other_tf_to_show,atrPeriod,inx+10)*0.1; if (atr == 0) continue; if (atrMTF == 0) continue; dblTma = calcTma( inx ); dblPrev = calcTma( inx+1 ); gadblSlope[inx] = ( dblTma - dblPrev ) / atr; gadblUp1[inx] = 0.0; gadblDn1[inx] = 0.0; gadblMid1[inx] = 0.0; gadblUp2[inx] = 0.0; gadblDn2[inx] = 0.0; gadblMid2[inx] = 0.0; if ( gadblSlope[inx] > edblHigh1 ) { if(gadblSlope[inx] < gadblSlope[inx+1]) gadblUp1[inx] = gadblSlope[inx]; else gadblUp2[inx] = gadblSlope[inx]; } else if ( gadblSlope[inx] < edblLow1 ) { if(gadblSlope[inx] < gadblSlope[inx+1]) gadblDn2[inx] = gadblSlope[inx]; else gadblDn1[inx] = gadblSlope[inx]; } else { if(gadblSlope[inx] < gadblSlope[inx+1]) gadblMid2[inx] = gadblSlope[inx]; else gadblMid1[inx] = gadblSlope[inx]; } // if(gadblSlope[inx]>=0 && gadblSlope[inx]Open[inx] ) arrowdown[inx]=gadblSlope[inx]+0.1*gadblSlope[inx]; // if(gadblSlope[inx]<0 && gadblSlope[inx]>gadblSlope[inx+1] && Close[inx]=gadblSlope[inx+1]) arrowup[inx]=gadblSlope[inx]+0.1*gadblSlope[inx]; string tt=DoubleToStr(gadblSlope[inx],2); ObjectCreate("label",OBJ_LABEL,WindowFind("10.2 TmaSlope_Norm"),0,0); ObjectSet("label",OBJPROP_XDISTANCE,H_Pos); ObjectSet("label",OBJPROP_YDISTANCE,V_Pos); ObjectSet("label",OBJPROP_CORNER,Corner); ObjectSetText("label"," "+tt+" ",Font_Size,"Arial",Font_Color); string sObjName="InfoBar1"; if (gadblSlope[0] >= edblHigh1) ObjectSetText(sObjName, "Buy Only", Font_Size_text, "Verdana", Black); else if (gadblSlope[0] <= edblLow1) ObjectSetText(sObjName, "Sell Only", Font_Size_text, "Verdana", Red); else ObjectSetText(sObjName, "Ranging", Font_Size_text, "Verdana", DarkGreen); string name1 = "InfoBar1"; switch(select_other_tf_to_show) { case 1 : string TimeFrameStr="M1"; break; case 5 : TimeFrameStr="M5"; break; case 15 : TimeFrameStr="M15"; break; case 30 : TimeFrameStr="M30"; break; case 60 : TimeFrameStr="H1"; break; case 240 : TimeFrameStr="H4"; break; case 1440 : TimeFrameStr="D1"; break; case 10080 : TimeFrameStr="W1"; break; case 43200 : TimeFrameStr="MN1"; break; default : TimeFrameStr="Current"; } ObjectCreate(sObjName, OBJ_LABEL,WindowFind("10.2 TmaSlope_Norm"), 0, 0); ObjectSet(sObjName, OBJPROP_CORNER, Text_Corner); ObjectSet(sObjName, OBJPROP_XDISTANCE, H_Pos_text);//left to right ObjectSet(sObjName, OBJPROP_YDISTANCE, V_Pos_text);//top to bottom dblTmaMTF = calcTmaMTF( 0 , select_other_tf_to_show ); dblPrevMTF = calcTmaMTF( 1 , select_other_tf_to_show); double hh = ( dblTmaMTF - dblPrevMTF ) / atrMTF; if(hh>=0.5) Font_Color_MTF=Black; else if (hh<=-0.5) Font_Color_MTF=Red; else Font_Color_MTF=DarkGreen; string jj=DoubleToStr(hh,2); ObjectCreate("label MTF",OBJ_LABEL,WindowFind("10.2 TmaSlope_Norm"),0,0); ObjectSet("label MTF",OBJPROP_XDISTANCE,H_Pos_MTF); ObjectSet("label MTF",OBJPROP_YDISTANCE,V_Pos_MTF); ObjectSet("label MTF",OBJPROP_CORNER,Corner_MTF); ObjectSetText("label MTF",""+TimeFrameStr+" = "+jj+" ",Font_Size_MTF,"Arial",Font_Color_MTF); } //=== //----------------- Zero (1) ------------------ //---- Статические переменные, в которых хранятся //---- время последнего бара и направление последнего сигнала if(ZeroShowAlert && ZeroSound) { static int ZeroPrevSignal = 0; static datetime ZeroPrevTime = 0; double level; //---- Если баром для анализа выбран не 0-й, нам нет смысла проверять сигнал //---- несколько раз. Если не начался новый бар, выходим. if(ZeroSIGNAL_BAR > 0 && Time[0] <= ZeroPrevTime ) return(0); //---- Отмечаем, что этот бар проверен ZeroPrevTime = Time[0]; //---- Если предыдущий сигнал был СЕЛЛ или это первый запуск (PrevSignal=0) if(ZeroPrevSignal <= 0 || !ZeroB_S_B) { level = 0 + ZeroDeltaLevel; if (gadblSlope[ZeroSIGNAL_BAR] > level && gadblSlope[ZeroSIGNAL_BAR+1] < level) { ZeroPrevSignal = 1; if(ZeroShowAlert) Alert(indname+" Пересечение уровня вверх ",Period()," ",Symbol()," BUY"); // Print(indname +" (", Symbol(), ", ", Period(), ") - BUY!!!"); //Вывод в журнал // Comment(indname +" (", Symbol(), ", ", Period(), ") - BUY!!!"); //Вывод на экран if(ZeroSound) PlaySound(ZeroBuySound); //Проигрывание сигнала } } if(ZeroPrevSignal >= 0 || !ZeroB_S_B) { level = 0 - ZeroDeltaLevel; if (gadblSlope[ZeroSIGNAL_BAR] < level && gadblSlope[ZeroSIGNAL_BAR+1] > level) { ZeroPrevSignal = -1; if(ZeroShowAlert) Alert(indname+" Пересечение уровня вниз ",Period()," ",Symbol()," SELL"); // Print(indname +" (", Symbol(), ", ", Period(), ") - SELL!!!"); // Comment(indname +" (", Symbol(), ", ", Period(), ") - SELL!!!"); if(ZeroSound) PlaySound(ZeroSellSound); } } } //----------------- Trend (2,3) ------------------ if(TrendShowAlert && TrendSound) { static int TrendPrevSignal = 0; static datetime TrendPrevTime = 0; //---- Если баром для анализа выбран не 0-й, нам нет смысла проверять сигнал //---- несколько раз. Если не начался новый бар, выходим. if(TrendSIGNAL_BAR > 0 && Time[0] <= TrendPrevTime ) return(0); //---- Отмечаем, что этот бар проверен TrendPrevTime = Time[0]; //---- Если предыдущий сигнал был СЕЛЛ или это первый запуск (PrevSignal=0) if(TrendPrevSignal <= 0 || !TrendB_S_B) { if (gadblMid1[TrendSIGNAL_BAR+1] != 0 && gadblUp2[TrendSIGNAL_BAR] != 0) { TrendPrevSignal = 1; if(TrendShowAlert) Alert(indname+" Пересечение уровня вверх ",Period()," ",Symbol()," BUY"); // Print(indname +" (", Symbol(), ", ", Period(), ") - BUY!!!"); //Вывод в журнал // Comment(indname +" (", Symbol(), ", ", Period(), ") - BUY!!!"); //Вывод на экран if(TrendSound) PlaySound(TrendBuySound); //Проигрывание сигнала } } if(TrendPrevSignal >= 0 || !TrendB_S_B) { if (gadblMid2[TrendSIGNAL_BAR+1] != 0 && gadblDn2[TrendSIGNAL_BAR] != 0) { TrendPrevSignal = -1; if(TrendShowAlert) Alert(indname+" Тренд вниз ",Period()," ",Symbol()," SELL"); // Print(indname +" (", Symbol(), ", ", Period(), ") - SELL!!!"); // Comment(indname +" (", Symbol(), ", ", Period(), ") - SELL!!!"); if(TrendSound) PlaySound(TrendSellSound); } } } //----------------- Peak (4,5) ------------------ if(PeakShowAlert && PeakSound) { static int PeakPrevSignal = 0; static datetime PeakPrevTime = 0; //---- Если баром для анализа выбран не 0-й, нам нет смысла проверять сигнал //---- несколько раз. Если не начался новый бар, выходим. if(PeakSIGNAL_BAR > 0 && Time[0] <= PeakPrevTime ) return(0); //---- Отмечаем, что этот бар проверен PeakPrevTime = Time[0]; //---- Если предыдущий сигнал был СЕЛЛ или это первый запуск (PrevSignal=0) if(PeakPrevSignal >= 0 || !PeakB_S_B) { if (gadblUp2[PeakSIGNAL_BAR+1] != 0 && gadblUp1[PeakSIGNAL_BAR] != 0) { PeakPrevSignal = -1; if(PeakShowAlert) Alert(indname+" Пик сверху ",Period()," ",Symbol()," SELL"); // Print(indname +" (", Symbol(), ", ", Period(), ") - SELL!!!"); //Вывод в журнал // Comment(indname +" (", Symbol(), ", ", Period(), ") - SELL!!!"); //Вывод на экран if(PeakSound) PlaySound(PeakSellSound); //Проигрывание сигнала } } if(PeakPrevSignal <= 0 || !PeakB_S_B) { if (gadblDn2[PeakSIGNAL_BAR+1] != 0 && gadblDn1[PeakSIGNAL_BAR] != 0) { PeakPrevSignal = 1; if(PeakShowAlert) Alert(indname+" Пик снизу ",Period()," ",Symbol()," BUY"); // Print(indname +" (", Symbol(), ", ", Period(), ") - BUY!!!"); // Comment(indname +" (", Symbol(), ", ", Period(), ") - BUY!!!"); if(PeakSound) PlaySound(PeakBuySound); } } } //=== return( 0 ); } //+------------------------------------------------------------------+ //| getTick() | //+------------------------------------------------------------------+ double getTick() { double tick = MarketInfo(Symbol(), MODE_TICKSIZE); if (AdditionalDigit) { tick *= 10; } return (tick); } //+------------------------------------------------------------------+ //| calcTma() | //+------------------------------------------------------------------+ double calcTma( int inx ) { double dblSum = (eintPeriod+1)*Close[inx]; double dblSumw = (eintPeriod+1); int jnx, knx; for ( jnx = 1, knx = eintPeriod; jnx <= eintPeriod; jnx++, knx-- ) { dblSum += ( knx * Close[inx+jnx] ); dblSumw += knx; if ( jnx <= inx ) { dblSum += ( knx * Close[inx-jnx] ); dblSumw += knx; } } return( dblSum / dblSumw ); } double calcTmaMTF( int inx , int tf) { double dblSum = (eintPeriod+1)*iClose(Symbol(),tf,inx); double dblSumw = (eintPeriod+1); int jnx, knx; for ( jnx = 1, knx = eintPeriod; jnx <= eintPeriod; jnx++, knx-- ) { dblSum += ( knx * iClose(Symbol(),tf,inx+jnx) ); dblSumw += knx; if ( jnx <= inx ) { dblSum += ( knx * iClose(Symbol(),tf,inx-jnx) ); dblSumw += knx; } } return( dblSum / dblSumw ); }