MT4软件---监控多周期趋势面板指标源码001-2
想要找一些外汇MT4的指标，附有源码，交易的时候可以辅助，编写指标的时候可以参考学习，想改善的时候，可以编辑。
指标
INFOBOARD ：信息面板
FRACTAL TREND 的意思是“分形趋势”。
在技术分析中，分形是一种指示价格反转或形成趋势的重要图形模式。它由一系列连续的高低点组成，具有特定的结构和形态。
分形通常用于识别市场的趋势和关键转折点。当价格形成新的高点或低点时，分形图形会在价格图表上绘制出来。这些分形图形可以帮助交易者判断市场走势的方向和可能的逆转点。
FRACTAL TREND 是指利用分形模式来识别和跟踪市场的趋势。通过分析和比较不同时间周期的分形模式，交易者可以确定市场的长期趋势和短期波动，并基于这些信息做出相应的交易决策。
源 码
#property copyright "艾云策略"
#property link "微信/QQ:289876878"
#property indicator_chart_window
#import "user32.dll"
int PostMessageW(int hWnd,int Msg,int wParam,int lParam);
int RegisterWindowMessageW(string lpString);
#import
extern string Version_140="微信/QQ:289876878";
extern int Corner=1;
extern int Offset_X = 1;
extern int Offset_Y = 21;
extern bool All_Other_Objects_To_Background=true;
extern int Days_For_ATR=100;
extern bool Show_Symbol_and_Timeframe=1;
extern bool Show_Price_and_Spread=1;
extern bool Show_Time_and_Tick = 1;
extern bool Show_Fractal_Trend = 1;
extern bool Show_Average_Hi_Lo = 1;
extern bool Show_Today_Hi_Lo=1;
extern bool Show_Hi_Lo_to_Spread=1;
extern bool Show_Current_Bar_Hi_Lo=1;
extern bool Show_Previous_Bar_Hi_Lo=1;
extern bool Show_Tickvalue = 1;
extern bool Show_Stoplevel = 1;
extern bool Show_Swap=1;
extern color Background_Color=C'40,40,40';
extern color Text_Color=C'220,220,220';
extern color Text_Label_Color=C'120,120,120';
extern color Up_Color=Green;
extern color Middle_Color=Yellow;
extern color Down_Color=Red;
double old_price,old_spread;
string timeframe;
string tick="n";
int di,po,ti;
string info_font="Verdana";
int info_fontsize=8;
int tf[]={1,5,15,30,60,240,1440};
string tf_label[]={"M1","M5","M15","M30","H1","H4","D1"};
int tf_lab_ofset[]={4,4,2,2,4,4,4};
int xp[4],yo[10],lo[3];
int x,y,ofs_sema=23;;
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int init()
{
int ylen=3;
int TitleX,TitleY,WebX,WebY,extend_board,offset_col;
int symlen=StringLen(Symbol());
if(All_Other_Objects_To_Background)
{
int hwnd=WindowHandle(Symbol(),Period());
int msg=RegisterWindowMessageW("MetaTrader4_Internal_Message");
PostMessageW(hwnd,msg,2,1);
}
if(Show_Symbol_and_Timeframe)
{
if(symlen>7)
{
extend_board=symlen-6;
offset_col=symlen*5;
}
ylen+=3;
}
if(Show_Price_and_Spread) ylen+=3;
if(Show_Time_and_Tick) ylen+=3;
if(Show_Fractal_Trend) ylen+=4;
if(Show_Average_Hi_Lo) ylen+=1;
if(Show_Today_Hi_Lo) ylen+=1;
if(Show_Hi_Lo_to_Spread) ylen+=1;
if(Show_Current_Bar_Hi_Lo) ylen+=1;
if(Show_Previous_Bar_Hi_Lo) ylen+=1;
if(Show_Tickvalue) ylen+=1;
if(Show_Stoplevel) ylen+=1;
if(Show_Swap) ylen+=2;
if(Corner>3) Corner=1;
switch(Corner)
{
case 0: x = Offset_X;
y = Offset_Y;
TitleX = x+42;
TitleY = y+3;
WebX = x+60;
WebY = y+21;
xp[0] = x+132+offset_col;
xp[1] = x+10;
xp[2] = x+10;
xp[3] = x+123;
yo[0] = y+40;
yo[1] = 14;
yo[2] = 26;
yo[3] = 6;
yo[4] = 0;
yo[5] = 10;
yo[6] = 14;
yo[7] = 24;
yo[8] = 45;
yo[9] = 14;
lo[0] = -32;
lo[1] = -28;
lo[2] = 10;
CreateBox("XBoard_Main",x,y,14+extend_board,ylen);
break;
case 1: x = Offset_X;
y = Offset_Y;
TitleX = x+42;
TitleY = y+3;
WebX = x+60;
WebY = y+21;
xp[0] = x+10;
xp[1] = x+80;
xp[2] = x+74;
xp[3] = x+10;
yo[0] = y+40;
yo[1] = 14;
yo[2] = 26;
yo[3] = 6;
yo[4] = 0;
yo[5] = 10;
yo[6] = 14;
yo[7] = 24;
yo[8] = 45;
yo[9] = 14;
lo[0] = -32;
lo[1] = -28;
lo[2] = 10;
CreateBox("XBoard_Main",x,y,14+extend_board,ylen);
ArraySetAsSeries(tf,true);
ArraySetAsSeries(tf_label,true);
ArraySetAsSeries(tf_lab_ofset,true);
break;
case 2: x = Offset_X;
y = Offset_Y-(25-ylen)*14;
TitleX = x+42;
TitleY = y+3+330;
WebX = x+60;
WebY = y+325;
xp[0] = x+132+offset_col;
xp[1] = x+10;
xp[2] = x+10;
xp[3] = x+123;
yo[0] = y+295;
yo[1] = -30;
yo[2] = -10;
yo[3] = 9;
yo[4] = 12;
yo[5] = -29;
yo[6] = -300;
yo[7] = -4;
yo[8] = -28;
yo[9] = -14;
lo[0] = 24;
lo[1] = 22;
lo[2] = -11;
CreateBox("XBoard_Main",x,y+(25-ylen)*14,14+extend_board,ylen);
break;
case 3: x = Offset_X;
y = Offset_Y-(25-ylen)*14;
TitleX = x+42;
TitleY = y+3+330;
WebX = x+60;
WebY = y+325;
xp[0] = x+10;
xp[1] = x+80;
xp[2] = x+75;
xp[3] = x+10;
yo[0] = y+295;
yo[1] = -30;
yo[2] = -10;
yo[3] = 9;
yo[4] = 12;
yo[5] = -29;
yo[6] = -300;
yo[7] = -4;
yo[8] = -28;
yo[9] = -14;
lo[0] = 24;
lo[1] = 22;
lo[2] = -11;
CreateBox("XBoard_Main",x,y+(25-ylen)*14,14+extend_board,ylen);
ArraySetAsSeries(tf,true);
ArraySetAsSeries(tf_label,true);
ArraySetAsSeries(tf_lab_ofset,true);
break;
}
switch(Period())
{
case 1 : timeframe = "M1"; break;
case 5 : timeframe = "M5"; break;
case 15 : timeframe = "M15"; break;
case 30 : timeframe = "M30"; break;
case 60 : timeframe = "H1"; break;
case 240 : timeframe = "H4"; break;
case 1440 : timeframe = "D1"; break;
case 10080 : timeframe = "W1"; break;
case 43200 : timeframe = "MN1"; break;
default : timeframe = Period()+" Min"; break;
}
switch(Digits)
{
case 0: di = 0; po = 1; ti = 1; break;
case 1: di = 1; po = 1; ti = 10; break;
case 2: di = 0; po = 100; ti = 1; break;
case 3: di = 1; po = 100; ti = 10; break;
case 4: di = 0; po = 10000; ti = 1; break;
case 5: di = 1; po = 10000; ti = 10; break;
default: di= Digits;
}
CreateText("XBoard_Title",TitleX,TitleY,"INFOBOARD",11,"Arial Black",Text_Color);
CreateText("XBoard_Web",WebX,WebY,"微信/QQ:289876878",7,"Arial",Text_Color);
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int deinit()
{
for(int i=ObjectsTotal(); i>=0; i--)
{
if(StringSubstr(ObjectName(i),0,7)=="XBoard_")
{
ObjectDelete(ObjectName(i));
}
}
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
int i,c,a;
double uplevel,dolevel,new_price,new_spread,avg;
if(All_Other_Objects_To_Background)
{
for(i=ObjectsTotal(); i>=0; i--)
{
if(StringSubstr(ObjectName(i),0,7)!="XBoard_")
{
ObjectSet(ObjectName(i),OBJPROP_BACK,1);
}
}
}
y=yo[0];
for(a=1; a<11; a++) CreateText("XBoard_Line1"+"_"+a,a*16+x-3,y+lo[0],"_",20,"Verdana",Text_Label_Color);
if(Show_Symbol_and_Timeframe)
{
CreateText("XBoard_Tf",xp[0],y,timeframe,16,"Verdana",Text_Color);
CreateText("XBoard_Symbol",xp[1],y,Symbol(),16,"Verdana",Text_Color);
y+=yo[2];
CreateText("XBoard_Tf_label",xp[0],y,"TF",6,"Verdana",Text_Label_Color);
CreateText("XBoard_Symbol_label",xp[1],y,"SYMBOL",6,"Verdana",Text_Label_Color);
y+=yo[1];
}
if(Show_Price_and_Spread)
{
new_price=Bid;
if(old_price<new_price)
{
CreateText("XBoard_Price",xp[1],y,DoubleToStr(new_price,Digits),16,"Verdana",Up_Color);
} else if(old_price>new_price) {
CreateText("XBoard_Price",xp[1],y,DoubleToStr(new_price,Digits),16,"Verdana",Down_Color);
} else {
CreateText("XBoard_Price",xp[1],y,DoubleToStr(new_price,Digits),16,"Verdana",Middle_Color);
}
old_price=new_price;
new_spread=(Ask-Bid)*po;
if(old_spread<new_spread)
{
CreateText("XBoard_Spread",xp[0],y,DoubleToStr(new_spread,di),16,"Verdana",Up_Color);
} else if(old_spread>new_spread) {
CreateText("XBoard_Spread",xp[0],y,DoubleToStr(new_spread,di),16,"Verdana",Down_Color);
} else {
CreateText("XBoard_Spread",xp[0],y,DoubleToStr(new_spread,di),16,"Verdana",Middle_Color);
}
old_spread=new_spread;
y+=yo[2];
CreateText("XBoard_Spread_label",xp[0],y,"SPREAD",6,"Verdana",Text_Label_Color);
CreateText("XBoard_Price_label",xp[1],y,"BID PRICE",6,"Verdana",Text_Label_Color);
y+=yo[1];
}
if(Show_Time_and_Tick)
{
CreateText("XBoard_Tick",xp[0],y,tick,18,"Wingdings",Text_Color);
datetime closetime=Time[0]+(Time[0]-Time[1])-TimeCurrent();
string TimeRemain = TimeToStr(closetime,TIME_SECONDS);
if(TimeRemain=="invalid time" || StringFind(TimeRemain,"-",0)>=0 || StringLen(TimeRemain)==0 || TimeRemain==" ")
{
TimeRemain= "Waiting...";
}
CreateText("XBoard_Time",xp[1],y,TimeRemain,16,"Verdana",Text_Color);
if(tick=="n")
{
tick= "o";
} else {
tick="n";
}
y+=yo[2];
CreateText("XBoard_Tick_label",xp[0],y,"TICK",6,"Verdana",Text_Label_Color);
CreateText("XBoard_Time_label",xp[1],y,"TIME REMAIN",6,"Verdana",Text_Label_Color);
y+=yo[1];
}
if(Show_Symbol_and_Timeframe || Show_Price_and_Spread || Show_Time_and_Tick)
{
for(a=1; a<11; a++) CreateText("XBoard_Line2"+"_"+a,a*16+x-3,y+lo[1],"_",20,"Verdana",Text_Label_Color);
y+=yo[3];
} else {
y+=yo[4];
}
if(Show_Fractal_Trend)
{
CreateText("XBoard_Fractal_label",x+57,y,"FRACTAL TREND",6,"Verdana",Text_Label_Color);
y+=yo[5];
for(i=0; i<7; i++)
{
CreateText("XBoard_Segment_"+i,x+16+ofs_sema*i,y,CharToStr(108),20,"Wingdings",Gray);
CreateText("XBoard_Segment_Label_"+i,x+16+tf_lab_ofset[i]+ofs_sema*i,y+yo[7],tf_label[i],6,"Verdana",Text_Label_Color);
for(c=3; c<200; c++)
{
if(iHigh(Symbol(),tf[i],c) >= iHigh(Symbol(),tf[i],c+1) &&
iHigh(Symbol(),tf[i],c) >= iHigh(Symbol(),tf[i],c+2) &&
iHigh(Symbol(),tf[i],c) >= iHigh(Symbol(),tf[i],c-1) &&
iHigh(Symbol(),tf[i],c) >= iHigh(Symbol(),tf[i],c-2))
break;
}
uplevel=iHigh(Symbol(),tf[i],c);
for(c=3; c<200; c++)
{
if(iLow(Symbol(),tf[i],c) <= iLow(Symbol(),tf[i],c+1) &&
iLow(Symbol(),tf[i],c) <= iLow(Symbol(),tf[i],c+2) &&
iLow(Symbol(),tf[i],c) <= iLow(Symbol(),tf[i],c-1) &&
iLow(Symbol(),tf[i],c) <= iLow(Symbol(),tf[i],c-2))
break;
}
dolevel=iLow(Symbol(),tf[i],c);
if(Bid<dolevel) ObjectSet("XBoard_Segment_"+i,OBJPROP_COLOR,Down_Color);
if(Bid>=dolevel && Bid<=uplevel) ObjectSet("XBoard_Segment_"+i,OBJPROP_COLOR,Middle_Color);
if(Bid>uplevel) ObjectSet("XBoard_Segment_"+i,OBJPROP_COLOR,Up_Color);
}
for(a=1; a<11; a++) CreateText("XBoard_Line3"+"_"+a,a*16+x-3,y+lo[2],"_",20,"Verdana",Text_Label_Color);
y+=yo[8];
}
if(Show_Average_Hi_Lo)
{
for(i=1; i<=Days_For_ATR; i++)
{
avg+=iHigh(Symbol(),1440,i)-iLow(Symbol(),1440,i);
}
double PrevHiLo=(avg/Days_For_ATR)*po;
CreateText("XBoard_ATR",xp[3],y,DoubleToStr(PrevHiLo,di),info_fontsize,"Verdana",Text_Color);
CreateText("XBoard_ATR_label",xp[2],y,Days_For_ATR+" Days ATR:",info_fontsize,"Verdana",Text_Color);
y+=yo[9];
}
if(Show_Today_Hi_Lo)
{
double TodayHiLo=(iHigh(Symbol(),1440,0)-iLow(Symbol(),1440,0))*po;
CreateText("XBoard_TodayHiLo",xp[3],y,DoubleToStr(TodayHiLo,di),info_fontsize,"Verdana",Text_Color);
CreateText("XBoard_TodayHiLo_label",xp[2],y,"Today Hi-Lo:",info_fontsize,"Verdana",Text_Color);
y+=yo[9];
}
if(Show_Hi_Lo_to_Spread)
{
double HiLoToSpread=PrevHiLo/NormalizeDouble((Ask-Bid)*po,di);
CreateText("XBoard_ATRToSpread",xp[3],y,DoubleToStr(HiLoToSpread,2)+"X",info_fontsize,"Verdana",Text_Color);
CreateText("XBoard_ATRToSpread_label",xp[2],y,"ATR/Spread Ratio:",info_fontsize,"Verdana",Text_Color);
y+=yo[9];
}
if(Show_Current_Bar_Hi_Lo)
{
double BarHiLo=(High[0]-Low[0])*po;
CreateText("XBoard_CurrentBarHiLo",xp[3],y,DoubleToStr(BarHiLo,di),info_fontsize,"Verdana",Text_Color);
CreateText("XBoard_CurrentBarHiLo_label",xp[2],y,"Current Bar Hi-Lo:",info_fontsize,"Verdana",Text_Color);
y+=yo[9];
}
if(Show_Previous_Bar_Hi_Lo)
{
double PrevBarHiLo=(High[1]-Low[1])*po;
CreateText("XBoard_PrevBarHiLo",xp[3],y,DoubleToStr(PrevBarHiLo,di),info_fontsize,"Verdana",Text_Color);
CreateText("XBoard_PrevBarHiLo_label",xp[2],y,"Prev Bar Hi-Lo:",info_fontsize,"Verdana",Text_Color);
y+=yo[9];
}
if(Show_Tickvalue)
{
CreateText("XBoard_Tickvalue",xp[3],y,DoubleToStr(MarketInfo(Symbol(),MODE_TICKVALUE)*ti,3),info_fontsize,"Verdana",Text_Color);
CreateText("XBoard_Tickvalue_label",xp[2],y,"Tickvalue:",info_fontsize,"Verdana",Text_Color);
y+=yo[9];
}
if(Show_Stoplevel)
{
CreateText("XBoard_Stoplevel",xp[3],y,DoubleToStr(MarketInfo(Symbol(),MODE_STOPLEVEL),3),info_fontsize,"Verdana",Text_Color);
CreateText("XBoard_Stoplevel_label",xp[2],y,"Stoplevel:",info_fontsize,"Verdana",Text_Color);
y+=yo[9];
}
if(Show_Swap)
{
CreateText("XBoard_SwapLong",xp[3],y,DoubleToStr(MarketInfo(Symbol(),MODE_SWAPLONG),Digits),info_fontsize,"Verdana",Text_Color);
CreateText("XBoard_SwapLong_label",xp[2],y,"Swap Long:",info_fontsize,"Verdana",Text_Color);
y+=yo[9];
CreateText("XBoard_SwapShort",xp[3],y,DoubleToStr(MarketInfo(Symbol(),MODE_SWAPSHORT),Digits),info_fontsize,"Verdana",Text_Color);
CreateText("XBoard_SwapShort_label",xp[2],y,"Swap Short:",info_fontsize,"Verdana",Text_Color);
}
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void CreateText(string label,int posx,int posy,string text,int fontsize,string font,color fontcolor)
{
ObjectDelete(label);
ObjectCreate(label,OBJ_LABEL,0,0,0);
ObjectSet(label,OBJPROP_CORNER,Corner);
ObjectSet(label,OBJPROP_XDISTANCE,posx);
ObjectSet(label,OBJPROP_YDISTANCE,posy);
ObjectSet(label,OBJPROP_BACK,false);
ObjectSetText(label,text,fontsize,font,fontcolor);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void CreateBox(string name,int xpos,int ypos,int xsize,int ysize)
{
for(int a=0; a<xsize; a++)
{
for(int b=0; b<ysize; b++)
{
CreateText(name+"_"+a+"_"+b,a*13+xpos,b*14+ypos,CharToStr(110),18,"Wingdings",Background_Color);
}
}
}
//+------------------------------------------------------------------+
分享链接:
