0 MTH Double Donchian Channel v01.ex4

0 MTH Double Donchian Channel v01.ex4
DOWNLOAD

+ST.mq4

+ST.mq4 Programming source code

#property indicator_chart_window
#property indicator_buffers 3
#property indicator_color1 Lime
#property indicator_color2 Red
#property indicator_color3 Black

extern string timeFrame = "Current time frame";

double   Trend[];
double   TrendDoA[];
double   TrendDoB[];
double   Direction[];
int      TimeFrame;
string   IndicatorFileName;

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
//

int init()
{
      IndicatorBuffers(4);
      SetIndexBuffer(0, Trend);
      SetIndexBuffer(1, TrendDoA);
      SetIndexBuffer(2, TrendDoB);
      SetIndexBuffer(3, Direction);
   TimeFrame = stringToTimeFrame(timeFrame);   
         SetIndexLabel(0, TimeFrameToString(TimeFrame));
         SetIndexLabel(1, TimeFrameToString(TimeFrame));
         SetIndexLabel(2, "ST");
   IndicatorFileName = WindowExpertName();
   IndicatorShortName("SuperTrend "+TimeFrameToString(TimeFrame));
}
int deinit()
{
   return(0);
}

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
//

int start()
{
   int      counted_bars = IndicatorCounted();
   int      limit,i;

   if(counted_bars < 0) return(-1);
   if(counted_bars>0) counted_bars--;
      limit = MathMax(Bars-counted_bars,Bars-1);

      if (Direction[limit] == -1) CleanPoint(limit,TrendDoA,TrendDoB);

   //

      if (TimeFrame != Period())
      {
         limit = MathMax(limit,TimeFrame/Period());

            //
         
            for(i=limit; i>=0; i--)
            {
               int y = iBarShift(NULL,TimeFrame,Time[i]);
               double cciTrend = iCCI(NULL, TimeFrame, 50, PRICE_TYPICAL, y);
                  
               //
                  
               TrendDoA[i]  = EMPTY_VALUE;
               TrendDoB[i]  = EMPTY_VALUE;
               Trend[i]     = iCustom(NULL,TimeFrame,IndicatorFileName,0,y);
               Direction[i] = Direction[i+1];
                  if (cciTrend>0) Direction[i] =  1;
                  if (cciTrend<0) Direction[i] = -1;
                  if (Direction[i]==-1) PlotPoint(i,TrendDoA,TrendDoB,Trend);
            }
         return(0);         
      }

   //
      
   for(i = limit; i >= 0; i--)
   {
         cciTrend = iCCI(NULL, 0, 50, PRICE_TYPICAL, i);
         
         //
         
         TrendDoA[i]  = EMPTY_VALUE;
         TrendDoB[i]  = EMPTY_VALUE;
         Trend[i]     = Trend[i+1];
         Direction[i] = Direction[i+1];
            if (cciTrend > 0) { Trend[i] = MathMax(Low[i]  - iATR(NULL, 0, 5, i),Trend[i+1]); Direction[i] =  1; }
            if (cciTrend < 0) { Trend[i] = MathMin(High[i] + iATR(NULL, 0, 5, i),Trend[i+1]); Direction[i] = -1; }
            if (Direction[i]==-1) PlotPoint(i,TrendDoA,TrendDoB,Trend);
   }
   return(0);
}

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
//

void CleanPoint(int i,double& first[],double& second[])
{
   if ((second[i]  != EMPTY_VALUE) && (second[i+1] != EMPTY_VALUE))
        second[i+1] = EMPTY_VALUE;
   else
      if ((first[i] != EMPTY_VALUE) && (first[i+1] != EMPTY_VALUE) && (first[i+2] == EMPTY_VALUE))
          first[i+1] = EMPTY_VALUE;
}

void PlotPoint(int i,double& first[],double& second[],double& from[])
{
   if (first[i+1] == EMPTY_VALUE)
      {
      if (first[i+2] == EMPTY_VALUE) {
          first[i]    = from[i];
          first[i+1]  = from[i+1];
          second[i]   = EMPTY_VALUE;
         }
      else {
          second[i]   = from[i];
          second[i+1] = from[i+1];
          first[i]    = EMPTY_VALUE;
         }
      }
   else
      {
         first[i]   = from[i];
         second[i]  = EMPTY_VALUE;
      }
}

//+------------------------------------------------------------------+
//|
//+------------------------------------------------------------------+


int stringToTimeFrame(string tfs)
{
   int tf=0;
       tfs = StringUpperCase(tfs);
         if (tfs=="M1" || tfs=="1")     tf=PERIOD_M1;
         if (tfs=="M5" || tfs=="5")     tf=PERIOD_M5;
         if (tfs=="M15"|| tfs=="15")    tf=PERIOD_M15;
         if (tfs=="M30"|| tfs=="30")    tf=PERIOD_M30;
         if (tfs=="H1" || tfs=="60")    tf=PERIOD_H1;
         if (tfs=="H4" || tfs=="240")   tf=PERIOD_H4;
         if (tfs=="D1" || tfs=="1440")  tf=PERIOD_D1;
         if (tfs=="W1" || tfs=="10080") tf=PERIOD_W1;
         if (tfs=="MN" || tfs=="43200") tf=PERIOD_MN1;
         if (tf<Period()) tf=Period();
  return(tf);
}

string TimeFrameToString(int tf)
{
   string tfs="";
//   if (Period()!=tf)
   switch(tf) {
      case PERIOD_M1:  tfs="M1"  ; break;
      case PERIOD_M5:  tfs="M5"  ; break;
      case PERIOD_M15: tfs="M15" ; break;
      case PERIOD_M30: tfs="M30" ; break;
      case PERIOD_H1:  tfs="H1"  ; break;
      case PERIOD_H4:  tfs="H4"  ; break;
      case PERIOD_D1:  tfs="D1"  ; break;
      case PERIOD_W1:  tfs="W1"  ; break;
      case PERIOD_MN1: tfs="MN1";
   }
   return(tfs);
}


string StringUpperCase(string str)
{
   string   s = str;
   int      lenght = StringLen(str) - 1;
   int      chhar;
   
   while(lenght >= 0)
      {
         chhar = StringGetChar(s, lenght);
         
         //
         
         if((chhar > 96 && chhar < 123) || (chhar > 223 && chhar < 256))
                  s = StringSetChar(s, lenght, chhar - 32);
         else 
              if(chhar > -33 && chhar < 0)
                  s = StringSetChar(s, lenght, chhar + 224);
         lenght--;
   }
   
   //
   
   return(s);
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

#property indicator_chart_window

#property indicator_buffers 3

#property indicator_color1 Lime

#property indicator_color2 Red

#property indicator_color3 Black

extern string timeFrame = "Current time frame";

double Trend[];

double TrendDoA[];

double TrendDoB[];

double Direction[];

int TimeFrame;

string IndicatorFileName;

//+------------------------------------------------------------------+

//| |

//+------------------------------------------------------------------+

int init()

{

IndicatorBuffers(4);

SetIndexBuffer(0, Trend);

SetIndexBuffer(1, TrendDoA);

SetIndexBuffer(2, TrendDoB);

SetIndexBuffer(3, Direction);

TimeFrame = stringToTimeFrame(timeFrame);

SetIndexLabel(0, TimeFrameToString(TimeFrame));

SetIndexLabel(1, TimeFrameToString(TimeFrame));

SetIndexLabel(2, "ST");

IndicatorFileName = WindowExpertName();

IndicatorShortName("SuperTrend "+TimeFrameToString(TimeFrame));

}

int deinit()

{

return(0);

}

//+------------------------------------------------------------------+

//| |

//+------------------------------------------------------------------+

int start()

{

int counted_bars = IndicatorCounted();

int limit,i;

if(counted_bars < 0) return(-1);

if(counted_bars>0) counted_bars--;

limit = MathMax(Bars-counted_bars,Bars-1);

if (Direction[limit] == -1) CleanPoint(limit,TrendDoA,TrendDoB);

if (TimeFrame != Period())

{

limit = MathMax(limit,TimeFrame/Period());

for(i=limit; i>=0; i--)

{

int y = iBarShift(NULL,TimeFrame,Time[i]);

double cciTrend = iCCI(NULL, TimeFrame, 50, PRICE_TYPICAL, y);

TrendDoA[i] = EMPTY_VALUE;

TrendDoB[i] = EMPTY_VALUE;

Trend[i] = iCustom(NULL,TimeFrame,IndicatorFileName,0,y);

Direction[i] = Direction[i+1];

if (cciTrend>0) Direction[i] = 1;

if (cciTrend<0) Direction[i] = -1;

if (Direction[i]==-1) PlotPoint(i,TrendDoA,TrendDoB,Trend);

}

return(0);

}

for(i = limit; i >= 0; i--)

{

cciTrend = iCCI(NULL, 0, 50, PRICE_TYPICAL, i);

TrendDoA[i] = EMPTY_VALUE;

TrendDoB[i] = EMPTY_VALUE;

Trend[i] = Trend[i+1];

Direction[i] = Direction[i+1];

if (cciTrend > 0) { Trend[i] = MathMax(Low[i] - iATR(NULL, 0, 5, i),Trend[i+1]); Direction[i] = 1; }

if (cciTrend < 0) { Trend[i] = MathMin(High[i] + iATR(NULL, 0, 5, i),Trend[i+1]); Direction[i] = -1; }

if (Direction[i]==-1) PlotPoint(i,TrendDoA,TrendDoB,Trend);

}

return(0);

}

//+------------------------------------------------------------------+

//| |

//+------------------------------------------------------------------+

void CleanPoint(int i,double& first[],double& second[])

{

if ((second[i] != EMPTY_VALUE) && (second[i+1] != EMPTY_VALUE))

second[i+1] = EMPTY_VALUE;

else

if ((first[i] != EMPTY_VALUE) && (first[i+1] != EMPTY_VALUE) && (first[i+2] == EMPTY_VALUE))

first[i+1] = EMPTY_VALUE;

}

void PlotPoint(int i,double& first[],double& second[],double& from[])

{

if (first[i+1] == EMPTY_VALUE)

{

if (first[i+2] == EMPTY_VALUE) {

first[i] = from[i];

first[i+1] = from[i+1];

second[i] = EMPTY_VALUE;

}

else {

second[i] = from[i];

second[i+1] = from[i+1];

first[i] = EMPTY_VALUE;

}

else

{

first[i] = from[i];

second[i] = EMPTY_VALUE;

}

//+------------------------------------------------------------------+

//|

//+------------------------------------------------------------------+

int stringToTimeFrame(string tfs)

{

int tf=0;

tfs = StringUpperCase(tfs);

if (tfs=="M1" || tfs=="1") tf=PERIOD_M1;

if (tfs=="M5" || tfs=="5") tf=PERIOD_M5;

if (tfs=="M15"|| tfs=="15") tf=PERIOD_M15;

if (tfs=="M30"|| tfs=="30") tf=PERIOD_M30;

if (tfs=="H1" || tfs=="60") tf=PERIOD_H1;

if (tfs=="H4" || tfs=="240") tf=PERIOD_H4;

if (tfs=="D1" || tfs=="1440") tf=PERIOD_D1;

if (tfs=="W1" || tfs=="10080") tf=PERIOD_W1;

if (tfs=="MN" || tfs=="43200") tf=PERIOD_MN1;

if (tf<Period()) tf=Period();

return(tf);

}

string TimeFrameToString(int tf)

{

string tfs="";

// if (Period()!=tf)

switch(tf) {

case PERIOD_M1: tfs="M1" ; break;

case PERIOD_M5: tfs="M5" ; break;

case PERIOD_M15: tfs="M15" ; break;

case PERIOD_M30: tfs="M30" ; break;

case PERIOD_H1: tfs="H1" ; break;

case PERIOD_H4: tfs="H4" ; break;

case PERIOD_D1: tfs="D1" ; break;

case PERIOD_W1: tfs="W1" ; break;

case PERIOD_MN1: tfs="MN1";

}

return(tfs);

}

string StringUpperCase(string str)

{

string s = str;

int lenght = StringLen(str) - 1;

int chhar;

while(lenght >= 0)

{

chhar = StringGetChar(s, lenght);

if((chhar > 96 && chhar < 123) || (chhar > 223 && chhar < 256))

s = StringSetChar(s, lenght, chhar - 32);

else

if(chhar > -33 && chhar < 0)

s = StringSetChar(s, lenght, chhar + 224);

lenght--;

}

return(s);

}

DOWNLOAD

++CLOSING.ex4

++CLOSING.ex4
DOWNLOAD

#VOLUME WAVE CORE alert_v1(5).mq4

#VOLUME WAVE CORE alert_v1(5).mq4 Programming source code

#property indicator_separate_window

#property indicator_minimum 0

#property indicator_buffers 7
//---------------------------------------
#property indicator_color1  clrGray
#property indicator_color2  clrRed
#property indicator_color3  clrBlue
#property indicator_color4  clrMagenta
#property indicator_color5  clrMagenta


#property indicator_color6  clrLightBlue
#property indicator_color7  clrCoral

//----------------------------------------
#property indicator_width1  2
#property indicator_width2  2
#property indicator_width3  2
#property indicator_width4  2
#property indicator_width5  2


#property indicator_width6  2
#property indicator_width7  2

//---------------------------------------


input ENUM_TIMEFRAMES   TimeFrame         =     0;       // Timeframe
input bool              AlertEmail        = false;
input bool              AlertSound        =  true;
input bool              AlertPopup        =  true;

extern bool             ShowNormalVolume  =  true;
extern int              Search_Distance   =    120;

extern color ColorUp     = clrLimeGreen;
extern color ColorDown   = clrRed;

extern int WidthArrow    = 1;
extern int intArrowUP    = 108;
extern int intArrowDown  = 108;
extern string a1001 = "--------------------------------------";

extern int ArrowChartWindowUp   = 234;
extern int ArrowChartWindowDown = 233;
extern string a1002 = "--------------------------------------";
extern color ColorChartWindowUp   = clrDeepPink;
extern color ColorChartWindowDown = clrBlue;

extern string e1001 = "------------------------------";
extern string e1002 = " отступ от бара ";
extern int    intUpPoint   = 30;
extern int    intDownPoint = 30;
extern string e1003 = "------------------------------";






//---------------------------------------

datetime       LastAlert;

double red[],green[];


//---- indicator buffers

double   ExtBuffer1[];
double   ExtBuffer2[];
double   ExtBuffer3[];
double   ExtBuffer4[];
double   ExtBuffer5[];


double  CrossUp[];
double  CrossDown[];


//-------------------------------------


int    timeframe;
string IndicatorName, TF;




//==================================================
int init()
{
   timeframe = TimeFrame;
   if(timeframe <= Period()) timeframe = Period(); 
   TF = tf(timeframe);


//---- indicators
   SetIndexStyle(0,DRAW_HISTOGRAM);
   
   SetIndexStyle(1,DRAW_HISTOGRAM);
   SetIndexLabel(1,"GREEN");
   
   SetIndexStyle(2,DRAW_HISTOGRAM);
   SetIndexLabel(2,"RED");
   
   SetIndexStyle(3,DRAW_HISTOGRAM);
   
   SetIndexStyle(4,DRAW_ARROW);

   SetIndexBuffer(0,ExtBuffer1);
   SetIndexBuffer(1,ExtBuffer2);
   SetIndexBuffer(2,ExtBuffer3);
   SetIndexBuffer(3,ExtBuffer4);
   SetIndexBuffer(4,ExtBuffer5);
   
   
   SetIndexStyle  (5, DRAW_ARROW, EMPTY,WidthArrow, ColorUp);
   SetIndexArrow  (5, intArrowUP);
   SetIndexBuffer (5, CrossUp);
    
   SetIndexStyle  (6, DRAW_ARROW, EMPTY,WidthArrow, ColorDown);
   SetIndexArrow  (6, intArrowDown);
   SetIndexBuffer (6, CrossDown);
   
   

   
   SetIndexArrow(4,78);
   
   IndicatorName = WindowExpertName(); 
   
   IndicatorShortName("VOLUME WAVE CORE["+TF+"]("+Search_Distance+")");
   SetIndexLabel(0,"Volume");
   IndicatorDigits(0);

   return(0);
}
  
//==========================================================================================
  
int deinit()
{
     for(int i=0;i<Bars;i++)
     {
         ObjectDelete("Up_Volume "+DoubleToStr(Time[i],0 ));
         ObjectDelete("EUxUP "+DoubleToStr(Time[i],0 ));
         ObjectDelete("ELxDN "+DoubleToStr(Time[i],0 ));
         ObjectDelete("Down_Volume "+DoubleToStr(Time[i],0 ));
      }



return(0);
}

 //=========================================================================================
int start()
  {
   int limit,status;
   int counted_bars=IndicatorCounted();
//----
	if (counted_bars>0) counted_bars--;
	limit=Bars-counted_bars;
	
	if(timeframe != Period())
	{
   limit = MathMax(limit,timeframe/Period());   
      
      for(int i=0;i<limit;i++) 
      {	
      int y = iBarShift(NULL,TimeFrame,Time[i]);
            
      ExtBuffer1[i] = iCustom(NULL,TimeFrame,IndicatorName,0,AlertEmail,AlertSound,AlertPopup,ShowNormalVolume,Search_Distance,0,y);    
      ExtBuffer2[i] = iCustom(NULL,TimeFrame,IndicatorName,0,AlertEmail,AlertSound,AlertPopup,ShowNormalVolume,Search_Distance,1,y);    
      ExtBuffer3[i] = iCustom(NULL,TimeFrame,IndicatorName,0,AlertEmail,AlertSound,AlertPopup,ShowNormalVolume,Search_Distance,2,y);    
      ExtBuffer4[i] = iCustom(NULL,TimeFrame,IndicatorName,0,AlertEmail,AlertSound,AlertPopup,ShowNormalVolume,Search_Distance,3,y);    
      ExtBuffer5[i] = iCustom(NULL,TimeFrame,IndicatorName,0,AlertEmail,AlertSound,AlertPopup,ShowNormalVolume,Search_Distance,4,y);    
      }   
	return(0);
	}
	
	for (i=limit; i>=0; i--)
	{
		status=0;
		if (iHigh(NULL,0,i)>=iHigh(NULL,0,iHighest(NULL,0,MODE_HIGH,Search_Distance,i))) status+=1;
		if (iLow(NULL,0,i)<=iLow(NULL,0,iLowest(NULL,0,MODE_LOW,Search_Distance,i)))     status+=2;
		
		switch(status)
		{
			case 0:  if (ShowNormalVolume) ExtBuffer1[i]=Volume[i]; break;
			case 1:  ExtBuffer2[i]=Volume[i]; CrossDown[i]   = (   ( Volume[i] /  Volume[i] ) +  10000.0  )   ; break;
			case 2:  ExtBuffer3[i]=Volume[i]; CrossUp[i]     = (   ( Volume[i] /  Volume[i] ) +  10000.0)    ; break;
			
			default: ExtBuffer4[i]=Volume[i]; ExtBuffer5[i]=Volume[i]+(Period()*30); break;
		}
		
	}
	
//=====================================================================================================================
	
	
	
	
	for( i=limit; i>=0; i--) 
   {
       if ( ExtBuffer3[i]>ExtBuffer2[i] && Open[i] > Close[i] )
      {
      //ExtMapBuffer6[i] = Low[1]-5*Point;
      ObjectCreate("Up_Volume " + DoubleToStr(Time[i],0), OBJ_ARROW, 0, Time[i], ( High [i+1] + intUpPoint*Point )     );
      ObjectSet   ("Up_Volume " + DoubleToStr(Time[i],0), OBJPROP_ARROWCODE, ArrowChartWindowUp);
      ObjectSet   ("Up_Volume " + DoubleToStr(Time[i],0), OBJPROP_COLOR, ColorChartWindowUp);
      }             
      if (ExtBuffer2[i]> ExtBuffer3[i] && Open[i] < Close[i] )
      {
      //ExtMapBuffer6[i] = Low[1]-5*Point;
      ObjectCreate("Down_Volume " + DoubleToStr(Time[i],0), OBJ_ARROW, 0, Time[i], ( Low[i+1] - intUpPoint*Point )   );
      ObjectSet   ("Down_Volume " + DoubleToStr(Time[i],0), OBJPROP_ARROWCODE, ArrowChartWindowDown);
      ObjectSet   ("Down_Volume " + DoubleToStr(Time[i],0), OBJPROP_COLOR,  ColorChartWindowDown);
      }     
   }
	


//======================================================================================================================
//----Alert Code - gah

   if (AlertEmail || AlertSound || AlertPopup)
      if (Time[0] != LastAlert) 
      {
         LastAlert = Time[0];

         if (ExtBuffer3[1] > 0 && ExtBuffer3[1] != EMPTY_VALUE) 
         {
            if (AlertSound)
               PlaySound("alert.wav");
            if (AlertPopup)
               Alert(Symbol() +" "+TF+ " RED at " + TimeToStr(TimeLocal(),TIME_DATE|TIME_MINUTES));
            if (AlertEmail)
               SendMail(IndicatorName + " - " + Symbol() +" "+TF+ " RED at " + TimeToStr(TimeLocal(),TIME_DATE|TIME_MINUTES),"New Climax High");
         }//if (red[1] > 0)          

         if (ExtBuffer2[1] > 0 && ExtBuffer2[1] != EMPTY_VALUE) 
         {
            if (AlertSound)
               PlaySound("alert.wav");
            if (AlertPopup)
               Alert(Symbol() +" "+TF+ " GREEN at " + TimeToStr(TimeLocal(),TIME_DATE|TIME_MINUTES));
            if (AlertEmail)
               SendMail(IndicatorName + " - " + Symbol() +" "+TF+ " GREEN at " + TimeToStr(TimeLocal(),TIME_DATE|TIME_MINUTES),"New Climax Low");
         }//if (green[1] > 0) 
         
      }//if (Time[0] != LastAlert) 
   
//----
   return(0);
  }
//+------------------------------------------------------------------+

string tf(int itimeframe)
{
   string result = "";
   
   switch(itimeframe)
   {
   case PERIOD_M1:   result = "M1" ;
   case PERIOD_M5:   result = "M5" ;
   case PERIOD_M15:  result = "M15";
   case PERIOD_M30:  result = "M30";
   case PERIOD_H1:   result = "H1" ;
   case PERIOD_H4:   result = "H4" ;
   case PERIOD_D1:   result = "D1" ;
   case PERIOD_W1:   result = "W1" ;
   case PERIOD_MN1:  result = "MN1";
   default:          result = "N/A";
   }
   
   if(result == "N/A")
   {
   if(itimeframe <  PERIOD_H1 ) result = "M"  + itimeframe;
   if(itimeframe >= PERIOD_H1 ) result = "H"  + itimeframe/PERIOD_H1;
   if(itimeframe >= PERIOD_D1 ) result = "D"  + itimeframe/PERIOD_D1;
   if(itimeframe >= PERIOD_W1 ) result = "W"  + itimeframe/PERIOD_W1;
   if(itimeframe >= PERIOD_MN1) result = "MN" + itimeframe/PERIOD_MN1;
   }
   
   return(result); 
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

#property indicator_separate_window

#property indicator_minimum 0

#property indicator_buffers 7

//---------------------------------------

#property indicator_color1 clrGray

#property indicator_color2 clrRed

#property indicator_color3 clrBlue

#property indicator_color4 clrMagenta

#property indicator_color5 clrMagenta

#property indicator_color6 clrLightBlue

#property indicator_color7 clrCoral

//----------------------------------------

#property indicator_width1 2

#property indicator_width2 2

#property indicator_width3 2

#property indicator_width4 2

#property indicator_width5 2

#property indicator_width6 2

#property indicator_width7 2

//---------------------------------------

input ENUM_TIMEFRAMES TimeFrame = 0; // Timeframe

input bool AlertEmail = false;

input bool AlertSound = true;

input bool AlertPopup = true;

extern bool ShowNormalVolume = true;

extern int Search_Distance = 120;

extern color ColorUp = clrLimeGreen;

extern color ColorDown = clrRed;

extern int WidthArrow = 1;

extern int intArrowUP = 108;

extern int intArrowDown = 108;

extern string a1001 = "--------------------------------------";

extern int ArrowChartWindowUp = 234;

extern int ArrowChartWindowDown = 233;

extern string a1002 = "--------------------------------------";

extern color ColorChartWindowUp = clrDeepPink;

extern color ColorChartWindowDown = clrBlue;

extern string e1001 = "------------------------------";

extern string e1002 = " отступ от бара ";

extern int intUpPoint = 30;

extern int intDownPoint = 30;

extern string e1003 = "------------------------------";

//---------------------------------------

datetime LastAlert;

double red[],green[];

//---- indicator buffers

double ExtBuffer1[];

double ExtBuffer2[];

double ExtBuffer3[];

double ExtBuffer4[];

double ExtBuffer5[];

double CrossUp[];

double CrossDown[];

//-------------------------------------

int timeframe;

string IndicatorName, TF;

//==================================================

int init()

{

timeframe = TimeFrame;

if(timeframe <= Period()) timeframe = Period();

TF = tf(timeframe);

//---- indicators

SetIndexStyle(0,DRAW_HISTOGRAM);

SetIndexStyle(1,DRAW_HISTOGRAM);

SetIndexLabel(1,"GREEN");

SetIndexStyle(2,DRAW_HISTOGRAM);

SetIndexLabel(2,"RED");

SetIndexStyle(3,DRAW_HISTOGRAM);

SetIndexStyle(4,DRAW_ARROW);

SetIndexBuffer(0,ExtBuffer1);

SetIndexBuffer(1,ExtBuffer2);

SetIndexBuffer(2,ExtBuffer3);

SetIndexBuffer(3,ExtBuffer4);

SetIndexBuffer(4,ExtBuffer5);

SetIndexStyle (5, DRAW_ARROW, EMPTY,WidthArrow, ColorUp);

SetIndexArrow (5, intArrowUP);

SetIndexBuffer (5, CrossUp);

SetIndexStyle (6, DRAW_ARROW, EMPTY,WidthArrow, ColorDown);

SetIndexArrow (6, intArrowDown);

SetIndexBuffer (6, CrossDown);

SetIndexArrow(4,78);

IndicatorName = WindowExpertName();

IndicatorShortName("VOLUME WAVE CORE["+TF+"]("+Search_Distance+")");

SetIndexLabel(0,"Volume");

IndicatorDigits(0);

return(0);

}

//==========================================================================================

int deinit()

{

for(int i=0;i<Bars;i++)

{

ObjectDelete("Up_Volume "+DoubleToStr(Time[i],0 ));

ObjectDelete("EUxUP "+DoubleToStr(Time[i],0 ));

ObjectDelete("ELxDN "+DoubleToStr(Time[i],0 ));

ObjectDelete("Down_Volume "+DoubleToStr(Time[i],0 ));

}

return(0);

}

//=========================================================================================

int start()

{

int limit,status;

int counted_bars=IndicatorCounted();

//----

if (counted_bars>0) counted_bars--;

limit=Bars-counted_bars;

if(timeframe != Period())

{

limit = MathMax(limit,timeframe/Period());

for(int i=0;i<limit;i++)

{

int y = iBarShift(NULL,TimeFrame,Time[i]);

ExtBuffer1[i] = iCustom(NULL,TimeFrame,IndicatorName,0,AlertEmail,AlertSound,AlertPopup,ShowNormalVolume,Search_Distance,0,y);

ExtBuffer2[i] = iCustom(NULL,TimeFrame,IndicatorName,0,AlertEmail,AlertSound,AlertPopup,ShowNormalVolume,Search_Distance,1,y);

ExtBuffer3[i] = iCustom(NULL,TimeFrame,IndicatorName,0,AlertEmail,AlertSound,AlertPopup,ShowNormalVolume,Search_Distance,2,y);

ExtBuffer4[i] = iCustom(NULL,TimeFrame,IndicatorName,0,AlertEmail,AlertSound,AlertPopup,ShowNormalVolume,Search_Distance,3,y);

ExtBuffer5[i] = iCustom(NULL,TimeFrame,IndicatorName,0,AlertEmail,AlertSound,AlertPopup,ShowNormalVolume,Search_Distance,4,y);

}

return(0);

}

for (i=limit; i>=0; i--)

{

status=0;

if (iHigh(NULL,0,i)>=iHigh(NULL,0,iHighest(NULL,0,MODE_HIGH,Search_Distance,i))) status+=1;

if (iLow(NULL,0,i)<=iLow(NULL,0,iLowest(NULL,0,MODE_LOW,Search_Distance,i))) status+=2;

switch(status)

{

case 0: if (ShowNormalVolume) ExtBuffer1[i]=Volume[i]; break;

case 1: ExtBuffer2[i]=Volume[i]; CrossDown[i] = ( ( Volume[i] / Volume[i] ) + 10000.0 ) ; break;

case 2: ExtBuffer3[i]=Volume[i]; CrossUp[i] = ( ( Volume[i] / Volume[i] ) + 10000.0) ; break;

default: ExtBuffer4[i]=Volume[i]; ExtBuffer5[i]=Volume[i]+(Period()*30); break;

}

//=====================================================================================================================

for( i=limit; i>=0; i--)

{

if ( ExtBuffer3[i]>ExtBuffer2[i] && Open[i] > Close[i] )

{

//ExtMapBuffer6[i] = Low[1]-5*Point;

ObjectCreate("Up_Volume " + DoubleToStr(Time[i],0), OBJ_ARROW, 0, Time[i], ( High [i+1] + intUpPoint*Point ) );

ObjectSet ("Up_Volume " + DoubleToStr(Time[i],0), OBJPROP_ARROWCODE, ArrowChartWindowUp);

ObjectSet ("Up_Volume " + DoubleToStr(Time[i],0), OBJPROP_COLOR, ColorChartWindowUp);

}

if (ExtBuffer2[i]> ExtBuffer3[i] && Open[i] < Close[i] )

{

//ExtMapBuffer6[i] = Low[1]-5*Point;

ObjectCreate("Down_Volume " + DoubleToStr(Time[i],0), OBJ_ARROW, 0, Time[i], ( Low[i+1] - intUpPoint*Point ) );

ObjectSet ("Down_Volume " + DoubleToStr(Time[i],0), OBJPROP_ARROWCODE, ArrowChartWindowDown);

ObjectSet ("Down_Volume " + DoubleToStr(Time[i],0), OBJPROP_COLOR, ColorChartWindowDown);

}

//======================================================================================================================

//----Alert Code - gah

if (AlertEmail || AlertSound || AlertPopup)

if (Time[0] != LastAlert)

{

LastAlert = Time[0];

if (ExtBuffer3[1] > 0 && ExtBuffer3[1] != EMPTY_VALUE)

{

if (AlertSound)

PlaySound("alert.wav");

if (AlertPopup)

Alert(Symbol() +" "+TF+ " RED at " + TimeToStr(TimeLocal(),TIME_DATE|TIME_MINUTES));

if (AlertEmail)

SendMail(IndicatorName + " - " + Symbol() +" "+TF+ " RED at " + TimeToStr(TimeLocal(),TIME_DATE|TIME_MINUTES),"New Climax High");

}//if (red[1] > 0)

if (ExtBuffer2[1] > 0 && ExtBuffer2[1] != EMPTY_VALUE)

{

if (AlertSound)

PlaySound("alert.wav");

if (AlertPopup)

Alert(Symbol() +" "+TF+ " GREEN at " + TimeToStr(TimeLocal(),TIME_DATE|TIME_MINUTES));

if (AlertEmail)

SendMail(IndicatorName + " - " + Symbol() +" "+TF+ " GREEN at " + TimeToStr(TimeLocal(),TIME_DATE|TIME_MINUTES),"New Climax Low");

}//if (green[1] > 0)

}//if (Time[0] != LastAlert)

//----

return(0);

}

//+------------------------------------------------------------------+

string tf(int itimeframe)

{

string result = "";

switch(itimeframe)

{

case PERIOD_M1: result = "M1" ;

case PERIOD_M5: result = "M5" ;

case PERIOD_M15: result = "M15";

case PERIOD_M30: result = "M30";

case PERIOD_H1: result = "H1" ;

case PERIOD_H4: result = "H4" ;

case PERIOD_D1: result = "D1" ;

case PERIOD_W1: result = "W1" ;

case PERIOD_MN1: result = "MN1";

default: result = "N/A";

}

if(result == "N/A")

{

if(itimeframe < PERIOD_H1 ) result = "M" + itimeframe;

if(itimeframe >= PERIOD_H1 ) result = "H" + itimeframe/PERIOD_H1;

if(itimeframe >= PERIOD_D1 ) result = "D" + itimeframe/PERIOD_D1;

if(itimeframe >= PERIOD_W1 ) result = "W" + itimeframe/PERIOD_W1;

if(itimeframe >= PERIOD_MN1) result = "MN" + itimeframe/PERIOD_MN1;

}

return(result);

}

DOWNLOAD