大智慧源码如下：
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) ,LINETHICK0 ;
无量穿越:(HS<=4 and bb),coloryellow,LINETHICK0;
STICKLINE(高控盘,0,高控盘,8.10,0),colorff00ff,layer7;
STICKLINE(无量穿越,0,无量穿越,8.10,0),coloryellow ;
穿越次数:COUNT(无量穿越70822点com,30),colorff00ff,layer7,LINETHICK0;
《庄家显形》
横盘:=(HHV(CLOSE,10)-LLV(CLOSE,10))/REF(C,1)*100<=10;
bb:=(C-CYC(13))/CYC(13)*100>0 and (C-CYC(13))/CYC(13)*100<12;
HS:=V/CAPITAL*100<=3.5;
cc:=COUNT(bb,10)>=9;
ee:=COUNT(HS,10)>=9;
不抛:横盘 and ee and cc ,LINETHICK0;
STICKLINE(不抛,0,不抛,8.10,0),colorgreen;
《成本乖离》
DRAWGBKLAST(CLOSE>0,STRIP(RGB(95,95,95),RGB(0,0,0),0));
cyc0:=MAXCYC;
差值:(c-CYC0)/CYC0*100,LINETHICK0;
STICKLINE(差值>10,0,差值,8.10,0),COLORRED;
STICKLINE(差值<0,0,差值,8.10,0),COLORGREEN;
STICKLINE(差值<10 AND 差值>0,0,差值,8.10,0),COLORYELLOW;
bb:=差值<10;
强势天数:barslast(bb),colorff00ff,layer7,LINETHICK0;
8,colorwhite;
如果《庄家显形》指标在黄红柱处持续显示，表明庄家实力较强，后市拉升机会较大
发现主力高度控盘特征时，个股往往有了一定涨幅，如果筹码重心在低位密集，股价向上穿越重心后，形成满盘获利无抛压，这时常常会有一段不错的涨幅。本指标黄柱代表无量穿越，红柱为发现控盘特征，结合《庄家显形》和均线形态可以坐上庄家的轿子，呵呵。指标只做参考。            

飞狐用指标：
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) ,LINETHICK0 ;
无量穿越:(HS<=4 and bb),coloryellow,LINETHICK0;
STICKLINE(高控盘,0,高控盘,8.10,0),colorff00ff;
STICKLINE(无量穿越,0,无量穿越,8.10,0),coloryellow ;
穿越次数:COUNT(无量穿越,30),colorff00ff,LINETHICK0;
2
VARA:=AMOUNT/VOL/100;
VARB:=(2*HIGH+2*LOW+OPEN+CLOSE)/6;
VARF:=SUM(AMOUNT,13)/VARA/100;
CYC13:=DMA(VARB,VOL/VARF);
横盘:=(HHV(CLOSE,10)-LLV(CLOSE,10))/REF(C,1)*100<=10;
bb:=(C-CYC13)/CYC13*100>0 and (C-CYC13)/CYC13*100<12;
HS:=V/CAPITAL*100<=3.5;
cc:=COUNT(bb,10)>=9;
ee:=COUNT(HS,10)>=9;
不抛:横盘 and ee and cc ,LINETHICK0;
STICKLINE(不抛,0,不抛,8.10,0),colorgreen;
3
//DRAWGBKLAST(CLOSE>0,STRIP(RGB(95,95,95),RGB(0,0,0),0));
VARC:=(3*LOW+3*OPEN+CLOSE+HIGH)/8;
CYC:=DMA(VARC,VOL/CAPITAL),COLORRED;
cyc0:=CYC;
差值:(c-CYC0)/CYC0*100,LINETHICK0;
STICKLINE(差值>10,0,差值,8.10,0),COLORRED;
STICKLINE(差值<0,0,差值,8.10,0),COLORGREEN;
STICKLINE(差值<10 AND 差值>0,0,差值,8.10,0),COLORYELLOW;
bb:=差值<10;
强势天数:barslast(bb),colorff00ff,LINETHICK0;
8,colorwhite;