MT4 scripts: Slope_Direction_Line

Modified from HMA.mq4 script in which a slope of FOREX price trend is calculated by linear weighted average method, the script Slope_Direction_Line.mq4 gives FOREX traders a picture of price uptrend or downtrend by showing its slope and color. Linear weighted averages of 12 bars are used by default.

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

//| HMA.mq4 (Changed to Slope_Direction_Line.mq4 by Nimit Chomnawang

//| Copyright ฉ 2006 WizardSerg <wizardserg@mail.ru>, ?? ??????? ForexMagazine #104

//| wizardserg@mail.ru

//| Revised by IgorAD,igorad2003@yahoo.co.uk |

//| Personalized by iGoR AKA FXiGoR for the Trend Slope Trading method (T_S_T)

//| Link:

//| contact: thefuturemaster@hotmail.com

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

#property copyright "MT4 release WizardSerg <wizardserg@mail.ru>, ?? ??????? ForexMagazine #104"

#property link "wizardserg@mail.ru"

#property indicator_chart_window

#property indicator_buffers 3

// #property indicator_color1 Orange (Removed by Nimit Chomnawang)

#property indicator_color2 Lime // Color of uptrend zone

#property indicator_color3 Red // Color of downtrend zone

// #property indicator_width1 2 (Removed by Nimit Chomnawang)

#property indicator_width2 2 // Line width of uptrend zone

#property indicator_width3 2 // Line width of downtrend zone

//---- input parameters

extern int period=12; // Set to 12 weighted average bars by Nimit Chomnawang

extern int method=3; // changed to iMA() method = 3 for Linear weighted average by Nimit Chomnawang

extern int price=0; // PRICE = close

extern int EmailON=1; // 0 = false 1 = true

extern int SoundON=1; // 0 = false 1 = true

//---- buffers

double Uptrend[];

double Dntrend[];

double ExtMapBuffer[];

double buff[];

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

//| Custom indicator initialization function |

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

int init()

{

IndicatorBuffers(3);

SetIndexBuffer(1, Uptrend);

//ArraySetAsSeries(Uptrend, true);

SetIndexBuffer(2, Dntrend);

//ArraySetAsSeries(Dntrend, true);

//SetIndexBuffer(2, ExtMapBuffer);

//ArraySetAsSeries(Uptrend, true);

SetIndexBuffer(0, ExtMapBuffer);

ArraySetAsSeries(ExtMapBuffer, true);

SetIndexStyle(0,DRAW_LINE);

SetIndexStyle(1,DRAW_LINE);

SetIndexStyle(2,DRAW_LINE);

IndicatorShortName("Slope Direction Line("+period+")");

return(0);

}

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

//| Custom indicator deinitialization function |

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

int deinit()

{

// ???? ????? ?????? ??????

return(0);

}

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

//| ?????????? ??????? |

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

double WMA(int x, int p)

{

return(iMA(NULL, 0, p, 0, method, price, x));

}

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

//| Custom indicator iteration function |

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

int start()

{

int counted_bars = IndicatorCounted();

if(counted_bars < 0)

return(-1);

int x = 0;

int p = MathSqrt(period);

int e = Bars - counted_bars + period + 1;

double vect[], trend[];

if(e > Bars)

e = Bars;

ArrayResize(vect, e);

ArraySetAsSeries(vect, true);

ArrayResize(trend, e);

ArraySetAsSeries(trend, true);

for(x = 0; x < e; x++)

{

vect[x] = 2*WMA(x, period/2) - WMA(x, period);

// Print("Bar date/time: ", TimeToStr(Time[x]), " close: ", Close[x], " vect[", x, "] = ", vect[x], " 2*WMA(p/2) = ", 2*WMA(x, period/2), " WMA(p) = ", WMA(x, period));

}

for(x = 0; x < e-period; x++)

ExtMapBuffer[x] = iMAOnArray(vect, 0, p, 0, method, x);

for(x = e-period; x >= 0; x--)

{

trend[x] = trend[x+1];

if (ExtMapBuffer[x]> ExtMapBuffer[x+1]) trend[x] =1;

if (ExtMapBuffer[x]< ExtMapBuffer[x+1]) trend[x] =-1;

if (trend[x]>0)

{ Uptrend[x] = ExtMapBuffer[x];

if (trend[x+1]<0) Uptrend[x+1]=ExtMapBuffer[x+1];

Dntrend[x] = EMPTY_VALUE;

}

else

if (trend[x]<0)

{

Dntrend[x] = ExtMapBuffer[x];

if (trend[x+1]>0) Dntrend[x+1]=ExtMapBuffer[x+1];

Uptrend[x] = EMPTY_VALUE;

}

buff[x] = trend[x];

//Print( " trend=",trend[x]);

}

if (EmailON==1 && Dntrend[0] != EMPTY_VALUE && Dntrend[1] == EMPTY_VALUE && isNewBar())

{

if (SoundON==1) Alert("SELL signal at Ask=",Ask,", Bid=",Bid,", Date=",TimeToStr(CurTime(),TIME_DATE)," ",TimeHour(CurTime()),":",TimeMinute(CurTime())," Symbol=",Symbol()," Period=",Period());

SendMail("SELL signal alert","SELL signal at Ask="+DoubleToStr(Ask,4)+", Bid="+DoubleToStr(Bid,4)+", Date="+TimeToStr(CurTime(),TIME_DATE)+" "+TimeHour(CurTime())+":"+TimeMinute(CurTime())+" Symbol="+Symbol()+" Period="+Period());

}

if (EmailON==1 && Uptrend[0] != EMPTY_VALUE && Uptrend[1] == EMPTY_VALUE && isNewBar())

{

if (SoundON==1) Alert("BUY signal at Ask=",Ask,", Bid=",Bid,", Time=",TimeToStr(CurTime(),TIME_DATE)," ",TimeHour(CurTime()),":",TimeMinute(CurTime())," Symbol=",Symbol()," Period=",Period());

SendMail("BUY signal alert","BUY signal at Ask="+DoubleToStr(Ask,4)+", Bid="+DoubleToStr(Bid,4)+", Date="+TimeToStr(CurTime(),TIME_DATE)+" "+TimeHour(CurTime())+":"+TimeMinute(CurTime())+" Symbol="+Symbol()+" Period="+Period());

}

return(0);

}

bool isNewBar()

{

static datetime lastbar=0;

datetime curbar = Time[0];

if(lastbar!=curbar)

{

lastbar=curbar;

return (true);

}