通达信集合筹码峰主图选股指标公式源码

通达信集合筹码峰主图选股指标公式源码

源码正文：

DA1:=IF(130>TOTALBARSCOUNT,TOTALBARSCOUNT,130){XG51};
DA:=IF(CURRBARSCOUNT>DA1,0,DA1){XG51};
HI:=REFDATE(HHV(H,DA),DATE){XG51};
LO:=REFDATE(LLV(L,DA),DATE){XG51};
C1:=IF(CURRBARSCOUNT<=DA,C,DRAWNULL){XG51};
GZ:=EXP(LN(HI/LO)/10){XG51};
LH1:=SUM(IF(C1>=(HI/GZ),V,0),DA){XG51};
LH2:=SUM(IF(C1>=(HI/POW(GZ,2)) AND C1<(HI/GZ),V,0),DA){XG51};
LH3:=SUM(IF(C1>=(HI/POW(GZ,3)) AND C1<(HI/POW(GZ,2)),V,0),DA){XG51};
LH4:=SUM(IF(C1>=(HI/POW(GZ,4)) AND C1<(HI/POW(GZ,3)),V,0),DA){XG51};
LH5:=SUM(IF(C1>=(HI/POW(GZ,5)) AND C1<(HI/POW(GZ,4)),V,0),DA){XG51};
LH6:=SUM(IF(C1>=(HI/POW(GZ,6)) AND C1<(HI/POW(GZ,5)),V,0),DA){XG51};
LH7:=SUM(IF(C1>=(HI/POW(GZ,7)) AND C1<(HI/POW(GZ,6)),V,0),DA){XG51};
LH8:=SUM(IF(C1>=(HI/POW(GZ,8)) AND C1<(HI/POW(GZ,7)),V,0),DA){XG51};
LH9:=SUM(IF(C1>=(LO*GZ) AND C1<LO*POW(GZ,2),V,0),DA){XG51};
LH10:=SUM(IF(C1>=LO AND C1<LO*GZ,V,0),DA){XG51};
L1:=REFDATE(HHV(LH1,DA),DATE),LINETHICK0{XG51};
L2:=REFDATE(HHV(LH2,DA),DATE),LINETHICK0{XG51};
L3:=REFDATE(HHV(LH3,DA),DATE),LINETHICK0{XG51};
L4:=REFDATE(HHV(LH4,DA),DATE){XG51};
L5:=REFDATE(HHV(LH5,DA),DATE){XG51};
L6:=REFDATE(HHV(LH6,DA),DATE){XG51};
L7:=REFDATE(HHV(LH7,DA),DATE){XG51};
L8:=REFDATE(HHV(LH8,DA),DATE){XG51};
L9:=REFDATE(HHV(LH9,DA),DATE){XG51};
L10:=REFDATE(HHV(LH10,DA),DATE){XG51};
SS:=(L1+L2+L3+L4+L5+L6+L7+L8+L9+L10){XG51};
stICKLINE(CEILING(DA*L1/SS)*3>=CURRBARSCOUNT,HI*99/100,HI/GZ,9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L2/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,1)*99/100,HI/POW(GZ,2),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L3/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,2)*99/100,HI/POW(GZ,3),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L4/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,3)*99/100,HI/POW(GZ,4),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L5/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,4)*99/100,HI/POW(GZ,5),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L6/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,5)*99/100,HI/POW(GZ,6),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L7/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,6)*99/100,HI/POW(GZ,7),9,0)COLOR3C3C3A,LINETHICK3{XG51};
市场成本:(COST(25)+COST(75)+ COST(11)+COST(21)+COST(46)+COST(96))/6,POINTDOT,LINETHICK4,COLORRED{XG51};
主力成本0:COST(5),POINTDOT,LINETHICK4,COLORYELLOW{XG51};
二分位:(H+L)/2 ,LINETHICK4,COLORWHITE,POINTDOT{XG51};
【H】:HHV(HIGH,10),LINETHICK2,COLORBROWN,NODRAW{XG51};
【L】:LLV(LOW,10),LINETHICK2,COLORBROWN,NODRAW{XG51};
LL1:LLV(CLOSE,20),LINETHICK2,COLORYELLOW{XG51};
HH1:HHV(CLOSE,21),LINETHICK2,COLORYELLOW{XG51};
箱体中轨:(LL1+HH1)/2,COLORYELLOW{XG51};
LLV(CLOSE,8),LINETHICK1,COLORRED{XG51};
RSV:=(CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10))*100{XG51};
K:=SMA(RSV,5,1){XG51};
D:=Sma(K,5,1){XG51};
J:=3*K-2*D{XG51};
X:=REF(J,1)<10 AND H>REF(H,1) AND C>REF(C,1) AND C>REF(O,1) AND L>REF(L,1){XG51};
STICKLINE(X,L ,L,20,0),COLOR008888{XG51};
STICKLINE(X,L ,H,0,0),COLORFF00FF{XG51};
STICKLINE(X,C ,O,2,0),COLORFF00FF{XG51};
RSV0:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100{XG51};
K0:=SMA(RSV0,5,1){XG51};
D0:=SMA(K0,5,1){XG51};
J0:=3*K0-2*D0{XG51};
X0:=REF(J0,1)>90 AND H>REF(H,1) AND C>REF(C,1) AND C>REF(O,1) AND L>REF(L,1){XG51};
STICKLINE(X0,L ,L,20,0),COLOR008888{XG51};
STICKLINE(X0,L ,H,0,0),COLORRED{XG51};
STICKLINE(X0,C ,O,1,0),COLORRED{XG51};
AAF:LLV(LOW,34),LINETHICK1,COLORFFFFCC{XG51};
BBF:MA(AAF,4),LINETHICK1,COLORBLUE{XG51};
LC:=REF(CLOSE,1){XG51};
rsi:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(Abs((CLOSE - LC)),3,1)) * 100){XG51};
FF:=ema(CLOSE,3){XG51};
MA15:=EMA(CLOSE,21){XG51};
DRAWTEXT(crOSS(FF,MA15),BBF,'底背离'),COLORA6E500{XG51};
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'顶背离'),COLOR1880FF{XG51};
XA:=(C+L+H)/3{XG51};
BB13:=ATAN(EMA(XA,13)-REF(EMA(XA,13),1))*3.1416*10{XG51};
EMA8:=EMA(C,8){XG51};
DRAWTEXT(FILTER(BB13>1 AND EMA(XA,13)>REF(EMA(XA,8),1),10),
EMA8,'&ang;45'),COLORRED{XG51};
X1:=(CLOSE+LOW+HIGH)/3{XG51};
X2:=EMA(X1,6){XG51};
X3:=EMA(X2,5){XG51};
STICKLINE(CROSS(X2,X3),OPEN,CLOSE,2,0),COLORGRAY{XG51};
DRAWTEXT(V>=REF(V*1.88,1) AND C>O AND C>REF(C,1),O,'&larr;---突量----------------------------------'),COLORWHITE{XG51};
DRAWTEXT(V>=REF(V*1.88,1) AND C<O AND C<REF(C,1),O,'&larr;---跌量---------------------'),COLORYELLOW{XG51};
RSV1:=(CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10))*100{XG51};
K1:=SMA(RSV1,5,1){XG51};
D1:=SMA(K1,5,1){XG51};
X8:=REF(K1,1)>80 AND H>REF(H,1) AND C>REF(C,1) AND C>REF(O,1) AND L>REF(L,1){XG51};
STICKLINE(X8,C ,O,2,0),COLOR1880FF{XG51};
STICKLINE(X8,L ,H,0,0),COLOR1880FF{XG51};
STICKLINE(X8,L ,L,20,0),COLOR1880FF{XG51};
AA1:=AMOUNT/V{XG51};
BB1:=L<AA1*0.9{XG51};
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2{XG51};
DD1:=L<MA(C,5)*0.921{XG51};
EE1:=V<MA(V,5)*1.5{XG51};
老鼠仓:=BB1 AND CC1 AND DD1 AND EE1,LINETHICK0{XG51};
DRAWTEXT(老鼠仓,(LOW* 0.99),'老鼠仓'),COLORBLUE{XG51};
DRAWTEXT(LLV(vol,13)=VOL AND C>=REF(C,1),O,'缩量'),COLORBLUE{XG51};
AA0:=SUMBARS(VOL,CAPITAL){XG51};
DRAWTEXT(IF(CAPITAL=0,AMOUNT=LLV(AMOUNT,34),VOL<MA(VOL,AA0)/3),L,'地量'),COLORRED{XG51};
VAR2:=(2*CLOSE+HIGH+LOW)/4{XG51};
VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1){XG51};
VAR4:=LLV(LOW,5); VAR5:=HHV(HIGH,4){XG51};
散户:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3{XG51};
庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3{XG51};
DRAWICON(CROSS(散户,庄家) AND 散户<10,L-0.05,1){XG51};
DRAWICON(CROSS(庄家,散户) AND 散户>20,H+0.05,2){XG51};
VAR9:=CLOSE-REF(CLOSE,5){XG51};
VARA:=EMA(EMA(VAR9,5),5)/EMA(EMA(ABS(VAR9),5),5){XG51};
VARC:=EMA(EMA(VAR9,10),10)/EMA(EMA(ABS(VAR9),20),20){XG51};
卖出:=IF(VARA>0 AND CROSS(VARC,VARA),90,100){XG51};
DRAWICON(卖出<0,H+0.05,2); 买线:=EMA(CLOSE,2){XG51};
卖线:=EMA(SLOPE(CLOSE,11)*10+CLOSE,22){XG51};
B1:IF(CROSS(买线,卖线),L-0.05,DRAWNULL),CROSSDOT,LINETHICK3,COLORLIMAGENTA{XG51};
S1:IF(CROSS(20,RSI)*10,H+0.05,DRAWNULL),CROSSDOT,LINETHICK3,COLORBLUE{XG51};
VC:=((CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100+(CLOSE-MA(CLOSE,20))/MA(CLOSE,20)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3{XG51};
S2:=IF(VC>20 AND FILTER(VC< REF(VC,1),5),H+0.05,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORCYAN{XG51};
A0:=(L+H+C*2)/4{XG51};
A1:EMA(A0,5)COLORYELLOW,LINETHICK2{XG51};
A2:=EMA(A0,10)COLORLIGREEN,LINETHICK2{XG51};
A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW{XG51};
A2X:=(A2-REF(A2,1))/REF(A2,1)*100,NODRAW{XG51};
看多:IF(A1X>=0 AND BArslAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),DRAWNULL),COLORLIMAGENTA{XG51};
逃顶:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),DRAWNULL),COLORGREEN,{XG51};
买入持股:IF(A1X>=0,A1,DRAWNULL)COLORWHITE,LINETHICK3{XG51};
卖出空仓:IF(A1X<0 AND A2X<0,A1,DRAWNULL)COLORCYAN,LINETHICK3{XG51};
STICKLINE(CROSS(A1X,0),H,L,0,0 ),COLOR9933FF{XG51};
STICKLINE(CROSS(A1X,0),C,O,3,0 ),COLOR0000CC{XG51};
STICKLINE(CROSS(A1X,0),C,O,1,0 ),COLOR0033FF{XG51};
STICKLINE(CROSS(0,A1X),L,H,0,0 ),COLOR66CC33{X_G.5~1_C_N_{};