通达信【超神看盘】一目了然，动态价格变化公式源码分时主图

细节处理本人原创，首发于此链接；本次更新将适用ST股；动态图所展示的效果，应该对实时短线看盘有很好的帮助作用；
 以下是公式源码

{实时价格变化 通达信公式}
NE:=IF(NAMELIKE('S') OR NAMELIKE('*S'),0.05,0.1);{适用ST股}
涨停价:=ZTPRICE(DYNAINFO(3),NE);
跌停价:=DTPRICE(DYNAINFO(3),NE);

 {分时线 涨跌停变色}
IF(PERIOD=0 AND CLOSE=涨停价,CLOSE,DRAWNULL),LINETHICK2,COLORFF00B5;
 IF(PERIOD=0 AND CLOSE=跌停价,CLOSE,DRAWNULL),LINETHICK2,COLOR00BB00;

 {涨幅值 适用分时重播}
涨幅值:=IF(C=DYNAINFO(3),CON2STR(0,2),IF(C>DYNAINFO(3),CON2STR((C-DYNAINFO(3))/DYNAINFO(3)*100,2),CON2STR((DYNAINFO(3)-C)/DYNAINFO(3)*100,2)));

动态图标:=IF(涨停价=C,STRCAT(CON2STR(C,2),'★  '),IF(C=REF(C,1),STRCAT(CON2STR(C,2),'◆  '),IF(C>REF(C,1),STRCAT(CON2STR(C,2),'▲  '),STRCAT(CON2STR(C,2),'▼  '))));
价格变化:=STRCAT(STRCAT('   ',动态图标),STRCAT(涨幅值,'％'));

成交额:=IF(DYNAINFO(10)>99999999,STRCAT(CON2STR(DYNAINFO(10)/100000000,2),'亿'),STRCAT(CON2STR(DYNAINFO(10)/10000,0),'万'));
DRAWTEXT_FIX(1,0.7,0.77,0,成交额),COLORF4E202;

 {文字图标 动态跟随}
DRAWTEXT(ISLASTBAR,C*IF(DYNAINFO(3)>C,0.9973,1.0027),'');{扩显字符}
DRAWTEXT(ISLASTBAR AND C>DYNAINFO(3) ,C*1,价格变化),COLOR3333FF;{涨幅区}
DRAWTEXT(ISLASTBAR AND C=DYNAINFO(3) ,C*1,价格变化),COLORWHITE;{零轴区}
DRAWTEXT(ISLASTBAR AND C<DYNAINFO(3) ,C*1,价格变化),COLOR42C800;{跌幅区}
 { 建议：请将通达信「系统设置」的外观配色方案选为「柔滑」 }