通达信“drawnull”改成大智慧

　　我喜欢自己动手，喜欢自己把自己的电脑运行得快一点。 

　　我试过多种行情软件，最后觉得通达信最好，它允许用户组织自己的版面、模板，而且可以占很小的磁盘空间，运行起来非常快。 

　　许多行情软件，我试一次就不用了。比如大智慧，它占的磁盘空间有2.04G，和我的通达信软件只占10.7M相比，竟然差了近200倍。 

　　我的电脑磁盘空间有限，大软件我是不敢用的，所以大智慧、操盘手、同花顺之类，我早就不用了。　　 

☆　☆　☆ 

　　大智慧、同花顺指标公式，过去写过，因为电脑现在连这些软件都没有了，所以就根本谈不上写指标公式了。因为年纪大，记性不好，不用就忘。时间一久，连怎么写都不知道了。 

　　昨天一个好朋友坐在家里，非要问我怎么把通达信“drawnull”改成大智慧指标。 

　　大智慧没有“drawnull”、“nodraw”，我也不知道怎么办。 

　　架不住好朋友再三央求，只好从官方网站下载Tzj_Setup_20111227.exe来试试。 

　　对于同一根趋势线，在通达信用“drawnull”，可以画出三种颜色。 

PM:MA(C,5),COLORWHITE,LINETHICK2; 

IF(PM>REF(PM,1),PM,DRAWNULL),COLORRED,LINETHICK2;

IF(PM=REF(PM,1),PM,DRAWNULL),COLORRED; 

IF(PM　　但在大智慧我做不到。想到一个办法，就是用画两条线，分别画不同的色，通过“CROSS”的办法再画一条和背景色相同颜色的线，分别复盖前条线的一半。 

　　但它的算法太复杂。 

　　后来想到画它的指数移动平均“EMA”的办法。 

　　在老版本通达信没有新“DRAWBAND”指标时，是以柱状线画带状线的。 

　　这就是数学的微分和积分嘛 ！ 

☆　☆　☆ 

在通达信，可以画带状线。 

总量:=VOL/10000,LINETHICK0; 

VAR1F:=EMA(EMA(CLOSE,9),9); 

VAR2:=(VAR1F-REF(VAR1F,1))/REF(VAR1F,1)*100,LINETHICK2,COLORWHITE; 

控盘:IF(REF(总量,1)>100,VAR2*100,VAR2);

价位线:=EMA(控盘,5); 

DRAWBAND(控盘,RGB(255,200,0),价位线,RGB(0,056,250)); 

　　大智慧就只能画柱状线了。 

总量:VOL/10000,LINETHICK0; 

VAR1F:=EMA(EMA(CLOSE,9),9); 

VAR2:=(VAR1F-REF(VAR1F,1))/REF(VAR1F,1)*100; 

控盘:=IF(REF(总量,1)>100,VAR2*100,VAR2);

价位线:=EMA(控盘,5); 

STICKLINE(控盘<=价位线,控盘,价位线,14,0),COLORBLUE; 

STICKLINE(控盘>价位线,控盘,价位线,14,0),COLORYELLOW; 

☆　☆　☆ 

　　同样的道理，线也可以画成带。 

　　比如五日线： 

PM:MA(C,5),COLORWHITE,LINETHICK2; 

IF(PM>REF(PM,1),PM,DRAWNULL),COLORRED,LINETHICK2;

IF(PM=REF(PM,1),PM,DRAWNULL),COLORRED; 

IF(PM　　在通达信上是： 

　　下面我们把它改成带状线。通达信的桔兰色带状线是用下面的代码画出来的。 

控盘:IF(REF(总量,1)>100,VAR2*AB*100,VAR2*AB);

价位线:=EMA(控盘,5); 

DRAWBAND(控盘,RGB(255,200,0),价位线,RGB(0,056,250)); 

　　同样，在大智慧上，我们就只能画柱状线了。 

PM:=MA(C,5); 

{画辅助线} 

BBE:=SMA(PM,5,2); 

STICKLINE(PM<=BBE,PM,BBE,14,0),COLORWHITE;

STICKLINE(PM>BBE,PM,BBE,14,0),COLORMAGENTA;

☆　☆　☆   

　　最后，就是我在最开始想到一个办法，画两条线，分别画不同的色，通过“CROSS”的办法再画一条和背景色相同颜色的线，分别复盖前条线的一半。 　　 

PM:=MA(C,5); 

{画辅助线} 

BBE:SMA(PM,5,2),COLORRED,LINETHICK2; 

IF(BACKSET(BBE>REF(BBE,1),1),BBE,PM),LINETHICK2,COLORFF3300;

{用背景色覆盖} 

IF(CROSS(PM,BBE),BBE,PM),LINETHICK3,COLOR000000; 

{IF(CROSS(BBE,PM),BBE,PM),LINETHICK3,COLOR000000;}; 

　　当然，在大智慧上，无论怎样画，都有缺陷，这样遮挡的办法，会造成总有一些点被遮挡，露不出来。

☆　☆　☆

　　最后我得说明，如果用大智慧L2（或者新版允许免费使用传统行情数据的L2大智慧上也可以）行情软件，则可以调用大智慧L2系统的绘画函数PARTLINE。 

　　如果用PARTLINE写，则是： 

PM:MA(C,5); 

PARTLINE(PM,PM>=REF(PM,1),RGB(255,0,0),PM　　效果和通信达一样。