博士中期信号点阵图显示优化

多指数相互确认（源代码）

为了显示好看一些，并且方便各指数之间比较和显示，我在他代码的基础上作了如下修订：

1、调整了各个指数的顺序和分组，以方便对比；

2、各组之间增加了分割线，以方便对比；

3、修订了日线中期信号的显示方式；

周线中期信号，策略未变，仍然是收盘4周新高新低，仅仅调整了指数顺序和分组，增加了分割线，代码如下（建议无脑复制）：

29,COLORBLACK;

DRAWTEXT(ISLASTBAR,28,'  上证指数'),COLORWHITE;

DRAWTEXT(ISLASTBAR,27,'  深证成指'),COLORWHITE;

DRAWTEXT(ISLASTBAR,26,'  中小板指'),COLORWHITE;

DRAWTEXT(ISLASTBAR,25,'  创业板指'),COLORWHITE;

DRAWTEXT(ISLASTBAR,24,'  深证综指'),COLORWHITE;

DRAWTEXT(ISLASTBAR,23,'  创业板综'),COLORWHITE;

DRAWTEXT(ISLASTBAR,22,'  中小板综'),COLORWHITE;

21.5,DOTLINE,COLORWHITE;{分割线}

DRAWTEXT(ISLASTBAR,21,'  上证50'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,20,'  沪深300'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,19,'  深证100R'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,18,'  500ETF'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,17,'  中证500'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,16,'  中证1000'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,15,'  国证1000'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,14,'  国证B指'),COLORLIGRAY;

13.5,DOTLINE,COLORWHITE;{分割线}

DRAWTEXT(ISLASTBAR,13,'  次新股'),COLORWHITE;

DRAWTEXT(ISLASTBAR,12,'  深次新股'),COLORWHITE;

DRAWTEXT(ISLASTBAR,11,'  两年新股'),COLORWHITE;

10.5,DOTLINE,COLORWHITE;{分割线}

DRAWTEXT(ISLASTBAR,10,'  创业板B'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,9,'  深证B指'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,8,'  成份B指'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,7,'  B股指数'),COLORLIGRAY;

6.5,DOTLINE,COLORWHITE;{分割线}

DRAWTEXT(ISLASTBAR,6,'  全指医药'),COLORWHITE;

DRAWTEXT(ISLASTBAR,5,'  医药等权'),COLORWHITE;

DRAWTEXT(ISLASTBAR,4,'  300医药'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,3,'  医药B'),COLORWHITE;

2.5,DOTLINE,COLORWHITE;{分割线}

DRAWTEXT(ISLASTBAR,2,'  基金指数'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,1,'  银华锐进'),COLORWHITE;

0,COLORBLACK;

DRAWTEXT('SH000001$C'>=HHV('SH000001$C',4),28,'●'),COLORRED;

DRAWTEXT('399001$C'>=HHV('399001$C',4),27,'●'),COLORRED;

DRAWTEXT('399005$C'>=HHV('399005$C',4),26,'●'),COLORRED;

DRAWTEXT('399006$C'>=HHV('399006$C',4),25,'●'),COLORRED;

DRAWTEXT('399106$C'>=HHV('399106$C',4),24,'●'),COLORRED;

DRAWTEXT('399102$C'>=HHV('399102$C',4),23,'●'),COLORRED;

DRAWTEXT('399101$C'>=HHV('399101$C',4),22,'●'),COLORRED;

DRAWTEXT('SH000016$C'>=HHV('SH000016$C',4),21,'●'),COLORRED;

DRAWTEXT('SH000300$C'>=HHV('SH000300$C',4),20,'●'),COLORRED;

DRAWTEXT('399004$C'>=HHV('399004$C',4),19,'●'),COLORRED;

DRAWTEXT('510500$C'>=HHV('510500$C',4),18,'●'),COLORRED;

DRAWTEXT('399905$C'>=HHV('399905$C',4),17,'●'),COLORRED;

DRAWTEXT('SH000852$C'>=HHV('SH000852$C',4),16,'●'),COLORRED;

DRAWTEXT('399311$C'>=HHV('399311$C',4),15,'●'),COLORRED;

DRAWTEXT('399318$C'>=HHV('399318$C',4),14,'●'),COLORRED;

DRAWTEXT('880529$C'>=HHV('880529$C',4),13,'●'),COLORRED;

DRAWTEXT('399678$C'>=HHV('399678$C',4),12,'●'),COLORRED;

DRAWTEXT('880870$C'>=HHV('880870$C',4),11,'●'),COLORRED;

DRAWTEXT('150153$C'>=HHV('150153$C',4),10,'●'),COLORRED;

DRAWTEXT('399108$C'>=HHV('399108$C',4),9,'●'),COLORRED;

DRAWTEXT('399003$C'>=HHV('399003$C',4),8,'●'),COLORRED;

DRAWTEXT('SH000003$C'>=HHV('SH000003$C',4),7,'●'),COLORRED;

DRAWTEXT('SH000991$C'>=HHV('SH000991$C',4),6,'●'),COLORRED;

DRAWTEXT('SH000075$C'>=HHV('SH000075$C',4),5,'●'),COLORRED;

DRAWTEXT('399913$C'>=HHV('399913$C',4),4,'●'),COLORRED;

DRAWTEXT('150131$C'>=HHV('150131$C',4),3,'●'),COLORRED;

DRAWTEXT('SH000011$C'>=HHV('SH000011$C',4),2,'●'),COLORRED;

DRAWTEXT('150019$C'>=HHV('150019$C',4),1,'●'),COLORRED;

DRAWTEXT('SH000001$C'<=LLV('SH000001$C',4),28,'●'),COLORGREEN;

DRAWTEXT('399001$C'<=LLV('399001$C',4),27,'●'),COLORGREEN;

DRAWTEXT('399005$C'<=LLV('399005$C',4),26,'●'),COLORGREEN;

DRAWTEXT('399006$C'<=LLV('399006$C',4),25,'●'),COLORGREEN;

DRAWTEXT('399106$C'<=LLV('399106$C',4),24,'●'),COLORGREEN;

DRAWTEXT('399102$C'<=LLV('399102$C',4),23,'●'),COLORGREEN;

DRAWTEXT('399101$C'<=LLV('399101$C',4),22,'●'),COLORGREEN;

DRAWTEXT('SH000016$C'<=LLV('SH000016$C',4),21,'●'),COLORGREEN;

DRAWTEXT('SH000300$C'<=LLV('SH000300$C',4),20,'●'),COLORGREEN;

DRAWTEXT('399004$C'<=LLV('399004$C',4),19,'●'),COLORGREEN;

DRAWTEXT('510500$C'<=LLV('510500$C',4),18,'●'),COLORGREEN;

DRAWTEXT('399905$C'<=LLV('399905$C',4),17,'●'),COLORGREEN;

DRAWTEXT('SH000852$C'<=LLV('SH000852$C',4),16,'●'),COLORGREEN;

DRAWTEXT('399311$C'<=LLV('399311$C',4),15,'●'),COLORGREEN;

DRAWTEXT('399318$C'<=LLV('399318$C',4),14,'●'),COLORGREEN;

DRAWTEXT('880529$C'<=LLV('880529$C',4),13,'●'),COLORGREEN;

DRAWTEXT('399678$C'<=LLV('399678$C',4),12,'●'),COLORGREEN;

DRAWTEXT('880870$C'<=LLV('880870$C',4),11,'●'),COLORGREEN;

DRAWTEXT('150153$C'<=LLV('150153$C',4),10,'●'),COLORGREEN;

DRAWTEXT('399108$C'<=LLV('399108$C',4),9,'●'),COLORGREEN;

DRAWTEXT('399003$C'<=LLV('399003$C',4),8,'●'),COLORGREEN;

DRAWTEXT('SH000003$C'<=LLV('SH000003$C',4),7,'●'),COLORGREEN;

DRAWTEXT('SH000991$C'<=LLV('SH000991$C',4),6,'●'),COLORGREEN;

DRAWTEXT('SH000075$C'<=LLV('SH000075$C',4),5,'●'),COLORGREEN;

DRAWTEXT('399913$C'<=LLV('399913$C',4),4,'●'),COLORGREEN;

DRAWTEXT('150131$C'<=LLV('150131$C',4),3,'●'),COLORGREEN;

DRAWTEXT('SH000011$C'<=LLV('SH000011$C',4),2,'●'),COLORGREEN;

DRAWTEXT('150019$C'<=LLV('150019$C',4),1,'●'),COLORGREEN;

效果图如下:

日线中期信号的策略是各种指数是否站上20日线，与周线判断策略不一样，大家请注意，因此是非此即彼的逻辑，因此只显示站上20日线上的红点，红点消失即表示下降到20日线下。修订后代码如下：

29,COLORBLACK;

DRAWTEXT(ISLASTBAR,28,'  上证指数'),COLORWHITE;

DRAWTEXT(ISLASTBAR,27,'  深证成指'),COLORWHITE;

DRAWTEXT(ISLASTBAR,26,'  中小板指'),COLORWHITE;

DRAWTEXT(ISLASTBAR,25,'  创业板指'),COLORWHITE;

DRAWTEXT(ISLASTBAR,24,'  深证综指'),COLORWHITE;

DRAWTEXT(ISLASTBAR,23,'  创业板综'),COLORWHITE;

DRAWTEXT(ISLASTBAR,22,'  中小板综'),COLORWHITE;

21.5,DOTLINE,COLORWHITE;{分割线}

DRAWTEXT(ISLASTBAR,21,'  上证50'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,20,'  沪深300'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,19,'  深证100R'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,18,'  500ETF'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,17,'  中证500'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,16,'  中证1000'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,15,'  国证1000'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,14,'  国证B指'),COLORLIGRAY;

13.5,DOTLINE,COLORWHITE;{分割线}

DRAWTEXT(ISLASTBAR,13,'  次新股'),COLORWHITE;

DRAWTEXT(ISLASTBAR,12,'  深次新股'),COLORWHITE;

DRAWTEXT(ISLASTBAR,11,'  两年新股'),COLORWHITE;

10.5,DOTLINE,COLORWHITE;{分割线}

DRAWTEXT(ISLASTBAR,10,'  创业板B'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,9,'  深证B指'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,8,'  成份B指'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,7,'  B股指数'),COLORLIGRAY;

6.5,DOTLINE,COLORWHITE;{分割线}

DRAWTEXT(ISLASTBAR,6,'  全指医药'),COLORWHITE;

DRAWTEXT(ISLASTBAR,5,'  医药等权'),COLORWHITE;

DRAWTEXT(ISLASTBAR,4,'  300医药'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,3,'  医药B'),COLORWHITE;

2.5,DOTLINE,COLORWHITE;{分割线}

DRAWTEXT(ISLASTBAR,2,'  基金指数'),COLORLIGRAY;

DRAWTEXT(ISLASTBAR,1,'  银华锐进'),COLORWHITE;

0,COLORBLACK;

DRAWTEXT('SH000001$C'>=MA('SH000001$C',20),28,'●'),COLORRED;

DRAWTEXT('399001$C'>=MA('399001$C',20),27,'●'),COLORRED;

DRAWTEXT('399005$C'>=MA('399005$C',20),26,'●'),COLORRED;

DRAWTEXT('399006$C'>=MA('399006$C',20),25,'●'),COLORRED;

DRAWTEXT('399106$C'>=MA('399106$C',20),24,'●'),COLORRED;

DRAWTEXT('399102$C'>=MA('399102$C',20),23,'●'),COLORRED;

DRAWTEXT('399101$C'>=MA('399101$C',20),22,'●'),COLORRED;

DRAWTEXT('SH000016$C'>=MA('SH000016$C',20),21,'●'),COLORRED;

DRAWTEXT('SH000300$C'>=MA('SH000300$C',20),20,'●'),COLORRED;

DRAWTEXT('399004$C'>=MA('399004$C',20),19,'●'),COLORRED;

DRAWTEXT('510500$C'>=MA('510500$C',20),18,'●'),COLORRED;

DRAWTEXT('399905$C'>=MA('399905$C',20),17,'●'),COLORRED;

DRAWTEXT('SH000852$C'>=MA('SH000852$C',20),16,'●'),COLORRED;

DRAWTEXT('399311$C'>=MA('399311$C',20),15,'●'),COLORRED;

DRAWTEXT('399318$C'>=MA('399318$C',20),14,'●'),COLORRED;

DRAWTEXT('880529$C'>=MA('880529$C',20),13,'●'),COLORRED;

DRAWTEXT('399678$C'>=MA('399678$C',20),12,'●'),COLORRED;

DRAWTEXT('880870$C'>=MA('880870$C',20),11,'●'),COLORRED;

DRAWTEXT('150153$C'>=MA('150153$C',20),10,'●'),COLORRED;

DRAWTEXT('399108$C'>=MA('399108$C',20),9,'●'),COLORRED;

DRAWTEXT('399003$C'>=MA('399003$C',20),8,'●'),COLORRED;

DRAWTEXT('SH000003$C'>=MA('SH000003$C',20),7,'●'),COLORRED;

DRAWTEXT('SH000991$C'>=MA('SH000991$C',20),6,'●'),COLORRED;

DRAWTEXT('SH000075$C'>=MA('SH000075$C',20),5,'●'),COLORRED;

DRAWTEXT('399913$C'>=MA('399913$C',20),4,'●'),COLORRED;

DRAWTEXT('150131$C'>=MA('150131$C',20),3,'●'),COLORRED;

DRAWTEXT('SH000011$C'>=MA('SH000011$C',20),2,'●'),COLORRED;

DRAWTEXT('150019$C'>=MA('150019$C',20),1,'●'),COLORRED;

DRAWTEXT('SH000001$C'<MA('SH000001$C',20),28,'●'),COLORBLACK;

DRAWTEXT('399001$C'<MA('399001$C',20),27,'●'),COLORBLACK;

DRAWTEXT('399005$C'<MA('399005$C',20),26,'●'),COLORBLACK;

DRAWTEXT('399006$C'<MA('399006$C',20),25,'●'),COLORBLACK;

DRAWTEXT('399106$C'<MA('399106$C',20),24,'●'),COLORBLACK;

DRAWTEXT('399102$C'<MA('399102$C',20),23,'●'),COLORBLACK;

DRAWTEXT('399101$C'<MA('399101$C',20),22,'●'),COLORBLACK;

DRAWTEXT('SH000016$C'<MA('SH000016$C',20),21,'●'),COLORBLACK;

DRAWTEXT('SH000300$C'<MA('SH000300$C',20),20,'●'),COLORBLACK;

DRAWTEXT('399004$C'<MA('399004$C',20),19,'●'),COLORBLACK;

DRAWTEXT('510500$C'<MA('510500$C',20),18,'●'),COLORBLACK;

DRAWTEXT('399905$C'<MA('399905$C',20),17,'●'),COLORBLACK;

DRAWTEXT('SH000852$C'<MA('SH000852$C',20),16,'●'),COLORBLACK;

DRAWTEXT('399311$C'<MA('399311$C',20),

日线效果图如下，我个人感觉看起来比狮子兄的日线图清爽一点，不过这仅仅是我的个人所好。