红绿灯(源码 副图 通达信 贴图)
2015-7-16 11:14:40点击:
一个很不错的公式,我老师给我的,亲测有效。现抛砖引玉,希望大家也多多分享,共同进步。
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);
- 上一篇:烽火连城(源码 副图 通达信 贴图) 2015/7/16
- 下一篇:中线抄底 2015/7/15