主图指标 mt4指标类型：趋势指标 是否能用在mt4手机版上：否 是否含有未来函数：无 //+------------------------------------------------------------------+ //| FiboRetracement.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 //#property indicator_buffers 7 #property indicator_buffers 0 #property indicator_color1 Black #property indicator_color2 Black #property indicator_color3 Black #property indicator_color4 Black #property indicator_color5 Black #property indicator_color6 Black #property indicator_color7 Black #property indicator_color8 Black //---- input parameters extern int TimeFrame=5; extern int nLeft=8; extern int nRight=8; extern int filter=10; //extern int TimeFrame=60; //extern int nLeft=50; //extern int nRight=50; //extern int filter=10; extern color Fibo1Color=DodgerBlue; extern int Fibo1Width=1; extern color Fibo2Color=Yellow; extern int Fibo2Width=1; //---- buffers double UpBuffer; double DnBuffer; double f_2; double f_3; double f_4; double f_5; double f_6; string fibo,fibo2; //---- int draw_begin1=0, draw_begin2=0, d_b3=0; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { double nfUp; //---- indicators IndicatorBuffers(8); SetIndexStyle(0,DRAW_LINE,0,3); SetIndexStyle(1,DRAW_LINE,0,3); SetIndexStyle(2,DRAW_LINE,2); SetIndexStyle(3,DRAW_LINE,2); SetIndexStyle(4,DRAW_LINE,2); SetIndexStyle(5,DRAW_LINE,2); SetIndexStyle(6,DRAW_LINE,2); SetIndexBuffer(0,UpBuffer); SetIndexBuffer(1,DnBuffer); SetIndexBuffer(2,f_2); SetIndexBuffer(3,f_3); SetIndexBuffer(4,f_4); SetIndexBuffer(5,f_5); SetIndexBuffer(6,f_6); fibo="Fibo "+TimeFrame; fibo2="Fibo2 "+TimeFrame; //---- name for DataWindow and indicator subwindow label string short_name; //钺?怆屙桢 镥疱戾眄铋 short_name 蜩镟 "耱痤觐恹?" //镥疱戾眄铋 short_name 镳桉忄桠噱? 耱痤觐忸? 珥圜屙桢 疣忭铄 恹疣驽龛? // short_name="rvmFractalsLevel("+nLeft+","+nRight+","+filter+")"; short_name="Davo_LBR_FibFan("+nLeft+","+nRight+","+filter+")"; IndicatorShortName(short_name); //潆? 铗钺疣驽龛? 磬 沭圄桕? 镳桉忸桁 桧滂赅蝾痼 牮囹觐? //磬桁屙钼囗桢 //潆? 铗钺疣驽龛? 磬 沭圄桕? 镳桉忸桁 戾蜿? 铗钺疣驵　彘 珥圜屙?? 0 狍翦疣 桁? Up Channel SetIndexLabel(0,"Up Level ("+nLeft+","+nRight+","+filter+")"); //潆? 铗钺疣驽龛? 磬 沭圄桕? 镳桉忸桁 戾蜿? 铗钺疣驵　彘 珥圜屙?? 1 狍翦疣 桁? Down Channel SetIndexLabel(1,"Down Level ("+nLeft+","+nRight+","+filter+")"); SetIndexLabel(2,"f_2 ("+nLeft+","+nRight+","+filter+")"); SetIndexLabel(3,"f_3 ("+nLeft+","+nRight+","+filter+")"); SetIndexLabel(4,"f_4 ("+nLeft+","+nRight+","+filter+")"); SetIndexLabel(5,"f_5 ("+nLeft+","+nRight+","+filter+")"); SetIndexLabel(6,"f_6 ("+nLeft+","+nRight+","+filter+")"); //---- 卿羼? 铒疱溴腓? 磬鬣朦睇? 蝾麝? 潆? 镳铕桉钼觇 桧滂赅蝾疣 int n,k,i,Range=nLeft+nRight+1; //镥疱徨疱? 疋鬻觇 铗 (怦邈? 疋鬻尻 扈眢? 扈龛祗? 疋鬻尻 耠邂?) 漕 (扈龛祗? 疋鬻尻 耧疣忄) for(n=iBars(NULL,TimeFrame)-1-nLeft;n>=nRight;n--) { //忮瘐龛? 麴嚓蜞臌 //羼腓 磬鬣腩 铗痂耦怅? 忮瘐礤泐 箴钼?? 礤 铒疱溴脲眍 if(draw_begin1==0) { //蝈牦　? 疋鬻? 爨犟桁箪 磬 腩赅朦眍? 镳铎彐篁赍? if(iHigh(NULL,TimeFrame,n)>=iLow(NULL,TimeFrame,Highest(NULL,TimeFrame,MODE_HIGH,Range,n-nRight))) { int fRange=nvnLeft(n,nLeft)+nvnRight(n,nRight)+1; //羼腓 铐? 驽 - 麴嚓蜞? if(iHigh(NULL,TimeFrame,n)>=iHigh(NULL,TimeFrame,Highest(NULL,TimeFrame,MODE_HIGH,fRange,n-nvnRight(n,nRight)))) { draw_begin1=iBars(NULL,TimeFrame)-n;//磬鬣腩 铗痂耦怅? 忮瘐礤泐 箴钼?? 铒疱溴脲眍 for(i=iBars(NULL,TimeFrame)-1;i>draw_begin1;i--) { UpBuffer=iHigh(NULL,TimeFrame,iBars(NULL,TimeFrame)-draw_begin1); } } }//觐礤? 溴轳蜮栝 羼腓 if(iHigh(NULL,TimeFrame,n)>=iHigh(NULL,TimeFrame,Highest(NULL,TimeFrame,MODE_HIGH,Range,n-nRight))=桉蜩磬 }//觐礤? 篑腩忤? if(draw_begin1==0) //龛骓桢 麴嚓蜞臌 //羼腓 磬鬣腩 铗痂耦怅? 龛骓邈? 箴钼?? 礤 铒疱溴脲眍 if(draw_begin2==0) { //蝈牦　? 疋鬻? 扈龛祗? 磬 腩赅朦眍? 镳铎彐篁赍? if(iLow(NULL,TimeFrame,n)<=iLow(NULL,TimeFrame,Lowest(NULL,TimeFrame,MODE_LOW,Range,n-nRight))) { fRange=nvnLeft(n,nLeft)+nvnRight(n,nRight)+1; //羼腓 铐? 驽 - 麴嚓蜞? if(iLow(NULL,TimeFrame,n)<=iLow(NULL,TimeFrame,Lowest(NULL,TimeFrame,MODE_HIGH,fRange,n-nvnRight(n,nRight)))) { draw_begin2=iBars(NULL,TimeFrame)-n;//磬鬣腩 铗痂耦怅? 龛骓邈? 箴钼?? 铒疱溴脲眍 for(i=iBars(NULL,TimeFrame)-1;i>draw_begin2;i--) { DnBuffer=iLow(NULL,TimeFrame,iBars(NULL,TimeFrame)-draw_begin2); } } }//觐礤? 篑腩忤? if(iLow(NULL,TimeFrame,n)<=iLow(NULL,TimeFrame,Lowest(NULL,TimeFrame,MODE_LOW,Range,n-nRight)))=true }//觐礤? 篑腩忤? if(draw_begin2==0) //羼腓 钺? 磬鬣豚 铗痂耦怅? 箴钼礤? 铒疱溴脲睇, 恹躅滂? 桤 鲨觌? for(n=iBars(NULL,TimeFrame)-1-nLeft;n>=nRight;n--) if(draw_begin1>0&&draw_begin2>0) break; }//觐礤? 鲨觌? for(n=iBars(NULL,TimeFrame)-1-nLeft;n>=nRight;n--) //---- if(draw_begin1>draw_begin2) { d_b3=draw_begin1; } else { d_b3=draw_begin2; } SetIndexDrawBegin(0,draw_begin1); //篑蜞眍怅? 磬鬣朦眍? 蝾麝? 镳铕桉钼觇 潆? 0 狍翦疣 SetIndexDrawBegin(1,draw_begin2); //篑蜞眍怅? 磬鬣朦眍? 蝾麝? 镳铕桉钼觇 潆? 1 狍翦疣 SetIndexDrawBegin(2,d_b3); SetIndexDrawBegin(3,d_b3); SetIndexDrawBegin(4,d_b3); SetIndexDrawBegin(5,d_b3); SetIndexDrawBegin(6,d_b3); //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { double UpStage=0.0,DnStage=0.0; int i,j,fRange,Range=nLeft+nRight+1; int counted_bars=IndicatorCounted(); //---- //镥疱徼疣屐 疋鬻觇 铗 (iBars(NULL,TimeFrame)-counted_iBars(NULL,TimeFrame)-nLeft) 漕 (nRight) 怅膻麒蝈朦眍 for(i=iBars(NULL,TimeFrame)-1-counted_bars-nLeft;i>=nRight;i--) { //羼腓 疋鬻? 腩赅朦睇? 爨犟桁箪 if(iHigh(NULL,TimeFrame,i)>=iHigh(NULL,TimeFrame,Highest(NULL,TimeFrame,MODE_HIGH,Range,i-nRight))) { //Print(TimeToStr(iTime(NULL,TimeFrame,i)), "******祟赅朦睇? 爨犟桁箪"); fRange=nvnLeft(i,nLeft)+nvnRight(i,nRight)+1; //羼腓 铐? 驽 - 麴嚓蜞? if(iHigh(NULL,TimeFrame,i)>=iHigh(NULL,TimeFrame,Highest(NULL,TimeFrame,MODE_HIGH,fRange,i-nvnRight(i,nRight)))) { UpStage=iHigh(NULL,TimeFrame,i); //Print(" 铐? 驽 麴嚓蜞?"); } else { if(iHigh(NULL,TimeFrame,i)<=UpBuffer[i+1]) { UpStage=UpBuffer[i+1]; //Print(" 礤 麴嚓蜞?, 眍 龛驽 镳邃　簌邈? 箴钼??"); } else { UpStage=nfUp(i); //Print(" 礤 麴嚓蜞?, 恹　 镳邃　簌邈? 箴钼??"); } } } else { //Print(TimeToStr(iTime(NULL,TimeFrame,i)), "******礤 腩赅朦睇? 爨犟桁箪"); if(iHigh(NULL,TimeFrame,i)<=UpBuffer[i+1]) { UpStage=UpBuffer[i+1]; //Print(" 龛驽 镳邃　簌邈? 箴钼??"); } else { UpStage=nfUp(i); //Print(" 恹　 镳邃　簌邈? 箴钼??"); } } //羼腓 疋鬻? 腩赅朦睇? 扈龛祗? if(iLow(NULL,TimeFrame,i)<=iLow(NULL,TimeFrame,Lowest(NULL,TimeFrame,MODE_LOW,Range,i-nRight))) { fRange=nvnLeft(i,nLeft)+nvnRight(i,nRight)+1; //Print(TimeToStr(iTime(NULL,TimeFrame,i))," ",nvnLeft(i,nLeft)," ",nvnRight(i,nRight)+1); //羼腓 铐? 驽 - 麴嚓蜞? if(iLow(NULL,TimeFrame,i)<=iLow(NULL,TimeFrame,Lowest(NULL,TimeFrame,MODE_HIGH,fRange,i-nvnRight(i,nRight)))) { DnStage=iLow(NULL,TimeFrame,i); } else { if(iLow(NULL,TimeFrame,i)>=DnBuffer[i+1]) { DnStage=DnBuffer[i+1]; } else { DnStage=nfDn(i); } } } else { if(iLow(NULL,TimeFrame,i)>=DnBuffer[i+1]) { DnStage=DnBuffer[i+1]; } else { DnStage=nfDn(i); } } UpBuffer=UpStage; DnBuffer=DnStage; //---- 疣聍弪 铖蜞朦睇? 狍翦痤? // f_2=NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)/6,4); // f_3=NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)/3,4); // f_4=NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)/2,4); // f_5=NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)*2/3,4); // f_6=NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)*5/6,4); f_2=NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)/6,4); f_3=NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)/3,4); f_4=NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)/2,4); f_5=NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)*2/3,4); f_6=NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)*5/6,4); }//觐礤? 鲨觌? for(i=iBars(NULL,TimeFrame)-counted_bars-nLeft;i>=nRight;i--) for(i=nRight-1;i>=0;i--) { if(iHigh(NULL,TimeFrame,i)<=UpBuffer[i+1]) { UpStage=UpBuffer[i+1]; } else { UpStage=nfUp(i); } if(iLow(NULL,TimeFrame,i)>=DnBuffer[i+1]) { DnStage=DnBuffer[i+1]; } else { DnStage=nfDn(i); } UpBuffer=UpStage; DnBuffer=DnStage; //---- 疣聍弪 铖蜞朦睇? 狍翦痤? // f_2 =NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)/6,4); // f_3 =NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)/3,4); // f_4 =NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)/2,4); // f_5 =NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)*2/3,4); // f_6 =NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)*5/6,4); f_2 =NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)/6,4); f_3 =NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)/3,4); f_4 =NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)/2,4); f_5 =NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)*2/3,4); f_6 =NormalizeDouble(DnBuffer+(UpBuffer-DnBuffer)*5/6,4); } //---- 镱耱痤屙桢 忮屦? 澡犷磬鼢? double LastUp, LastDn, st_h, st_l, st_3, y1, y2, y3; int tmp, x1=0, x2=0, x3=0, cb, dn_x, up_x; LastDn=DnBuffer[0]; for(cb=1;cb<=iBars(NULL,TimeFrame)-1;cb++) { if(tmp!=1 && LastDn>DnBuffer[cb]) { tmp=1; continue; } if(tmp==1 && DnBuffer[cb]>DnBuffer[cb-1]) { tmp=0; dn_x=cb-1; break; } } LastUp=UpBuffer[0]; for(cb=1;cb<=iBars(NULL,TimeFrame)-1;cb++) { if(tmp!=1 && LastUp=0;cb--) { if(iHigh(NULL,TimeFrame,cb)==st_h || iLow(NULL,TimeFrame,cb)==st_l) { if(iHigh(NULL,TimeFrame,cb)==st_h && (x1==0 || x2==0) ) { if(x1==0) { x1=cb; y1=iHigh(NULL,TimeFrame,x1); continue; } else { x2=cb; y2=iHigh(NULL,TimeFrame,x2); break; } } else { if(x1==0) { x1=cb; y1=iLow(NULL,TimeFrame,x1); continue; } else { x2=cb; y2=iLow(NULL,TimeFrame,x2); break; } } } } //Print("x1="+x1+" y1="+y1+" x2="+x2+" y2="+y2); if( ObjectFind(fibo)!=-1 ) { ObjectSet(fibo,OBJPROP_TIME1,iTime(NULL,TimeFrame,x1)); ObjectSet(fibo,OBJPROP_PRICE1,y1); ObjectSet(fibo,OBJPROP_TIME2,iTime(NULL,TimeFrame,x2)); ObjectSet(fibo,OBJPROP_PRICE2,y2); } else { ObjectCreate(fibo,OBJ_FIBOFAN,0,iTime(NULL,TimeFrame,x1),y1,iTime(NULL,TimeFrame,x2),y2); ObjectSet(fibo,OBJPROP_COLOR,Fibo1Color); ObjectSet(fibo,OBJPROP_STYLE,STYLE_DOT); ObjectSet(fibo,OBJPROP_WIDTH,Fibo1Width); } //----- ? 　? 铗痂耦怅? 怦镱祛汔蝈朦眍泐 忮屦? 翳犷磬鼢? if(y2>y1) { st_3=iLow(NULL,TimeFrame,Lowest(NULL,TimeFrame,MODE_LOW,x2,0)); } else { st_3=iHigh(NULL,TimeFrame,Highest(NULL,TimeFrame,MODE_HIGH,x2,0)); } for(cb=0;cby1 && iLow(NULL,TimeFrame,cb)==st_3) { x3=cb; y3=iLow(NULL,TimeFrame,cb); break; } else { if(y20) { if(iClose(NULL,TimeFrame,i)<=UpBuffer[l]+(UpBuffer[l]-DnBuffer[l])*filter/100) { Price=UpBuffer[l]; flag=1; //Print(TimeToStr(iTime(NULL,TimeFrame,i))," ",l," ",Bars," ",Price," ",UpBuffer[l)); } } else { if(iHigh(NULL,TimeFrame,i)<=UpBuffer[l]) { Price=UpBuffer[l]; flag=1; } } if(Price>0) break; } if(flag==0) Price=iHigh(NULL,TimeFrame,i); return(Price); } double nfDn(int i) { int l,flag=0; double Price=0.0; for(l=i+1;l0) { if(iClose(NULL,TimeFrame,i)>=DnBuffer[l]-(UpBuffer[l]-DnBuffer[l])*filter/100) { Price=DnBuffer[l]; flag=1; } } else { if(iLow(NULL,TimeFrame,i)>=DnBuffer[l]) { Price=DnBuffer[l]; flag=1; } } if(Price>0) break; } if(flag==0) Price=iLow(NULL,TimeFrame,i); return(Price); } int nvnLeft(int i,int n) { int k=0,l; for(l=i+1;l<=iBars(NULL,TimeFrame)-1;l++) { if(iHigh(NULL,TimeFrame,l)iLow(NULL,TimeFrame,l+1)) continue; k++; if(k==n) { k=l-i; break; } } return(k); } int nvnRight(int i,int n) { int k=0,l; for(l=i-1;l>=0;l--) { if(iHigh(NULL,TimeFrame,l)iOpen(NULL,TimeFrame,l+1)) continue; k++; if(k==n) { k=i-l; break; } } return(k); } int deinit() { ObjectDelete(fibo); ObjectDelete(fibo2); return(0); } FiboFan_8.jpg

阅尽天下指标

谢楼主的分享