通达信私募建仓副图源码

N:=60;
 K值:="KDJ.K";
 DD:=C=LLV(C,N);{60日最低点}
DDSJ:=BARSLAST(REF(DD,1));{上一低点时间}
DDGJ:=REF(CLOSE,DDSJ+1)>CLOSE;{股价趋势}
KDZB:=REF(K值,DDSJ+1)<K值;{KDJ.K指标趋势}
K底背离:=DDGJ AND KDZB;
 GD:=C=HHV(C,N);{60日最高点}
GDSJ:=BARSLAST(REF(GD,1));{上一高点时间}
GDGJ:=REF(CLOSE,GDSJ+1)<CLOSE;{股价趋势}
KGZB:=REF(K值,GDSJ+1)>K值;
K顶背离:=GDGJ AND KGZB;
 MACD:="MACD.MACD";
 MDZB:=REF(MACD,DDSJ+1)<MACD;{MACD指标趋势}
M底背离:=DDGJ AND MDZB;
 MGZB:=REF(MACD,GDSJ+1)>MACD;
 M顶背离:=GDGJ AND MGZB;

RSI:="RSI.RSI1";
 RDZB:=REF(RSI,DDSJ+1)<RSI;{RSI指标趋势}
R底背离:=DDGJ AND RDZB;
 RGZB:=REF(RSI,GDSJ+1)>RSI;
 R顶背离:=GDGJ AND RGZB;
 TYP:=(HIGH + LOW + CLOSE)/3;
 CCI:=(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N));
 CDZB:=REF(CCI,DDSJ+1)<CCI;{CCI指标趋势}
C底背离:=DDGJ AND CDZB;
 CGZB:=REF(CCI,GDSJ+1)>CCI;
 C顶背离:=GDGJ AND CGZB;
 REFLINE: -5,15,30,COLORBLACK;
 DRAWTEXT(K顶背离,IF(ISLASTBAR,27.5,25),'◆'),LINETHICK2 ;
 DRAWTEXT(M顶背离,(ISLASTBAR,24.5,20),'◆'),LINETHICK2 ;
 DRAWTEXT(R顶背离,(ISLASTBAR,20.5,15.1),'◆'),LINETHICK2 ;
 DRAWTEXT(C顶背离,(ISLASTBAR,16.6,10.1),'◆'),LINETHICK2 ;
 DRAWTEXT(ISLASTBAR,10.1 ,'CCI '),LINETHICK2,COLORGREEN;
 DRAWTEXT(C底背离,IF(ISLASTBAR,12,10.1 ),'◆'),LINETHICK2,COLORRED;
 DRAWTEXT(ISLASTBAR,15,'RSI '),LINETHICK2,COLORRED;
 DRAWTEXT(R底背离,IF(ISLASTBAR,8.5,15),'◆'),LINETHICK2,COLORRED;
 DRAWTEXT(ISLASTBAR,20,'MACD '),LINETHICK2,COLORMAGENTA;
 DRAWTEXT(M底背离,IF(ISLASTBAR,4.5,20),'◆'),LINETHICK2,COLORRED;
 DRAWTEXT(ISLASTBAR,25,'KDJ '),LINETHICK2,COLORRED;
 DRAWTEXT(K底背离,IF(ISLASTBAR,1.5,25),'◆'),LINETHICK2,COLORRED;
 XIAO1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
 XIAO2:=SMA(ABS(LOW-XIAO1),13,1)/SMA(MAX(LOW-XIAO1,0),10,1);
 XIAO3:=EMA(XIAO2,10);
 XIAO4:=LLV(LOW,33);
 XIAO5:=EMA(IF(LOW<=XIAO4,XIAO3,0),3);
 STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,3,0 ),COLOR000055,NODRAW;
 STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,2.6,0 ),COLOR000077,NODRAW;
 STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,2.1,0 ),COLOR000099,NODRAW;
 STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,1.5,0 ),COLOR0000BB,NODRAW;
 STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,0.9,0 ),COLOR0000DD,NODRAW;
 STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,0.3,0 ),COLOR0000FF,NODRAW;
 {STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,3,0),COLOR005500;
 STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,2.6,0),COLOR007700;
 STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,2.1,0),COLOR009900;
 STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,1.5,0),COLOR00BB00;
 STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,0.9,0),COLOR00DD00;
 STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,0.3,0),COLOR00FF00; }
 IN:IF(XIAO5>REF(XIAO5,1),XIAO5,0),COLORRED,NODRAW;
 {私募洗盘:IF(XIAO5<REF(XIAO5,1),XIAO5,0),COLORGREEN,NODRAW; };
私募建仓:IN>=80,COLORRED,NODRAW;
 STICKLINE(私募建仓,29,27,1,0),COLORRED;