|
|

楼主 |
发表于 2013-11-8 16:45
|
显示全部楼层
你说的那个东西,是我的一个关于MACD的小的优化,我的指标里面是个半成品。
源程序:
{小改动的MACD。1.原始DIF三个单位平滑 2.柱子平滑 3.DIF线拐头变色 4.柱子四色分型,
5.做头做底警示 6.金叉死叉提示}
{SHORT:12 LONG:26 MID:9}
DIF:(EMA(C,SHORT)-EMA(C,LONG))/EMA(C,LONG)*100,,CROSSDOT,COLORWHITE;
DIFF:MA(DIF,3),COLORWHITE;
DEA:EMA(DIF,MID),COLORYELLOW;
MACD:=(DIF-DEA)*2,COLORSTICK;
IF(DIF,DIF,DRAWNULL),COLOR444444;
{此段为DIFF线变色}
IF(DIFF,DIFF,DRAWNULL),COLORWHITE;
IF(DIFF>REF(DIFF,1),DIFF,DRAWNULL),COLORRED;
IF(DIFF<REF(DIFF,1),DIFF,DRAWNULL),COLORGREEN;
{此段为MACD柱变色}
{STICKLINE(((MACD>REF(MACD,1)) AND (MACD>0)),0,MACD,0,0),COLOR0000CC;
STICKLINE(((MACD<REF(MACD,1)) AND (MACD>0)),0,MACD,0,0),COLOR00CC00;
STICKLINE(((MACD>REF(MACD,1)) AND (MACD<0)),0,MACD,0,0),COLORFFFF00;
STICKLINE(((MACD<REF(MACD,1)) AND (MACD<0)),0,MACD,0,0),COLORFFFFFF;}
{顶底双线逆向文字标示}
DIF3:=MA(DIF,3);
SXNS1:=DIF3>REF(DIF3,1) AND DEA<REF(DEA,1) ;{底部双线逆向}
DRAWTEXT(SXNS1=1 AND REF(SXNS1,1)=0 AND COUNT(SXNS1,20)<=5,0.95*DIF,'警'),COLOR4444FF;
SXNS2:=DIF3<REF(DIF3,1) AND DEA>REF(DEA,1) ;{顶部双线逆向}
DRAWTEXT(SXNS2=1 AND REF(SXNS2,1)=0 AND COUNT(SXNS2,20)<=5,1.05*DIF,'警'),COLOR44FF44;
{DEA转向标记}
LXSS:=DIF>REF(DIF,1) AND DEA>REF(DEA,1) ;{双线顺上}
DRAWICON(IF(LXSS=1 AND REF(LXSS,1)=0 AND COUNT(LXSS,20)<=5,LXSS,0),0.95*DEA,1);
LXSX:=DIF<REF(DIF,1) AND DEA<REF(DEA,1);{双线顺下}
DRAWICON(IF(LXSX=1 AND REF(LXSX,1)=0 AND COUNT(LXSX,20)<=5,LXSX,0),1.05*DEA,2);
图例:
周K线:
日K线:
|
|
|