The provided code snippet appears to be a part of an Expert Advisor or script for MetaTrader, specifically for creating and managing trend lines based on certain conditions. Let's break down the key components and functionality:
Key Components
-
Variables and Initialization:
Step,qExt, and other parameters seem to control various aspects like step size, deviation width, etc.- Arrays such as
Buf1andBuf2are likely used for storing data related to trend lines or channels.
-
Trend Line Creation:
- The code checks conditions to decide whether to create or delete trend lines using functions like
ObjectCreate,ObjectSet, andObjectDelete. - Different types of objects (
OBJ_TREND,OBJ_REGRESSION, etc.) are used depending on the configuration (e.g.,ChannelLine,Regression).
- The code checks conditions to decide whether to create or delete trend lines using functions like
-
Color and Style:
- Colors for trend lines or channels can be set manually using
HandyColouror based on a predefined palette withColNum.
- Colors for trend lines or channels can be set manually using
-
Functions:
GetTD: Finds the next non-zero value in an array starting from a given position.GetNextHighTDandGetNextLowTD: Find the next high or low trend data point.
Functionality
- The script dynamically manages trend lines based on market data, adjusting their positions and properties according to specified conditions.
- It supports various configurations for drawing trend lines, such as using regression channels or standard deviation channels.
- Trend lines can be colored differently based on user settings or predefined schemes.
Potential Improvements
-
Code Clarity:
- Adding comments and documentation would improve readability and maintainability.
- Consider refactoring repetitive code blocks into functions to reduce redundancy.
-
Error Handling:
- Implement error handling for cases where operations might fail, such as when accessing array elements beyond their bounds.
-
Parameterization:
- Allow more parameters to be configurable through input dialogs or external configuration files for flexibility.
-
Optimization:
- Optimize loops and conditions to ensure efficient execution, especially in real-time trading environments.
-
Testing:
- Thoroughly test the script under various market conditions to ensure reliability and accuracy of trend line generation.
By addressing these areas, the script can be made more robust and user-friendly for traders using MetaTrader platforms.
Indicators Used
Miscellaneous
20
Views
0
Downloads
0
Favorites
divergencepetr_s7
//+------------------------------------------------------------------+
//| Divergence Petr.mq4 |
//| |
//|Editor: sova75 (fixed errors, translate) 10.06.2015 |
//+------------------------------------------------------------------+
#property copyright ""
#property link "http://mql5.com/5zic"
#property description "Search for divergence on Oscillators: "
#property description "1-AC, 2-A/D, 3-ADX, 4-ATR, 5-AO, 6-Bears, 7-Bulls, 8-CCI, 9-DeM, 10-Force, 11-Momentum, 12-MFI, 13-MACD, 14-OsMA, 15-OBV, 16-RVI, 17-StdDev, 18-Stoch, 19-Volume, 20-Close, 21-Open, 22-High, 23-Low, 24-Median Price, 25-Typical Price, 26-Weighted Close Price, 27-(O+C+H+L)/4, 28-(O+C)/2, 29-RSI, 30-WPR, default-RSI"
#property stacksize 16384
#property indicator_separate_window
#property indicator_level1 75
#property indicator_level2 50
#property indicator_level3 25
#property indicator_level4 0
#property indicator_levelstyle STYLE_SOLID
#property indicator_levelcolor DarkSlateGray
#property indicator_buffers 3
#property indicator_color1 DimGray
#property indicator_color2 Red
#property indicator_color3 Gold
//--- extern parameters
extern int Osc=29; /*1=Accelerator/Decelerator, 2=Accumulation/Distribution,
3=Average Directional Movement Index, 4=Average True Range,
5=Awesome oscillator, 6=Bears Power, 7=Bulls Power,
8=Commodity Channel Index, 9=DeMarker, 10=Force Index,
11=Momentum, 12=Money Flow Index, 13=Moving Averages Convergence/Divergence,
14=Moving Average of Oscillator, 15=On Balance Volume,
16=Relative Vigor Index, 17=Standard Deviation,
18=Stochastic Oscillator, 19=Volume,
20=Close, 21=Open, 22=High, 23=Low,
24=(H+L)/2, 25=(H+L+C)/3, 26=(H+L+C+C)/4, 27=(O+C+H+L)/4, 28=(O+C)/2,
29=Relative Strength Index,
30=Williams' Percent Range,
other=Relative Strength Index;*/
extern bool TH=true;
extern bool TL=true;
extern bool trend=true;
extern bool convergen=true;
extern int Complect=1;
int Complect10=10;
int Complect20=20;
int Complect30=30;
int Complect40=40;
int Complect50=50;
int Complect60=60;
int Complect70=70;
int Complect80=80;
extern int BackSteph=0; // number of steps back (h)
extern int BackStepl=0; // the number of steps ago l
extern int BackStep=0; // number of steps backward
extern int qSteps=1; // the number of steps, not more than 3
extern int LevDPl=5; // level of Demark points; 2 = central bar is above (below) the 2 bars to the left
extern int LevDPr=1; // level of Demark points; 2 = central bar is above (below) the 2 bars on the right
extern int period=8;
extern int ma_method=0;
extern int ma_shift=0;
extern int applied_price=4;
extern int mode=0;
extern int fast_ema_period=12;
extern int slow_ema_period=26;
extern int signal_period=9;
extern int Kperiod=13;
extern int Dperiod=5;
extern int slowing=3;
extern int price_field=0;
extern int T3_Period=1;
extern double b=0.7;
extern int showBars=1000; // If = 0, then the indicator is displayed for all graphics
extern bool LeftStrong=false;
extern bool RightStrong=true;
//extern bool Anti=true;
extern bool Trend_Down=true;
extern bool Trend_Up=true;
extern bool TrendLine=true; // false = trend lines will not
extern bool HandyColour=true;
extern color Highline=Red;
extern color Lowline=DeepSkyBlue;
extern bool ChannelLine=false; // true = build a parallel trend lines feeds
extern int Trend=0; // 1 = only for UpTrendLines, -1 = only for DownTrendLines, 0 = for all TrendLines
extern bool Channel=false;
extern bool Regression=true;
extern bool RayH=true;
extern bool RayL=true;
extern color ChannelH=Red;
extern color ChannelL=DeepSkyBlue;
extern double STD_widthH=1.0;
extern double STD_widthL=1.0;
extern int Back=0;
extern bool comment=false;
extern int code=159;
extern bool BuyStop = false;
extern bool SellLimit = false;
extern bool SellStop = false;
extern bool BuyLimit = false;
//--- global parameters
double e1,e2,e3,e4,e5,e6;
double n,c1,c2,c3,c4,w1,w2,b2,b3;
int time2;
double E1,E2,E3,E4,E5,E6;
//---- buffers
double Oscil[],t3_Oscil[];
double Buf1[];
double Buf2[];
string Col[]={"Red","DeepSkyBlue","Coral","Aqua","SaddleBrown","MediumSeaGreen"};
int ColNum[]={Red,DeepSkyBlue,Coral,Aqua,SaddleBrown,MediumSeaGreen};
//----
int qPoint=0; // variable to normalize prices
int qBars; double qTime=0; // variables to eliminate glitches when loading
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
if(BackStep>0)
{BackSteph=BackStep; BackStepl=BackStep;}
string short_name;
IndicatorBuffers(4);
qBars=Bars;
qSteps=MathMin(3,qSteps);
while(NormalizeDouble(Point,qPoint)==0)qPoint++;
string Rem="DLines © GameOver";
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,t3_Oscil);
SetIndexDrawBegin(0,2*T3_Period);
SetIndexStyle(1,DRAW_ARROW);
SetIndexStyle(2,DRAW_ARROW);
SetIndexArrow(1,code);
SetIndexArrow(2,code);
SetIndexBuffer(1,Buf1);
SetIndexBuffer(2,Buf2);
SetIndexEmptyValue(1,0.0);
SetIndexEmptyValue(2,0.0);
SetIndexLabel(1,Rem);
SetIndexLabel(2,Rem);
SetIndexBuffer(3,Oscil);
switch(Osc)
{
case 1 : short_name="AC"; break;
case 2 : short_name="A/D"; break;
case 3 : short_name="ADX"; break;
case 4 : short_name="ATR"; break;
case 5 : short_name="AO"; break;
case 6 : short_name="Bears"; break;
case 7 : short_name="Bulls"; break;
case 8 : short_name="CCI"; break;
case 9 : short_name="DeM"; break;
case 10 : short_name="Force"; break;
case 11 : short_name="Momentum"; break;
case 12 : short_name="MFI"; break;
case 13 : short_name="MACD"; break;
case 14 : short_name="OsMA"; break;
case 15 : short_name="OBV"; break;
case 16 : short_name="RVI"; break;
case 17 : short_name="StdDev"; break;
case 18 : short_name="Stoch"; break;
case 19 : short_name="Volume"; break;
case 20 : short_name="Close"; break;
case 21 : short_name="Open"; break;
case 22 : short_name="High"; break;
case 23 : short_name="Low"; break;
case 24 : short_name="Median Price"; break;
case 25 : short_name="Typical Price"; break;
case 26 : short_name="Weighted Close Price"; break;
case 27 : short_name="(O+C+H+L)/4"; break;
case 28 : short_name="(O+C)/2"; break;
case 29 : short_name="RSI"; break;
case 30 : short_name="WPR"; break;
default : short_name="RSI";
}
IndicatorShortName(short_name);
SetIndexLabel(0,short_name);
b2 = b*b;
b3 = b2*b;
c1 = -b3;
c2 = (3*(b2 + b3));
c3 = -3*(2*b2 + b + b3);
c4 = (1 + 3*b + b3 + 3*b2);
if(T3_Period<1)
T3_Period=1;
n=1+0.5*(T3_Period-1);
w1 = 2 / (n + 1);
w2 = 1 - w1;
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
if(comment) Comment("");
for(int i=1;i<=qSteps;i++)
{
ObjectDelete("HL("+Complect+")_"+i);ObjectDelete("LL("+Complect+")_"+i);
ObjectDelete("HCL("+Complect+")_"+i);ObjectDelete("LCL("+Complect+")_"+i);
ObjectDelete("CHAh("+Complect+")_"+i);ObjectDelete("CHAl("+Complect+")_"+i);
}
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int i,j,counted_bars=IndicatorCounted();
int shift,limit;
//----
if(counted_bars<0) return(-1);
if(counted_bars<1) limit=Bars-1;
else limit=Bars-counted_bars;
for(shift=0; shift<=limit; shift++)
{
switch(Osc)
{
case 1: Oscil[shift] = iAC(NULL,0,shift)+1; break;
case 2: Oscil[shift] = iAD(NULL,0,shift); break;
case 3: Oscil[shift] = iADX(NULL,0,period,applied_price,mode,shift); break;
case 4: Oscil[shift] = iATR(NULL,0,period,shift); break;
case 5: Oscil[shift] = iAO(NULL,0,shift)+1; break;
case 6: Oscil[shift] = iBearsPower(NULL,0,period,applied_price,shift)+1; break;
case 7: Oscil[shift] = iBullsPower(NULL,0,period,applied_price,shift)+1; break;
case 8: Oscil[shift] = iCCI(NULL,0,period,applied_price,shift)+1000; break;
case 9: Oscil[shift] = iDeMarker(NULL,0,period,shift); break;
case 10: Oscil[shift] = iForce(NULL,0,period,ma_method,applied_price,shift)+100; break;
case 11: Oscil[shift] = iMomentum(NULL,0,period,applied_price,shift); break;
case 12: Oscil[shift] = iMFI(NULL,0,period,shift); break;
case 13: Oscil[shift] = iMACD(NULL,0,fast_ema_period,slow_ema_period,signal_period,applied_price,mode,shift)+1; break;
case 14: Oscil[shift] = iOsMA(NULL,0,fast_ema_period,slow_ema_period,signal_period,applied_price,shift)+1; break;
case 15: Oscil[shift] = iOBV(NULL,0,applied_price,shift)/10000000+100; break;
case 16: Oscil[shift] = iRVI(NULL,0,period,mode,shift)+1; break;
case 17: Oscil[shift] = iStdDev(NULL,0,period,ma_shift,ma_method,applied_price,shift); break;
case 18: Oscil[shift] = iStochastic(NULL,0,Kperiod,Dperiod,slowing,ma_method,price_field,mode,shift); break;
case 19: Oscil[shift] = Volume[shift]; break;
case 20: Oscil[shift] = Close[shift]; break;
case 21: Oscil[shift] = Open[shift]; break;
case 22: Oscil[shift] = High[shift]; break;
case 23: Oscil[shift] = Low[shift]; break;
case 24: Oscil[shift] = (High[shift]+Low[shift])/2; break;
case 25: Oscil[shift] = (High[shift]+Low[shift]+Close[shift])/3; break;
case 26: Oscil[shift] = (High[shift]+Low[shift]+Close[shift]+Close[shift])/4; break;
case 27: Oscil[shift] = (Open[shift]+Close[shift]+High[shift]+Low[shift])/4; break;
case 28: Oscil[shift] = (Open[shift]+Close[shift])/2; break;
case 29: Oscil[shift] = iRSI(NULL,0,period,applied_price,shift); break;
case 30: Oscil[shift] = iWPR(NULL,0,period,shift); break;
default: Oscil[shift]=iRSI(NULL,0,period,applied_price,shift);
}
}
//----
if(Bars-1<T3_Period)
return(0);
//----
int MaxBar,counted_bars1=IndicatorCounted();
//----
if(counted_bars1>0)
counted_bars1--;
//----
MaxBar=Bars-1-T3_Period;
//----
limit=(Bars-1-counted_bars1);
//----
if(limit>MaxBar)
{
for(int bar=Bars-1; bar>=MaxBar; bar--)
t3_Oscil[bar]=0.0;
limit=MaxBar;
}
//---
int Tnew=Time[limit+1];
if(limit<MaxBar)
if(Tnew==time2)
{
e1 = E1;
e2 = E2;
e3 = E3;
e4 = E4;
e5 = E5;
e6 = E6;
}
else
{
if(Tnew>time2)
Print("ERROR01");
else
Print("ERROR02");
return(-1);
}
//---
for(bar=limit; bar>=0; bar--)
{
if(bar==1)
if(((limit==1) && (time2!=Time[2])) || (limit>1))
{
time2=Time[2];
E1 = e1;
E2 = e2;
E3 = e3;
E4 = e4;
E5 = e5;
E6 = e6;
}
//---
e1 = w1*Oscil[bar] + w2*e1;
e2 = w1*e1 + w2*e2;
e3 = w1*e2 + w2*e3;
e4 = w1*e3 + w2*e4;
e5 = w1*e4 + w2*e5;
e6 = w1*e5 + w2*e6;
t3_Oscil[bar]=c1*e6+c2*e5+c3*e4+c4*e3;
}
//----
if(qBars!=Bars){ deinit(); Sleep(1000); qBars=Bars; qTime=0; return(0);}
if(qTime==Time[0]) return(0); qTime=Time[0]; // runs only on the first tick
if(showBars>Bars-LevDPl-1) showBars=Bars-LevDPl-1;
if(showBars==0) showBars=Bars-LevDPl-1;
//--- filled and displayed the point of Demark
for(int cnt=showBars+Back;cnt>LevDPr+Back;cnt--)
{
int mx=1,mmx=1,mxx=1;
if(LevDPl!=0)
{
for(i=LevDPl,j=LevDPr; i>0; i--,j--)
{
if(LeftStrong)
{
if(t3_Oscil[cnt+i]>=t3_Oscil[cnt]) mx=0;
}
else
{
if(t3_Oscil[cnt+i]>t3_Oscil[cnt]) mx=0;
}
if(j>0)
{
if(RightStrong)
{
if(t3_Oscil[cnt-j]>=t3_Oscil[cnt]) mmx=0;
}
else
{
if(t3_Oscil[cnt-j]>t3_Oscil[cnt]) mmx=0;
}
}
mxx=mx*mmx*mxx;
}
if(mxx>0) Buf1[cnt]=t3_Oscil[cnt];
else Buf1[cnt]=0;
}
else
{
for(j=LevDPr; j>0; j--)
{
if(RightStrong)
{
if(t3_Oscil[cnt-j]>=t3_Oscil[cnt]) mmx=0;
}
else
{
if(t3_Oscil[cnt-j]>t3_Oscil[cnt]) mmx=0;
}
mxx=mmx*mxx;
}
if(mxx>0) Buf1[cnt]=t3_Oscil[cnt];
else Buf1[cnt]=0;
}
//----
int mn=1,mmn=1,mnn=1;
if(LevDPl!=0)
{
for(i=LevDPl,j=LevDPr; i>0; i--,j--)
{
if(LeftStrong)
{
if(t3_Oscil[cnt+i]<=t3_Oscil[cnt]) mn=0;
}
else
{
if(t3_Oscil[cnt+i]<t3_Oscil[cnt]) mn=0;
}
if(j>0)
{
if(RightStrong)
{
if(t3_Oscil[cnt-j]<=t3_Oscil[cnt]) mmn=0;
}
else
{
if(t3_Oscil[cnt-j]<t3_Oscil[cnt]) mmn=0;
}
}
mnn=mn*mmn*mnn;
}
if(mnn>0) Buf2[cnt]=t3_Oscil[cnt];
else Buf2[cnt]=0;
}
else
{
for(j=LevDPr; j>0; j--)
{
if(RightStrong)
{
if(t3_Oscil[cnt-j]<=t3_Oscil[cnt]) mmn=0;
}
else
{
if(t3_Oscil[cnt-j]<t3_Oscil[cnt]) mmn=0;
}
mnn=mmn*mnn;
}
if(mnn>0) Buf2[cnt]=t3_Oscil[cnt];
else Buf2[cnt]=0;
}
//----
}
string Comm;
for(cnt=1;cnt<=qSteps;cnt++) Comm=Comm+(TDMain(cnt));
if(comment) Comment(Comm);
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
string TDMain(int Step)
{
int H1,H2,H3,H4,H5,H6,H7,H8,H9,H10,H11,H12,H13,H14,L1,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13,L14,qExt,col; // ,i,Ls,Hb
double qTL; // ,qLevel
string Comm="»»» Step "+Step+" èç "+qSteps+" (BackStep "+BackStep+")\n",Rem,Rem1,Rem2,Rem3,Rem4,Rem5,Rem6,Rem7,Rem8; // ,qp,Text
string Short_name;
switch(Osc)
{
case 1 : Short_name="AC"; break;
case 2 : Short_name="A/D"; break;
case 3 : Short_name="ADX"; break;
case 4 : Short_name="ATR"; break;
case 5 : Short_name="AO"; break;
case 6 : Short_name="Bears"; break;
case 7 : Short_name="Bulls"; break;
case 8 : Short_name="CCI"; break;
case 9 : Short_name="DeM"; break;
case 10 : Short_name="Force"; break;
case 11 : Short_name="Momentum"; break;
case 12 : Short_name="MFI"; break;
case 13 : Short_name="MACD"; break;
case 14 : Short_name="OsMA"; break;
case 15 : Short_name="OBV"; break;
case 16 : Short_name="RVI"; break;
case 17 : Short_name="StdDev"; break;
case 18 : Short_name="Stoch"; break;
case 19 : Short_name="Volume"; break;
case 20 : Short_name="Close"; break;
case 21 : Short_name="Open"; break;
case 22 : Short_name="High"; break;
case 23 : Short_name="Low"; break;
case 24 : Short_name="Median Price"; break;
case 25 : Short_name="Typical Price"; break;
case 26 : Short_name="Weighted Close Price"; break;
case 27 : Short_name="(O+C+H+L)/4"; break;
case 29 : Short_name="RSI"; break;
case 30 : Short_name="WPR"; break;
default : Short_name="RSI";
}
//--- for DownTrendLines
if(Trend<=0)
{
Comm=Comm+"» "+Col[Step*2-2]+" DownTrendLine ";
if(HandyColour) col=Highline; else col=ColNum[Step*2-2];
H1=GetTD(Step+BackSteph,Buf1);
H2=GetNextHighTD(H1);
H3=GetNextHighTD(H2);
H4=GetNextHighTD(H3);
H5=GetNextHighTD(H4);
H6=GetNextHighTD(H5);
H7=GetNextHighTD(H6);
H8=GetNextHighTD(H7);
H9=GetNextHighTD(H8);
H10=GetNextHighTD(H9);
H11=GetNextHighTD(H10);
H12=GetNextHighTD(H11);
H13=GetNextHighTD(H12);
H14=GetNextHighTD(H13);
qTL=(t3_Oscil[H2]-t3_Oscil[H1])/(H2-H1);
int nn,sn,r,result; // n->nn
for(nn=1,r=H1+1; nn<H2-H1-1; nn++) // n->nn
{
sn=H1+1+nn; // n->nn
if(t3_Oscil[r]<t3_Oscil[sn]) result=r;
else result=sn;
r=result;
}
double Complect1,Complect2,Complect3,Complect4,Complect5,Complect6,Complect7,Complect8,buy,sell; // ,sell1,buy1
if(Complect>0)
{
Complect1=Complect+Complect10;
Complect2=Complect+Complect20;
Complect3=Complect+Complect30;
Complect4=Complect+Complect40;
Complect5=Complect+Complect50;
Complect6=Complect+Complect60;
Complect7=Complect+Complect70;
Complect8=Complect+Complect80;
}
qExt=r; // local minimum between points
Comm=Comm+"\n";
int indicatorWindow=WindowFind(Short_name);
Rem="HL("+Complect+")_"+Step;
Rem1="HL("+Complect8+")_"+Step;
Rem2="HL("+Complect1+")_"+Step;
Rem3="HL("+Complect2+")_"+Step;
Rem4="HL("+Complect3+")_"+Step;
Rem5="HL("+Complect4+")_"+Step;
Rem6="HL("+Complect5+")_"+Step;
Rem7="HL("+Complect6+")_"+Step;
Rem8="HL("+Complect7+")_"+Step;
if(BuyStop==true && SellLimit==false)
{
Rem="BuyStop "+Step+Step;
}
else if(BuyStop==false && SellLimit==true)
{
Rem="SellLimit "+Step+Step;
}
else Rem="Trendh "+Step+Step;
if(trend==true && Oscil[H2]>Oscil[H1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[H2]);ObjectSet(Rem,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[H2]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[H3]>Oscil[H1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[H3]);ObjectSet(Rem,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[H3]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[H4]>Oscil[H1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[H4]);ObjectSet(Rem,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[H4]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[H5]>Oscil[H1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[H5]);ObjectSet(Rem,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[H5]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[H6]>Oscil[H1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[H6]);ObjectSet(Rem,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[H6]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[H7]>Oscil[H1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[H7]);ObjectSet(Rem,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[H7]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[H8]>Oscil[H1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[H8]);ObjectSet(Rem,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[H8]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[H9]>Oscil[H1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[H9]);ObjectSet(Rem,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[H9]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[H10]>Oscil[H1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[H10]);ObjectSet(Rem,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[H10]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[H11]>Oscil[H1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[H11]);ObjectSet(Rem,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[H11]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[H12]>Oscil[H1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[H12]);ObjectSet(Rem,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[H12]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[H13]>Oscil[H1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[H13]);ObjectSet(Rem,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[H13]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[H14]>Oscil[H1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[H14]);ObjectSet(Rem,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[H14]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[H2]<Oscil[H1] && Oscil[H3]<Oscil[H1] && Oscil[H4]<Oscil[H1] && Oscil[H5]<Oscil[H1] &&
Oscil[H6]<Oscil[H1] && Oscil[H7]<Oscil[H1] && Oscil[H8]<Oscil[H1] && Oscil[H9]<Oscil[H1] && Oscil[H10]<Oscil[H1] &&
Oscil[H11]<Oscil[H1] && Oscil[H12]<Oscil[H1] && Oscil[H13]<Oscil[H1] && Oscil[H14]<Oscil[H1]) // ñîáñòâåííî ëèíèÿ òðåíäà
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[H1]);ObjectSet(Rem,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[H1]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else ObjectDelete(Rem);
if(TrendLine && Oscil[H2]>Oscil[H1] && High[H2]<High[H1])// the actual diver
{
ObjectCreate(Rem1,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem1,OBJPROP_TIME1,Time[H2]);
ObjectSet(Rem1,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem1,OBJPROP_PRICE1,t3_Oscil[H2]);
ObjectSet(Rem1,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem1,OBJPROP_COLOR,Red);
ObjectSet(Rem1,OBJPROP_WIDTH,2);
ObjectSet(Rem1,OBJPROP_RAY,false);
sell=true;
}
else if(convergen==true && TrendLine && Oscil[H2]<Oscil[H1] && High[H2]>High[H1])
{
ObjectCreate(Rem1,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem1,OBJPROP_TIME1,Time[H2]);ObjectSet(Rem1,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem1,OBJPROP_PRICE1,t3_Oscil[H2]);ObjectSet(Rem1,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem1,OBJPROP_COLOR,Gold);
ObjectSet(Rem1,OBJPROP_WIDTH,2);
ObjectSet(Rem1,OBJPROP_RAY,false);
sell=true;
}
else ObjectDelete(Rem1);
//////////////////////////////
if(TrendLine && TH==true && Oscil[H2]<Oscil[H1] && High[H2]<High[H1] &&
Oscil[H3]>Oscil[H1] && High[H3]<High[H1] && High[H3]>High[H2])
{
ObjectCreate(Rem2,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem2,OBJPROP_TIME1,Time[H3]);ObjectSet(Rem2,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem2,OBJPROP_PRICE1,t3_Oscil[H3]);ObjectSet(Rem2,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem2,OBJPROP_COLOR,Red);
ObjectSet(Rem2,OBJPROP_WIDTH,2);
ObjectSet(Rem2,OBJPROP_RAY,false);
}
else if(convergen==true && TrendLine && TH==true && Oscil[H2]<Oscil[H1] && High[H2]<High[H1] &&
Oscil[H3]<Oscil[H1] && High[H3]>High[H1] && High[H3]>High[H2] && Oscil[H3]>Oscil[H2])
{
ObjectCreate(Rem2,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem2,OBJPROP_TIME1,Time[H3]);ObjectSet(Rem2,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem2,OBJPROP_PRICE1,t3_Oscil[H3]);ObjectSet(Rem2,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem2,OBJPROP_COLOR,Gold);
ObjectSet(Rem2,OBJPROP_WIDTH,2);
ObjectSet(Rem2,OBJPROP_RAY,false);
}
else ObjectDelete(Rem2);
if(TrendLine && TH==true && Oscil[H2]<Oscil[H1] && High[H2]<High[H1] && Oscil[H3]<Oscil[H1] &&
High[H3]<High[H1] && Oscil[H4]>Oscil[H1] &&
High[H4]<High[H1] && High[H4]>High[H3] && High[H4]>High[H2])
{
ObjectCreate(Rem3,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem3,OBJPROP_TIME1,Time[H4]);ObjectSet(Rem3,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem3,OBJPROP_PRICE1,t3_Oscil[H4]);ObjectSet(Rem3,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem3,OBJPROP_COLOR,Red);
ObjectSet(Rem3,OBJPROP_WIDTH,2);
ObjectSet(Rem3,OBJPROP_RAY,false);
}
else if(convergen==true && TrendLine && TH==true && Oscil[H2]<Oscil[H1] && High[H2]<High[H1] && Oscil[H3]<Oscil[H1] &&
High[H3]<High[H1] && Oscil[H4]<Oscil[H1] &&
High[H4]>High[H1] && High[H4]>High[H3] && High[H4]>High[H2] && Oscil[H4]>Oscil[H2] && Oscil[H4]>Oscil[H3])
{
ObjectCreate(Rem3,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem3,OBJPROP_TIME1,Time[H4]);ObjectSet(Rem3,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem3,OBJPROP_PRICE1,t3_Oscil[H4]);ObjectSet(Rem3,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem3,OBJPROP_COLOR,Gold);
ObjectSet(Rem3,OBJPROP_WIDTH,2);
ObjectSet(Rem3,OBJPROP_RAY,false);
}
else ObjectDelete(Rem3);
if(TrendLine && TH==true && Oscil[H2]<Oscil[H1] && High[H2]<High[H1] && Oscil[H3]<Oscil[H1] &&
High[H3]<High[H1] &&
Oscil[H4]<Oscil[H1] && High[H4]<High[H1] &&
Oscil[H5]>Oscil[H1] && High[H5]<High[H1] && High[H5]>High[H4] && High[H5]>High[H3] && High[H5]>High[H2])
{
ObjectCreate(Rem4,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem4,OBJPROP_TIME1,Time[H5]);ObjectSet(Rem4,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem4,OBJPROP_PRICE1,t3_Oscil[H5]);ObjectSet(Rem4,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem4,OBJPROP_COLOR,Red);
ObjectSet(Rem4,OBJPROP_WIDTH,2);
ObjectSet(Rem4,OBJPROP_RAY,false);
}
else if(convergen==true && TrendLine && TH==true && Oscil[H2]<Oscil[H1] && High[H2]<High[H1] && Oscil[H3]<Oscil[H1] &&
High[H3]<High[H1] &&
Oscil[H4]<Oscil[H1] && High[H4]<High[H1] &&
Oscil[H5]<Oscil[H1] && High[H5]>High[H1] && High[H5]>High[H4] && High[H5]>High[H3] && High[H5]>High[H2] &&
Oscil[H5]>Oscil[H2] && Oscil[H5]>Oscil[H3] && Oscil[H5]>Oscil[H4])
{
ObjectCreate(Rem4,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem4,OBJPROP_TIME1,Time[H5]);ObjectSet(Rem4,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem4,OBJPROP_PRICE1,t3_Oscil[H5]);ObjectSet(Rem4,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem4,OBJPROP_COLOR,Gold);
ObjectSet(Rem4,OBJPROP_WIDTH,2);
ObjectSet(Rem4,OBJPROP_RAY,false);
}
else ObjectDelete(Rem4);
if(TrendLine && TH==true && Oscil[H2]<Oscil[H1] && High[H2]<High[H1] && Oscil[H3]<Oscil[H1] && High[H3]<High[H1] &&
Oscil[H4]<Oscil[H1] && High[H4]<High[H1] && Oscil[H5]<Oscil[H1] && High[H5]<High[H1] &&
Oscil[H6]>Oscil[H1] && High[H6]<High[H1] && High[H6]>High[H5] && High[H6]>High[H4] && High[H6]>High[H3] && High[H6]>High[H2])
{
ObjectCreate(Rem5,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem5,OBJPROP_TIME1,Time[H6]);ObjectSet(Rem5,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem5,OBJPROP_PRICE1,t3_Oscil[H6]);ObjectSet(Rem5,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem5,OBJPROP_COLOR,Red);
ObjectSet(Rem5,OBJPROP_WIDTH,2);
ObjectSet(Rem5,OBJPROP_RAY,false);
}
else if(convergen==true && TrendLine && TH==true && Oscil[H2]<Oscil[H1] && High[H2]<High[H1] && Oscil[H3]<Oscil[H1] && High[H3]<High[H1] &&
Oscil[H4]<Oscil[H1] && High[H4]<High[H1] && Oscil[H5]<Oscil[H1] && High[H5]<High[H1] &&
Oscil[H6]<Oscil[H1] && High[H6]>High[H1] && High[H6]>High[H5] && High[H6]>High[H4] && High[H6]>High[H3] && High[H6]>High[H2] &&
Oscil[H6]>Oscil[H2] && Oscil[H6]>Oscil[H3] && Oscil[H6]>Oscil[H4] && Oscil[H6]>Oscil[H5])
{
ObjectCreate(Rem5,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem5,OBJPROP_TIME1,Time[H6]);ObjectSet(Rem5,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem5,OBJPROP_PRICE1,t3_Oscil[H6]);ObjectSet(Rem5,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem5,OBJPROP_COLOR,Gold);
ObjectSet(Rem5,OBJPROP_WIDTH,2);
ObjectSet(Rem5,OBJPROP_RAY,false);
}
else ObjectDelete(Rem5);
//////////////
if(TrendLine && TH==true && Oscil[H2]<Oscil[H1] && High[H2]<High[H1] && Oscil[H3]<Oscil[H1] && High[H3]<High[H1] &&
Oscil[H4]<Oscil[H1] && High[H4]<High[H1] && Oscil[H5]<Oscil[H1] && High[H5]<High[H1] &&
Oscil[H6]<Oscil[H1] && High[H6]<High[H1] &&
Oscil[H7]>Oscil[H1] && High[H7]<High[H1] && High[H7]>High[H6] && High[H7]>High[H5] && High[H7]>High[H4] &&
High[H7]>High[H3] && High[H7]>High[H2])
{
ObjectCreate(Rem6,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem6,OBJPROP_TIME1,Time[H7]);ObjectSet(Rem6,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem6,OBJPROP_PRICE1,t3_Oscil[H7]);ObjectSet(Rem6,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem6,OBJPROP_COLOR,Red);
ObjectSet(Rem6,OBJPROP_WIDTH,2);
ObjectSet(Rem6,OBJPROP_RAY,false);
}
else if(convergen==true && TrendLine && TH==true && Oscil[H2]<Oscil[H1] && High[H2]<High[H1] && Oscil[H3]<Oscil[H1] && High[H3]<High[H1] &&
Oscil[H4]<Oscil[H1] && High[H4]<High[H1] && Oscil[H5]<Oscil[H1] && High[H5]<High[H1] &&
Oscil[H6]<Oscil[H1] && High[H6]<High[H1] &&
Oscil[H7]<Oscil[H1] && High[H7]>High[H1] && High[H7]>High[H6] && High[H7]>High[H5] && High[H7]>High[H4] &&
High[H7]>High[H3] && High[H7]>High[H2] &&
Oscil[H7]>Oscil[H2] && Oscil[H7]>Oscil[H3] && Oscil[H7]>Oscil[H4] && Oscil[H7]>Oscil[H5] && Oscil[H7]>Oscil[H6])
{
ObjectCreate(Rem6,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem6,OBJPROP_TIME1,Time[H7]);ObjectSet(Rem6,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem6,OBJPROP_PRICE1,t3_Oscil[H7]);ObjectSet(Rem6,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem6,OBJPROP_COLOR,Gold);
ObjectSet(Rem6,OBJPROP_WIDTH,2);
ObjectSet(Rem6,OBJPROP_RAY,false);
}
else ObjectDelete(Rem6);
if(TrendLine && TH==true && Oscil[H2]<Oscil[H1] && High[H2]<High[H1] && Oscil[H3]<Oscil[H1] && High[H3]<High[H1] &&
Oscil[H4]<Oscil[H1] && High[H4]<High[H1] && Oscil[H5]<Oscil[H1] && High[H5]<High[H1] &&
Oscil[H6]<Oscil[H1] && High[H6]<High[H1] && Oscil[H7]<Oscil[H1] && High[H7]<High[H1] &&
Oscil[H8]>Oscil[H1] && High[H8]<High[H1] && High[H8]>High[H7] && High[H8]>High[H6] && High[H8]>High[H5] &&
High[H8]>High[H4] && High[H8]>High[H3] && High[H8]>High[H2])
{
ObjectCreate(Rem7,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem7,OBJPROP_TIME1,Time[H8]);ObjectSet(Rem7,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem7,OBJPROP_PRICE1,t3_Oscil[H8]);ObjectSet(Rem7,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem7,OBJPROP_COLOR,Red);
ObjectSet(Rem7,OBJPROP_WIDTH,2);
ObjectSet(Rem7,OBJPROP_RAY,false);
}
else if(convergen==true && TrendLine && TH==true && Oscil[H2]<Oscil[H1] && High[H2]<High[H1] && Oscil[H3]<Oscil[H1] && High[H3]<High[H1] &&
Oscil[H4]<Oscil[H1] && High[H4]<High[H1] && Oscil[H5]<Oscil[H1] && High[H5]<High[H1] &&
Oscil[H6]<Oscil[H1] && High[H6]<High[H1] && Oscil[H7]<Oscil[H1] && High[H7]<High[H1] &&
Oscil[H8]<Oscil[H1] && High[H8]>High[H1] && High[H8]>High[H7] && High[H8]>High[H6] && High[H8]>High[H5] &&
High[H8]>High[H4] && High[H8]>High[H3] && High[H8]>High[H2] &&
Oscil[H8]>Oscil[H2] && Oscil[H8]>Oscil[H3] && Oscil[H8]>Oscil[H4] && Oscil[H8]>Oscil[H5] && Oscil[H8]>Oscil[H6] && Oscil[H8]>Oscil[H7])
{
ObjectCreate(Rem7,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem7,OBJPROP_TIME1,Time[H8]);ObjectSet(Rem7,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem7,OBJPROP_PRICE1,t3_Oscil[H8]);ObjectSet(Rem7,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem7,OBJPROP_COLOR,Gold);
ObjectSet(Rem7,OBJPROP_WIDTH,2);
ObjectSet(Rem7,OBJPROP_RAY,false);
}
else ObjectDelete(Rem7);
if(TrendLine && TH==true && Oscil[H2]<Oscil[H1] && High[H2]<High[H1] && Oscil[H3]<Oscil[H1] && High[H3]<High[H1] &&
Oscil[H4]<Oscil[H1] && High[H4]<High[H1] && Oscil[H5]<Oscil[H1] && High[H5]<High[H1] &&
Oscil[H6]<Oscil[H1] && High[H6]<High[H1] && Oscil[H7]<Oscil[H1] && High[H7]<High[H1] &&
Oscil[H8]<Oscil[H1] && High[H8]<High[H1] &&
Oscil[H9]>Oscil[H1] && High[H9]<High[H1] && High[H9]>High[H8] && High[H9]>High[H7] && High[H9]>High[H6] &&
High[H9]>High[H5] && High[H9]>High[H4] && High[H9]>High[H3] && High[H9]>High[H2])
{
ObjectCreate(Rem8,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem8,OBJPROP_TIME1,Time[H9]);ObjectSet(Rem8,OBJPROP_TIME2,Time[H1]);
ObjectSet(Rem8,OBJPROP_PRICE1,t3_Oscil[H9]);ObjectSet(Rem8,OBJPROP_PRICE2,t3_Oscil[H1]);
ObjectSet(Rem8,OBJPROP_COLOR,Red);
ObjectSet(Rem8,OBJPROP_WIDTH,2);
ObjectSet(Rem8,OBJPROP_RAY,false);
}
else ObjectDelete(Rem8);
//////////////////////
if(Trend_Down==false)
ObjectDelete(Rem);
Rem="HCL("+Complect+")_"+Step; // line channel
if(ChannelLine)
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[qExt]);ObjectSet(Rem,OBJPROP_TIME2,Time[0]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[qExt]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[qExt]-qTL*qExt);
ObjectSet(Rem,OBJPROP_COLOR,col);
}
else ObjectDelete(Rem);
if(HandyColour) col=ChannelH; else col=ColNum[Step*2-2];
Rem="CHAh("+Complect+")_"+Step;
if(Channel)
{
if(Regression)
{
ObjectCreate(Rem,OBJ_REGRESSION,indicatorWindow,Time[H2],t3_Oscil[H2],Time[H1],t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_COLOR,col);
ObjectSet(Rem,OBJPROP_RAY,RayH);
}
else
{
ObjectCreate(Rem,OBJ_STDDEVCHANNEL,indicatorWindow,Time[H2],t3_Oscil[H2],Time[H1],t3_Oscil[H1]);
ObjectSet(Rem,OBJPROP_DEVIATION,STD_widthH);
ObjectSet(Rem,OBJPROP_COLOR,col);
ObjectSet(Rem,OBJPROP_RAY,RayH);
}
}
else ObjectDelete(Rem);
}
//--- for UpTrendLines
if(Trend>=0)
{
Comm=Comm+"» "+Col[Step*2-1]+" UpTrendLine ";
if(HandyColour) col=Lowline; else col=ColNum[Step*2-1];
L1=GetTD(Step+BackStepl,Buf2);
L2=GetNextLowTD(L1);
L3=GetNextLowTD(L2);
L4=GetNextLowTD(L3);
L5=GetNextLowTD(L4);
L6=GetNextLowTD(L5);
L7=GetNextLowTD(L6);
L8=GetNextLowTD(L7);
L9=GetNextLowTD(L8);
L10=GetNextLowTD(L9);
L11=GetNextLowTD(L10);
L12=GetNextLowTD(L11);
L13=GetNextLowTD(L12);
L14=GetNextLowTD(L13);
qTL=(t3_Oscil[L1]-t3_Oscil[L2])/(L2-L1);
for(nn=1,r=L1+1; nn<L2-L1-1; nn++) // n->nn
{
sn=L1+1+nn; // n->nn
if(t3_Oscil[r]>t3_Oscil[sn]) result=r;
else result=sn;
r=result;
}
qExt=r; // local maximum between points
Comm=Comm+"\n";
indicatorWindow=WindowFind(Short_name);
Rem="LL("+Complect+")_"+Step;
Rem1="LL("+Complect8+")_"+Step;
Rem2="LL("+Complect1+")_"+Step;
Rem3="LL("+Complect2+")_"+Step;
Rem4="LL("+Complect3+")_"+Step;
Rem5="LL("+Complect4+")_"+Step;
Rem6="LL("+Complect5+")_"+Step;
Rem7="LL("+Complect6+")_"+Step;
Rem8="LL("+Complect7+")_"+Step;
if(SellStop==true && BuyLimit==false)
{
Rem="SellStop "+Step+Step;
}
else if(SellStop==false && BuyLimit==true)
{
Rem="BuyLimit "+Step+Step;
}
else Rem="Trendl "+Step+Step;
if(trend==true && Oscil[L2]<Oscil[L1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[L2]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[L2]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[L3]<Oscil[L1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[L3]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[L3]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[L4]<Oscil[L1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[L4]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[L4]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[L5]<Oscil[L1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[L5]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[L5]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[L6]<Oscil[L1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[L6]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[L6]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[L7]<Oscil[L1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[L7]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[L7]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[L8]<Oscil[L1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[L8]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[L8]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[L9]<Oscil[L1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[L9]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[L9]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[L10]<Oscil[L1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[L10]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[L10]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[L11]<Oscil[L1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[L11]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[L11]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[L12]<Oscil[L1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[L12]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[L12]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[L13]<Oscil[L1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[L13]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[L13]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[L14]<Oscil[L1]) // the actual trend line
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[L14]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[L14]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else if(trend==true && Oscil[L2]<Oscil[L1] && Oscil[L3]<Oscil[L1] && Oscil[L4]<Oscil[L1] && Oscil[L5]<Oscil[L1] &&
Oscil[L6]<Oscil[L1] && Oscil[L7]<Oscil[L1] && Oscil[L8]<Oscil[L1] && Oscil[L9]<Oscil[L1] && Oscil[L10]<Oscil[L1] &&
Oscil[L11]<Oscil[L1] && Oscil[L12]<Oscil[L1] && Oscil[L13]<Oscil[L1] && Oscil[L14]<Oscil[L1]) // ñîáñòâåííî ëèíèÿ òðåíäà
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[L1]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[L1]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,DarkOliveGreen);
ObjectSet(Rem,OBJPROP_WIDTH,3-MathMax(4,Step));
}
else ObjectDelete(Rem);
if(TrendLine && Oscil[L2]<Oscil[L1] && Low[L2]>Low[L1]) // the actual diver Up
{
ObjectCreate(Rem1,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem1,OBJPROP_TIME1,Time[L2]);ObjectSet(Rem1,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem1,OBJPROP_PRICE1,t3_Oscil[L2]);ObjectSet(Rem1,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem1,OBJPROP_COLOR,Red);
ObjectSet(Rem1,OBJPROP_WIDTH,2);
ObjectSet(Rem1,OBJPROP_RAY,false);
buy=true;
}
else if(convergen==true && TrendLine && Oscil[L2]>Oscil[L1] && Low[L2]<Low[L1]) // the actual diver Up
{
ObjectCreate(Rem1,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem1,OBJPROP_TIME1,Time[L2]);ObjectSet(Rem1,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem1,OBJPROP_PRICE1,t3_Oscil[L2]);ObjectSet(Rem1,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem1,OBJPROP_COLOR,Gold);
ObjectSet(Rem1,OBJPROP_WIDTH,2);
ObjectSet(Rem1,OBJPROP_RAY,false);
buy=true;
}
else ObjectDelete(Rem1);
///////////////////////////
if(TrendLine && TL==true && Oscil[L2]>Oscil[L1] && Low[L2]>Low[L1] && Oscil[L3]<Oscil[L1] &&
Low[L3]>Low[L1] && Low[L3]<Low[L2])
{
ObjectCreate(Rem2,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem2,OBJPROP_TIME1,Time[L3]);ObjectSet(Rem2,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem2,OBJPROP_PRICE1,t3_Oscil[L3]);ObjectSet(Rem2,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem2,OBJPROP_COLOR,Red);
ObjectSet(Rem2,OBJPROP_WIDTH,2);
ObjectSet(Rem2,OBJPROP_RAY,false);
}
else if(convergen==true && TrendLine && TL==true && Oscil[L2]>Oscil[L1] && Low[L2]>Low[L1] &&
Oscil[L3]>Oscil[L1] && Low[L3]<Low[L1] && Low[L3]<Low[L2] && Oscil[L3]<Oscil[L2])
{
ObjectCreate(Rem2,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem2,OBJPROP_TIME1,Time[L3]);ObjectSet(Rem2,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem2,OBJPROP_PRICE1,t3_Oscil[L3]);ObjectSet(Rem2,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem2,OBJPROP_COLOR,Gold);
ObjectSet(Rem2,OBJPROP_WIDTH,2);
ObjectSet(Rem2,OBJPROP_RAY,false);
}
else ObjectDelete(Rem2);
if(TrendLine && TL==true && Oscil[L2]>Oscil[L1] && Low[L2]>Low[L1] && Oscil[L3]>Oscil[L1] &&
Low[L3]>Low[L1] && Oscil[L4]<Oscil[L1] &&
Low[L4]>Low[L1] && Low[L4]<Low[L3] && Low[L4]<Low[L2])
{
ObjectCreate(Rem3,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem3,OBJPROP_TIME1,Time[L4]);ObjectSet(Rem3,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem3,OBJPROP_PRICE1,t3_Oscil[L4]);ObjectSet(Rem3,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem3,OBJPROP_COLOR,Red);
ObjectSet(Rem3,OBJPROP_WIDTH,2);
ObjectSet(Rem3,OBJPROP_RAY,false);
}
else if(convergen==true && TrendLine && TL==true && Oscil[L2]>Oscil[L1] && Low[L2]>Low[L1] && Oscil[L3]>Oscil[L1] &&
Low[L3]>Low[L1] && Oscil[L4]>Oscil[L1] &&
Low[L4]<Low[L1] && Low[L4]<Low[L3] && Low[L4]<Low[L2] && Oscil[L4]<Oscil[L3] && Oscil[L4]<Oscil[L2])
{
ObjectCreate(Rem3,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem3,OBJPROP_TIME1,Time[L4]);ObjectSet(Rem3,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem3,OBJPROP_PRICE1,t3_Oscil[L4]);ObjectSet(Rem3,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem3,OBJPROP_COLOR,Gold);
ObjectSet(Rem3,OBJPROP_WIDTH,2);
ObjectSet(Rem3,OBJPROP_RAY,false);
}
else ObjectDelete(Rem3);
if(TrendLine && TL==true && Oscil[L2]>Oscil[L1] && Low[L2]>Low[L1] && Oscil[L3]>Oscil[L1] && Low[L3]>Low[L1] &&
Oscil[L4]>Oscil[L1] && Low[L4]>Low[L1] &&
Oscil[L5]<Oscil[L1] && Low[L5]>Low[L1] && Low[L5]<Low[L4] && Low[L5]<Low[L3] && Low[L5]<Low[L2])
{
ObjectCreate(Rem4,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem4,OBJPROP_TIME1,Time[L5]);ObjectSet(Rem4,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem4,OBJPROP_PRICE1,t3_Oscil[L5]);ObjectSet(Rem4,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem4,OBJPROP_COLOR,Red);
ObjectSet(Rem4,OBJPROP_WIDTH,2);
ObjectSet(Rem4,OBJPROP_RAY,false);
}
else if(convergen==true && TrendLine && TL==true && Oscil[L2]>Oscil[L1] && Low[L2]>Low[L1] && Oscil[L3]>Oscil[L1] && Low[L3]>Low[L1] &&
Oscil[L4]>Oscil[L1] && Low[L4]>Low[L1] &&
Oscil[L5]>Oscil[L1] && Low[L5]<Low[L1] && Low[L5]<Low[L4] && Low[L5]<Low[L3] && Low[L5]<Low[L2] &&
Oscil[L5]<Oscil[L4] && Oscil[L5]<Oscil[L3] && Oscil[L5]<Oscil[L2])
{
ObjectCreate(Rem4,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem4,OBJPROP_TIME1,Time[L5]);ObjectSet(Rem4,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem4,OBJPROP_PRICE1,t3_Oscil[L5]);ObjectSet(Rem4,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem4,OBJPROP_COLOR,Gold);
ObjectSet(Rem4,OBJPROP_WIDTH,2);
ObjectSet(Rem4,OBJPROP_RAY,false);
}
else ObjectDelete(Rem4);
if(TrendLine && TL==true && Oscil[L2]>Oscil[L1] && Low[L2]>Low[L1] && Oscil[L3]>Oscil[L1] && Low[L3]>Low[L1] &&
Oscil[L4]>Oscil[L1] && Low[L4]>Low[L1] && Oscil[L5]>Oscil[L1] && Low[L5]>Low[L1] &&
Oscil[L6]<Oscil[L1] && Low[L6]>Low[L1] && Low[L6]<Low[L5] && Low[L6]<Low[L4] && Low[L6]<Low[L3] && Low[L6]<Low[L2])
{
ObjectCreate(Rem5,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem5,OBJPROP_TIME1,Time[L6]);ObjectSet(Rem5,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem5,OBJPROP_PRICE1,t3_Oscil[L6]);ObjectSet(Rem5,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem5,OBJPROP_COLOR,Red);
ObjectSet(Rem5,OBJPROP_WIDTH,2);
ObjectSet(Rem5,OBJPROP_RAY,false);
}
else if(convergen==true && TrendLine && TL==true && Oscil[L2]>Oscil[L1] && Low[L2]>Low[L1] && Oscil[L3]>Oscil[L1] && Low[L3]>Low[L1] &&
Oscil[L4]>Oscil[L1] && Low[L4]>Low[L1] && Oscil[L5]>Oscil[L1] && Low[L5]>Low[L1] &&
Oscil[L6]>Oscil[L1] && Low[L6]<Low[L1] && Low[L6]<Low[L5] && Low[L6]<Low[L4] && Low[L6]<Low[L3] && Low[L6]<Low[L2] &&
Oscil[L6]<Oscil[L5] && Oscil[L6]<Oscil[L4] && Oscil[L6]<Oscil[L3] && Oscil[L6]<Oscil[L2])
{
ObjectCreate(Rem5,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem5,OBJPROP_TIME1,Time[L6]);ObjectSet(Rem5,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem5,OBJPROP_PRICE1,t3_Oscil[L6]);ObjectSet(Rem5,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem5,OBJPROP_COLOR,Gold);
ObjectSet(Rem5,OBJPROP_WIDTH,2);
ObjectSet(Rem5,OBJPROP_RAY,false);
}
else ObjectDelete(Rem5);
////////////////////////
if(TrendLine && TL==true && Oscil[L2]>Oscil[L1] && Low[L2]>Low[L1] && Oscil[L3]>Oscil[L1] && Low[L3]>Low[L1] &&
Oscil[L4]>Oscil[L1] && Low[L4]>Low[L1] && Oscil[L5]>Oscil[L1] && Low[L5]>Low[L1] &&
Oscil[L6]>Oscil[L1] && Low[L6]>Low[L1] &&
Oscil[L7]<Oscil[L1] && Low[L7]>Low[L1] && Low[L7]<Low[L6] && Low[L7]<Low[L5] && Low[L7]<Low[L4] &&
Low[L7]<Low[L3] && Low[L7]<Low[L2])
{
ObjectCreate(Rem6,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem6,OBJPROP_TIME1,Time[L7]);ObjectSet(Rem6,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem6,OBJPROP_PRICE1,t3_Oscil[L7]);ObjectSet(Rem6,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem6,OBJPROP_COLOR,Red);
ObjectSet(Rem6,OBJPROP_WIDTH,2);
ObjectSet(Rem6,OBJPROP_RAY,false);
}
else if(convergen==true && TrendLine && TL==true && Oscil[L2]>Oscil[L1] && Low[L2]>Low[L1] && Oscil[L3]>Oscil[L1] && Low[L3]>Low[L1] &&
Oscil[L4]>Oscil[L1] && Low[L4]>Low[L1] && Oscil[L5]>Oscil[L1] && Low[L5]>Low[L1] &&
Oscil[L6]>Oscil[L1] && Low[L6]>Low[L1] &&
Oscil[L7]>Oscil[L1] && Low[L7]<Low[L1] && Low[L7]<Low[L6] && Low[L7]<Low[L5] && Low[L7]<Low[L4] &&
Low[L7]<Low[L3] && Low[L7]<Low[L2] &&
Oscil[L7]<Oscil[L6] && Oscil[L7]<Oscil[L5] && Oscil[L7]<Oscil[L4] && Oscil[L7]<Oscil[L3] && Oscil[L7]<Oscil[L2])
{
ObjectCreate(Rem6,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem6,OBJPROP_TIME1,Time[L7]);ObjectSet(Rem6,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem6,OBJPROP_PRICE1,t3_Oscil[L7]);ObjectSet(Rem6,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem6,OBJPROP_COLOR,Gold);
ObjectSet(Rem6,OBJPROP_WIDTH,2);
ObjectSet(Rem6,OBJPROP_RAY,false);
}
else ObjectDelete(Rem6);
if(TrendLine && TL==true && Oscil[L2]>Oscil[L1] && Low[L2]>Low[L1] && Oscil[L3]>Oscil[L1] && Low[L3]>Low[L1] &&
Oscil[L4]>Oscil[L1] && Low[L4]>Low[L1] && Oscil[L5]>Oscil[L1] && Low[L5]>Low[L1] &&
Oscil[L6]>Oscil[L1] && Low[L6]>Low[L1] && Oscil[L7]>Oscil[L1] && Low[L7]>Low[L1] &&
Oscil[L8]<Oscil[L1] && Low[L8]>Low[L1] && Low[L8]<Low[L7] && Low[L8]<Low[L6] && Low[L8]<Low[L5] &&
Low[L8]<Low[L4] && Low[L8]<Low[L3] && Low[L8]<Low[L2])
{
ObjectCreate(Rem7,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem7,OBJPROP_TIME1,Time[L8]);ObjectSet(Rem7,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem7,OBJPROP_PRICE1,t3_Oscil[L8]);ObjectSet(Rem7,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem7,OBJPROP_COLOR,Red);
ObjectSet(Rem7,OBJPROP_WIDTH,2);
ObjectSet(Rem7,OBJPROP_RAY,false);
}
else if(convergen==true && TrendLine && TL==true && Oscil[L2]>Oscil[L1] && Low[L2]>Low[L1] && Oscil[L3]>Oscil[L1] && Low[L3]>Low[L1] &&
Oscil[L4]>Oscil[L1] && Low[L4]>Low[L1] && Oscil[L5]>Oscil[L1] && Low[L5]>Low[L1] &&
Oscil[L6]>Oscil[L1] && Low[L6]>Low[L1] && Oscil[L7]>Oscil[L1] && Low[L7]>Low[L1] &&
Oscil[L8]>Oscil[L1] && Low[L8]<Low[L1] && Low[L8]<Low[L7] && Low[L8]<Low[L6] && Low[L8]<Low[L5] &&
Low[L8]<Low[L4] && Low[L8]<Low[L3] && Low[L8]<Low[L2] &&
Oscil[L8]<Oscil[L7] && Oscil[L8]<Oscil[L6] && Oscil[L8]<Oscil[L5] && Oscil[L8]<Oscil[L4] &&
Oscil[L8]<Oscil[L3] && Oscil[L8]<Oscil[L2])
{
ObjectCreate(Rem7,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem7,OBJPROP_TIME1,Time[L8]);ObjectSet(Rem7,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem7,OBJPROP_PRICE1,t3_Oscil[L8]);ObjectSet(Rem7,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem7,OBJPROP_COLOR,Gold);
ObjectSet(Rem7,OBJPROP_WIDTH,2);
ObjectSet(Rem7,OBJPROP_RAY,false);
}
else ObjectDelete(Rem7);
if(TrendLine && TL==true && Oscil[L2]>Oscil[L1] && Low[L2]>Low[L1] && Oscil[L3]>Oscil[L1] && Low[L3]>Low[L1] &&
Oscil[L4]>Oscil[L1] && Low[L4]>Low[L1] && Oscil[L5]>Oscil[L1] && Low[L5]>Low[L1] &&
Oscil[L6]>Oscil[L1] && Low[L6]>Low[L1] && Oscil[L7]>Oscil[L1] && Low[L7]>Low[L1] &&
Oscil[L8]>Oscil[L1] && Low[L8]>Low[L1] &&
Oscil[L9]<Oscil[L1] && Low[L9]>Low[L1] && Low[L9]<Low[L8] && Low[L9]<Low[L7] && Low[L9]<Low[L6] &&
Low[L9]<Low[L5] && Low[L9]<Low[L4] && Low[L9]<Low[L3] && Low[L9]<Low[L2])
{
ObjectCreate(Rem8,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem8,OBJPROP_TIME1,Time[L9]);ObjectSet(Rem8,OBJPROP_TIME2,Time[L1]);
ObjectSet(Rem8,OBJPROP_PRICE1,t3_Oscil[L9]);ObjectSet(Rem8,OBJPROP_PRICE2,t3_Oscil[L1]);
ObjectSet(Rem8,OBJPROP_COLOR,Red);
ObjectSet(Rem8,OBJPROP_WIDTH,2);
}
else ObjectDelete(Rem8);
//////////////////////////
if(Trend_Up==false)
ObjectDelete(Rem);
Rem="LCL("+Complect+")_"+Step; // line channel
if(ChannelLine)
{
ObjectCreate(Rem,OBJ_TREND,indicatorWindow,0,0,0,0);
ObjectSet(Rem,OBJPROP_TIME1,Time[qExt]);ObjectSet(Rem,OBJPROP_TIME2,Time[0]);
ObjectSet(Rem,OBJPROP_PRICE1,t3_Oscil[qExt]);ObjectSet(Rem,OBJPROP_PRICE2,t3_Oscil[qExt]+qTL*qExt);
ObjectSet(Rem,OBJPROP_COLOR,col);
}
else ObjectDelete(Rem);
if(HandyColour) col=ChannelL; else col=ColNum[Step*2-1];
Rem="CHAl("+Complect+")_"+Step;
if(Channel)
{
if(Regression)
{
ObjectCreate(Rem,OBJ_REGRESSION,indicatorWindow,Time[L2],t3_Oscil[L2],Time[L1],t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_COLOR,col);
ObjectSet(Rem,OBJPROP_RAY,RayL);
}
else
{
ObjectCreate(Rem,OBJ_STDDEVCHANNEL,indicatorWindow,Time[L2],t3_Oscil[L2],Time[L1],t3_Oscil[L1]);
ObjectSet(Rem,OBJPROP_DEVIATION,STD_widthL);
ObjectSet(Rem,OBJPROP_COLOR,col);
ObjectSet(Rem,OBJPROP_RAY,RayL);
}
}
else ObjectDelete(Rem);
}
return(Comm);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int GetTD(int P,const double &Arr[])
{
int i=0,j=0;
while(j<P){ i++; while(Arr[i]==0){i++;if(i>showBars-2)return(-1);} j++;}
return (i);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int GetNextHighTD(int P)
{
int i=P+1;
while(Buf1[i]==0){i++;if(i>showBars-2)return(-1);}
return (i);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int GetNextLowTD(int P)
{
int i=P+1;
while(Buf2[i]==0){i++;if(i>showBars-2)return(-1);}
return (i);
}
//+------------------------------------------------------------------+
Comments