通达信3D筹码盘点未加密选股指标公式源码

源码正文：

P:=90{XG51};
HH:=IF(C<REF(C,1) AND H<REF(L,1),REF(L,1),H){XG51};
LL:=IF(C>REF(C,1) AND L>REF(H,1),REF(H,1),L){XG51};
穿越筹码:=(WINNER(HH)-WINNER(LL))*100,COLORYELLOW{XG51};
stICKLINE(1,穿越筹码/2,穿越筹码/2,2.5,0),COLORYELLOW{XG51};
STICKLINE(1,穿越筹码/2,穿越筹码/2,3.2,0),COLOR990000{XG51};
STICKLINE(1,穿越筹码/2,-穿越筹码/2,2.5,0),COLORCC0000{XG51};
STICKLINE(1,穿越筹码/2,-穿越筹码/2,1.9,0),COLORFF4400{XG51};
STICKLINE(1,穿越筹码/2,-穿越筹码/2,1.4,0),COLORFF8800{XG51};
STICKLINE(1,穿越筹码/2,-穿越筹码/2,0.4,0),COLORFFCC00{XG51};
获利出货码:(PWINNER(1,LL)-WINNER(LL))*100,POINTDOT,COLORWHITE{XG51};
STICKLINE(获利出货码>0,0,获利出货码,2.5,0),COLORWHITE{XG51};
STICKLINE(获利出货码>0,0,获利出货码,2.8,0)COLOR000066{XG51};
STICKLINE(获利出货码>0,0,获利出货码,2.3,0)COLOR000077{XG51};
STICKLINE(获利出货码>0,0,获利出货码,1.7,0)COLOR000099{XG51};
STICKLINE(获利出货码>0,0,获利出货码,1.2,0)COLOR0000CC{XG51};
STICKLINE(获利出货码>0,0,获利出货码,0.1,0)COLORCC66FF{XG51};
套牢割肉码:(WINNER(HH)-PWINNER(1,HH))*100,POINTDOT,COLORCYAN{XG51};
STICKLINE(套牢割肉码>0,0,-套牢割肉码,2.5,0),COLORCYAN{XG51};
STICKLINE(套牢割肉码>0,0,-套牢割肉码,3.2,0),COLOR007700{XG51};
STICKLINE(套牢割肉码>0,0,-套牢割肉码,2.8,0),COLOR009900{XG51};
STICKLINE(套牢割肉码>0,0,-套牢割肉码,2.1,0),COLOR00BB00{XG51};
STICKLINE(套牢割肉码>0,0,-套牢割肉码,1.6,0),COLOR00DD00{XG51};
STICKLINE(套牢割肉码>0,0,-套牢割肉码,0.4,0),COLOR00FF00{XG51};
A:=P+(100-P)/2{XG51};
B:=(100-P)/2{XG51};
CC:=COST(A){XG51};
DD:=COST(B){XG51};
CMJZD:=(CC-DD)/(CC+DD)*100/2{XG51};
筹码集中度:ma(CMJZD,3),COLORWHITE{XG51};
筹码集中升:IF(筹码集中度>=REF(筹码集中度,3),筹码集中度,DRAWNULL),COLOR000099,LINETHICK2{XG51};
筹码集中降:IF(筹码集中度<REF(筹码集中度,3),筹码集中度,DRAWNULL),COLOR009900,LINETHICK2{XG51};
比例变化:(筹码集中度-REF(筹码集中度,1))/REF(筹码集中度,1)*100,COLORRED,LINETHICK2{XG51};
拉高加仓:IF(筹码集中度>REF(筹码集中度,3) AND MA(C,20)>REF(MA(C,20),3),1,0),COLOR0093FF;
拉高加仓1:STICKLINE(拉高加仓>0,0,筹码集中度*0.33,2.7,0),COLOR0035FF;
STICKLINE(拉高加仓>0,0,筹码集中度*0.33,2.1,0),COLOR0064FF{XG51};
STICKLINE(拉高加仓>0,0,筹码集中度*0.33,1.5,0),COLOR0093FF{XG51};
STICKLINE(拉高加仓>0,0,筹码集中度*0.33,0.9,0),COLOR00C2FF{XG51};
STICKLINE(拉高加仓>0,0,筹码集中度*0.33,0.3,0),COLOR00FFFF{XG51};
下跌加仓:IF(筹码集中度>REF(筹码集中度,3) AND MA(C,20)<REF(MA(C,20),3),1,0),COLORFF0066;
下跌加仓1:STICKLINE(下跌加仓>0,0,筹码集中度*0.33,2.7,0),COLORFF0033{XG51};
STICKLINE(下跌加仓>0,0,筹码集中度*0.33,2.7,0),COLORFF0066{XG51};
STICKLINE(下跌加仓>0,0,筹码集中度*0.33,1.5,0),COLORFF0099{XG51};
STICKLINE(下跌加仓>0,0,筹码集中度*0.33,0.9,0),COLORFF00CC{XG51};
STICKLINE(下跌加仓>0,0,筹码集中度*0.33,0.3,0),COLORFF00FF{XG51};
底:0{XG51};
线1:10,COLORRED,POINTDOT{XG51};
线2:20,COLORFF00FF,POINTDOT{X-G^5-1-C-N-{};

源码正文：

GJTJ1:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5)){XG51};
GJTJ2:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10)){XG51};
GJTJ3:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20)){XG51};
GJTJ4:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30)){XG51};
XG:=BArslAst(crOSS(GJTJ4,GJTJ1))<5 AND GJTJ1>GJTJ4{XG51};
ENTERLONG:COUNT(XG,3)=1 AND XG{X~G_5-1~C~N~{};