VAR55:=LLV(LOW,6);
VAR66:=HHV(HIGH,6);
VAR77:=(VAR66-VAR55)/10;
VAR88:=SMA((CLOSE-VAR55)/VAR77,20,1);
VARA:=3*VAR88-2*SMA(VAR88,3,1);
AA:=MA(EMA(WINNER(C),3),3);
筹码集中度:AA-0.5,COLORYELLOW;
FILLRGN(筹码集中度,0,筹码集中度

V1:=(C*2+H+L)/4*10;
V2:=EMA(V1,13)-EMA(V1,34);
V3:=EMA(V2,5);
V4:=2*(V2-V3)*5.5;
庄秘撤: IF(V4<=0,V4,0),COLOR00FF00,LINETHICK2;
庄秘进: IF(V4>=0,V4,0),COLORFF00FF,LINETHICK2;
V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LL

散筹估算:EMA((WINNER((O+C*2+H+L)/5*1.1)-WINNER((O+C*2+H+L)/5*0.9))*80,20),STICK,COLORffeebb;
EMA((WINNER((O+C*2+H+L)/5*1.1)-WINNER((O+C*2+H+L)/5*0.9))*80,20),COLORffeebb,LINETHICK2;
主筹估算:EMA(WINNER((O+C*2+H+L)/5)*70,20),STICK,COLOR0000ff;
EM

主:=WINNER(CLOSE/1.1);
var1:=主-ref(主,1);
散:=1-WINNER(CLOSE*1.1);
var2:=ref(散,1)-散;
var3:=sum((var1+var2),2);
STICKLINE(var3<0 and 散>0.009,0,var3,6,0 ),ColorFFFF00;
STICKLINE(var3<0 and 散<0.009,0,-var3,6,1 )

ZLCM:=EMA(WINNER(CLOSE)*70,3);{//主力筹码估算}
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);{//散户筹码估算}
ZSHTL:=SHCM/(ZLCM+SHCM)*100;{//散户套牢筹码比率}
ZZLKP:=ZLCM/(ZLCM+SHCM)*100;{//主力控盘筹码比率}
ZCMZL:=MA(ZLCM+SHCM,13);{//市场筹码总量}

input:N(21,1,240);
主:=WINNER(CLOSE/1.1);
var1:=主-ref(主,1);
散:=1-WINNER(CLOSE*1.1);
var2:=ref(散,1)-散;
var3:=sum((var1+var2),2);
NN:EMA(sum( var3,N),N/2),Color00FFFF;
PARTLINE(NN,(NN>REF(NN,1))-1,rgb(0,255,0

底部:LLV(L,4)=LLV(L,120),POINTDOT,ColorFF0000;{2001.8--2004.8.31 平均成功率:29.29%}
STICKLINE(底部>0,-12,-16,8,0),ColorFF0000;
牛市底部:(close-ma(close,58))/ma(close,58)<-0.07,POINTDOT,ColorFF9700;{2001.8--2004.8.31 平均成功率:30.60%}
STICKLINE(牛市底部

获利比例:winner(c)*100,colorcc9966;
stickline(获利比例<=1,0,获利比例,6,1),colorwhite;
stickline(获利比例>=1 and 获利比例<10,0,获利比例,6,1),colorcc9966;
stickline(获利比例>=10 and 获利比例<30,0,获利比例,6,0),coloryellow;
stickline(获利比例>=30 and 获利比例

获利筹码:EMA(WINNER(C)*70,5),COLORD98EF1;
亏损筹码:EMA((WINNER(C*1.1)-WINNER(C*0.9))*80,5),COLORF3FF00;
STICKLINE(获利筹码<亏损筹码 AND 亏损筹码<60,亏损筹码,55,1,0),COLORF3FF00;
STICKLINE(获利筹码>亏损筹码,亏损筹码,50,1,0),COLORRED;
主力控筹:IF(获利筹码>亏损筹码,获利筹码

STICKLINE(C>0,300,400,100,0),COLOR002300;
STICKLINE(C>0,200,300,100,0),COLOR320000;
STICKLINE(C>0,100,200,100,0),COLOR320000;
STICKLINE(C>0,-5,100,100,0),COLOR002300;
HL10:WINNER(C/1.1)*100;
HL20:WINNER(C/1.2)*100

Var1:=REF(CLOSE,5);
Var2:=REF(WINNER(CLOSE)*100,5);
Var3:=WINNER(Var1)*100;
筹转5: Var2-Var3;
Var4:=REF(CLOSE,10);
Var5:=REF(WINNER(CLOSE)*100,10);
Var6:=WINNER(Var4)*100;
筹转10: Var5-Var6;
Var7:=REF(CLOSE,20);

input:SW(18,11,111),BW(66,33,111),DW(86,55,99);
DN:=INTPART(276/POW(DATATYPE-1.7,2)-1.1);
DS:=if(DN>4.8,intpart(DN/5),1);
CJ:=(H+L+2*O+3*C)/7;
KN:=POW(HHV(H,18*DS)/HHV(H,0),0.9);
短筹:SMA(SMA((PWINNER(2*SW,BW*CJ/100)+0.618*P

Var1:=IF(DATE>=10201201,0,1);
Var2:=EMA(SLOPE(CLOSE,21)*20+CLOSE,55);
Var3:=EMA(CLOSE,3);
Var4:=(2*CLOSE+LOW+HIGH)/4*Var1;
Var5:=Var2-Var3;
风险线:EMA(Var4,45)*1.15;
必卖线:EMA(Var4,55)*1.3;
底线:EMA(Var4,40)*0.85;

N:=5;
穿透率:(winner(c)-ref(winner(c),1))/v*capital,COLOR3d,PRECIS1;
获利:winner(c)*100,LINETHICK0,PRECIS1;
浮筹:(winner(c*1.1)-winner(c*0.9))/winner(hhv(h,0))*100,LINETHICK0,PRECIS1;
集中度:"scr.scr"(n),LINETHICK0,PRECIS1;
反

W00:=COST(1);
W10:=COST(10);
W20:=COST(20);
W30:=COST(30);
W40:=COST(40);
W50:=COST(50);
W60:=COST(60);
W70:=COST(70);
W80:=COST(80);
W90:=COST(90);
W100:=COST(99);
W5:=COST(5);
W15:=

MA5:SUM(AMOUNT,5)/SUM(VOL*100,5);
MA10:SUM(AMOUNT,10)/SUM(VOL*100,10);
MA20:SUM(AMOUNT,20)/SUM(VOL*100,20);
MA30:SUM(AMOUNT,30)/SUM(VOL*100,30);
MA60:SUM(AMOUNT,60)/SUM(VOL*100,60);
MA120:SUM(AMOUNT,120)/SUM(VOL*100,120);

ZLCM:=EMA(WINNER(CLOSE)*70,3);
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);
ZSHTL:=SHCM/(ZLCM+SHCM)*100;
ZZLKP:=ZLCM/(ZLCM+SHCM)*100;
ZCMZL:=MA(ZLCM+SHCM,13);
ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90);

集中度:(COST(95)-COST(5))/(COST(95)+COST(5))*100,COLORred,LINETHICK2;
集中度1:(COST(85)-COST(15))/(COST(85)+COST(15))*100;
M5:HHV(集中度,5),DOTLINE;
顶1:hhv(集中度,21),ColorFF00FF,linethick1;
顶2:hhv(集中度1,21),ColorFF00FF,linethick1;
角度:ata

ma5:ma(c,5),colorwhite;
ma10:ma(c,10),coloryellow;
ma20:ma(c,20),colorff00ff;
ma30:ma(c,30),colorgreen;
ma60:ma(c,60),colorred;
ma120:ma(c,120),colorffff00;
STICKLINE(h<hhv(h,20) ,hhv(h,20),hhv(h,20),50,0),colorgreen

input: N(5,1,100);
EMA13:=EMA(C,13);
ma30:=ma(c,30);
ma72:=ma(c,72);
{地心引力:(ma30+ma72)/2,POINTDOT,ColorFF7F93,LINETHICK3;
上引力:(ma30+ma72)/2*0.9,POINTDOT,ColorFF7F93,LINETHICK3;
下引力:(ma30+ma72)/2*1.1,POINTDOT,ColorFF7F93