通达信筹码透市指标公式源码

VAR1:=REF(C,1);
VAR2:=SMA(MAX(C-VAR1,0),5,1)/SMA(Abs(C-VAR1),5,1)*100;
VAR3:=CONST(WINNER(C)*100);
VAR4:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));
VAR5:=(IF(VAR4>1,1,VAR4)*100);
VAR6:=(HHV(HIGH,3)-C)/(HHV(HIGH,3)-LLV(LOW,3))*100;
VAR7:=(VAR2-VAR6);
VAR8:=IF(VAR7>=0,(VAR7+100)/2,100-ABS((VAR7-100)/2));
DRAWTEXT_FIX(ISLASTBAR=1,0.83,0.25,1,STRCAT(STRCAT('量能饱和： ',CON2STR(VAR5,2)),'％')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR=1,0.83,0.52,1,STRCAT(STRCAT('活跃度比： ',CON2STR(VAR8,2)),'％')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR=1,0.83,0.75,1,STRCAT(STRCAT('获利筹码： ',CON2STR(VAR3,2)),'％')),COLORYELLOW;
DRAwrECTREL(950,470,630,365,RGB(150,10,250));
DRAWRECTREL(950,710,630,610,RGB(150,10,250));
DRAWRECTREL(950,855,630,955,RGB(150,10,250));
DRAWRECTREL(950,470,630+CONST(VAR5*(950-630)/100),365,RGB(0,100,0));
DRAWRECTREL(790,470,790,365,RGB(0,0,10));
DRAWRECTREL(950,710,630+CONST(VAR8*(950-630)/100),610,RGB(0,100,0));
DRAWRECTREL(790,710,790,610,RGB(0,0,10));
DRAWRECTREL(950,855,630+CONST(VAR3*(950-630)/100),955,RGB(0,100,0));
DRAWRECTREL(790,855,790,955,RGB(0,0,10));
VAR23:=SUM(IF(C>REF(C,1),vol/CAPITAL*100,IF(C< REF(C,1),-VOL/CAPITAL*100,0)),0);
VAR24:=V*C/100,NODRAW;
VAR25:=SUM((IF(((VAR24/8>20) AND (C>(REF(C,1)))),VAR24,0)),0);
VAR26:=SUM((IF(((VAR24/8>20) AND (C< (REF(C,1)))),VAR24,0)),0);
VAR27:=SUM((IF(((VAR24/8< 20) AND (C>(REF(C,1)))),VAR24,0)),0);
VAR28:=SUM((IF(((VAR24/8< 20) AND (C< (REF(C,1)))),VAR24,0)),0);
VAR29:=((VAR25+VAR26)+VAR27)+VAR28;
VAR30:=1;
VAR31:=STRCAT(STRCAT('机构持有',CON2STR((100*VAR25)/VAR29,0)),'%');
VAR32:=STRCAT(STRCAT('散户持有',CON2STR((100*VAR26)/VAR29,0)),'%');
DRAWTEXT_FIX(1,0.83,0,1,'《★筹码分析★》'),COLORRED;
DRAWTEXT_FIX(VAR30=1,0.63,0,0,VAR31),COLORMAGENTA;
DRAWTEXT_FIX(VAR30=1,0.89,0,0,VAR32),COLORGREEN;
VAR33:=CONST(VAR25/VAR29*100);
DRAWRECTREL(950,220,630,115,RGB(150,10,250));
DRAWRECTREL(950,220,630+CONST(VAR33*(950-630)/100),115,RGB(0,100,0));
DRAWRECTREL(790,220,790,115,RGB(0,0,10));