一段简单通达信副图指标程序

{副图买卖指标设计}

{MACD数据}

DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);

DEA:EMA(DIF,MID);

MACD:(DIF-DEA)*2,COLORLICYAN;

{均线数据}

MA5:=MA(C,5);

MA10:=MA(C,10);

MA20:=MA(C,20);

MA40:=MA(C,40);

LMR2:SMA(MACD,M2,1),COLORLIRED;

{买卖操作标志}

{短期趋势操作标志}

BUY_SP:=IF(CROSS(LMR2,0),1,0);

SELL_SP:=IF(CROSS(0,LMR2),1,0);

{长期趋势操作标志}

BUY_LP:=CROSS(DIF,0) ;

SELL_LP:=CROSS(0,DIF) ;

BUY_LP1:=CROSS(MA20,MA40) AND MA20>REF(MA20,1) AND MA40>REF(MA40,1) ;

SELL_LP1:=CROSS(MA40,MA20) AND MA20<REF(MA20,1) AND MA40<REF(MA40,1) ;

{上一次条件成立到现在的周期数}

X:=BARSLAST(C<=MA20);

Y:=BARSLAST(C>=MA20);

XX:=BARSLAST(C<=MA40);

YY:=BARSLAST(C>=MA40);

{画零轴线}

ZERO:0,COLORGREEN,LINETHICK1;

{DIF和DEA交叉，显示上下箭头}

DRAWICON(BUY_SP AND (MA5>REF(MA5,1) OR C>MA10),DIF*0.98,1);

DRAWICON(SELL_SP AND (MA5<REF(MA5,1) OR C<MA10),DIF*1.02,2);

{DIF穿过零轴，显示多空图标}

DRAWICON(BUY_LP,0,42);

DRAWICON(SELL_LP,0,43);

{显示文字}

DRAWTEXT(BUY_LP1,DIF*1.2,’涨’),COLORRED;

DRAWTEXT(SELL_LP1,DIF*1.2,’跌’),COLORYELLOW;

{将数据转换成字符串后显示，并选择字体颜色}

DRAWTEXT(X=20,DIF*1.5,VAR2STR(X,0)),COLORRED;

DRAWTEXT(Y=20,DIF*1.5,VAR2STR(Y,0)),COLORGREEN;

DRAWTEXT(XX=40,DIF*1.5,VAR2STR(XX,0)),COLORRED;

DRAWTEXT(YY=40,DIF*1.5,VAR2STR(YY,0)),COLORGREEN;

附图中的副图指标为程序的实测显示结果。