通达信主力进出增强版指标公式源码

qzg

感谢楼主的分享！学习了！

qzg

感谢楼主的分享！学习了！

古月之梦

控盘程度IF：(B6>1,B6-1,0)*2.5,COLORRED,LINETHICK2;


这样可以了。

qin01

{ ========== 一、筹码分布控盘线 ========== }
ZLCM:=EMA(WINNER(CLOSE)*70,3);                     { 主力筹码 }
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3); { 散户筹码 }
ZSHTL:=SHCM/(ZLCM+SHCM)*200;                       { 散户套牢线 }
ZZLKP:=ZLCM/(ZLCM+SHCM)*200;                       { 主力控盘线 }

{ 输出主力与散户线（0-200范围） }
主力控盘:INTPART(ZZLKP), COLOR4D4DFF, LINETHICK2;
散户套牢:INTPART(ZSHTL), COLORFFEEBB, LINETHICK2;

{ 画背景色带 }
DRAWBAND(主力控盘, RGB(0,255,255), 散户套牢, RGB(50,50,50));

{ 主力控盘上升且大于100时画柱 }
STICKLINE(主力控盘>REF(主力控盘,1) AND 主力控盘>100, 主力控盘, 散户套牢, 2, 0), COLOR8000FF;

{ ========== 二、趋势控盘程度 ========== }
B1:=(HHV(H,35)-C)/(HHV(H,35)-LLV(L,35))*100-35;
B2:=SMA(B1,35,1)+100;
B3:=(C-LLV(L,35))/(HHV(H,35)-LLV(L,35))*100;
B4:=SMA(B3,3,1);
B5:=SMA(B4,3,1)+100;
B6:=B5-B2;
控盘程度:=(IF(B6>1,B6-1,0))*2.5, COLORRED, LINETHICK2;

{ 控盘程度变化柱线 }
控盘上:IF(控盘程度>REF(控盘程度,1), 控盘程度, DRAWNULL), STICK, COLORYELLOW, LINETHICK1;
控盘下:IF(控盘程度<REF(控盘程度,1), 控盘程度, DRAWNULL), STICK, COLORFF9900, LINETHICK1;

{ 进出信号点 }
进:IF(控盘程度>REF(控盘程度,1), 5, DRAWNULL), CIRCLEDOT, COLORYELLOW;
出:IF(控盘程度<REF(控盘程度,1), 5, DRAWNULL), CIRCLEDOT, COLORFF9900;

{ 参考线100 }
100, COLORWHITE, POINTDOT;

{ ========== 三、超大主力资金 ========== }
V1:=(C*2+H+L)/4*10;
V2:=EMA(V1,13)-EMA(V1,34);
V3:=EMA(V2,5);
V4:=2*(V2-V3)*20;
超大主力吃:IF(V4>=0, V4, 0)+100, COLOR7F00FF, LINETHICK3;
超大主力吐:IF(V4<=0, V4, 0)+100, COLOR66FF00, LINETHICK2;

{ ========== 四、SAR持股持币 ========== }
持币:IF(SAR(10,2,20)>=H, 100, DRAWNULL), CIRCLEDOT, COLORBLUE;
持股:IF(SAR(10,2,20)<=L, 100, DRAWNULL), CIRCLEDOT, COLORRED;

{ ========== 辅助文字 ========== }
DRAWTEXT_FIX(ISLASTBAR, 0.85, 0.02, 0, '红色:主力控盘  黄色:散户套牢'), COLORWHITE;

feiying80

正确的如下 控盘程度IF(B6>1,B6-1,0))*2.5,COLORRED,LINETHICK2;

feiying80

正确的如下 控盘程度:IF(B6>1,B6-1,0))*2.5,COLORRED,LINETHICK2;控盘程度后面是冒号