好！利用周线抓牛股 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);