通达信筹码分析精品选股指标公式源码

通达信筹码分析精品选股指标公式源码

源码正文：

LC:=REF(CLOSE,1){XG51};
Wrsi:=SMA(maX(CLOSE-LC,0),5,1)/SMA(Abs(CLOSE-LC),5,1)*100{XG51};
获利筹码:=CONst(WINNER(C)*100){XG51};
SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20)){XG51};
量能饱和:=(IF(SAT>1,1,SAT)*100){XG51};
wr10:=(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3))*100{XG51};
活跃:=(WRSI-WR10){XG51};
活跃度比:=IF(活跃>=0,(活跃+100)/2,100-ABS((活跃-100)/2)){XG51};
DRAWTEXT_FIX(ISLASTBAR=1,0.83,0.25,1,STRCAT(STRCAT('量能饱和： ',CON2STR(量能饱和,2)),'％')),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR=1,0.83,0.52,1,STRCAT(STRCAT('活跃度比： ',CON2STR(活跃度比,2)),'％')),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR=1,0.83,0.75,1,STRCAT(STRCAT('获利筹码： ',CON2STR(获利筹码,2)),'％')),COLORBLUE{XG51};
DRAWRECTREL(950,470,630,365,RGB(150,10,250)){XG51};
DRAWRECTREL(950,710,630,610,RGB(150,10,250)){XG51};
DRAWRECTREL(950,855,630,955,RGB(150,10,250)){XG51};
DRAWRECTREL(950,470,630+CONST(量能饱和*(950-630)/100),365,RGB(0,100,0)){XG51};
DRAWRECTREL(790,470,790,365,RGB(0,0,10)){XG51};
DRAWRECTREL(950,710,630+CONST(活跃度比*(950-630)/100),610,RGB(0,100,0)){XG51};
DRAWRECTREL(790,710,790,610,RGB(0,0,10)){XG51};
DRAWRECTREL(950,855,630+CONST(获利筹码*(950-630)/100),955,RGB(0,100,0)){XG51};
DRAWRECTREL(790,855,790,955,RGB(0,0,10)){XG51};
总涨幅周期:=350{XG51};
高点位:=REFDATE(HHV(H,总涨幅周期),DATE);
低点位:=REFDATE(LLV(L,总涨幅周期),DATE){XG51};
低位价:=REF(L,BArslAST(低点位=L)),COLORCYAN,NODRAW{XG51};
高位价:=REF(H,BARSLAST(高点位=H)),COLORWHITE,NODRAW{XG51};
曾最大涨幅:=(高位价-低位价)/低位价*100{XG51};
当前涨幅:=(C-低位价)/低位价*100{XG51};
ZFA:=CON2STR(CONST(曾最大涨幅),2){XG51};
ZFB:=CON2STR(CONST(当前涨幅),2){XG51};
ZFC:=STRCAT('【曾最大涨幅】：',ZFA){XG51};
ZFD:=STRCAT(ZFC,'％'){XG51};
ZFE:=STRCAT(ZFD,'【当前总涨幅】：'){XG51};
ZFF:=STRCAT(ZFE,ZFB){XG51};
ZFG:=STRCAT(ZFF,'％'){XG51};
{XG51};
AA1X:=SUM(IF(CLOSE>REF(CLOSE,1),vol/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-
VOL/CAPITAL*100,0)),0)}{XG51};
成交额:=V*C/100,NODRAW{XG51};
AA2X:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0){XG51};
AA3X:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0){XG51};
AA4X:=SUM((IF(((成交额/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0){XG51};
AA5X:=SUM((IF(((成交额/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0){XG51};
AA6X:=((AA2X+AA3X)+AA4X)+AA5X{XG51};
DD1X:=1{XG51};
AAA1:=STRCAT(STRCAT('机构持有',CON2STR((100*AA2X)/AA6X,0)),'%'){XG51};
AAA2:=STRCAT(STRCAT('散户持有',CON2STR((100*AA3X)/AA6X,0)),'%'){XG51};
DRAWTEXT_FIX(1,0.83,0,1,'《★筹码分析★》'),COLORWHITE{XG51};
DRAWTEXT_FIX(DD1X=1,0.63,0,0,AAA1),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(DD1X=1,0.89,0,0,AAA2),COLORCYAN{XG51};
VARA5:=CONST(AA2X/AA6X*100){XG51};
DRAWRECTREL(950,220,630,115,RGB(150,10,250)){XG51};
DRAWRECTREL(950,220,630+CONST(VARA5*(950-630)/100),115,RGB(0,100,0)){XG51};
DRAWRECTREL(790,220,790,115,RGB(0,0,10)){X_G+5!1_C_N_{};