通达信裸K箱体主图选股指标公式源码

通达信裸K箱体主图选股指标公式源码

源码正文：

KK:=IF(H=HHV(H,3),H,L){XG51};
KK0:=CONst(maX(TROUGHBARS(KK,15,1),PEAKBARS(KK,15,1))){XG51};
前期大箱顶:IF(CURRBARSCOUNT<KK0+2,CONST((PEAK(KK,15,1))),DRAWNULL),COLORWHITE{XG51};
前期大箱底:IF(CURRBARSCOUNT<KK0+2,CONST((TROUGH(KK,15,1))),DRAWNULL),COLORGRAY,LINETHICK1{XG51};
STICKLINE(CURRBARSCOUNT<KK0+2,前期大箱顶,前期大箱底,5,0),COLOR00AA99{XG51};
N:=13{XG51};
BC:=(H*0.382+L*0.618+O*0.382+C*0.618)/2{XG51};
LJ:=IF(INDEXC=C,BC,(BC+AMOUNT/(V*100))/2),COLORBROWN{XG51};
HT:=REF((HHV(LJ,N*0.691)+HHV(LJ,N)+HHV(LJ,N*1.309))/3,1),LINETHICK,COLORWHITE{XG51};
LT:=REF((LLV(LJ,N*0.691)+LLV(LJ,N)+LLV(LJ,N*1.309))/3,1),LINETHICK,COLORCYAN{XG51};
ZT:=(HT+LT)/2,LINETHICK,COLORBLUE{XG51};
STICKLINE(ISLASTBAR=1  AND LJ<ZT,HT,LT,N*8,0),COLORYELLOW{XG51};
STICKLINE(ISLASTBAR=1  AND LJ=ZT,HT,LT,N*8,0),COLORBROWN{XG51};
STICKLINE(ISLASTBAR=1  AND LJ>ZT,HT,LT,N*8,1),COLOR6600FF{XG51};
STICKLINE(ISLASTBAR=1,ZT,ZT,N*8,0),COLORBROWN{XG51};
箱顶:HT,COLORCYAN,NODRAW,LINETHICK1{XG51};
箱中:ZT,COLORBROWN,NODRAW,LINETHICK1{XG51};
箱底:LT,COLORA943FF,NODRAW,LINETHICK1{XG51};
DRAWKLINE(H,O,L,C){XG51};
ZKP:=IF(C>REF(C,1),REF(C,1),DRAWNULL){XG51};
ZSP:=IF(C>REF(C,1),C,DRAWNULL){XG51};
DKP:=IF(C<=REF(C,1),REF(C,1),DRAWNULL){XG51};
DSP:=IF(C<=REF(C,1),C,DRAWNULL){XG51};
DRAWKLINE(H,DKP,L,DSP){XG51};
STICKLINE(C<=REF(C,1),DKP,DSP,2.4,0),COLORYELLOW{XG51};
STICKLINE(C<=REF(C,1),DKP,DSP,1.8,0),COLORFF7700{XG51};
STICKLINE(C<=REF(C,1),DKP,DSP,1.2,0),COLORFF9900{XG51};
STICKLINE(C<=REF(C,1),DKP,DSP,0.6,0),COLORFFBB00{XG51};
DRAWKLINE(H,ZKP,L,ZSP){XG51};
STICKLINE(C>REF(C,1),ZKP,ZSP,2.4,0),COLOR000099{XG51};
STICKLINE(C>REF(C,1),ZKP,ZSP,1.8,0),COLOR0000CC{XG51};
STICKLINE(C>REF(C,1),ZKP,ZSP,1.2,0),COLOR0000FF;
STICKLINE(C>REF(C,1),ZKP,ZSP,0.6,0),COLORCC66FF{XG51};
STICKLINE(V/REF(V,1)>2 AND CLOSE>=OPEN,ZKP,ZSP,0.8,0),COLORBLUE{XG51};
三日不破:=MIN(MIN(L,REF(L,1)),REF(L,2))>=REF(L,3){XG51};
三日量缩:=(MAX(MAX(V,REF(V,1)),REF(V,2))<REF(V,3)){XG51};
三日价涨A:=C>=REF(C,1){XG51};
三日价涨B:=C<REF(C,1){XG51};
三日价涨C:=MIN(MIN(C,REF(C,1)),REF(C,2))>=REF(L,3){XG51};
TIM:=IF(DATE<1140214,1,0){XG51};
倍量柱:=C>REF(C,1)*1.04 AND (vol>=1.9*REF(VOL,1))*TIM{XG51};
四日前倍量柱:=(REF(VOL,3)>1.9*REF(VOL,4))*TIM{XG51};
四日前高量柱:=(REF(VOL,3)>=REF(VOL,4) AND REF(VOL,3)<1.9*REF(VOL,4) AND 三日量缩)*TIM{XG51};
前三引用不成立:=COUNT(REF(四日前倍量柱,1) AND (REF(三日不破,1) OR REF(三日价涨C,1)),3)=0 AND COUNT(REF(四日前高量柱,1) AND (REF(三日不破,1) OR REF(三日价涨C,1)),3)=0{XG51};
倍量黄金柱:=四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立{XG51};
高量黄金柱:=四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立{XG51};
黄金柱:=倍量黄金柱 OR 高量黄金柱{XG51};
次倍量黄金柱:=NOT(黄金柱) AND 四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨B AND 前三引用不成立{XG51};
次高量黄金柱:=NOT(黄金柱) AND 四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨B AND 前三引用不成立{XG51};
次黄金柱:=次倍量黄金柱 OR 次高量黄金柱{XG51};
准倍量黄金柱:=NOT(黄金柱 OR 次黄金柱) AND 四日前倍量柱 AND ((三日量缩 AND 三日价涨C) OR (COUNT(倍量柱,3)>=1 AND 三日不破)) AND 前三引用不成立{XG51};
准高量黄金柱:=NOT(黄金柱 OR 次黄金柱) AND 四日前高量柱 AND (三日量缩 AND 三日价涨C) AND 前三引用不成立{XG51};
准黄金柱:=准倍量黄金柱 OR 准高量黄金柱{XG51};
倍量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱) AND 四日前倍量柱 AND 三日不破 AND 三日价涨A AND 前三引用不成立{XG51};
高量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱) AND 四日前高量柱 AND 三日不破 AND 三日价涨A AND 前三引用不成立{XG51};
将军柱:=倍量将军柱 OR 高量将军柱{XG51};
BacKSET101:=BACKSET(黄金柱,4){XG51};
FILTER101:=FILTER(BACKSET101,3){XG51};
BACKSET104:=BACKSET(将军柱,4){XG51};
FILTER104:=FILTER(BACKSET104,3){XG51};
K1:=SUMBARS(FILTER104,1){XG51};
STICKLINE(K1,REF(L,K1-2),REF(L,K1-2),0.506,0),COLORRED;
K2:=SUMBARS(FILTER101,1){XG51};
STICKLINE(K2,REF(L,K2-2),REF(L,K2-2),0.506,0),COLORRED{XG51};
DRAWTEXT(ISLASTBAR,REF(L,K1-2)*0.99,CON2STR(REF(L,K1-2),2)),COLORWHITE,LINETHICK1{XG51};
DRAWTEXT(ISLASTBAR,REF(L,K2-2)*0.99,CON2STR(REF(L,K2-2),2)),COLORCYAN,LINETHICK1{X_G!5~1_C_N_{};