通达信防雷公式+成交量副图指标源码

现在很多公司都有可能有雷，如果避免呢，我想到了一个办法
 首先编写一个成交量公式，在公式里除了有原成交量的公式外，额外增加一些基本面的东西进去，再根据不良基本面，将背景变为黑色，让自己一眼就能看出这是一个问题公司。

 比如上面这张图片，就是我个人自用的成交量指标，里面包含了很多信息，一眸尽收眼底。

我这里的基本面，只列举了几种不良：
 如代码段：
ZD1:=STRCAT('风格：',FGBLOCK); ZD2:=STRCAT(ZD1,'概念：'); ZD3:=STRCAT(ZD2,GNBLOCK);
 TARGET:=FINDSTR(ZD3,'减持') OR FINDSTR(ZD3,'预降') OR FINDSTR(ZD3,'减值') OR FINDSTR(ZD3,'质押');
DRAWGBK(TARGET,RGB(90,90,90),RGB(30,30,30),0,'背景图',0);
这段代码是说，如果有减持公告或预期的，资产减值的，质押的，业绩预降的，丫的，不分理由，一律把背景变黑！！！

当然，你还可以增加一些自己不喜欢的，比如ROE是负数，净资产是负数，现金流是负数等等等。只需这样加在后面即可
TARGET:=FINDSTR(ZD3,'减持') OR FINDSTR(ZD3,'预降') OR FINDSTR(ZD3,'减值') OR FINDSTR(ZD3,'质押') or FINVALUE(4)<0 or FINVALUE(281)<0 or .....;

源码如下，可显示，其它的信息就不贴出来了，因为需要引用我另外的指标数据，贴了你们通不过。

ZD1:=STRCAT('风格：',FGBLOCK); ZD2:=STRCAT(ZD1,'概念：'); ZD3:=STRCAT(ZD2,GNBLOCK);
 TARGET:=FINDSTR(ZD3,'减持') OR FINDSTR(ZD3,'预降') OR FINDSTR(ZD3,'减值') OR FINDSTR(ZD3,'质押');
DRAWGBK(TARGET,RGB(90,90,90),RGB(30,30,30),0,'背景图',0);
 TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,TOTALFZNUM,1)))));
 MTIME:=MOD(FROMOPEN,TOTAL);
 CTIME:=IF(MTIME<0.5,TOTAL,MTIME);
 VAMO:IF((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),AMOUNT/100000000.0*TOTAL/CTIME,DRAWNULL),NODRAW;
 STICKLINE((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),VAMO,0,-1,-1),COLOR00C0C0;
 AMOW:AMOUNT/100000000.0,VOLSTICK;
 MA3:EMA(AMOW,3),COLORLIRED;
 M20:EMA(AMOW,20),COLORLIBLUE;