量学论坛 › 股票公式 › 通达信主力进出增强版指标公式源码

zjtz288 发表于 2016-7-13 21:55

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

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; ZCMZL:=MA(ZLCM+SHCM,13); ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90); ZSHJJ:=EMA(ZSHTL,89); ZZLJJ:=EMA(ZZLKP,89); ZJLRQD:=INTPART(ZZLKP-ZZLJJ); SH8:=EMA(ZSHTL,8);
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);
散户套牢线1:=INTPART(ZSHTL),COLORFFEEBB,LINETHICK2;
主力控盘线1:=INTPART(ZZLKP),COLOR4D4DFF,LINETHICK2;
DRAWBAND(主力控盘线1,RGB(0,255,255),散户套牢线1,RGB(50,50,50));
STICKLINE(((主力控盘线1>REF(主力控盘线1,1)) AND (主力控盘线1>100)),主力控盘线1,散户套牢线1,2,0),COLOR8000FF;
散:INTPART(ZSHTL),COLORFFEEBB,LINETHICK2;
主力:INTPART(ZZLKP),COLOR4D4DFF,LINETHICK2;
B1:=(HHV(H,35)-C)/(HHV(H,35)-LLV(LOW,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;
控盘度:100,COLORWHITE;
控盘上: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;
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;
持币:IF(SAR(10,2,20)>=H,100,DRAWNULL),CIRCLEDOT,COLORBLUE;
持股:IF(SAR(10,2,20)<=L,100,DRAWNULL),CIRCLEDOT,COLORRED;

qin01 发表于 2026-3-28 17:55

{ ========== 一、筹码分布控盘线 ========== }
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;

醉亨人生 发表于 2021-1-30 17:53

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; ZCMZL:=MA(ZLCM+SHCM,13); ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90); ZSHJJ:=EMA(ZSHTL,89); ZZLJJ:=EMA(ZZLKP,89); ZJLRQD:=INTPART(ZZLKP-ZZLJJ); SH8:=EMA(ZSHTL,8);
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);
散户套牢线1:=INTPART(ZSHTL),COLORFFEEBB,LINETHICK2;
主力控盘线1:=INTPART(ZZLKP),COLOR4D4DFF,LINETHICK2;
DRAWBAND(主力控盘线1,RGB(0,255,255),散户套牢线1,RGB(50,50,50));
STICKLINE(((主力控盘线1>REF(主力控盘线1,1)) AND (主力控盘线1>100)),主力控盘线1,散户套牢线1,2,0),COLOR8000FF;
散:INTPART(ZSHTL),COLORFFEEBB,LINETHICK2;
主力:INTPART(ZZLKP),COLOR4D4DFF,LINETHICK2;
B1:=(HHV(H,35)-C)/(HHV(H,35)-LLV(LOW,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;
控盘度:100,COLORWHITE;
控盘上: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;
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;
持币:IF(SAR(10,2,20)>=H,100,DRAWNULL),CIRCLEDOT,COLORBLUE;
持股:IF(SAR(10,2,20)<=L,100,DRAWNULL),CIRCLEDOT,COLORRED;

suiyuan10 发表于 2017-7-25 19:42

当前公式 : 主力进出 (指标画线公式)
错误句 :
控盘程度IF(B6>1,B6-1,0))*2.5,COLORRED,LINETHICK2
详细信息 :
错误起始位置 : 874 ; 长度: 3
有知道改错的请回复

565436733 发表于 2016-7-13 21:57

错误句 :
控盘程度IF(B6>1,B6-1,0))*2.5,COLORRED,LINETHICK2
详细信息 :
错误起始位置 : 874 ; 长度: 3

沙里淘金1 发表于 2016-7-13 22:05

辛苦了辛苦了辛苦了辛苦啦

股小舟 发表于 2016-7-13 22:07

控盘程度IF(B6>1,B6-1,0))*2.5,COLORRED,LINETHICK2;这句是否有误？通达信提示出错

大大陆大 发表于 2016-7-13 22:07

:):):):):)

王缘 发表于 2016-7-13 22:09

当前公式 : 主力进出增强 (指标画线公式)
错误句 :
控盘程度IF(B6>1,B6-1,0))*2.5,COLORRED,LINETHICK2
详细信息 :
错误起始位置 : 876 ; 长度: 3

天涯数码 发表于 2016-7-13 22:13

谢谢分享！

dc789 发表于 2016-7-13 22:19

发完后，最好检查下，，不过还是感谢你的分享精神，

海风哥哥 发表于 2016-7-13 22:22

谢谢楼主分享

aaa3121 发表于 2016-7-13 22:24

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

桂子香生 发表于 2016-7-13 22:25

谢谢分享！

白羊林dandan 发表于 2016-7-13 22:34

谢谢分享！

愚音 发表于 2016-7-13 22:34

谢谢分享！

股海时节 发表于 2016-7-13 22:34

谢谢分享！

bh3343 发表于 2016-7-13 22:40

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

查看完整版本: 通达信主力进出增强版指标公式源码