【通达信源码分享】精品指标公式－周线抓牛股 KDJ/BBD两组副图公式

周KDJ公式源码

周J:EMA("KDJ.J#WEEK"(9,2,5),5),COLORFF9900; 

周:=周J-REF(周J,1) ;

STICKLINE(周>0  AND 周J>-20,-80,周J,4,0),COLOR545454; 

STICKLINE(周<0  AND 周J>-20,周J,-80,4,0), COLOR215E21;

周K:EMA("KDJ.K#WEEK"(9,2,5),5),COLORE9C2A6,LINETHICK1;

周D:EMA("KDJ.D#WEEK"(9,2,5),5),COLOR00FF00,LINETHICK1;

CG:=(周J>REF(周J,1)) AND 周J>-20;

STICKLINE(周>0  AND 周J>-20,周*2,0,12,0),COLOR0598FF;

STICKLINE(周<0  AND 周J>-20,周*2,0,12,0),COLORFF9900;

DRAWTEXT(CROSS(周K,周D),周K*1.15,'金叉'),COLOR0077FF,LINETHICK2;

DRAWTEXT(CROSS(周K,周D),周K*1,'▲'),LINETHICK3,COLOR0000FF;  

DRAWTEXT(CROSS(周D,周K),周K*0.98,'死叉'),COLOR00FF00,LINETHICK2;

DRAWTEXT(CROSS(周D,周K),周K*1.15,'▼'),LINETHICK3,COLOR00FF00;

DIFF :EMA( EMA(CLOSE,12) - EMA(CLOSE,26),3),COLOR0000FF,LINETHICK0;

DEA  : EMA(DIFF,9),COLOR00FF00,LINETHICK0;

MACD : 2*(DIFF-DEA),LINETHICK0;

五:5,COLORBLUE,LINETHICK2;

弱:IF((周J>REF(周J,1)) AND 周J>-20,DRAWNULL,0),COLORYELLOW,LINETHICK2;

变红:IF(周>0  AND 周J>-20,周J,DRAWNULL),COLORRED,LINETHICK3;

强:DRAWLINE(周<0  AND 周J>-20,0,周>0 AND 周J>-20 ,0,0)COLORRED,LINETHICK3;

消失:IF(周<0  AND 周J>-30,周J,DRAWNULL),COLORDB70DB,LINETHICK1;

BBD副图源码

AL:=(C+L+H)/3;

AO:=SMA(AL,5,1)-SMA(AL,13,1);

BBD:(AO-SMA(AO, 3,1))*100,COLORFFCCFF,NODRAW;

BBDA:SMA(BBD,5,2),COLORRED,LINETHICK0;

RSV1:=BBD;

RSV2:=BBDA;

{BBD彩色柱体}

VAR11:=IF(DATE<1091230 AND DATE>900101,1,0);

BBD1:=IF(BBD>=REF(BBD,1)*VAR11,BBD,DRAWNULL);

BBD2:=IF(BBD<REF(BBD,1)*VAR11,BBD,DRAWNULL);

STICKLINE(BBD1,0,BBD,3,0),COLOR000088;

STICKLINE(BBD1,0,BBD,1.5,0),COLOR0000AA;

STICKLINE(BBD1,0,BBD,1,0),COLOR0000CC;

STICKLINE(BBD1,0,BBD,0.5,0),COLOR0000FF;

STICKLINE(BBD2,0,BBD,3,0),COLOR888800;

STICKLINE(BBD2,0,BBD,1.5,0),COLORAAAA00;

STICKLINE(BBD2,0,BBD,1,0),COLORCCCC00;

STICKLINE(BBD2,0,BBD,0.5,0),COLORFFFF00;

{SV1:=BARSLAST(REF(CROSS(RSV1,RSV2),1));

SV1A:=REF(CLOSE,SV1+1)>CLOSE AND RSV1>REF(RSV1,SV1+1) AND

CROSS(RSV1,RSV2);

上涨BBD:IF(SV1A,RSV2,DRAWNULL),COLORRED;

DRAWTEXT(SV1A,RSV2,'─B底背'),COLOR0033FF;

SV2:=BARSLAST(REF(CROSS(RSV2,RSV1),1));

SV2A:=REF(CLOSE,SV2+1)<CLOSE AND REF(RSV1,SV2+1)>RSV1 AND CROSS(RSV2,RSV1);

下跌BBD:IF(SV2A,RSV2,DRAWNULL),COLORFFFF00;}

DRAWICON(((((LLV(BBD,4) > 0) AND (BBD < REF(BBD,1)))

AND (REF(BBD,1) > REF(BBD,2))) AND (REF(BBD,2) > REF(BBD,3)))

,BBD,2);

DRAWICON(((((HHV(BBD,4) < 0) AND (BBD > REF(BBD,1))) AND (REF(BBD,1) < REF(BBD,2))) AND (REF(BBD,2) <

REF(BBD,3))),BBD,1);