主图指标 mt4指标类型：震荡指标 是否能用在mt4手机版上：否 是否含有未来函数：无 //------------------------------------------------------------------/ // 软滂赅蝾-耦忮蝽桕, 铖眍忄睇 磬 蝈铕梃 腻爨痍 漕镱腠屙扈 // 奏耱 觐溧 忡蜞 桤 桧滂赅蝾疣 Ind-TD-DeMark-3-1.mq4 [Kara //------------------------------------------------------------------/ #property copyright \"GreenDog\" #property link \"[email protected]\" // v2.3 #property indicator_chart_window #property indicator_buffers 2 #property indicator_color1 Red #property indicator_color2 Blue extern int showBars=200; // 羼腓 = 0, 蝾 桧濑 铗钺疣驵弪 潆 怦邈 沭圄桕 extern int LevDP=3; // 箴钼屙 蝾麇 溴爨痍; 2 = 鲥眚疣朦睇 徉 狍溴 恹(龛驽) 2 徉痤 耠邂 2 徉痤 耧疣忄 extern int qSteps=1; // 觐腓麇耱忸 铗钺疣驵屐 泐, 礤 犷脲 3 extern int BackStep=0; // 觐腓麇耱忸 泐 磬玎 extern int startBar=0; // 羼腓 0, 蝾 疱觐戾礓圉梃 潆 蝈牦泐 徉疣, 羼腓 1 - 蝾 潆 镳邃镱豚汔屐钽 耠邃簋泐 徉疣 extern bool TrendLine=true; // false = 腓龛 蝠屙溧 礤 狍溴 extern bool HorizontLine=true; // true = 蝾 狍潴 镳铕桉钼囗 箴钼龛 镳钺栩 extern bool ChannelLine=true; // true = 耱痤栩 镟疣脲朦眍 腓龛 蝠屙溧 赅磬臌 extern bool TakeLines=true; // true = 蝾 痂耋屐 箴钼龛 蝈殛 extern bool Comments=true; // true = 狍潴 铗钺疣驵螯 觐祆屙蜞痂 extern int Trend=0; // 1 = 蝾朦觐 潆 UpTrendLines, -1 = 蝾朦觐 潆 DownTrendLines, 0 = 潆 怦艴 TrendLines double Buf1; double Buf2; string Col={\"署囫磬\",\"谚\",\"蓄珙忄\",\"妙塍徉\",\"暑痂黜邂\",\"燕豚蝽\"}; int ColNum={Red,DarkBlue,Coral,DodgerBlue,SaddleBrown,MediumSeaGreen}; int qPoint=0; // 镥疱戾眄 潆 眍痨嚯桤圉梃 鲥睇 int qBars; double qTime=0; // 镥疱戾眄 潆 腓赈桎圉梃 汶钼 镳 玎沭箸赍 int init() { qBars=Bars; qSteps=MathMin(3,qSteps); while (NormalizeDouble(Point,qPoint)==0)qPoint++; int code=161; string Rem=\"DLines GameOver\"; IndicatorShortName(Rem); SetIndexStyle(0,DRAW_ARROW); SetIndexStyle(1,DRAW_ARROW); SetIndexArrow(0,code); SetIndexArrow(1,code); SetIndexBuffer(0,Buf1); SetIndexBuffer(1,Buf2); SetIndexEmptyValue(0,0.0); SetIndexEmptyValue(1,0.0); SetIndexLabel(0,Rem); SetIndexLabel(1,Rem); return(0); } int deinit() { Comment(\"\"); ArrayInitialize(Buf1,0.0); ArrayInitialize(Buf2,0.0); for(int i=1;i<=LevDP;i++){ ObjectDelete(\"HA_\"+i);ObjectDelete(\"LA_\"+i); ObjectDelete(\"HL_\"+i);ObjectDelete(\"LL_\"+i); ObjectDelete(\"HHL_\"+i);ObjectDelete(\"HLL_\"+i); ObjectDelete(\"HCL_\"+i);ObjectDelete(\"LCL_\"+i); for(int j=0;j<4;j++) {ObjectDelete(\"HTL_\"+i+j);ObjectDelete(\"LTL_\"+i+j);} } } int start(){ if (qBars!=Bars){ deinit(); Sleep(1000); qBars=Bars; qTime=0; return(0);} if (qTime==Time[0]) return(0); qTime=Time[0]; // 玎矬耜噱鲟 蝾赅 磬 1 蜩赍 // 玎镱腠桦 铗钺疣玷腓 蝾麝 溴爨痍 if (showBars==0) showBars=Bars-LevDP; for (int cnt=showBars;cnt>LevDP;cnt--) { Buf1[cnt]=DemHigh(cnt,LevDP); Buf2[cnt]=DemLow(cnt,LevDP); } string Comm; Comm=\"髓龛 蝠屙溧[\"+On(TrendLine)+\"]; 枢磬 [\"+On(ChannelLine)+ \"]; 羽钼屙 镳钺 [\"+On(HorizontLine)+\"]; 皱腓 [\"+On(TakeLines)+\"]\\n\"; for(cnt=1;cnt<=qSteps;cnt++) Comm=Comm+(TDMain(cnt)); Comm=Comm+\"棗棗 GameOver 棗棗\"; if (Comments==true) Comment(Comm); return(0); } string TDMain(int Step){ int H1,H2,L1,L2,qExt,i,col; double tmp,qTL,qLevel,HT[4],LT[4]; bool isHitch; string Comm=\"粭粭 剜 \"+Step+\" 桤 \"+qSteps+\" (BackStep \"+BackStep+\")\\n\",Text,Rem,qp; // 潆 DownTrendLines if (Trend<=0){ Comm=Comm+\" \"+Col[Step*2-2]+\" DownTrendLine \"; col=ColNum[Step*2-2]; H1=GetTD(Step+BackStep,Buf1); H2=GetNextHighTD(H1); qTL=(High[H2]-High[H1])/(H2-H1); qExt=Lowest(NULL,0,MODE_LOW,H2-H1-1,H1+1); // 腩赅朦睇 扈龛祗 戾驿 蝾麝囔 qLevel=High[H2]-qTL*(H2); if (Step+BackStep==1) qLevel=qLevel-qTL*startBar; if (H1<0 || H2<0) Comm=Comm+\"磬 沭圄桕 礤漕耱囹铟眍 蝾麇 潆 镱耱痤屙峸渀\"; else { Comm=Comm+\"[\"+DoubleToStr(High[H2],qPoint)+\"\"+DoubleToStr(High[H1],qPoint)+\"]\"; Comm=Comm+\"; Level \"+DoubleToStr(qLevel,qPoint); if (Step+BackStep==1) { if (startBar>0) Comm=Comm+\"; Future Bar \"+UpHitch(-1,qLevel); else Comm=Comm+\"; Last Bar \"+UpHitch(startBar,qLevel); } Comm=Comm+\"\\n\"; // 理嚯桤 - 猁 腓 镳钺铋 蝠屙漕忸 腓龛 i=H1;isHitch=false;Text=\"\"; while(i>0 && isHitch==false){ tmp=High[H2]-qTL*(H2-i); Rem=\"HA_\"+Step; if (High>tmp){ qp=UpHitch(i,tmp); if (qp!=\"\"){ isHitch=true; Text=Text+\"锐. \"+DoubleToStr(tmp,qPoint)+\" \"+qp; ObjectCreate(Rem,OBJ_ARROW,0,0,0,0,0); ObjectSet(Rem,OBJPROP_COLOR,col); ObjectSet(Rem,OBJPROP_PRICE1,Low-Point); ObjectSet(Rem,OBJPROP_TIME1,Time); ObjectSet(Rem,OBJPROP_ARROWCODE,241); while(i>0){ // 镳钺铋 铗戾礤, 羼腓 镱耠 镳钺 猁 眍恹 腩 桦 玎牮拣 龛驽 i--; if (Low=0){ Comm=Comm+\" \"+Col[Step*2-1]+\" UpTrendLine \"; col=ColNum[Step*2-1]; L1=GetTD(Step+BackStep,Buf2); L2=GetNextLowTD(L1); qTL=(Low[L1]-Low[L2])/(L2-L1); qExt=Highest(NULL,0,MODE_HIGH,L2-L1-1,L1+1); // 腩赅朦睇 扈龛祗 戾驿 蝾麝囔 qLevel=Low[L2]+qTL*L2; if (Step+BackStep==1) qLevel=qLevel+qTL*startBar; if (L1<0 || L2<0) Comm=Comm+\"磬 沭圄桕 礤漕耱囹铟眍 蝾麇 潆 镱耱痤屙峸渀\"; else { Comm=Comm+\"[\"+DoubleToStr(Low[L2],qPoint)+\"\"+DoubleToStr(Low[L1],qPoint)+\"]\"; Comm=Comm+\"; Level \"+DoubleToStr(qLevel,qPoint); if (Step+BackStep==1) { if (startBar>0) Comm=Comm+\"; Future Bar \"+DownHitch(-1,qLevel); else Comm=Comm+\"; Last Bar \"+DownHitch(startBar,qLevel); } Comm=Comm+\"\\n\"; // 理嚯桤 - 猁 腓 镳钺铋 蝠屙漕忸 腓龛 i=L1;isHitch=false;Text=\"\"; while(i>0 && isHitch==false){ tmp=Low[L2]+qTL*(L2-i); Rem=\"LA_\"+Step; if (Low0){ // 镳钺铋 铗戾礤, 羼腓 镱耠 镳钺 猁 眍恹 踵 桦 玎牮拣 恹 i--; if (High>High[qExt] || Close>High[qExt]-(High[qExt]-Low[L1])*0.236){ Text=Text+\" (铗戾礤)\"; ObjectSet(Rem,OBJPROP_PRICE1,Low-Point); ObjectSet(Rem,OBJPROP_TIME1,Time); ObjectSet(Rem,OBJPROP_ARROWCODE,251); break; } } } else { Text=Text+\"祟. \"+DoubleToStr(tmp,qPoint)+\"; \"; ObjectDelete(Rem);} } i--; } if (Text==\"\") Text=\"橡钺 礤 猁腩.\"; Comm=Comm+Text+\"\\n\"; // end analysis Rem=\"LL_\"+Step; // 耦狁眍 腓龛 蝠屙溧 if (TrendLine==1) { ObjectCreate(Rem,OBJ_TREND,0,0,0,0,0); ObjectSet(Rem,OBJPROP_TIME1,Time[L2]);ObjectSet(Rem,OBJPROP_TIME2,Time[L1]); ObjectSet(Rem,OBJPROP_PRICE1,Low[L2]);ObjectSet(Rem,OBJPROP_PRICE2,Low[L1]); ObjectSet(Rem,OBJPROP_COLOR,col); ObjectSet(Rem,OBJPROP_WIDTH,3-MathMin(2,Step)); } else ObjectDelete(Rem); Rem=\"HLL_\"+Step; // 箴钼屙 镳钺 腓龛 蝠屙溧 if (HorizontLine && (Step+BackStep)==1){ ObjectCreate(Rem,OBJ_HLINE,0,0,0,0,0); ObjectSet(Rem,OBJPROP_PRICE1,qLevel); ObjectSet(Rem,OBJPROP_COLOR,col); } else ObjectDelete(Rem); Rem=\"LCL_\"+Step; // 腓龛 赅磬豚 if (ChannelLine){ ObjectCreate(Rem,OBJ_TREND,0,0,0,0,0); ObjectSet(Rem,OBJPROP_TIME1,Time[qExt]);ObjectSet(Rem,OBJPROP_TIME2,Time[0]); ObjectSet(Rem,OBJPROP_PRICE1,High[qExt]);ObjectSet(Rem,OBJPROP_PRICE2,High[qExt]+qTL*qExt); ObjectSet(Rem,OBJPROP_COLOR,col); } else ObjectDelete(Rem); Rem=\"LTL_\"+Step; if (TakeLines){ // 腓龛 鲥脲 LT[3]=qLevel-High[qExt]+(High[qExt]-Low[L1])*1.618; // 漕 箴钼屙 LT[0]=High[qExt]-qTL*(L2-qExt)-Low[L2]; LT[1]=Close[qExt]-qTL*(L2-qExt)-Low[L2]; qExt=Highest(NULL,0,MODE_CLOSE,L2-L1,L1); LT[2]=Close[qExt]-qTL*(L2-qExt)-Low[L2]; Comm=Comm+\"皱腓: \"; for(i=0;i<4;i++){ qTL=NormalizeDouble(qLevel-LT,qPoint); ObjectCreate(Rem+i,OBJ_HLINE,0,0,0,0,0); ObjectSet(Rem+i,OBJPROP_PRICE1,qTL); ObjectSet(Rem+i,OBJPROP_STYLE,STYLE_DOT); ObjectSet(Rem+i,OBJPROP_COLOR,col); Comm=Comm+DoubleToStr(qTL,qPoint)+\" (\"+DoubleToStr(LT/Point,0)+\".) \"; } Comm=Comm+\"\\n\"; } else { for(i=0;i<4;i++) ObjectDelete(Rem+i); } } } return(Comm); } int GetTD(int P, double Arr){ int i=0,j=0; while(jshowBars-2)return(-1);} j++;} return (i); } int GetNextHighTD(int P){ int i=P+1; while(Buf1<=High[P]){i++;if(i>showBars-2)return(-1);} return (i); } int GetNextLowTD(int P){ int i=P+1; while(Buf2>=Low[P] || Buf2==0){i++;if(i>showBars-2)return(-1);} return (i); } // 疱牦瘃桠磬 镳钼屦赅 磬 篑腩忤 腻爨痍 (踵), 忸玮疣弪 珥圜屙桢 桦 0 double DemHigh(int cnt, int sh){ if (High[cnt]>=High[cnt+sh] && High[cnt]>High[cnt-sh]) { if (sh>1) return(DemHigh(cnt,sh-1)); else return(High[cnt]); } else return(0); } // 疱牦瘃桠磬 镳钼屦赅 磬 篑腩忤 腻爨痍 (腩), 忸玮疣弪 珥圜屙桢 桦 0 double DemLow(int cnt, int sh){ if (Low[cnt]<=Low[cnt+sh] && Low[cnt]1) return(DemLow(cnt,sh-1)); else return(Low[cnt]); } else return(0); } string On(bool On){ if (On) return(\"玛\"); else return(\"蔓觌\"); } string UpHitch(int P, double qLevel){ // 铒疱溴脲龛 赈嚯梏桕囹铕钼 镳铕 忖屦 string Comm=\"\"; if (Close[P+1]=0 && Open[P]>qLevel) Comm=Comm+\" 2\"; if (2*Close[P+1]-Low[P+1]Close[P+2]) Comm=Comm+\" 1\"; if (P>=0 && Open[P]qLevel) Comm=Comm+\" 3\"; if (Comm!=\"\") Comm=\"[ 殊.橡:\"+Comm+\" ]\"; return(Comm); }

谢谢分享

韬客新版

谢谢分享

謝謝分享