[MT4指标]Filter overWPR指标
附图指标,
mt4指标类型:趋势指标
是否能用在mt4手机版上:否
是否含有未来函数:无
//+------------------------------------------------------------------+
//| Filter overWPR.mq4 |
//| Copyright ? 2006, Indoforex Groups - Primajaya |
//| http://primaforex.blogspot.com |
//+------------------------------------------------------------------+
#property copyright "Copyright ? 2006, Indoforex Groups"
#property link "http://primaforex.blogspot.com"
//----
#property indicator_separate_window
#property indicator_minimum -0.05
#property indicator_maximum 1.00
#property indicator_buffers 4
#property indicator_color1 Red
#property indicator_color2 Blue
#property indicator_color3 SteelBlue
#property indicator_color4 Orange
//---- input parameters
extern int PeriodeStoch=14;
extern int PercentD=3;
extern int Smooth=5;
//---- indicator buffers
double UpBuffer1;
double DnBuffer1;
double UpBuffer2;
double DnBuffer2;
int prevColor=0;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
string short_name;
//---- indicator line
SetIndexStyle(0,DRAW_HISTOGRAM,STYLE_SOLID,2);
SetIndexStyle(1,DRAW_HISTOGRAM,STYLE_SOLID,2);
SetIndexStyle(2,DRAW_HISTOGRAM,STYLE_SOLID,2);
SetIndexStyle(3,DRAW_HISTOGRAM,STYLE_SOLID,2);
//---
SetIndexBuffer(0,UpBuffer1);
SetIndexBuffer(1,DnBuffer1);
SetIndexBuffer(2,UpBuffer2);
SetIndexBuffer(3,DnBuffer2);
IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS));
//---- name for DataWindow and indicator subwindow label
short_name="Primajaya overSTOCH("+PeriodeStoch+")";
IndicatorShortName(short_name);
SetIndexLabel(0,"Strong Bears");
SetIndexLabel(1,"Strong Bulls");
SetIndexLabel(2,"Potential to Bulls");
SetIndexLabel(3,"Potential to Bears");
//----
SetIndexDrawBegin(0,PeriodeStoch);
SetIndexDrawBegin(1,PeriodeStoch);
SetIndexDrawBegin(2,PeriodeStoch);
SetIndexDrawBegin(3,PeriodeStoch);
//----
return(0);
}
//+------------------------------------------------------------------+
//| ProSol Confirmation |
//+------------------------------------------------------------------+
int start()
{
int shift,trend;
double PK;
double PD;
//----
for(shift=Bars-PeriodeStoch-1;shift>=0;shift--)
{
PK=iStochastic(NULL, 0,PeriodeStoch,PercentD,Smooth,MODE_EMA,1,MODE_MAIN,shift);
PD=iStochastic(NULL, 0,PeriodeStoch,PercentD,Smooth,MODE_EMA,1,MODE_SIGNAL,shift);
//----
if (PK>20 && PK>PD && PK<40 && PD<40) trend=1;
if (PK<=20) trend=2;
if (PK<80 && PK60 && PD>60) trend=3;
if (PK>=80) trend=4;
if(shift==0 && prevColor!=0 && prevColor!=trend)
{
Alert(Symbol()+" ",Period()+" COLOR CHANGED");
prevColor=trend;
}
if(prevColor==0 && shift==0)
prevColor=trend;
if (trend==1)
{
UpBuffer1[shift]=0;
UpBuffer2[shift]=1;
DnBuffer1[shift]=0;
DnBuffer2[shift]=0;
}
if (trend==2)
{
UpBuffer1[shift]=1;
UpBuffer2[shift]=0;
DnBuffer1[shift]=0;
DnBuffer2[shift]=0;
}
if (trend==3)
{
UpBuffer1[shift]=0;
UpBuffer2[shift]=0;
DnBuffer1[shift]=0;
DnBuffer2[shift]=1;
}
if (trend==4)
{
UpBuffer1[shift]=0;
UpBuffer2[shift]=0;
DnBuffer1[shift]=1;
DnBuffer2[shift]=0;
}
}
//----
return(0);
}
//+------------------------------------------------------------------+
Filter_overWPR.jpg

发表于:2017-08-09 23:49只看该作者
2楼
韬客交易社区-国内最大的外汇交易社区
韬客社区www.talkfx.co
发表于:2018-02-20 14:58只看该作者
3楼
外汇交易社区
韬客社区www.talkfx.co