{☆背景設置}
DRAWGBK(C=C,COLORRGB(30,30,30),COLORRGB(130,130,130),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);//市場籌碼總量
ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90);//走牛天數
ZSHJJ:=EMA(ZSHTL,89);//散戶警戒
ZZLJJ:=EMA(ZZLKP,89);//主力警戒
ZJLRQD:=ROUND(ZZLKP-ZZLJJ);//資金流入強度
SH8:=EMA(ZSHTL,8);
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);

散戶套牢系數:ROUND(ZSHTL),LINETHICK0,COLORWHITE;
主力控盤系數:ROUND(ZZLKP),LINETHICK0,COLORCYAN;
資金流入強度:ZJLRQD,LINETHICK0,COLORRED;
市場籌碼總量:ROUND(ZCMZL),LINETHICK0,COLORGREEN;

{神祕黑洞}
FILLRGN(REF(ZSHTL,1)>90 AND ZSHTL<90,ZSHTL,0),COLOR9966FF;
{散戶套牢籌碼}
STICKLINE(C>0,ZSHTL,ZZLKP,0,0),COLOREEEEEE;
{散戶籌碼警戒}
STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,1,0),COLORCARY;
{散戶線}
PARTLINE(C>0,ZSHTL),LINEDOT,COLORYELLOW;
{主力控盤籌碼}
STICKLINE(C>0,ZZLKP,0,7,0),COLORBLUE;
{鑄頂風險區}
STICKLINE(ZZLKP>75,ZZLKP,0,7,0),COLORFFFFFF;
{主力籌碼警戒}
STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,7,0),COLORRED;
{築底散兵坑}
STICKLINE(ZSHTL>=90,ZZLKP,0,7,0),COLOR66FFCC;
{籌碼總量}
PARTLINE(C>0,ZCMZL),COLORGREEN;
{籌碼總量上昇}
PARTLINE(ZCMZL>REF(ZCMZL,1),ZCMZL),COLOR0066FF;
{增量資金}
DRAWTEXT(ZCMZL>REF(ZCMZL,1) AND SH8<REF(SH8,1) AND ISLASTBAR,ZCMZL,'←增量資金');

EXPLAIN(C>REF(C,1),'§'+STKNAME+' №:'+STKLABEL),COLORRED;
EXPLAIN(C<=REF(C,1),'§'+STKNAME+' №:'+STKLABEL),COLORGREEN;
{走牛天數判斷}
EXPLAINEX(C>0,'走牛天數判斷：',ZZNTS,0,0),COLORWHITE;
{主力動向監控}
EXPLAIN(ZCMZL>REF(ZCMZL,1) AND DKB=1,'主力動向監控：主力增倉'),COLORRED;
EXPLAIN(ZCMZL>REF(ZCMZL,1) AND DKB=0,'主力動向監控：主力減倉'),COLORMAGENTA;
EXPLAIN(ZCMZL=REF(ZCMZL,1),'主力動向監控：多空平衡'),COLORGRAY;
EXPLAIN(ZCMZL<REF(ZCMZL,1) AND DKB=1,'主力動向監控：主力回補'),COLORFF9933;
EXPLAIN(ZCMZL<REF(ZCMZL,1) AND DKB=0,'主力動向監控：主力出逃'),COLORGREEN;
{特別信號提示}
EXPLAIN(ZSHTL>90,'特別信號提示：築底散兵坑'),COLOR66FFCC;
EXPLAIN(ZZLKP>75,'特別信號提示：鑄頂風險區'),COLORCYAN;
EXPLAIN(CROSS(ZCMZL,ZZLJJ) AND ZZLKP>ZZLJJ AND ZZLKP>10 AND ZZLJJ>REF(ZZLJJ,1) AND ZCMZL>REF(ZCMZL,1),'特別信號提示：穿越警戒'),COLORRED;
EXPLAIN(CROSS(ZCMZL,ZZLKP) AND ZZLKP>ZZLJJ AND ZZLKP<ZSHTL AND ZZLKP>10 AND ZZLJJ>REF(ZZLJJ,1) AND ZCMZL>REF(ZCMZL,1),'特別信號提示：穿越主力'),COLORYELLOW;
EXPLAIN(CROSS(ZCMZL,ZSHTL) AND ZSHTL>ZZLKP AND ZCMZL>REF(ZCMZL,1),'特別信號提示：穿越散戶'),COLORGREEN;
EXPLAIN(CROSS(ZCMZL,100) AND ZCMZL>REF(ZCMZL,1),'特別信號提示：全盤穿越'),COLOR3399FF;
EXPLAIN(REF(ZSHTL,1)>90 AND ZSHTL<90,'特別信號提示：神祕黑洞'),COLOR9966FF;