第一次在vba板块上发帖,问题太菜勿怪。自己经常要用到一个功能,一直想变成一个简单的自定义函数,自己编不出来,求各路神仙相助。
很简单的均线穿越函数。
参数有2个,一个是输入均线值EX,一个是输入确立k线数N。
输出:1上穿成功,-1下穿成功,0啥也没有。
pel源码见下
//均线
EX:=EMA(C,55);//EX
//穿越条件
DJKT:=BARSLAST(CROSS(C,EX));KJKT:=BARSLAST(CROSS(EX,C));
//均线开仓
DJK:=C>REF(C,DJKT) AND DJKT>=2 AND C>EX;//N=2
KJK:=C<REF(C,KJKT) AND KJKT>=2 AND C<EX;//N=2
DJKC:=DJK AND REF(DJK,1)=0 AND DJKT<KJKT;//若成立输出1
KJKC:=KJK AND REF(KJK,1)=0 AND KJKT<DJKT;//若成立输出-1
[此贴子已经被作者于2013/12/30 21:53:16编辑过]
等后面的版本吧,会增加PEL格式的自定义函数,你暂时可以使用 STKINDI函数来实现这种函数模块的调用