通达信分时MACD主图源码主图

发布时间：2015/7/21 6:08:53 浏览次数：

对分时MACD看盘指标进行了修改、完善。特别是以前有朋友反映对应板块涨跌家数不准，这次进行修复！同时增加次日涨跌停价格的显示，省去了计算，更加直观便捷。祝大家投资愉快！不喜欢的朋友可以飘过。

RCC:=DYNAINFO(3);

S2:=SMA(C,3,1);

S6:=SMA(C,5,1);

DK:=10*(S2-S6);

KK:=IF(PERIOD=8,0.95,1);

STICKLINE(DK>0,RCC*KK,RCC*KK+DK,0,1),COLORRED;

STICKLINE(DK<0,RCC*KK,RCC*KK+DK,0,1),COLORCYAN;

XG:HHV(H,480),DOTLINE,COLORRED;

STICKLINE(FILTER(CROSS(C,REF(XG,1)),10),C*0.99,C,8,0),COLORGREEN;

DRAWTEXT(FILTER(CROSS(C,REF(XG,1)),10),C*0.99,'上突'),COLORYELLOW;

T:=BARSCOUNT(C);{WWW.GOODGUPIAO.COM}

TP:= FILTER( C>=HHV(H,T) AND V>MA(V,0)*2 AND DYNAINFO(17)>1 AND TIME>39600,240) ;

DRAWTEXT(TP,L,'★突破'),COLORRED;

HHV(H,T),DOTLINE,COLOR00FFFF;

SUM(V*C,0)/SUM(V,0),COLORYELLOW;

上涨家数:"SZJS.上涨家数#DAY",NODRAW,COLORRED;

下跌家数:"SZJS.下跌家数#DAY",NODRAW,COLORGREEN;

GP:=NAMELIKE('S') OR NAMELIKE('*');

涨停:=IF(GP,REF(C,1)*1.05,REF(C,1)*1.1);

跌停:=IF(GP,REF(C,1)*0.95,REF(C,1)*0.9);

DRAWTEXT_FIX(1,0.92,1,1,STRCAT('涨停：',CON2STR(涨停,2))),COLORRED;

DRAWTEXT_FIX(1,0.98,1,1,STRCAT('跌停：',CON2STR(跌停,2))),COLORGREEN;

一纯％:=CONST(IF(PERIOD=0 ,"FSKY2.一纯％#DAY",DRAWNULL)),NODRAW;

三纯％:=CONST(IF(PERIOD=0 ,"FSKY2.三纯％#DAY",DRAWNULL)),NODRAW;

五纯％:=CONST(IF(PERIOD=0 ,"FSKY2.五纯％#DAY",DRAWNULL)),NODRAW;

DRAWTEXT_FIX(1,0.200,1-0.08,0,STRCAT('上涨家数:',CON2STR(上涨家数,0))),COLOR0000FF;

DRAWTEXT_FIX(1,0.600,1-0.08,0,STRCAT('下跌家数:',CON2STR(下跌家数,0))),COLOR00FF00;

分时均价线:SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK1;

K:=IF((分时均价线-DYNAINFO(3))/DYNAINFO(3)*100>0.5,0.5,0);

DRAWTEXT_FIX(五纯％>=0,0.6,1-0.9+K,0,STRCAT('五日纯量％: ',CON2STR(五纯％,2))),COLOR0000FF;

DRAWTEXT_FIX(五纯％<0,0.6,1-0.9+K,0,STRCAT('五日纯量％: ',CON2STR(五纯％,2))),COLORFFFF00;

DRAWTEXT_FIX(三纯％>=0,0.6,1-0.8+K,0,STRCAT('三日纯量％: ',CON2STR(三纯％,2))),COLOR0000FF;

DRAWTEXT_FIX(三纯％<0,0.6,1-0.8+K,0,STRCAT('三日纯量％: ',CON2STR(三纯％,2))),COLORFFFF00;

DRAWTEXT_FIX(一纯％>=0,0.6,1-0.7+K,0,STRCAT('当日纯量％: ',CON2STR(一纯％,2))),COLOR0000FF;

DRAWTEXT_FIX(一纯％<0,0.6,1-0.7+K,0,STRCAT('当日纯量％: ',CON2STR(一纯％,2))),COLORFFFF00;

AAA1:=STRCAT('沪深总上涨家数:',CON2STR(DYNAINFO(60),0));

AAA2:=STRCAT('沪深总下跌家数:',CON2STR(DYNAINFO(61),0));

DRAWTEXT_FIX(ISLASTBAR,0,0,0,AAA1),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,0,0.06,0,AAA2),COLORGREEN;

==========================以上源码，缺少 FSKY2/szjs 两个引用指标没有，显示不正常

只能改为：