KD报警求助!!!
网上看到一个思路很好的报警指标, 但是有一个问题,报不了警, 请高手帮忙看一看, 非常感谢!
以下内容为转载:
KDJ提醒器 0.5
我自己写的KDJ提醒器。
它可以设置两个时间框架（Timeframe）及KDJ指标（实际上使用的不是KDJ指标而是MT4自带的Stochastic指标）的相关参数，当KDJ在两个时间框架上同时出现低位金叉或高位死叉时，将会向你发现提示信息。在选择入场点时，KDJ出现低位金叉或高位死叉是一个非常不错的判断方法。
相关参数说明：
p_RefTimeframe1：参考时间框架1，默认值：PERIOD_M5 （即5分钟图）
p_RefTimeframe2：参数时间框架2，默认值：PERIOD_M15（即15分钟图）
p_CareCrossType：所关心的交叉点类型（1-关注金叉,-1-关注死叉,0-不关注任何交叉,相当于暂停处理)，默认值：1
p_TopLimit：死叉时,KD的值必须高于这个值（即需要高位死叉）
p_BottomLimit：金叉时,KD的值必须底于这个值（即需要低位金叉）
p_Kperiod：KDJ指标的%K周期，默认值：8
p_Dperiod：KDJ指标的%D周期，默认值：5
p_Slowing：慢线周期，默认值：3
p_MessageboxAlarm：出现条件时，是否弹出消息提示对象框，默认值：true
p_SendMailAlarm：是否发邮件提示消息，默认值：false
我在中国移动可以申请一个手机邮箱，并开通了邮件到达通知功能，这样我把p_SendMailAlarm参数设置成true，于是这个“邮件提示”就变成了“短信提示”，非常好用。
源代码如下：
//+------------------------------------------------------------------+
//| KDJ交叉信号告警.mq4 |
//| Jesse Loo |
//| |
//+------------------------------------------------------------------+
//** KDJ交叉信号告警 **
//当KDJ出现指定的金叉或死叉时发出告警
//Version: 0.50
//Date: 2007.01.25
//修改记录:
#property copyright "Jesse Loo"
#property link ""
string EA_FLAG = "EA_KDJ_0.50"; //自动交易程序的标志
// **** 外部参数 ****
extern int p_RefTimeframe1 = PERIOD_M5; //参考时间框架1
extern int p_RefTimeframe2 = PERIOD_M15; //参考时间框架2
extern int p_CareCrossType = 1; //所关心的交叉点类型(1-关注金叉,-1-关注死叉,
//0-不关注任何交叉,相当于暂停处理)
extern int p_TopLimit = 20; //死叉时,KDJ的值必须高于这个值
extern int p_BottomLimit = 80; //金叉时,KDJ的值必须底于这个值
extern int p_Kperiod = 8; //%K周期
extern int p_Dperiod = 5; //%D周期
extern int p_Slowing = 3; //慢线周期
extern bool p_MessageboxAlarm = true; //弹出消息提示
extern bool p_SendMailAlarm = false; //发送邮件提示信息
// **** 全局变量 ****
datetime g_dtLastCrossTime = 0; //前一次告警的最后一个交叉点的出现时间
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init()
{
if (GlobalVariableCheck("KDJCross_ForceSendMailAlarm") &&
MathAbs(GlobalVariableGet("KDJCross_ForceSendMailAlarm")) > 0.9999)
{
Print("KDJCross_ForceSendMailAlarm = true");
}
else
{
Print("KDJCross_ForceSendMailAlarm = false");
}
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
return(0);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
int nRef1CrossType = 0;
datetime dtRef1CrossTime = 0;
int nRef2CrossType = 0;
datetime dtRef2CrossTime = 0;
datetime dtLastCrossTime = 0;
if (p_RefTimeframe1 > 0)
{
//在参考时间框架1寻找第一个交叉点
nRef1CrossType = FindKDJCross(dtRef1CrossTime, p_RefTimeframe1, p_Kperiod, p_Dperiod, p_Slowing);
if (nRef1CrossType != -999 && dtRef1CrossTime >dtLastCrossTime)
{
dtLastCrossTime = dtRef1CrossTime;
}
}
if (p_RefTimeframe2 > 0)
{
//在参考时间框架2寻找第一个交叉点
nRef2CrossType = FindKDJCross(dtRef2CrossTime, p_RefTimeframe2, p_Kperiod, p_Dperiod, p_Slowing);
if (nRef1CrossType != -999 && dtRef2CrossTime >dtLastCrossTime)
{
dtLastCrossTime = dtRef2CrossTime;
}
}
if ((nRef1CrossType == p_CareCrossType && nRef2CrossType == 0) ||
(nRef1CrossType == p_CareCrossType && nRef2CrossType == p_CareCrossType))
{
if (dtLastCrossTime > g_dtLastCrossTime)
{
//告警条件达到,发出告警
string strAlarmMsg = Symbol() + ",KDJ cross " + nRef1CrossType + " be detected!";
Print("KDJ Cross Alarm: ", strAlarmMsg);
bool bGlobalSendMailAlarm = false;
if (GlobalVariableCheck("KDJCross_ForceSendMailAlarm") &&
MathAbs(GlobalVariableGet("KDJCross_ForceSendMailAlarm")) > 0.9999)
{
bGlobalSendMailAlarm = true;
}
if (p_SendMailAlarm || bGlobalSendMailAlarm)
{
SendMail("Alarm: " + strAlarmMsg, "Alarm happened: " + strAlarmMsg);
}
if (p_MessageboxAlarm)
{
MessageBox(strAlarmMsg, "Alarm");
}
g_dtLastCrossTime = dtLastCrossTime;
}
}
return(0);
}
//功能:寻找KDJ指示最近的一个交叉点类型
//参数:
// dtCross - [out]返回交叉点的时间
//返回:
// 若是金叉则返回1,若是死叉则返回-1,没有找到时(如数据不足)则返回-999
int FindKDJCross(datetime &dtCross, int nTimeframe, int nKperiod, int nDperiod, int nSlowing)
{
int nResult = -999;
int nCrossValue = -1;
int i;
int nBarsCount = iBars(NULL, nTimeframe) - 30;
for (i = 0; i < nBarsCount; i++)
{
int nMain1 = iStochastic(NULL, nTimeframe, nKperiod, nDperiod, nSlowing, MODE_SMA, 0, MODE_MAIN, i);
int nMain2 = iStochastic(NULL, nTimeframe, nKperiod, nDperiod, nSlowing, MODE_SMA, 0, MODE_MAIN, i + 1);
int nSignal1 = iStochastic(NULL, nTimeframe, nKperiod, nDperiod, nSlowing, MODE_SMA, 0, MODE_SIGNAL, i);
int nSignal2 = iStochastic(NULL, nTimeframe, nKperiod, nDperiod, nSlowing, MODE_SMA, 0, MODE_SIGNAL, i + 1);
if (nMain2 <= nSignal2 && nMain1 >= nSignal1)
{
//金叉
nResult = 1;
nCrossValue = nMain1;
break;
}
else if (nMain2 >= nSignal2 && nMain1 <= nSignal1)
{
//死叉
nResult = -1;
nCrossValue = nMain1;
break;
}
}
//Print(nTimeframe, " , ", nResult, ",nCrossValue=", nCrossValue, ",p_TopLimit=",p_TopLimit,",p_BottomLimit=",p_BottomLimit);
if (nResult == 1 && nCrossValue > p_BottomLimit)
{
//金叉位置太高,需要忽略之
nResult = -999;
}
if (nResult == -1 && nCrossValue < p_TopLimit)
{
//死叉位置太低,需要忽略之
nResult = -999;
}
if (nResult != -999)
{
dtCross = iTime(NULL, nTimeframe, i);
//Print("In timeframe ", nTimeframe, " Cross ", nResult, " happened at ", TimeToStr(dtCross, TIME_DATE|TIME_MINUTES|TIME_SECONDS));
}
//没有找到交叉点
return (nResult);
}
//+------------------------------------------------------------------+
