//+------------------------------------------------------------------+
//| LSMA_Line.mq4 |
//| Copyright © 2005, MetaQuotes Software Corp. |
//| http://www.metaquotes.net/ |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, MetaQuotes Software Corp."
#property link "http://www.metaquotes.net/"
//----
#property indicator_chart_window
//---- indicator parameters
extern int IdNum =1;
extern int RPeriod=28;
extern color LineColor=Red;
extern int LineWeight =1;
extern int PriceVal=0; // 0 = Close, 1 = Low, 2 = High
extern double StDev=1.618;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//----
ObjectCreate("Reg_line"+IdNum, OBJ_TREND, 0, 0,0, 0,0);
ObjectSet("Reg_line"+IdNum, OBJPROP_COLOR, LineColor);
ObjectSet("Reg_line"+IdNum, OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Reg_line"+IdNum, OBJPROP_WIDTH, LineWeight);
ObjectCreate("Reg_upper" +IdNum, OBJ_TREND, 0, 0,0, 0,0);
ObjectSet("Reg_upper"+IdNum, OBJPROP_COLOR, LineColor);
ObjectSet("Reg_upper"+IdNum, OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Reg_upper"+IdNum, OBJPROP_WIDTH, LineWeight);
ObjectCreate("Reg_lower" +IdNum, OBJ_TREND, 0, 0,0, 0,0);
ObjectSet("Reg_lower"+IdNum, OBJPROP_COLOR, LineColor);
ObjectSet("Reg_lower"+IdNum, OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Reg_lower"+IdNum, OBJPROP_WIDTH, LineWeight);
//----
Comment("Auto Regression channel");
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
void deinit()
{
ObjectDelete("Reg_line"+IdNum);
ObjectDelete("Reg_upper" +IdNum);
ObjectDelete("Reg_lower" +IdNum);
Comment("");
}
//+------------------------------------------------------------------+
//| Regression Line |
//+------------------------------------------------------------------+
int start()
{
double y1,y2, price;
double a1, a2, a3, b1, a, b;
double stddiv, tmp_div;
double x_n_up, x_1_up, x_n_down, x_1_down;
int shift, n;
//----
if(Bars<=RPeriod) return(0);
a1=0;
a2=0;
a3=0;
b1=0;
a=0;
b=0;
y1=0;
y2=0;
tmp_div=0;
n=RPeriod;
for(shift=RPeriod;shift>0;shift--)
{
switch(PriceVal)
{
case 0: price=Close[shift];
break;
case 1: price=Low[shift];
break;
case 2: price=High[shift];
break;
}
a1=a1 + shift*price;
a2=a2 + shift;
a3=a3 + price;
b1=b1 + shift*shift;
}
b=(n*a1 - a2*a3)/(n*b1 - a2*a2);
a=(a3 - b*a2)/n;
y1=a + b*n;
y2=a + b;
//----
ObjectSet("Reg_line"+IdNum, OBJPROP_TIME1, Time[RPeriod]);
ObjectSet("Reg_line"+IdNum, OBJPROP_TIME2, Time[0]);
ObjectSet("Reg_line"+IdNum, OBJPROP_PRICE1, y1);
ObjectSet("Reg_line"+IdNum, OBJPROP_PRICE2, y2);
//----
for(shift=RPeriod; shift>0; shift--)
{
switch(PriceVal)
{
case 0: price=Close[shift];
break;
case 1: price=Low[shift];
break;
case 2: price=High[shift];
break;
}
tmp_div=tmp_div + (price - (a + b*shift))*(price - (a + b*shift));
}
stddiv=MathSqrt(tmp_div/n);
//----
x_n_up=y1 + StDev*stddiv;
x_1_up=y2 + StDev*stddiv;
x_n_down=y1 - StDev*stddiv;
x_1_down=y2 - StDev*stddiv;
//upper
ObjectSet("Reg_upper"+IdNum, OBJPROP_TIME1, Time[RPeriod]);
ObjectSet("Reg_upper"+IdNum, OBJPROP_TIME2, Time[0]);
ObjectSet("Reg_upper"+IdNum, OBJPROP_PRICE1, x_n_up);
ObjectSet("Reg_upper"+IdNum, OBJPROP_PRICE2, x_1_up);
//lower
ObjectSet("Reg_lower"+IdNum, OBJPROP_TIME1, Time[RPeriod]);
ObjectSet("Reg_lower"+IdNum, OBJPROP_TIME2, Time[0]);
ObjectSet("Reg_lower"+IdNum, OBJPROP_PRICE1, x_n_down);
ObjectSet("Reg_lower"+IdNum, OBJPROP_PRICE2, x_1_down);
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains close prices for each bar
Series array that contains the lowest prices of each bar
Series array that contains the highest prices of each bar
Series array that contains open time of each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features: