筹码打天下(大智慧)

源码正文：

M 82 2 100 1

VAR1:=1{XG51};
VAR55:=LLV(LOW,8){XG51};
VAR66:=HHV(HIGH,8){XG51};
VAR77:=(VAR66-VAR55)/10{XG51};
VAR88:=SMA((CLOSE-VAR55)/VAR77,20,1){XG51};
VARA:=3*VAR88-2*Sma(VAR88,15,1){XG51};
散户筹码集中度: (10-VARA)*VAR1*6,COLORCYAN,LINETHICK2{XG51};
VAR100:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*(10){XG51};
增减力度:VAR100*16,COLORLIMAGENTA,LINETHICK2{XG51};
散筹估算:ema((WINNER(C*1.1)-WINNER(C*0.9))*70,3),COLORFFFFFF{XG51};
主持仓:=EMA(100*(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30)),9){XG51};
庄筹集中度:=EMA(主持仓,1){XG51};
庄筹集中监控线:EMA(庄筹集中度,1), COLORGREEN{XG51};
主力持仓:EMA(100*(CLOSE- LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3),COLORFF00FF{XG51};
主力筹码集中度:WINNER(C)*100,COLORWHITE{XG51};
机构筹码集中度:EMA(WINNER(C)*70,3),LINETHICK2,COLORWHITE{XG51};
V1:=LLV(LOW,10){XG51};
V2:=HHV(HIGH,20){XG51};
lyf1:=EMA(((CLOSE-V1)/(V2-V1))*((-100)),3){XG51};
VARg5:=((CLOSE)/(REF(CLOSE,5))>=1.15){XG51};
VARg6:=BacKSET(VARg5,5){XG51};
入市日:=IF((VARg6 AND (COUNT(VARg6,5)=1) or (CLOSE>=HHV(HIGH,HIGH))
AND ((CLOSE)/(REF(CLOSE,1))>1.098) AND (REF(vol,LOW)>REF(VOL,34))
AND (REF(VOL,LOW)>REF(VOL,1)) AND (LYF1>(-93))
AND (REF(VOL,LOW)>REF(VOL,8))),60,0){XG51};
DRAWTEXT(cross(入市日 ,(58)),20,'十年不败 '),colorgreen{XG51};
TYP:=(HIGH+LOW+CLOSE)/3{XG51};
C2:=(TYP-MA(TYP,M))/(0.015*AVEDEV(TYP,M)){XG51};
DRAWTEXT(cross(C2,-70),5,'cci牛启动 '),colorgreen{XG51};
庄筹线:=EMA(WINNER(C)*50,4){XG51};
散筹线:=EMA((WINNER(C*1.1)-WINNER(C*0.9))*50,4){XG51};
AA:= REF(庄筹线,30)>40 OR REF(庄筹线,20)>40{XG51};
DRAWTEXT(cross(庄筹线,散筹线),15,'庄筹 '),colorgreen{XG51};
K1:=CLOSE/REF(CLOSE,3)>=1.1{XG51};
D1:=BACKSET(K1,3){XG51};
加仓买:=IF((D1 AND COUNT(D1,13)=1),58,0){XG51};
D2:=CLOSE/REF(CLOSE,3)>=1.1{XG51};
D3:=BACKSET(D2,3){XG51};
短线买:=IF((D3 AND COUNT(D3,3)=1),45,0){XG51};
D4:=CLOSE/REF(CLOSE,3)>=1.1{XG51};
D5:=BACKSET(D4,3){XG51};
易涨停:=IF((D5 AND COUNT(D5,15)=1),30,0){XG51};
XG:=加仓买 AND 短线买 AND 易涨停{XG51};
DRAWTEXT(cross(XG,0),35,'加仓买 '),colorgreen{XG51};
参考低7:IF(TROUGHBARS(3,7,1)=0 AND HIGH>LOW+0.04,10,0){XG51};
VAR1:=(INDEXC-MA(INDEXC,58))/MA(INDEXC,58)<-0.152{XG51};
VAR2:=(C-EMA(C,58))/EMA(C,58)<-0.19{XG51};
底区:COUNT(VAR2 AND VAR1,2) {XG51};
抄底:参考低7 AND 底区>1,COLORYELLOW{XG51};
DRAWTEXT(抄底,1,'抄底'),COLORYELLOW{XG51};
VAR3:=PEAKBARS(3,15,1)<10{XG51};
VAR5:=IF(VAR3=1,2,0){XG51};
顶:= IF(VAR5=2,2,0){XG51};
顶A:IF(顶>REF(顶,1),90,100),COLORCYAN{XG51};
DRAWTEXT(顶A=90,90,'卖'),COLORCYAN{X.G=5*1.C.N.{};

源码正文：

HS:=vol/capital{XG51};
DD:=BIGORDER(1,3)-BIGORDER(2,3){XG51};
DT:=HS*DD*100{XG51};
机构持仓: Sum(DT,0),linethick2{XG51};
当日增减度: DT, linethick0{XG51};
stICKLINE(DT>0,机构持仓,机构持仓+DT,5,0),COLORRed{XG51};
STICKLine(DT<0,机构持仓+DT,机构持仓,5,0),COLORGreen{XG51};
当日成交 := (DT * capital) * DYNAINFO(11)/10000{XG51};
买入手数 := (capital*DT)/100{XG51};
if (当日成交>=0) then
begin
Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,'{XG51};
Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,'{XG51};
Str3 := '当日增减度：' + NUMTOSTRN(DT,3){XG51};
end{XG51};
if 当日成交<0 then
begin
Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,'{XG51};
Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,'{XG51};
Str3 := '当日增减度：' + NUMTOSTRN(DT,3){XG51};
end{XG51};
DRAWFLAGTEXT(DT>=0,机构持仓,Str1+str2+str3),COLORWHITE{XG51};
DRAWFLAGTEXT(DT<0,机构持仓,Str1+str2+str3),COLORCYAN{X?G?5?1?C?N?{};