|
|

楼主 |
发表于 2012-11-27 21:43
|
显示全部楼层
本帖最后由 白行车dc 于 2012-11-27 21:54 编辑
我对CDL战法有关注,因为不能与CDL老师同步,也没缘在当时与大家交流,故我很想了解其战法的优劣;为表示诚意,根据CDL研究的MACD背离,我写了一段代码:低位金叉+DIF二红+dif大于前且股价小于等于前。
DIF:=(EMA(C,12)-EMA(C,26))/EMA(C,26)*100;
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2,COLORSTICK;
FH2:=REF(DEA,3)<REF(DEA,2) AND REF(DEA,2)<REF(DEA,1) AND REF(DEA,1)<DEA ;
FH3:=COUNT(MACD>REF(MACD,1),1)=1;
FH5:=REF(MACD,1)<REF(MACD,2) AND REF(MACD,2)<REF(MACD,3) AND MACD>REF(MACD,1);
SCTS:=BARSLAST(CROSS(DEA,DIF)),NODRAW;
JC:(CROSS(DIF,DEA) AND REF(SCTS>=8,1)) OR (REF(DIF,1)<-2 AND CROSS(DIF,DEA));
{STICKLINE(JC,0,0.5,1,0);}
JCTS:=BARSLAST(JC),NODRAW;
XG:= FH2 AND FH3 AND FH5 {AND FH1};
STICKLINE(XG,0,0.5,1,0);
XGTS:=BARSLAST(XG),NODRAW;
JCD:=IF(JCTS>=0,REF(DIF,JCTS),0),NODRAW;
XGD:= IF(REF(XG,1)=0 AND XG=1,REF(DIF,XGTS),0),NODRAW;
DIF大前:=XGD>JCD AND XG;
JCC:=REF(C,JCTS),NODRAW;
XGC:=IF(REF(XG,1)=0 AND XG=1,REF(C,XGTS),0),NODRAW;
C小前:=XGC<=JCC AND XG;
背离:DIF大前 AND C小前; |
|
|