为了显示好看一些,并且方便各指数之间比较和显示,我在他代码的基础上作了如下修订:
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),
日线效果图如下,我个人感觉看起来比狮子兄的日线图清爽一点,不过这仅仅是我的个人所好。
联系客服