有很多朋友发短信向我索要这个指标!
其实没啥特别的,就是自己瞎编的!简单点看图看的更清楚些,凑活着用吧!
指标中最后一段画线的指标是含有未来的,不喜欢的可以删掉!
公式需要在 通达信公式管理器5.0版本适用
{评台突破}
DRAWGBK(OPEN>0,RGB(33,47,58),RGB(0,0,0),0,'02',0);
{标缺口}
LL:=REF(L,1);HH:=REF(H,1);上跳:=L>HH;下跳:=H<LL;
STICKLINE(L>REF(H,1),L,REF(H,1),3.1,-1),COLORRED;
STICKLINE(REF(L,1)>H,REF(L,1),H,3.1,-1),COLORGREEN;
{K线}
A19:=1;
{灰色}
STICKLINE((OPEN >= (CLOSE * A19)),HIGH,LOW,0,0),COLOR909090;
STICKLINE((OPEN >= (CLOSE * A19)),CLOSE,OPEN,3.1,0),COLOR606060;
STICKLINE((OPEN >= (CLOSE * A19)),CLOSE,OPEN,2.1,0),COLOR707070;
STICKLINE((OPEN >= (CLOSE * A19)),CLOSE,OPEN,1.2,0),COLOR808080;
STICKLINE((OPEN >= (CLOSE * A19)),CLOSE,OPEN,0.2,0),COLOR909090;
STICKLINE((OPEN <= (CLOSE * A19)),HIGH,LOW,0,0),COLOR666B6F;
STICKLINE((CLOSE > (OPEN * A19)),CLOSE,OPEN,3.1,1),COLOR666B6F;
{涨停-红色}
ZDF:=(C-REF(C,1))/REF(C,1)*100;
STICKLINE(ZDF>9.5,C,O,3.1,0),COLOR0000CC;
STICKLINE(ZDF>9.5,C,O,2.1,0),COLOR0000DD;
STICKLINE(ZDF>9.5,C,O,1.2,0),COLOR0000EE;
STICKLINE(ZDF>9.5,C,O,0.2,0),COLOR0000FF;
STICKLINE(ZDF>9.5,HIGH,LOW,0 ,0),COLOR0000FF;
{跌停-绿色}
STICKLINE(ZDF<-9.9,O,C,3.1,0),COLOR66CC66;
STICKLINE(ZDF<-9.9,O,C,2.1,0),COLOR77DD77;
STICKLINE(ZDF<-9.9,O,C,1.2,0),COLOR88EE88;
STICKLINE(ZDF<-9.9,O,C,0.2,0),COLOR99FF99;
STICKLINE(ZDF<-9.9,HIGH,LOW,0 ,0),COLOR99FF99;
{ST或非ST涨跌停}
{ST涨停-红色}
STICKLINE((NAMELIKE('S') OR NAMELIKE('*')) AND ZDF>=4.945 AND C=H,O,C,3.1,0),COLOR0000CC;
STICKLINE((NAMELIKE('S') OR NAMELIKE('*')) AND ZDF>=4.945 AND C=H,O,C,2.1,0),COLOR0000DD;
STICKLINE((NAMELIKE('S') OR NAMELIKE('*')) AND ZDF>=4.945 AND C=H,O,C,1.2,0),COLOR0000EE;
STICKLINE((NAMELIKE('S') OR NAMELIKE('*')) AND ZDF>=4.945 AND C=H,O,C,0.2,0),COLOR0000FF;
STICKLINE((NAMELIKE('S') OR NAMELIKE('*')) AND ZDF>=4.945 AND C=H,HIGH,LOW,0 ,0),COLOR0000FF;
{ST跌停-绿色}
STICKLINE((NAMELIKE('S') OR NAMELIKE('*')) AND ZDF<=-4.945 AND C=C,O,C,3.1,0),COLOR66CC66;
STICKLINE((NAMELIKE('S') OR NAMELIKE('*')) AND ZDF<=-4.945 AND C=C,O,C,2.1,0),COLOR77DD77;
STICKLINE((NAMELIKE('S') OR NAMELIKE('*')) AND ZDF<=-4.945 AND C=C,O,C,1.2,0),COLOR88EE88;
STICKLINE((NAMELIKE('S') OR NAMELIKE('*')) AND ZDF<=-4.945 AND C=C,O,C,0.2,0),COLOR99FF99;
STICKLINE((NAMELIKE('S') OR NAMELIKE('*')) AND ZDF<=-4.945 AND C=C,HIGH,LOW,0 ,0),COLOR99FF99;
DRAWTEXT_FIX(1,0.6,0.02,0,'【名称】:'),COLORGREEN;
DRAWTEXT_FIX(1,0.675,0.02,0,STKNAME),COLORYELLOW;
DRAWTEXT_FIX(1,0.6,0.07,0,'【代码】:'),COLORGREEN;
DRAWTEXT_FIX(1,0.675,0.07,0,CODE),COLOR0080FF;
新价:CONST(C),COLORCYAN,DOTLINE;
DRAWTEXT_FIX(1,0.6,0.12,0,'【现价】:'),COLORGREEN;
DRAWNUMBER_FIX(1,0.675,0.12,0,新价),COLORCYAN;
{即时显示当天均价位}
DRAWTEXT_FIX(1,0.6,0.17,0,'【均价】:'),COLORGREEN;
DRAWNUMBER_FIX(1,0.675,0.17,0,DYNAINFO(11)),COLORWHITE;
{以上没有未来}
{评台突破画线-有未来-若不需要可自行删除}
HD:=FILTER(BACKSET(FILTER(REF(H,10)=HHV(H,2*10+1),10),10+1),10);
LD:=FILTER(BACKSET(FILTER(REF(L,10)=LLV(L,2*10+1),10),10+1),10);
A:=REF(H,BARSLAST(HD));
B:=REF(L,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD);
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
波顶:IF(T1,A,A),COLORWHITE,POINTDOT,LINETHICK2;
波底:IF(T2,B,B),COLORWHITE,POINTDOT,LINETHICK2;
|