VAR1:=EMA(EMA(CLOSE,13),13);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盘<0,控盘,0,1,1),COLOR00FF00;
STICKLINE(控盘>REF(控盘,1) AND 控盘<0,控盘,0,1,1),COLORFF00FF;
无庄控盘:=控盘<0;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,

M:=88;
N1:=6;
VAR0A:=EMA(EMA(EMA(CLOSE,2),2),2);MA13:(MA(VAR0A,13)*0.99);
(MA(VAR0A,13)*0.999);
TLAMSENR:=MAX(MAX((HIGH-LOW),ABS((REF(CLOSE,1)-HIGH))),ABS((REF(CLOSE,1)-LOW)));
ATR:=MA(TLAMSENR,13);VAR1A:=(REF(CLOSE,1)-REF(AT

VAR2:=1/WINNER(CLOSE);
VAR3:=MA(CLOSE,13);
VAR4:=100-ABS((CLOSE-VAR3)/VAR3*100);
VAR5:=LLV(LOW,75);
VAR6:=HHV(HIGH,75);
VAR7:=(VAR6-VAR5)/100;
VAR8:=SMA((CLOSE-VAR5)/VAR7,20,1);
VAR9:=SMA((OPEN-VAR5)/VAR7,20,1);

VAR1:=(CLOSE*2+HIGH+LOW)/4;
VAR2:=EMA(VAR1,21)-EMA(VAR1,34);
VAR3:=EMA(VAR2,10);
多方控盘:2*(VAR2-VAR3)*3.81,colorred;
空方控盘:(-2)*(VAR2-VAR3)*3.81,colorgreen;
STICKLINE(多方控盘>0,0,多方控盘,0,0),colorred;
STICKLINE(空方控盘<0,0,空

VAR1:=EMA(EMA(CLOSE,9),9);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盘<0,控盘,0,1,0),colorwhite;
A10:=CROSS(控盘,0);
无庄控盘:IF(控盘<0,控盘,0),colorwhite,NODRAW;
开始控盘:IF(A10,5,0),LINETHICK1,coloryellow;
STICKLINE(控

VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0),COLOR00FFFF;
MAOBV:MA(OBV,14),COLOR996699;
箱顶:HHV( OBV,20),COLOR0000FF;
箱底:LLV( OBV,20),COLOR00FF00;
UPPER:MAOBV+2*STD(OBV,20),COLORFFFF00,POINTDO

VAR1:=(CLOSE*2+HIGH+LOW)/4;
VAR2:=EMA(VAR1,21)-EMA(VAR1,34);
VAR3:=EMA(VAR2,10);
多方控盘:2*(VAR2-VAR3)*3.81,colorred;
空方控盘:(-2)*(VAR2-VAR3)*3.81,colorgreen;
STICKLINE(多方控盘>0,0,多方控盘,0,0),colorred;
STICKLINE(空方控盘<0,0,空

N:=35;M:=35;N1:=3;
B1:=(HHV(H,N)-C)/(HHV(H,N)-LLV(LOW,N))*100- M;
B2:=SMA(B1,N,1)+100;
B3:=(C-LLV(L,N))/(HHV(H,N)- LLV(L,N))*100;
B4:=SMA(B3,3,1);
B5:=SMA(B4,3,1)+100;
B6:=B5-B2;
控盘程度:(IF(B6>N1,B6-N1,0))*2.5,co

var2:=REF(LOW,1);
Var3:=SMA(ABS(LOW-Var2),13,1)/SMA(MAX(LOW-Var2,0),13,1)*100;
Var4:=EMA(IF(CLOSE*1.2,Var3*13,Var3/13),13);
Var5:=LLV(LOW,34);
Var6:=HHV(Var4,34);
Var7:=IF(LLV(LOW,56),1,0);
Var8:=EMA(IF(LOW<=Var5,(Va

{SHORT=26，LONG=12，M=9，P1=19，P2=120，K= -40，G=-26}
stickline(c>0,-1,1,6,0),color330066;
DIF:=((EMA(CLOSE,SHORT)-EMA(CLOSE,LONG)))*-1;
DEA:=EMA(DIF,M),COLORFF00FF;
MACD:=2*(DIF-DEA);
HH:=MA(CLOSE,10);
GG:=MA(CLOSE,12);

本指标对主力持仓量有一定的参考性，对于锁仓拉抬的股票当拉升不久，指标就出现红柱时可判断此股为主力持仓量巨大，目标高远，一旦出现回调时结合其它指标大胆跟进获利必丰，绿柱时为弱势，主力控盘度不够高，黄柱为主力控盘。
DRAWGBKlast(DATE>900101,strip(RGB(0,0,160),RGB(0,20,10),0));
cyc5:=cyc(5);
cyc0:=MAXCYC;
aa:(cyc5-cyc0)/cyc0;
STICKL

{参数:N 26 5 300
P 1 0.1 10
M 26 5 300
Q 2 0.1 10 }
input:n(26),p(1),m(26),q(2);
DRAWTEXTABS(10,10,'所属板块：'+BKNAME),COLORYELLOW;
DRAWTEXTREL(10,185,STKLABEL+' '+STKNAME),LINETHICK4,ColorFFFF80;
var1:=CLOSE

VAR1:=EMA(EMA(C,13),13);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盘<0,控盘,0,1,1),COLOR00FF00;
STICKLINE(控盘>REF(控盘,1) AND 控盘<0,控盘,0,1,1),COLORFF00FF;
无庄控盘:=控盘<0;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0

Vur1:=VOL/CAPITAL;
Vur2:=1.1*(MAX(HIGH,REF(CLOSE,1))/MIN(LOW,REF(CLOSE,1))-1);
Vur3:=2.5*MAX(Vur1,Vur2);
Vur4:=DMA(CLOSE,Vur3);
Vur5:=20*(Vur4/REF(Vur4,1)-1)*38;
Vur6:=EMA(Vur5,2);
Vur7:=EMA(Vur5,2);
Vur8:=EMA(Vur

使用说明:
当主力庄家经过洗盘吸筹之后，股数达到流通盘一定的比列时候就能控制这只股票的走向，也就是主力控盘度。然后就是一波大幅度的拉升，最后出货。当控盘度达到20%以上时，一般庄家就会开始拉升了。
VUR1:=VOL/CAPITAL;
VUR2:=1.1*(MAX(HIGH,REF(CLOSE,1))/MIN(LOW,REF(CLOSE,1))-1);
VUR3:=2.5*MAX(VUR1,VUR2);
VUR4:=DMA(CLOSE,VUR3

HS:=V/CAPITAL*100;
a:=AMOUNT/(100*v);
a1:=dma(a,v/capital);
cc:=100*(a1-cost(0))/(cost(100)-cost(0)) ;
aa:=WINNER(C)*100;
bb:=100*(winner(c)-winner(o))>16;
高控盘:(cc>0 and cc<=65and HS<=4 and aa>=80)

VUR1:=VOL/CAPITAL;
VUR2:=1.1*(MAX(HIGH,REF(CLOSE,1))/MIN(LOW,REF(CLOSE,1))-1);
VUR3:=2.5*MAX(VUR1,VUR2);
VUR4:=DMA(CLOSE,VUR3);
VUR5:=20*(VUR4/REF(VUR4,1)-1)*38;
VUR6:=EMA(VUR5,2);
VUR7:=EMA(VUR5,2);
VUR8:=EMA(VUR

HS:=V/CAPITAL*100;
a:=AMOUNT/(100*v);
a1:=dma(a,v/capital);
cc:=100*(a1-cost(0))/(cost(100)-cost(0)) ;
aa:=WINNER(C)*100;
bb:=100*(winner(c)-winner(o))>16;
高控盘:(cc>0 and cc<=65and HS<=4 and aa>=80) ,LINET

DRAWGBKLAST(close>0,STRIP(RGB(0,128,128),RGB(25,25,112),0));
TT:=VOL/TICKCOUNT;
TT10:=ma(TT,10);
TT60:=(ma(TT,60));
ma10:=ma(c,10);
ma60:=ma(c,60);
aa:=-(TT10-TT60);
bb:=ma10>=ma60;
cc:=aa>=0 and bb

VAR1:=EMA(EMA(CLOSE,9),9);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盘<0,控盘,0,4,0),COLORWHITE;
A10:=CROSS(控盘,0);
无庄控盘:=IF(控盘<0,控盘,0);
开始控盘:IF(A10,10,0),colorcyan;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘