通达信方向红绿灯主图源码（附加短线中线长线改进版）

1、平凡一本人，但也有两原则：一信用！二责任！所以熬夜再发一指标。
2、发标之前想说说自己对指标的看法：一则自认为所有指标都只是内在原理的一种外在表现形式，所以不要光看指标，而是要知道指标的实质原理。二则觉得所有的指标都只能参考不能参照，指标写出来就是死的，市场是随时变化的，而随机应变是人最特长的，所以我觉得不要死搬指标，而是参照指标来做个判断。
3、平凡一本人是理想新人，第一次发贴得到大家的热情推荐，本来只想赚几个共享币多点学习机会，看到大家那么多人下载我的指标，倒没了惊喜，有的只是压力山大！加之新人上传有点失误，在此特意把短中长线指标改进了下，在此向上次下载的朋友致歉了！
4、发贴发指标是要负责任的，因为我的短中长线出剑不是这个指标的主题思想，所以不做选股指标和预警指标，如有个人想做的，其实多少学点公式知识自己就会做，我写公式也是逼出来的。
5、这次发指标附加了改进的短中长线指标，下载了可以把两个指标放在一起，也可以分开。
6、熬夜加上改来改去的，如有什么不对的，请留言！定会回复。
7、随便说一句，我以后不会再发指标了，所以也不用关注我，我是来学习的，发指标感觉责任重大。

 
{方向红绿灯源码}
DRAWTEXT_FIX(1,0.36,0.00,0,'股行如人生    看清红绿灯'),COLORRED;
DRAWTEXT_FIX(1,0.36,0.06,0,'人生要微笑    选择好方向'),COLORLIBLUE;
DRAWTEXT_FIX(1,0.36,0.12,0,'行走过了线    方向要改变'),COLORRED;
DRAWTEXT_FIX(1,0.36,0.18,0,'位置选择好    不要买错了'),COLORLIBLUE;
DRAWTEXT_FIX(1,0.83,0.80,0,'方向位置买    绿行之上买'),COLORYELLOW;
DRAWTEXT_FIX(1,0.83,0.90,0,'出现红停卖    绝不赔钱卖'),COLORYELLOW;
DRAWTEXT_FIX(1,0.80,0.85,0,'买错损时又折兵  小心 ! 切记 ! 切记 !'),COLORRED;
{方向}
AA:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,30))/MA(CLOSE,30);
方向向下:(DMA((2*CLOSE+LOW+HIGH)/4,AA)),COLORBLUE,LINETHICK3;
方向向上:IF(方向向下>REF(方向向下,1),方向向下,DRAWNULL),LINETHICK3,COLORRED;
二轮:(HHV(H,250)-LLV(L,250))/LLV(L,250)*100,COLORYELLOW,NODRAW;
{红绿灯}
绿灯行:IF(CLOSE>SAR(4,6,20),SAR(4,6,20),DRAWNULL),CIRCLEDOT,COLORGREEN;
红灯停:IF(CLOSE<SAR(4,6,20),SAR(4,6,20),DRAWNULL),CIRCLEDOT,COLORRED;
变1:=REF(C<红灯停,6) AND REF(C<红灯停,5) AND REF(C<红灯停,4) AND REF(C<红灯停,3) AND REF(C<红灯停,2) AND REF(C<红灯停,1) AND REF(C>绿灯行,0),NODRAW;
绿灯:=IF(变1=1,绿灯行,DRAWNULL),CIRCLEDOT,COLORGREEN;
DRAWTEXT(变1=1,绿灯行-绿灯行*0.03,'绿行'),COLORGREEN;
变无效:=IF(变1=1,0,1);
变2:=变无效 AND REF(C<红灯停,1) AND REF(C>绿灯行,0);
黄灯:=IF(变2=1,绿灯行,DRAWNULL),CIRCLEDOT,COLORYELLOW;
DRAWTEXT(变2=1,绿灯行-绿灯行*0.03,'绿灯'),COLORGREEN;
变3:=REF(C>绿灯行,1) AND REF(C<红灯停,0);
红灯:=IF(变3=1,红灯停,DRAWNULL),CIRCLEDOT,COLORRED;
DRAWTEXT(变3=1,红灯停+红灯停*0.03,'红停'),COLORRED;
{短线中线长线源码}
DRAWTEXT_FIX(1,0.56,0.00,0,'人生有轨迹    鲜血灌梦想'),COLORRED;
DRAWTEXT_FIX(1,0.56,0.06,0,'长短宽度窄    方向要改变'),COLORRED;
DRAWTEXT_FIX(1,0.56,0.12,0,'长短向上走    股价要启动'),COLORRED;
DRAWTEXT_FIX(1,0.56,0.18,0,'起落是常态    短涨还能买'),COLORRED;

DRAWTEXT_FIX(1>0,0,0.05,0,'每股收益:'),COLORLIBLUE;
DRAWNUMBER_FIX(1>0,0,0.16,0,FINANCE(38)),COLORLIBLUE;
DRAWTEXT_FIX(1>0,0.08,0.05,0,'收入同比'),COLORLIBLUE;
DRAWNUMBER_FIX(1>0,0.08,0.16,0,FINANCE(44)),COLORLIBLUE;
DRAWTEXT_FIX(1>0,0.16,0.05,0,'利润同比'),COLORLIBLUE;
DRAWNUMBER_FIX(1>0,0.16,0.16,0,FINANCE(43)),COLORLIBLUE;
DRAWTEXT_FIX(1>0,0.24,0.05,0,'市净率'),COLORLIBLUE;
DRAWNUMBER_FIX(1>0,0.24,0.16,0,C/FINANCE(34)),COLORLIBLUE;
DRAWTEXT_FIX(1>0,0.32,0.05,0,'市盈率'),COLORLIBLUE;
DRAWNUMBER_FIX(1>0,0.32,0.16,0,DYNAINFO(39)),COLORLIBLUE;
短线:COST(95),COLORGREEN,DOTLINE;
中线:(COST(95)+COST(5))/2,COLORCYAN,DOTLINE;
长线:COST(5),COLORGRAY,DOTLINE;
NOTEXT短涨:IF(短线>REF(短线,1),短线,DRAWNULL),LINETHICK2,COLORRED;
NOTEXT中涨:IF(中线>REF(中线,1),中线,DRAWNULL),LINETHICK2,COLORRED;
NOTEXT长涨:IF(长线>=REF(长线,1),长线,DRAWNULL),LINETHICK2,COLORRED;
长短宽度:(COST(95)/COST(5))*100,COLORMAGENTA,NODRAW;
二百五均线向上:=EVERY(MA(C,250)>=REF(MA(C,250),1),3);
亮剑:=(C>MA(C,233) AND 二百五均线向上 AND REF(C<O,2) AND REF(C<O,1) AND C>O AND C>长线 AND C<中线 AND 长线=NOTEXT长涨 AND 中线=NOTEXT中涨) OR (二百五均线向上 AND 中线=NOTEXT中涨 AND EVERY(中线=NOTEXT中涨,5) AND 长线=NOTEXT长涨 AND REF((O>长线 AND C<长线),1) AND L<长线 AND C>长线),NODRAW;
DRAWTEXT(亮剑=1,L-L*0.08,'亮剑'),COLORYELLOW;
DRAWICON(亮剑=1,L-L*0.03,1);
启动:=C>MA(C,233) AND 二百五均线向上 AND 短线=NOTEXT短涨 AND REF(短线!=NOTEXT短涨,1) AND 长短宽度<122;
DRAWTEXT(启动=1,H+H*0.06,'启动'),COLORYELLOW;
DRAWICON(启动=1,L-L*0.01,1);
落下:=短线!=NOTEXT短涨 AND REF(短线=NOTEXT短涨,1);
DRAWTEXT(落下=1,短线+短线*0.03,'落'),COLORGREEN;
DRAWICON(落下=1,短线+短线*0.01,2);