|
以下是通达信红绿灯源码副图（无源码的请下载附件导入）
一个很不错的公式，我老师给我的，亲测有效。现抛砖引玉，希望大家也多多分享，共同进步。
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);
644511987.jpg
|
