分时MACD主图(源码 主图 通达信 贴图)
对分时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 两个引用指标没有,显示不正常
只能改为:
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;
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;
分时均价线:SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK1;
K:=IF((分时均价线-DYNAINFO(3))/DYNAINFO(3)*100>0.5,0.5,0);
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;
- 上一篇:简单的穿云箭 副图选股预警 2015/7/21
- 下一篇:二次回踩(鹏腾2009版本)源码 主图 通达信 贴图 2015/7/21