通达信筹码红绿柱图未加密选股指标公式源码

源码正文：

五十成本集中:=(COst(75)-COST(25))/(COST(75)+COST(25))*100{XG51};
成本价1:=COST(五十成本集中),COLORCYAN{XG51};
五十成本集中1:=100-五十成本集中{XG51};
成本价2:=COST(五十成本集中1),COLORYELLOW{XG51};
单峰密集价:成本价2/成本价1-1,STICK{XG51};
红:=REF(单峰密集价,1)<单峰密集价 AND 成本价2>REF(成本价2,1) {XG51};
绿:=REF(单峰密集价,1)>单峰密集价{XG51};
主力筹码:=单峰密集价<=0.25{XG51};
底部:=(COST(95)-COST(5))/(COST(95)+COST(5))*100{XG51};
底部成本价:=COST(底部),COLORBLUE{XG51};
顶部:=100-底部{XG51};
顶部成本价:=COST(顶部),COLORCYAN{XG51};
均值:=(底部+顶部)/2{XG51};
均值成本:=COST(均值),COLORLIRED,DOTLINE{XG51};
STICKLINE(红,单峰密集价,0,2.8,0),COLOR000055{XG51};
STICKLINE(红,单峰密集价,0,2,0),COLOR000088{XG51};
STICKLINE(红,单峰密集价,0,1.5,0),COLOR0000AA{XG51};
STICKLINE(红,单峰密集价,0,1,0),COLOR0000CC{XG51};
STICKLINE(红,单峰密集价,0,0.5,0),COLOR0000EE{XG51};
STICKLINE(红,单峰密集价,0,0,0),COLORFFFFFF{XG51};
底:=REF(单峰密集价,2)<REF(单峰密集价,1) AND 单峰密集价<REF(单峰密集价,1) AND 均值成本<REF(均值成本,1){XG51};
STICKLINE(底,单峰密集价,0,0,0),COLORCYAN{XG51};
STICKLINE(底,单峰密集价,0,2.8,0),COLOR009900{XG51};
STICKLINE(底,单峰密集价,0,2,0),COLOR00BB00{XG51};
STICKLINE(底,单峰密集价,0,1.5,0),COLOR00DD00{XG51};
STICKLINE(底,单峰密集价,0,0.5,0),COLOR00FF00{XG51};
顶:=REF(单峰密集价,2)<REF(单峰密集价,1) AND 单峰密集价<REF(单峰密集价,1) AND 均值成本>REF(均值成本,1){XG51};
STICKLINE(顶,单峰密集价,0,2,0),COLORBLUE{X!G*5^1!C!N!{};

源码正文：

日线锁定:=(PERIOD==4){XG51};
ZbsLPG:=22{XG51};
LTSHPG:=100-100*(HHV(H,40)-C)/(HHV(H,40)-LLV(L,40)){XG51};
ZB01:=LTSHPG>=50{XG51};
difPG:=ema(C,12)-Ema(C,26){XG51};
DEAPG:=EMA(DIFPG,9){XG51};
ZB02:=DIFPG>DEAPG{XG51};
APG:=MA((-100)*(HHV(H,34)-C)/(HHV(H,34)-LLV(L,34)),19){XG51};
BPG:=(-100)*(HHV(H,14)-C)/(HHV(H,14)-LLV(L,14)){XG51};
DPG:=EMA((-100)*(HHV(H,34)-C)/(HHV(H,34)-LLV(L,34)),4){XG51};
QSDDLONG:=APG+100{XG51};
QSDDSHORT:=BPG+100{XG51};
QSDdmiD:=DPG+100{XG51};
ZB03:=QSDDSHORT>QSDDMID{XG51};
ZB04:=QSDDSHORT>QSDDLONG{XG51};
ZB05:=QSDDMID>QSDDLONG{XG51};
RSVPG:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100{XG51};
KPG:=SMA(RSVPG,3,1){XG51};
DPG2:=SMA(KPG,3,1);
ZB06:=KPG>DPG2{XG51};
LCPG:=REF(CLOSE,1){XG51};
RPG1:=SMA(MAX(C-LCPG,0),6,1)/SMA(ABS(C-LCPG),6,1)*100{XG51};
RPG2:=SMA(MAX(C-LCPG,0),12,1)/SMA(ABS(C-LCPG),12,1)*100{XG51};
RPG3:=SMA(MAX(C-LCPG,0),24,1)/SMA(ABS(C-LCPG),24,1)*100{XG51};
ZB07:=RPG1>RPG2{XG51};
ZB08:=RPG1>RPG3{XG51};
ZB09:=RPG2>RPG3{XG51};
ZB10:=MA(C,5)>MA(C,10){XG51};
ZB11:=MA(C,5)>MA(C,20){XG51};
ZB12:=MA(C,10)>MA(C,20){XG51};
MAVPG:=(C*2+H+L)/4;
SKPG:=EMA(MAVPG,13)-EMA(MAVPG,34);
SDPG:=EMA(SKPG,5){XG51};
ZB13:=(2*(SKPG-SDPG))>((-2)*(SKPG-SDPG)){XG51};
MIDPGX:=(3*C+O+L+H)/6{XG51};
dkxPG1:=WMA(MIDPGX,5){XG51};
DKXPG2:=WMA(MIDPGX,10){XG51};
DKXPG3:=WMA(MIDPGX,20){XG51};
ZB14:=DKXPG1>REF(DKXPG1,1){XG51};
ZB15:=DKXPG2>REF(DKXPG2,1){XG51};
ZB16:=DKXPG3>REF(DKXPG3,1){XG51};
G08PG:=EMA(C,34){XG51};
ZB17:=G08PG>REF(G08PG,1){XG51};
B08PG:=(C-LLV(L,60))/(HHV(H,60)-LLV(L,60))*80;
BPG1:=SMA(B08PG,7,1);
BPG2:=SMA(BPG1,3,1);
ZB18:=BPG1>BPG2{XG51};
bbiPG:=(MA(C,3)+MA(C,6)+MA(C,12)+MA(C,24))/4{XG51};
ZB19:=C>BBIPG;
MIDSLB:=(3*C+L+O+H)/6{XG51};
E1:=EMA(10000*(WMA(MIDSLB,30)-REF(WMA(MIDSLB,30),1))/REF(WMA(MIDSLB,30),1),10){XG51};
E2:=EMA(E1,2){XG51};
E3:=EMA(E2,2){XG51};
E4:=EMA(E3,2){XG51};
E5:=EMA(E4,2){XG51};
E6:=EMA(E5,2){XG51};
E7:=EMA(E6,2){XG51};
ZB20:=E2>E3 AND E3>E4 AND E4>E5 AND E5>E6 AND E6>E7{XG51};
ZB21:=E2>REF(E2,1) AND E3>REF(E3,1) AND E4>REF(E4,1) AND E5>REF(E5,1) AND E6>REF(E6,1) AND E7>REF(E7,1);
TRPG1:=MAX(MAX((H-L),ABS(H-REF(C,1))),ABS(REF(C,1)-L)){XG51};
ATRPG1:=EMA(TRPG1,14){XG51};
HDPG:=H-REF(H,1){XG51};
LDPG:=REF(L,1)-L{XG51};
PDMPG:=EMA(IFF(HDPG>0 AND HDPG>LDPG,HDPG,0),14){XG51};
MDMPG:=EMA(IFF(LDPG>0 AND LDPG>HDPG,LDPG,0),14){XG51};
pdiPG:=PDMPG/ATRPG1{XG51};
mdiPG:=MDMPG/ATRPG1{XG51};
XLPG:=(PDIPG-MDIPG)/(PDIPG+MDIPG){XG51};
ZB22:=XLPG>0{XG51};
量化指标:(ZB01+ZB02+ZB03+ZB04+ZB05+ZB06+ZB07+ZB08+ZB09+ZB10+
ZB11+ZB12+ZB13+ZB14+ZB15+ZB16+ZB17+ZB18+ZB19+ZB20+ZB21+ZB22)*(100/ZBSLPG)NODRAW,COLORWHITE{XG51};
▲35线:35,COLORCYAN{XG51};
▲50线:50,COLORBLUE{XG51};
▲80线:80,COLORWHITE{XG51};
stICKLINE(量化指标>=REF(量化指标,1),0,量化指标,3,0),COLORWHITE{XG51};
STICKLINE(量化指标<REF(量化指标,1),0,量化指标,3,0),COLORFFFF00{XG51};
STICKLINE(量化指标>=REF(量化指标,1),0,量化指标,3,0),COLOR0000FF{XG51};
STICKLINE(量化指标>=REF(量化指标,1),0,量化指标,2.7.5,0),COLOR001BFF{XG51};
STICKLINE(量化指标>=REF(量化指标,1),0,量化指标,2.4,0),COLOR0035FF{XG51};
STICKLINE(量化指标>=REF(量化指标,1),0,量化指标,2.1,0),COLOR0050FF{XG51};
STICKLINE(量化指标>=REF(量化指标,1),0,量化指标,1.8,0),COLOR0062FF{XG51};
STICKLINE(量化指标>=REF(量化指标,1),0,量化指标,1.5,0),COLOR007AFF{XG51};
STICKLINE(量化指标>=REF(量化指标,1),0,量化指标,1.2,0),COLOR0089FF{XG51};
STICKLINE(量化指标>=REF(量化指标,1),0,量化指标,0.9,0),COLOR009CFF{XG51};
STICKLINE(量化指标>=REF(量化指标,1),0,量化指标,0.6,0),COLOR00C0FF{XG51};
STICKLINE(量化指标>=REF(量化指标,1),0,量化指标,0.3,0),COLOR00EAFF{X-G-5~1-C-N-{};