通达信主力吸筹指标源码

N1:=30;
N2:=5;
吸筹能量:=SUM(IF(CLOSE>OPEN AND VOL>REF(VOL,1)*1.5,VOL*(CLOSE-OPEN)/(HIGH-LOW),0),N1)/CAPITAL*100;
筹码沉淀:=MA(WINNER(CLOSE*0.92)*100,N1)-MA(WINNER(CLOSE*1.08)*100,N1);
控盘度:=EMA(吸筹能量,N2)*0.6+EMA(筹码沉淀,N2)*0.4;
量价异动:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100-(INDEXC-REF(INDEXC,1))/REF(INDEXC,1)*100;
STICKLINE(控盘度>REF(控盘度,1),控盘度,REF(控盘度,1),2,0),COLORRED;
STICKLINE(控盘度<=REF(控盘度,1),控盘度,REF(控盘度,1),2,0),COLORGREEN;
DRAWICON(CROSS(控盘度,20),控盘度,1);
DRAWICON(CROSS(80,控盘度),控盘度,2);