[转贴]KD报警求助!!!

xgokdw

新手上路

Rank: 1

1^# 大中小发表于 2008-8-5 08:19 只看该作者

[转贴]KD报警求助!!!

以下内容为转载:
8 ]' y, D8 e& D  K1 _" X
, q& N7 c( s" d! h: x
KDJ提醒器 0.5我自己写的KDJ提醒器。6 s/ E4 \2 B% t  t
它可以设置两个时间框架（Timeframe）及KDJ指标（实际上使用的不是KDJ指标而是MT4自带的Stochastic指标）的相关参数，当KDJ在两个时间框架上同时出现低位金叉或高位死叉时，将会向你发现提示信息。在选择入场点时，KDJ出现低位金叉或高位死叉是一个非常不错的判断方法。' B0 |8 {0 D% @% ~0 \
5 N- W$ V8 a% v3 P& Y
相关参数说明：
p_RefTimeframe1：参考时间框架1，默认值：PERIOD_M5 （即5分钟图）
p_RefTimeframe2：参数时间框架2，默认值：PERIOD_M15（即15分钟图）' n4 x  h. c# h$ R- |
p_CareCrossType：所关心的交叉点类型（1-关注金叉,-1-关注死叉,0-不关注任何交叉,相当于暂停处理)，默认值：1
% o! d+ S+ O1 z( o: B. d
p_TopLimit：死叉时,KD的值必须高于这个值（即需要高位死叉）8 a9 L. q0 `# k6 _! b; E0 w( L
p_BottomLimit：金叉时,KD的值必须底于这个值（即需要低位金叉）! S! H8 p- E. ^! ]$ T
9 a. D2 `8 ]) ^+ q
p_Kperiod：KDJ指标的%K周期，默认值：8! A( l6 n" o  }$ B# C; C8 @- x7 u
p_Dperiod：KDJ指标的%D周期，默认值：5
p_Slowing：慢线周期，默认值：3

p_MessageboxAlarm：出现条件时，是否弹出消息提示对象框，默认值：true
p_SendMailAlarm：是否发邮件提示消息，默认值：false1 }6 |- N# _3 ?+ S) d% B8 s# H' J

我在中国移动可以申请一个手机邮箱，并开通了邮件到达通知功能，这样我把p_SendMailAlarm参数设置成true，于是这个“邮件提示”就变成了“短信提示”，非常好用。  ~  y/ W# C( l6 m* |0 \9 ^

源代码如下：
//+------------------------------------------------------------------+$ e2 B. F0 J  R- U
//|                                           KDJ交叉信号告警.mq4 |
//|                                                       Jesse Loo |
//|                                                                |8 Z; U0 a5 u( S: ^. t% o3 B
//+------------------------------------------------------------------+6 E3 H  `. U* D( |2 @7 ?
//** KDJ交叉信号告警 **3 Y9 K1 G) C, m9 Z
//当KDJ出现指定的金叉或死叉时发出告警6 {3 Z& H; P# `+ Y3 O; ^, m
//Version: 0.50
//Date: 2007.01.25
//修改记录:
#property copyright "Jesse Loo"
#property link    ""
string EA_FLAG = "EA_KDJ_0.50";    //自动交易程序的标志% k, u* ?8 O  o2 b+ ~) e7 V7 z  c6 d: a
8 d$ h& J- F9 F
8 k* Z  M9 ?" |0 \. |; t' C# f
. y$ y  F: p0 ~) `0 O/ @
// **** 外部参数 ****
extern int  p_RefTimeframe1 = PERIOD_M5;  //参考时间框架1
extern int  p_RefTimeframe2 = PERIOD_M15; //参考时间框架2# Y6 F' j' c; M- d* X2 J$ K  E

extern int  p_CareCrossType = 1;       //所关心的交叉点类型(1-关注金叉,-1-关注死叉,
                                          //0-不关注任何交叉,相当于暂停处理)
7 d: E3 A7 R% ]* t, [0 p7 a
extern int  p_TopLimit       = 20;       //死叉时,KDJ的值必须高于这个值
extern int  p_BottomLimit    = 80;       //金叉时,KDJ的值必须底于这个值( v) A& v: A' f% l8 S
2 m8 f6 p! i7 k$ _8 A. N6 t
extern int  p_Kperiod       = 8;       //%K周期
extern int  p_Dperiod       = 5;       //%D周期
extern int  p_Slowing       = 3;       //慢线周期
1 `7 v* @6 Y3 |$ N
extern bool p_MessageboxAlarm  = true;    //弹出消息提示
extern bool p_SendMailAlarm = false;    //发送邮件提示信息

) M" N2 P: r+ `4 b; D

// **** 全局变量 ****
date g_dtLastCrossTime = 0;       //前一次告警的最后一个交叉点的出现时间

# E# u2 N& Q( }+ [: {

% R, T# r2 V0 E/ Q" c

( e( |1 |% a+ v7 k! O
//+------------------------------------------------------------------+
//| expert initialization function                                  |
//+------------------------------------------------------------------+- T* ]. ^% i) T- ^! q- i( u: i
int init()
{0 B  ?; y) z- W+ Y
if (GlobalVariableCheck("KDJCross_ForceSendMailAlarm") &&/ F2 Y' N- T; ]7 g% a+ d
   MathAbs(GlobalVariableGet("KDJCross_ForceSendMailAlarm")) > 0.9999)
{/ m0 H6 G5 C- ]" L  n1 Y4 T6 J
   Print("KDJCross_ForceSendMailAlarm = true");
}
else
{
   Print("KDJCross_ForceSendMailAlarm = false");% {0 }) A: \% w' q; D4 t
}

return(0);0 U+ l3 j$ L# A4 h1 y
}

7 x; o% G; _4 y, q3 }

//+------------------------------------------------------------------+
//| expert deinitialization function                               |
//+------------------------------------------------------------------+
int deinit()" l, o& O( G% ^1 N" R) x
{
. @) {3 R) S7 M; L% K% p6 U
return(0);$ N) q$ v. y2 F* Y8 i
}! A: A2 V" l4 h( ]9 I$ [

//+------------------------------------------------------------------+
//| expert start function                                           |
//+------------------------------------------------------------------+
int start()/ t+ w7 C5 ^- K8 K3 o$ _2 ]
{
int    nRef1CrossType = 0;
date dtRef1CrossTime = 0;

l1 ^$ m4 f6 z4 Z; @
int nRef2CrossType = 0;: Y4 w; w2 V) }1 c; T6 V' t
date dtRef2CrossTime = 0;

datetime dtLastCrossTime = 0;
, @0 _/ \9 p$ Z/ J4 @
if (p_RefTimeframe1 > 0)
{
   //在参考时间框架1寻找第一个交叉点' x. w- w% K" X+ I9 v/ p8 b
   nRef1CrossType = FindKDJCross(dtRef1CrossTime, p_RefTimeframe1, p_Kperiod, p_Dperiod, p_Slowing);

   if (nRef1CrossType != -999 && dtRef1CrossTime >dtLastCrossTime)
   {# z. A1 \8 X) }' {. m( P
      dtLastCrossTime = dtRef1CrossTime;
   }
}! \2 a. Z: ]7 _

if (p_RefTimeframe2 > 0)3 H3 L# A" U, [, J- D0 k
{% ?6 U6 D# G0 n5 q6 Z' K
   //在参考时间框架2寻找第一个交叉点& x& h: _0 v2 j7 H" ~+ k' A) U( j
   nRef2CrossType = FindKDJCross(dtRef2CrossTime, p_RefTimeframe2, p_Kperiod, p_Dperiod, p_Slowing);- c+ r4 U2 w) c0 C5 W
  ?; C! D6 r5 [- S5 y1 l8 q. f

   if (nRef1CrossType != -999 && dtRef2CrossTime >dtLastCrossTime)
   {2 A3 ^5 d+ I3 F7 \1 U9 T% N5 }; c
      dtLastCrossTime = dtRef2CrossTime;
   }
}
; Z, R$ y' y7 Y! P- u
if ((nRef1CrossType == p_CareCrossType && nRef2CrossType == 0) ||
   (nRef1CrossType == p_CareCrossType && nRef2CrossType == p_CareCrossType))
{. G! N8 d% @. V) C6 n9 t7 K
   if (dtLastCrossTime > g_dtLastCrossTime)
   {4 o8 D! ~5 m% ]. i3 e$ {; }
      //告警条件达到,发出告警
      string strAlarmMsg = Symbol() + ",KDJ cross " + nRef1CrossType + " be detected!";( w) f" T) Y/ f0 s8 e5 d
      % ]7 @: \1 V9 B9 v4 U
      Print("KDJ Cross Alarm: ", strAlarmMsg);
      6 X# i0 a3 c" K5 j
      bool bGlobalSendMailAlarm = false;- h7 M7 W) U( {. g$ q% I' G$ \3 t
      if (GlobalVariableCheck("KDJCross_ForceSendMailAlarm") &&
         MathAbs(GlobalVariableGet("KDJCross_ForceSendMailAlarm")) > 0.9999)
      {
         bGlobalSendMailAlarm = true;
      }
   . t) F' o6 O# z+ N" `4 t
      if (p_SendMailAlarm || bGlobalSendMailAlarm)2 V+ q5 {/ [0 T5 g8 c# l9 c) K2 }
      {$ ~3 a; v% w1 U; C4 b9 b: X
         SendMail("Alarm: " + strAlarmMsg, "Alarm happened: " + strAlarmMsg);" W4 Q- v/ B) T9 t+ r6 a! V
      }
      % D0 z7 o. b9 N5 c
      if (p_MessageboxAlarm)+ [: ?, s2 A8 h( Q
      {; [; K+ t! U3 H' Z: N" \
         MessageBox(strAlarmMsg, "Alarm");
      }


      g_dtLastCrossTime = dtLastCrossTime;
   }
}9 r0 o& @! n; _4 ~4 P/ @+ ?" E& J, i- R

return(0);
}# k7 \. L" U; L. C% v: l; {

//功能:寻找KDJ指示最近的一个交叉点类型- y9 _5 U' d- c) q# m
//参数:1 a! e, \! i( T
//  dtCross - [out]返回交叉点的时间
//返回:
//  若是金叉则返回1,若是死叉则返回-1,没有找到时(如数据不足)则返回-999( j4 G, _" X+ o+ P
int FindKDJCross(datetime &dtCross, int nTimeframe, int nKperiod, int nDperiod, int nSlowing)
{! e" S3 M% T1 F2 y& d
int nResult = -999;/ X4 z4 M7 Y2 T9 q9 h+ _( X
int nCrossValue = -1;% V& p- U0 W4 h; }! K

int i;
int nBarsCount = iBars(NULL, nTimeframe) - 30;& r% D2 z, B) M  |  Y/ L5 Q

for (i = 0; i < nBarsCount; i++)
{
   int nMain1 = iStochastic(NULL, nTimeframe, nKperiod, nDperiod, nSlowing, MODE_SMA, 0, MODE_MAIN, i);& G1 {0 u/ i1 `6 w" ~
   int nMain2 = iStochastic(NULL, nTimeframe, nKperiod, nDperiod, nSlowing, MODE_SMA, 0, MODE_MAIN, i + 1);( ^" x1 ~* U! o$ z
   3 H- @4 |$ `8 f6 p
   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);" p& {+ X9 S0 V
   ; |) c  D) U, b- v! N4 o& n
   if (nMain2 <= nSignal2 && nMain1 >= nSignal1)
   {8 i9 b0 z9 t; Y3 s$ g
      //金叉
      nResult = 1;# z) m/ e2 J) r' M
      nCrossValue = nMain1;
      break;
   }& ]& C* ^5 g7 G+ [4 O! }# b
   else if (nMain2 >= nSignal2 && nMain1 <= nSignal1), g! S  x2 ^- t0 i: r1 f
   {; }  _9 o$ V+ B/ {' J* V  O
      //死叉
      nResult = -1;! y! Z4 ^; s; b7 b+ B7 |
      nCrossValue = nMain1;: e9 V- _& x- D2 @
      break;5 p# K, E8 N: l5 A/ v5 u
   }! m  }6 P" j3 P" O) M
}

//Print(nTimeframe, " , ", nResult, ",nCrossValue=", nCrossValue, ",p_TopLimit=",p_TopLimit,",p_BottomLimit=",p_BottomLimit);' e+ g+ W# |9 i0 X& m9 t

if (nResult == 1 && nCrossValue > p_BottomLimit)
{% c# f- I; D. a# U. V
   //金叉位置太高,需要忽略之* f9 I0 ~8 c6 P' V7 f! Q
   nResult = -999;    : N4 L1 b4 g$ d, k7 u7 V' k
}
if (nResult == -1 && nCrossValue < p_TopLimit)( h$ e. p1 R1 B; u' r" v
{
   //死叉位置太低,需要忽略之
   nResult = -999;
}

if (nResult != -999)  j# a2 y5 t, j7 x
{
   dtCross = iTime(NULL, nTimeframe, i);" y9 [5 }( o) h5 A# ]7 n* ^

   //Print("In timeframe ", nTimeframe, " Cross ", nResult, " happened at ", TimeToStr(dtCross, TIME_DATE|TIME_MINUTES|TIME_SECONDS));
}

//没有找到交叉点: H* u% I7 Y  m+ ^* D. H$ f
return (nResult);0 c, q+ C& P0 W0 i/ J
}
# }- n2 k, ]  |( @) f0 `7 [; Q
//+------------------------------------------------------------------+

TOP

‹‹ 上一主题 | 下一主题 ››