通达信持仓分析副图公式源码

我觉得还　不错，所以给大家参考

 源码：

换手:=V*100/CAPITAL;

主力:=MA(换手,4);

大户:=MA(换手,9);

中户:=MA(换手,17);

散户:=MA(换手,34);

均量:=(主力+大户+中户+散户)/4;

主力能量:(主力-均量),NODRAW;

大户能量:(大户-均量),NODRAW;

中户能量:(中户-均量),NODRAW;

散户能量:(散户-均量),NODRAW;

操盘:STICKLINE(主力能量>=0 AND 主力能量>=REF(主力能量,1),6,6+主力能量,1,0),COLORRED;

减仓:STICKLINE(主力能量>=0 AND 主力能量< REF(主力能量,1),6,6+主力能量,1,0)COLORYELLOW;

反弹:STICKLINE(主力能量<0 AND 主力能量>=REF(主力能量,1),6,6+主力能量,1,0),COLORGREEN;

寻底:STICKLINE(主力能量<0 AND 主力能量< REF(主力能量,1),6,6+主力能量,1,0),COLORBLUE;

DRAWTEXT(ISLASTBAR=1,IF(主力能量>=0,6,6),'主力'),COLORBLUE;

主力线:6,COLORRED;

{股海网www.9m8.cn}

操盘1:STICKLINE(大户能量>=0 AND 大户能量>=REF(大户能量,1),4,4+大户能量,1,0),COLORRED;

减仓1:STICKLINE(大户能量>=0 AND 大户能量< REF(大户能量,1),4,4+大户能量,1,0),COLORYELLOW;

反弹1:STICKLINE(大户能量<0 AND 大户能量>=REF(大户能量,1),4,4+大户能量,1,0),COLORGREEN;

寻底1:STICKLINE(大户能量<0 AND 大户能量< REF(大户能量,1),4,4+大户能量,1,0),COLORBLUE;

DRAWTEXT(ISLASTBAR=1,IF(大户能量>=0,4,4),'大户'),COLORBLUE;

大户线:4,COLORYELLOW;

操盘2:STICKLINE(中户能量>=0 AND 中户能量>=REF(中户能量,1),2,2+中户能量,1,0),COLORRED;

减仓2:STICKLINE(中户能量>=0 AND 中户能量< REF(中户能量,1),2,2+中户能量,1,0),COLORYELLOW;

反弹2:STICKLINE(中户能量<0 AND 中户能量>=REF(中户能量,1),2,2+中户能量,1,0),COLORGREEN;

寻底2:STICKLINE(中户能量<0 AND 中户能量< REF(中户能量,1),2,2+中户能量,1,0),COLORBLUE;

DRAWTEXT(ISLASTBAR=1,IF(中户能量>=0,2,2),'中户'),COLORBLUE;

中户线:2,COLORMAGENTA;

操盘3:STICKLINE(散户能量>=0 AND 散户能量>=REF(散户能量,1),0,散户能量,1,0),COLORRED;

减仓3:STICKLINE(散户能量>=0 AND 散户能量< REF(散户能量,1),0,散户能量,1,0),COLORYELLOW;

反弹3:STICKLINE(散户能量<0 AND 散户能量>=REF(散户能量,1),0,散户能量,1,0),COLORGREEN;

寻底3:STICKLINE(散户能量<0 AND 散户能量< REF(散户能量,1),0,散户能量,1,0),COLORBLUE;

DRAWTEXT(ISLASTBAR=1,IF(散户能量>=0,-0.3,0.3),'散户'),COLORBLUE;

散户线:0,COLORWHITE;

XXQ:="KDJ.J"(9,3,3);{引用J}

XXW:="KDJ.D"(9,3,3);{引用D}

XXN:=CROSS(XXQ,XXW);{J上穿D}

XXE:="MACD.DIF"(12,26,9);{引用DIF}

XXR:="MACD.DEA"(12,26,9);{引用DEA}

XXM:=CROSS(XXE,XXR);{DIF上穿DEA}

XXT:="RSI.RSI1"(6,12,24);{引用RSI1}

XXC:="RSI.RSI3"(6,12,24);{引用RSI3}

XXA:=CROSS(XXT,XXC);{RSI1上穿RSI3}

XXS:="DMI.PDI"(14,6);{引用PDI}

XXD:="DMI.MDI"(14,6);{引用MDI}

XXJ:=CROSS(XXS,XXD);{PDI上穿MDI}

爆涨1:XXN AND XXM AND XXA  AND XXJ AND MA(C,30)>REF(MA(C,30),1),LINETHICK3,COLORGREEN;