同花顺主力筹码副图源码
DRAWGBK(DATE>900103,STRIP(RGB(0,110,150),RGB(0,20,40),1));
重心:=(2*CLOSE+HIGH+LOW+OPEN)/5;
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
偏差量:=重心-BBI;
RSV:=(偏差量-LLV(偏差量,9))/(HHV(偏差量,9)-LLV(偏差量,9))*100;
K:=SMA(RSV,3,1),ColorFF2B95,Linethick0;
d:SMA(K,3,1),Color42B1E8,Linethick0;
100,POINTDOT,ColorFFFFFF,Linethick5;
VAR2:=REF(LOW,1);
VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100;
VAR4:=EMA(IF(CLOSE*1.3,VAR3*10,VAR3/10),3);
VAR5:=LLV(LOW,13);
VAR6:=HHV(VAR4,13);
VAR7:=IF(MA(CLOSE,34),1,0);
VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7;
VAR9:=IF(VAR8>100,100,VAR8);
吸筹:
STICKLINE(VAR9>-120,0,VAR9,8,0),color00AAFF;
STICKLINE(VAR9>-120,0,VAR9,7,0),color00BBFF;
STICKLINE(VAR9>-120,0,VAR9,6,0),color00CCFF;
STICKLINE(VAR9>-120,0,VAR9,5,0),color00DDFF;
STICKLINE(VAR9>-120,0,VAR9,4,0),color00EEFF;
STICKLINE(VAR9>-120,0,VAR9,1,0),color00FFFF;
通天柱:=IF(CROSS(k,d),100,0),Linethick0;
STICKLINE(通天柱,0,100,8,0),color0000AA;
STICKLINE(通天柱,0,100,7,0),color0000BB;
STICKLINE(通天柱,0,100,6,0),color0000CC;
STICKLINE(通天柱,0,100,5,0),color0000DD;
STICKLINE(通天柱,0,100,4,0),color0000EE;
STICKLINE(通天柱,0,100,3,0),color0000FF;
彻地柱:=IF(CROSS(d,k),100,0),Linethick0;
STICKLINE(彻地柱,0,100,8,0),colorFF0000;
STICKLINE(彻地柱,0,100,7,0),colorFF3300;
STICKLINE(彻地柱,0,100,6,0),colorFF5500;
STICKLINE(彻地柱,0,100,5,0),colorFF7700;
STICKLINE(彻地柱,0,100,4,0),colorFF9900;
STICKLINE(彻地柱,0,100,3,0),colorFFBB00;
STICKLINE(彻地柱,0,100,2,0),colorFFDD00;
FILLRGN(d,REF(d,2),d>REF(d,2),RGB(255,255,0),d<REF(d,2),RGB(0,255,0));
