//+------------------------------------------------------------------+ //| Ind-TD-DeMark-3-1.mq4 | //| Copyright © 2005,Kara Software Corp. | //| | //+------------------------------------------------------------------+ #property copyright "Copyright © 2005, Kara Software Corp." #property link "" #property indicator_chart_window #property indicator_buffers 2 #property indicator_color1 White /*Original #property indicator_color1 Red. Color of Upper TD Points*/ #property indicator_color2 White /*Original #property indicator_color2 Blue. Color of Lower TD Points*/ //---- input parameters /* Mod 02: only one step, no back steps, only one target, no fractal trendlines, no large arrow option for TD points, and added user changable colours and styles*/ /* Mod 03: Alerts Added. Horizontal Lines indicating where projections start from and where alerts should be determined from re-enabled with Default of False.*/ /* Mod 03B: Bug where TD Points and TD Lines drawn in wrong place for double, triple and quadruple tops or bottoms is fixed*/ extern bool AlertsOn = false; // Line added. Default is true. extern bool Comments=False;/*Optional Comments. Default is false. Orginal variable called "Commen"*/ extern bool TrendLine=True;/*Default is true to draw current TD Lines*/ extern int TrendLineStyle=STYLE_SOLID;/*STYLE>_SOLID=0,DASH=1,_DOT=2,_DASHDOT=3,_DASHDDOTDOT=4. Line of code added from original.*/ extern int TrendLineWidth=1;/*Thinnest or allow dots and dashes = 0 or 1, Thinner=2, Medium=3,Thicker=4,Thickest=5. Line of code added from original.*/ extern color UpperTrendLineColour=Red;/*Line of code added from original.*/ extern color LowerTrendLineColour=Blue;/*Line of code added from original.*/ extern bool ProjectionLines=True;/*Default is True. These are the TD Price Projections. Original variable called "Take Prof"*/ extern int ProjectionLinesStyle=STYLE_DASH;/*STYLE>_SOLID=0,DASH=1,_DOT=2,_DASHDOT=3,_DASHDDOTDOT=4. Line of code added from original.*/ extern int ProjectionLinesWidth=1;/*Thinnest or allow dots and dashes = 0 or 1, Thinner=2, Medium=3,Thicker=4,Thickest=5. Line of code added from original.*/ extern color UpperProjectionLineColour=Yellow;/*Line of code added from original.*/ extern color LowerProjectionLineColour=Yellow;/*Line of code added from original.*/ extern bool HorizontLine=False;/*Default is false. It seems the Horizontal Lines are were the code predicts price may cross TD line.*/ bool TD=False;/*Default is false. True setting draws up and down arrows instead of dots on TD Points creating more clutter.*/ int BackSteps=0;/*Used to be extern int now just int. Leave at 0*/ int ShowingSteps=1;/*Used to be extern int now just int. Leave at 1*/ bool FractalAsTD=false;/*Used to be extern bool now just bool. Leave at false, otherwise Trend Lines based on Fractal Points not TD Points*/ double TrendLineBreakUp=-1;//Line added. bool TrendLineBreakUpFlag=False;//Line added. double TrendLineBreakDown=-1;//Line added. bool TrendLineBreakDownFlag=False;//Line added. //---- buffers double ExtMapBuffer1[]; double ExtMapBuffer2[]; //==================================================================== int init() { SetIndexStyle(0,DRAW_ARROW); SetIndexArrow(0,217); SetIndexBuffer(0,ExtMapBuffer1); SetIndexEmptyValue(0,0.0); SetIndexStyle(1,DRAW_ARROW); SetIndexArrow(1,218); SetIndexBuffer(1,ExtMapBuffer2); SetIndexEmptyValue(1,0.0); for (int i=1;i<=10;i++) { ObjectDelete("HHL_"+i);ObjectDelete("HL_"+i); ObjectDelete("HLL_"+i);ObjectDelete("LL_"+i); ObjectDelete("HC1_"+i); ObjectDelete("HC2_"+i); ObjectDelete("HC3_"+i); ObjectDelete("LC1_"+i); ObjectDelete("LC2_"+i); ObjectDelete("LC3_"+i); } Comment(""); return(0); } int deinit() { for (int i=1;i<=10;i++) { ObjectDelete("HHL_"+i);ObjectDelete("HL_"+i); ObjectDelete("HLL_"+i);ObjectDelete("LL_"+i); ObjectDelete("HC1_"+i); ObjectDelete("HC2_"+i); ObjectDelete("HC3_"+i); ObjectDelete("LC1_"+i); ObjectDelete("LC2_"+i); ObjectDelete("LC3_"+i); } Comment(""); return(0); } //-------------------------------------------------------------------- int SetTDPoint(int B)//It seems B is the same as IndicatorCounted() function { int shift; if (FractalAsTD==false) { //Print("B = ",B); //Print("Bars = ",Bars); //Print("IndicatorCounted() = ",IndicatorCounted()); for (shift=B;shift>1;shift--) { if (High[shift+1]=High[shift])//I added for new way to determine Non-TD High Point ExtMapBuffer1[shift]=0;//I added for new way to determine Non-TD High Point //else ExtMapBuffer1[shift]=0; if (Low[shift+1]>Low[shift] && Low[shift-1]>Low[shift])// determine single bottom TD Point ExtMapBuffer2[shift]=Low[shift];// determine single bottom TD Point if (Low[shift+2]>Low[shift] && Low[shift+1]==Low[shift] && Low[shift-1]>Low[shift])//I added for double bottom ExtMapBuffer2[shift]=Low[shift];//I added for double bottom if (Low[shift+3]>Low[shift] && Low[shift+2]==Low[shift] && Low[shift+1]==Low[shift]//I added for triple bottom && Low[shift-1]>Low[shift])//I added for triple bottom ExtMapBuffer2[shift]=Low[shift];//I added for triple bottom if (Low[shift+4]>Low[shift] && Low[shift+3]==Low[shift]&& Low[shift+2]==Low[shift] && Low[shift+1]==Low[shift]//I added for quadruple bottom && Low[shift-1]>Low[shift])//I added for quadruple bottom ExtMapBuffer2[shift]=Low[shift];//I added for quadruple bottom if (Low[shift-1]<=Low[shift])//I added ExtMapBuffer2[shift]=0;//I added //else ExtMapBuffer2[shift]=0; } ExtMapBuffer1[0]=0; ExtMapBuffer2[0]=0; ExtMapBuffer1[1]=0; ExtMapBuffer2[1]=0; } else { for (shift=B;shift>3;shift--) { if (High[shift+1]<=High[shift] && High[shift-1]=Low[shift] && Low[shift-1]>Low[shift] && Low[shift+2]>=Low[shift] && Low[shift-2]>Low[shift]) ExtMapBuffer2[shift]=Low[shift]; else ExtMapBuffer2[shift]=0; } ExtMapBuffer1[0]=0; ExtMapBuffer2[0]=0; ExtMapBuffer1[1]=0; ExtMapBuffer2[1]=0; ExtMapBuffer1[2]=0; ExtMapBuffer2[2]=0; } return(0); } //-------------------------------------------------------------------- int GetHighTD(int P) { int i=0,j=0; while (jBars-2)return(-1);} j++; } return (i); } //-------------------------------------------------------------------- int GetNextHighTD(int P) { int i=P+1; while(ExtMapBuffer1[i]<=High[P]){i++;if(i>Bars-2)return(-1);} return (i); } //-------------------------------------------------------------------- int GetLowTD(int P) { int i=0,j=0; while (jBars-2)return(-1);} j++; } return (i); } //-------------------------------------------------------------------- int GetNextLowTD(int P) { int i=P+1; while(ExtMapBuffer2[i]>=Low[P] || ExtMapBuffer2[i]==0){i++;if(i>Bars-2)return(-1);} return (i); } //-------------------------------------------------------------------- int TrendLineHighTD(int H1,int H2,int Step,int Col)/*Draw Upper Trend Line*/ { ObjectSet("HL_"+Step,OBJPROP_TIME1,Time[H2]);ObjectSet("HL_"+Step,OBJPROP_TIME2,Time[H1]); ObjectSet("HL_"+Step,OBJPROP_PRICE1,High[H2]);ObjectSet("HL_"+Step,OBJPROP_PRICE2,High[H1]); ObjectSet("HL_"+Step,OBJPROP_COLOR,UpperTrendLineColour);/*TEMP Original OBJPROP_COLOR,Col*/ if (Step==1)ObjectSet("HL_"+Step,OBJPROP_WIDTH,TrendLineWidth);/*Original OBJPROP_WIDTH,2*/ else ObjectSet("HL_"+Step,OBJPROP_WIDTH,1); return(0); } //-------------------------------------------------------------------- int TrendLineLowTD(int L1,int L2,int Step,int Col)/*Draw Lower Trend Line*/ { ObjectSet("LL_"+Step,OBJPROP_TIME1,Time[L2]);ObjectSet("LL_"+Step,OBJPROP_TIME2,Time[L1]); ObjectSet("LL_"+Step,OBJPROP_PRICE1,Low[L2]);ObjectSet("LL_"+Step,OBJPROP_PRICE2,Low[L1]); ObjectSet("LL_"+Step,OBJPROP_COLOR,LowerTrendLineColour);/*TEMP Original OBJPROP_COLOR,Col*/ if (Step==1)ObjectSet("LL_"+Step,OBJPROP_WIDTH,TrendLineWidth);/*Original OBJPROP_WIDTH,2*/ else ObjectSet("LL_"+Step,OBJPROP_WIDTH,1); return(0); } //-------------------------------------------------------------------- int HorizontLineHighTD(int H1,int H2,int Step,double St,int Col) { ObjectSet("HHL_"+Step,OBJPROP_PRICE1,High[H2]-(High[H2]-High[H1])/(H2-H1)*H2);//HORIZONTAL HIGH LINE HEIGHT CALCULATION ObjectSet("HHL_"+Step,OBJPROP_STYLE,St); ObjectSet("HHL_"+Step,OBJPROP_COLOR,Col); ObjectSet("HHL_"+Step,OBJPROP_BACK,True);//Line added return(0); } //-------------------------------------------------------------------- int HorizontLineLowTD(int L1,int L2,int Step,double St,int Col) { ObjectSet("HLL_"+Step,OBJPROP_PRICE1,Low[L2]+(Low[L1]-Low[L2])/(L2-L1)*L2);//HORIZONTAL LOW LINE HEIGHT CALCULATION ObjectSet("HLL_"+Step,OBJPROP_STYLE,St); ObjectSet("HLL_"+Step,OBJPROP_COLOR,Col); ObjectSet("HLL_"+Step,OBJPROP_BACK,True);//Line added return(0); } //-------------------------------------------------------------------- string TakeProfitHighTD(int H1,int H2,int Step,int Col)/*Draw Buy TD Price Projection(s)*/ { int i,ii,j=0; string Comm=""; double kH,HC1,HC2,HC3,k,St; kH=(High[H2]-High[H1])/(H2-H1); while (NormalizeDouble(Point,j)==0)j++; k=0; for(i=H1;i>0;i--)if(Close[i]>High[H2]-kH*(H2-i)){k=High[H2]-kH*(H2-i);break;} if (k>0) { Comm=Comm+"UTD_Line ("+DoubleToStr(High[H2]-kH*H2,j)+") broken at "+DoubleToStr(k,j)+", uptargets:\n"; ii=Lowest(NULL,0,MODE_LOW,H2-i,i); HC1=High[H2]-kH*(H2-ii)-Low[ii]; HC2=High[H2]-kH*(H2-ii)-Close[ii]; ii=Lowest(NULL,0,MODE_CLOSE,H2-i,i); HC3=High[H2]-kH*(H2-ii)-Close[ii]; St=TrendLineStyle;/*Original STYLE_SOLID*/ } else { k=High[H2]-kH*H2; Comm=Comm+"UTD_Line ("+DoubleToStr(k,j)+"), probable break-up targets:\n"; ii=Lowest(NULL,0,MODE_LOW,H2,0); HC1=High[H2]-kH*(H2-ii)-Low[ii]; HC2=High[H2]-kH*(H2-ii)-Close[ii]; ii=Lowest(NULL,0,MODE_CLOSE,H2,0); HC3=High[H2]-kH*(H2-ii)-Close[ii]; St=TrendLineStyle;/*Original STYLE_DASHDOT*/ } ObjectSet("HL_"+Step,OBJPROP_STYLE,St); Comm=Comm+"T1="+DoubleToStr(HC1+k,j)+" ("+DoubleToStr(HC1/Point,0)+"pts.)\n";//changed "pts.)" to "pts.)\n" //Comm=Comm+" T2="+DoubleToStr(HC2+k,j)+" ("+DoubleToStr(HC2/Point,0)+"pts.)"; //Comm=Comm+" T3="+DoubleToStr(HC3+k,j)+" ("+DoubleToStr(HC3/Point,0)+"pts.)\n"; ObjectSet("HC1_"+Step,OBJPROP_TIME1,Time[H1]);ObjectSet("HC1_"+Step,OBJPROP_TIME2,Time[0]); ObjectSet("HC1_"+Step,OBJPROP_PRICE1,HC1+k);ObjectSet("HC1_"+Step,OBJPROP_PRICE2,HC1+k); ObjectSet("HC1_"+Step,OBJPROP_COLOR,Col);ObjectSet("HC1_"+Step,OBJPROP_STYLE,St); //ObjectSet("HC2_"+Step,OBJPROP_TIME1,Time[H1]);ObjectSet("HC2_"+Step,OBJPROP_TIME2,Time[0]); //ObjectSet("HC2_"+Step,OBJPROP_PRICE1,HC2+k);ObjectSet("HC2_"+Step,OBJPROP_PRICE2,HC2+k); //ObjectSet("HC2_"+Step,OBJPROP_COLOR,Col);ObjectSet("HC2_"+Step,OBJPROP_STYLE,St); //ObjectSet("HC3_"+Step,OBJPROP_TIME1,Time[H1]);ObjectSet("HC3_"+Step,OBJPROP_TIME2,Time[0]); //ObjectSet("HC3_"+Step,OBJPROP_PRICE1,HC3+k);ObjectSet("HC3_"+Step,OBJPROP_PRICE2,HC3+k); //ObjectSet("HC3_"+Step,OBJPROP_COLOR,Col);ObjectSet("HC3_"+Step,OBJPROP_STYLE,St); if (Step==1) { ObjectSet("HC1_"+Step,OBJPROP_WIDTH,ProjectionLinesWidth);/*Original OBJPROP_WIDTH,2*/ ObjectSet("HC1_"+Step,OBJPROP_STYLE,ProjectionLinesStyle);/*This Line of code added from original. TD Upper Projection Line Style*/ // ObjectSet("HC2_"+Step,OBJPROP_WIDTH,2); // ObjectSet("HC3_"+Step,OBJPROP_WIDTH,2); } else { ObjectSet("HC1_"+Step,OBJPROP_WIDTH,2); // ObjectSet("HC2_"+Step,OBJPROP_WIDTH,2); // ObjectSet("HC3_"+Step,OBJPROP_WIDTH,2); } return(Comm); } //-------------------------------------------------------------------- string TakeProfitLowTD(int L1,int L2,int Step,int Col)/*Draw Sell TD Price Projection(s)*/ { int i,ii,j=0; string Comm=""; double kL,LC1,LC2,LC3,k,St; kL=(Low[L1]-Low[L2])/(L2-L1); while (NormalizeDouble(Point,j)==0)j++; k=0; for(i=L1;i>0;i--)if(Close[i]0) { Comm=Comm+"LTD_Line ("+DoubleToStr(Low[L2]+kL*L2,j)+") broken at "+DoubleToStr(k,j)+", downtargets:\n"; ii=Highest(NULL,0,MODE_HIGH,L2-i,i); LC1=High[ii]-(Low[L2]+kL*(L2-ii)); LC2=Close[ii]-(Low[L2]+kL*(L2-ii)); i=Highest(NULL,0,MODE_CLOSE,L2-i,i); LC3=Close[ii]-(Low[L2]+kL*(L2-ii)); St=TrendLineStyle;/*Original STYLE_SOLID*/ } else { k=Low[L2]+kL*L2; Comm=Comm+"LTD_Line ("+DoubleToStr(k,j)+"), probable downbreak targets:\n"; ii=Highest(NULL,0,MODE_HIGH,L2,0); LC1=High[ii]-(Low[L2]+kL*(L2-ii)); LC2=Close[ii]-(Low[L2]+kL*(L2-ii)); ii=Highest(NULL,0,MODE_CLOSE,L2,0); LC3=Close[ii]-(Low[L2]+kL*(L2-ii)); St=TrendLineStyle;/*Original STYLE_DASHDOT*/ } ObjectSet("LL_"+Step,OBJPROP_STYLE,St); Comm=Comm+"T1="+DoubleToStr(k-LC1,j)+" ("+DoubleToStr(LC1/Point,0)+"pts.)\n";//changed "pts.)" to "pts.)\n" //Comm=Comm+" T2="+DoubleToStr(k-LC2,j)+" ("+DoubleToStr(LC2/Point,0)+"pts.)"; //Comm=Comm+" T3="+DoubleToStr(k-LC3,j)+" ("+DoubleToStr(LC3/Point,0)+"pts.)\n"; ObjectSet("LC1_"+Step,OBJPROP_TIME1,Time[L1]);ObjectSet("LC1_"+Step,OBJPROP_TIME2,Time[0]); ObjectSet("LC1_"+Step,OBJPROP_PRICE1,k-LC1);ObjectSet("LC1_"+Step,OBJPROP_PRICE2,k-LC1); ObjectSet("LC1_"+Step,OBJPROP_COLOR,Col);ObjectSet("LC1_"+Step,OBJPROP_STYLE,St); //ObjectSet("LC2_"+Step,OBJPROP_TIME1,Time[L1]);ObjectSet("LC2_"+Step,OBJPROP_TIME2,Time[0]); //ObjectSet("LC2_"+Step,OBJPROP_PRICE1,k-LC2);ObjectSet("LC2_"+Step,OBJPROP_PRICE2,k-LC2); //ObjectSet("LC2_"+Step,OBJPROP_COLOR,Col);ObjectSet("LC2_"+Step,OBJPROP_STYLE,St); //ObjectSet("LC3_"+Step,OBJPROP_TIME1,Time[L1]);ObjectSet("LC3_"+Step,OBJPROP_TIME2,Time[0]); //ObjectSet("LC3_"+Step,OBJPROP_PRICE1,k-LC3);ObjectSet("LC3_"+Step,OBJPROP_PRICE2,k-LC3); //ObjectSet("LC3_"+Step,OBJPROP_COLOR,Col);ObjectSet("LC3_"+Step,OBJPROP_STYLE,St); if (Step==1) { ObjectSet("LC1_"+Step,OBJPROP_WIDTH,ProjectionLinesWidth);/*Original OBJPROP_WIDTH,2*/ ObjectSet("LC1_"+Step,OBJPROP_STYLE,ProjectionLinesStyle);/*This Line of code added from original. TD Lower Projection Line Style*/ //ObjectSet("LC2_"+Step,OBJPROP_WIDTH,2); //ObjectSet("LC3_"+Step,OBJPROP_WIDTH,2); } else { ObjectSet("LC1_"+Step,OBJPROP_WIDTH,2); //ObjectSet("LC2_"+Step,OBJPROP_WIDTH,2); //ObjectSet("LC3_"+Step,OBJPROP_WIDTH,2); } return(Comm); } //-------------------------------------------------------------------- string TDMain(int Step) { int H1,H2,L1,L2; string Comm="--- step "+Step+" --------------------\n"; int i,j; while (NormalizeDouble(Point,j)==0)j++; double Style; double Col[20];Col[0]=UpperProjectionLineColour/*Original Col[0]=Red, Colour for Current Upper TD Projection*/;Col[2]=Magenta;Col[4]=Chocolate;Col[6]=Goldenrod;Col[8]=SlateBlue; Col[1]=LowerProjectionLineColour/*Original Col[1]=Blue, Colour for Current Lower TD Projection*/;Col[3]=FireBrick;Col[5]=Green;Col[7]=MediumOrchid;Col[9]=CornflowerBlue; Col[10]=Red;Col[12]=Magenta;Col[14]=Chocolate;Col[16]=Goldenrod;Col[18]=SlateBlue; Col[11]=Blue;Col[13]=FireBrick;Col[15]=Green;Col[17]=MediumOrchid;Col[19]=CornflowerBlue; Step=Step+BackSteps; H1=GetHighTD(Step); H2=GetNextHighTD(H1); L1=GetLowTD(Step); L2=GetNextLowTD(L1); TrendLineBreakUp=High[H2]-(High[H2]-High[H1])/(H2-H1)*H2;//added line TrendLineBreakDown=Low[L2]+(Low[L1]-Low[L2])/(L2-L1)*L2;//added line if (H1<0)Comm=Comm+"UTD no TD up-point \n"; else if (H2<0)Comm=Comm+"UTD no TD point-upper then last one ("+DoubleToStr(High[H1],j)+")\n"; else Comm=Comm+"UTD "+DoubleToStr(High[H2],j)+" "+DoubleToStr(High[H1],j)+"\n"; if (L1<0)Comm=Comm+"LTD no TD down-point \n"; else if (L2<0)Comm=Comm+"LTD no TD point-lower then last one ("+DoubleToStr(Low[L1],j)+")\n"; else Comm=Comm+"LTD "+DoubleToStr(Low[L2],j)+" "+DoubleToStr(Low[L1],j)+"\n"; //----------------------------------------------------------------------------------- if (Step==1)Style=STYLE_SOLID; else Style=STYLE_DOT; if (H1>0 && H2>0) { if (TrendLine==1) { ObjectCreate("HL_"+Step,OBJ_TREND,0,0,0,0,0); TrendLineHighTD(H1,H2,Step,Col[Step*2-2]); } else ObjectDelete("HL_"+Step); if (HorizontLine==1 && Step==1) { ObjectCreate("HHL_"+Step,OBJ_HLINE,0,0,0,0,0); ObjectSet("HHL_"+Step,OBJPROP_BACK,True);//Line added HorizontLineHighTD(H1,H2,Step,Style,Col[Step*2-2]); } else ObjectDelete("HHL_"+Step); if (ProjectionLines==1) { ObjectCreate("HC1_"+Step,OBJ_TREND,0,0,0,0,0); ObjectCreate("HC2_"+Step,OBJ_TREND,0,0,0,0,0); ObjectCreate("HC3_"+Step,OBJ_TREND,0,0,0,0,0); Comm=Comm+TakeProfitHighTD(H1,H2,Step,Col[Step*2-2]); } else { ObjectDelete("HC1_"+Step); ObjectDelete("HC2_"+Step); ObjectDelete("HC3_"+Step); } } //----------------------------------------------------------------------------------- if (L1>0 && L2>0) { if (TrendLine==1) { ObjectCreate("LL_"+Step,OBJ_TREND,0,0,0,0,0); TrendLineLowTD(L1,L2,Step,Col[Step*2-1]); } else ObjectDelete("LL_"+Step); if (HorizontLine==1 && Step==1) { ObjectCreate("HLL_"+Step,OBJ_HLINE,0,0,0,0,0); ObjectSet("HLL_"+Step,OBJPROP_BACK,True);//Line added HorizontLineLowTD(L1,L2,Step,Style,Col[Step*2-1]); } else ObjectDelete("HLL_"+Step); if (ProjectionLines==1) { ObjectCreate("LC1_"+Step,OBJ_TREND,0,0,0,0,0); ObjectCreate("LC2_"+Step,OBJ_TREND,0,0,0,0,0); ObjectCreate("LC3_"+Step,OBJ_TREND,0,0,0,0,0); Comm=Comm+TakeProfitLowTD(L1,L2,Step,Col[Step*2-1]); } else { ObjectDelete("LC1_"+Step); ObjectDelete("LC2_"+Step); ObjectDelete("LC3_"+Step); } } //-------------------------------------------------------------------- if(AlertsOn)//added this Alerts section { //Print("Alerts On"); if(Close[0]>TrendLineBreakUp && TrendLineBreakUpFlag==False) { //Print("Upper TrendLine Break ",Symbol()," ",Period()," ",Bid); Alert("UTL Break>",TrendLineBreakUp," on ",Symbol()," ",Period()," @ ",Bid); TrendLineBreakUpFlag=True; } if(Close[0]10) { Comment("ShowingSteps readings 0 - 10"); return(0); } for (int i=1;i<=ShowingSteps;i++)Comm=Comm+TDMain(i); Comm=Comm+"------------------------------------\nShowingSteps="+ShowingSteps+"\nBackSteps="+BackSteps; if (FractalAsTD==true)Comm=Comm+"\nFractals"; else Comm=Comm+"\nTD point"; if (Comments==1)Comment(Comm); else Comment(""); return(0); } //+------------------------------------------------------------------+