[讨论] 请老师帮解决程序问题 (文华财经wh9)

投资者咨询:[讨论] 请老师帮解决程序问题 (文华财经wh9)
来源:文华财经  日期:2018-7-10 15:45
 Params
 Numeric SH(12);
 Numeric LowO(26);
 Numeric M(9);
 Numeric T15(1);//  N倍MACD
Vars
 Numeric T15DIFF;
 Numeric T15DEA;
 Numeric T15MD;
 NumericSeries T15UP;
 NumericSeries T15DN;
Begin

 T15DIFF=ema(Close,SH*T15) - ema(Close,LowO*T15) ;//短周期与长周期的收盘价的指数平滑移动平均值做差。
 T15DEA =ema(T15DIFF,M*T15);//DIFF的M个周期指数平滑移动平均
 T15MD  =2*(T15DIFF-T15DEA);//  DIFF减DEA的2倍画线
 If(T15MD>=0 && Ref(T15MD<0,1))
 {
  T15UP=1;
 }
 Else
 {
  If(T15MD>=0 && Ref(T15MD>=0,1))
  {
   T15UP=T15UP+1;
  }
  Else
  {
   T15UP=0;
  }
 }
//请老师帮实现,在MD由负值转正值时,T15UP赋值为1
//当新出现的MD任然是正值时,T15UP=T15UP+1;
//请老师帮修改一下代码

End
技术人员回复
日期:2018-7-10 15:53

 参考:

 

 Params
 Numeric SH(12);
 Numeric LowO(26);
 Numeric M(9);
 Numeric T15(1);//  N倍MACD
Vars
 Numeric T15DIFF;
 Numeric T15DEA;
 Numeric T15MD;
 Global_Numeric T15UP;
 NumericSeries T15DN;
Begin

 T15DIFF=ema(Close,SH*T15) - ema(Close,LowO*T15) ;//短周期与长周期的收盘价的指数平滑移动平均值做差。
 T15DEA =ema(T15DIFF,M*T15);//DIFF的M个周期指数平滑移动平均
 T15MD  =2*(T15DIFF-T15DEA);//  DIFF减DEA的2倍画线
 If(T15MD>=0 && Ref(T15MD<0,1))
 {
  T15UP=1;
 }
 Else
 {
  If(T15MD>=0 && Ref(T15MD>=0,1))
  {
   T15UP=T15UP+1;
  }
  Else
  {
   T15UP=0;
  }
 }

End