股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索

[通达信] 〖机构控盘〗以轻度适度高度三档控盘层级逐级展示主力资金持仓状态源码


   
楼主
2026-9-1 11:51:45
{主图源码如下}


M1:=5;

M2:=10;

M3:=20;

M4:=30;

M5:=60;

N:=80;

N1:=14;

M:=3;

DRAWKLINE(H,O,L,C);

网:=V/REF(V,1)>=2.0;

K1B:=SUMBARS(网,1) ;

K2B:=SUMBARS(网,2);

K3B:=SUMBARS(网,3);

K4B:=SUMBARS(网,4);

K5B:=SUMBARS(网,5);

K6B:=SUMBARS(网,6);

K7B:=SUMBARS(网,7);

K8B:=SUMBARS(网,8);

K9B:=SUMBARS(网,9);

K10B:=SUMBARS(网,10);

AABB:STICKLINE(K1B,REFV(L,K1B-1)*1.002,REFV(L,K1B-1),2,0),COLORYELLOW;

T60B:=V=HHV(V,60);

T100B:=V=HHV(V,100);

T2B:=V/REF(VOL,1)>=3;

T3B:=REF(C,1)/REF( O,1)< 3;

MA5:=MA(CLOSE,M1),LINETHICK1,COLORYELLOW;

MA10:=MA(CLOSE,M2),LINETHICK1,COLORWHITE;

MA20:=MA(CLOSE,M3),LINETHICK1,COLORYELLOW;

底部阶段:MA(CLOSE,M4),POINTDOT,COLORRED;

MA60:=MA(CLOSE,M5),POINTDOT,LINETHICK1,COLORGREEN;

TR1:=SMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),N1,1);

HD:=HIGH-REF(HIGH,1);

LD:=REF(LOW,1)-LOW;

DMP:=SMA(IF(HD>0 AND HD>LD,HD,0),N1,1);

DMM:=SMA(IF(LD>0 AND LD>HD,LD,0),N1,1);

PDI:=DMP*100/TR1,COLORRED;

MDI:=DMM*100/TR1,COLORGREEN;

ADX:=SMA(ABS(MDI-PDI)/(MDI+PDI)*100,N1,1),COLORYELLOW;

见底反转1:=16;

见底反转2:=30;

DMI1:=PDI>MDI AND ADX>=30;

DMI2:=PDI< MDI AND ADX>=30;

DMI3:=PDI>MDI AND 16< ADX< 30;

DMI4:=PDI< MDI AND 16< ADX< 30;

DMI5:=ADX<=16 AND (PDI>MDI OR PDI< MDI);

DMI6:=ADX>60;

ZT:=C/REF(C,1)>1.097;

XH:=FILTER(ZT,13);

BH:=BARSLAST(ZT);

CZ:=REF(H,BH)-REF(L,BH);

STICKLINE(ZT,O,C,3,0),COLORRED;

DRAWTEXT(ZT,L*0.98,' '),COLORF00FF0;

ZBGSZT:=BARSLAST(C/REF(C,1)>1.097);

TZX:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);

STICKLINE(TZX,O,C,3,0),COLORRED;

ZDF:=(C-REF(C,1))/REF(C,1)*100;

STICKLINE(ZDF< -9.9,O,C,3,0),COLORGREEN;

ZBGS111:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));

买:=IF(CLOSE>OPEN,ZBGS111*(HIGH-LOW),IF(CLOSE< OPEN,ZBGS111*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED;

卖:=IF(CLOSE>OPEN,0-ZBGS111*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE< OPEN,0-ZBGS111*(HIGH-LOW),0-VOL/2)),COLOR00FF00 ;

MM差:=(买+卖);

买卖比:=ABS(买/卖);

趋势线:=MA(CLOSE,89),COLORFF00FF;

BBI:=(MA(CLOSE,M1)+MA(CLOSE,M2)+MA(CLOSE,M3)+MA(CLOSE,M4))/4;

MA1:=MA(CLOSE,24),COLOR00E300,LINETHICK1;

V2:=IF(CURRBARSCOUNT=1,VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1);

MA13:=MA(CLOSE,13);

X1:=(C+L+H)/3;

BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10;

EMA8:=EMA(C,8);

A1:=MIN(O,C);

B1:=ABS(O-C);

T1:=FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10);

LC:=REF(CLOSE,1);

RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);

FF:=EMA(CLOSE,3);

MA15:=EMA(CLOSE,21);

T2:=COUNT(CROSS(BBI,3),3)=1 AND CROSS(C,BBI);

T12:=V2>=1;

T0:=BARSLAST(T12);

L1:=REF(L,T0);

H1:=REF(H,T0);

L11:=MIN(REF(L,1),L);

L10:=MIN(L11,REF(L,2));

L21:=MAX(REF(L,1),L);

L20:=MAX(L21,REF(L,2));

T111:=(REF(V2>=1,3) OR REF(V2>=1,2) OR REF(V2>=1,1)) AND((L10>L1 AND L20>H1) OR (L11>L1 AND L21>H1));

T11:=T111 AND REF(T111,1)=0;

V1:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);

V2X:=(1-7/100)*(DMA(CLOSE,V1));

V3:=(1+7/100)*(DMA(CLOSE,V1));

V5:=MA((LOW+HIGH+CLOSE)/3,5);

A1XX:=CROSS(MA(C,1),MA(C,3));

XG:=A1XX;

ZBGS1:=EMA(EMA(CLOSE,13),13);

主力控盘:=(ZBGS1-REF(ZBGS1,1))/REF(ZBGS1,1)*1000;

A10:=CROSS(主力控盘,0);

轻度控盘:=IF(主力控盘< 0,主力控盘,0),COLORGRAY,NODRAW;

短线:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*20,LINETHICK0,COLORWHITE;

中线:=(CLOSE-MA(CLOSE,4))/MA(CLOSE,4)*20,LINETHICK0,COLORYELLOW;

红柱:=SMA(短线,3,1),LINETHICK0,COLORFF00FF;

绿柱:=SMA(中线,3,1),COLORSTICK,COLOR00FF00;

适度控盘:=IF(A10,5,0),LINETHICK1,COLORWHITE;

高度控盘:=IF(主力控盘>REF(主力控盘,1) AND 主力控盘>0,主力控盘,0),COLORRED,NODRAW;

ZBGS2:=100*WINNER(CLOSE*0.95);

高度主力控盘:=IF(ZBGS2>50 AND COST(85)< CLOSE AND 主力控盘>0,主力控盘,0),COLORFF00FF,NODRAW;

主力出货:=IF(主力控盘< REF(主力控盘,1) AND 主力控盘>0,主力控盘,0),COLOR00FF00,NODRAW;

VV1:=(C*2+H+L)/4*10;

VV2:=EMA(VV1,13)-EMA(VV1,34);

VV3:=EMA(VV2,5);

V4:=2*(VV2-VV3)*5.5;

主力撤:=IF(V4<=0,V4,0),COLORGREEN;

主力进:=IF(V4>=0,V4,0);

VV5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;

V6:=EMA(3*VV5-2*SMA(VV5,18,1),5);

V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;

V8:=(INDEXC*2+INDEXH+INDEXL)/4;

V9:=EMA(V8,13)-EMA(V8,34);

VA:=EMA(V9,3);

VB:=(V9-VA)/2;

大盘资金进场:=IF(VB>=0,VB,0),COLORYELLOW;

大盘资金撤走:=IF(VB<=0,VB,0),COLORRED;

V11:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);

主力趋势线:=EMA(V11,3);

V12:=(主力趋势线-REF(主力趋势线,1))/REF(主力趋势线,1)*100;

准备现金:=STICKLINE(主力趋势线<=13,0,20,5,0),COLORCC9900;

AA:=(主力趋势线<=13) AND FILTER((主力趋势线<=13),15);

买入GP:=STICKLINE(主力趋势线<=13 AND V12>13,0,50,5,0),COLOR0099FF;

MTM:=C-REF(C,1);

DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);

YXF:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX< 0,2) AND CROSS(DX,MA(DX,2)),1,0);

加仓:=IF(FILTER(YXF=1,5),1,0),STICK,COLORFFFFFF,LINETHICK3;

A51:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1);

FY:=EMA(A51,5);

A54:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;

QS:=(MA(3*SMA(A54,6,1)-2*SMA(SMA(A54,5,1),5,1),2));

主力控盘B:=FILTER(IF(A10,1,0),5);

JJ:=DYNAINFO(11);

P:=55;

S:=8;

财:=(EMA(CLOSE,S)-EMA(CLOSE,P))*10,COLORRED,LINETHICK2;

神:=EMA(财,M1),COLORGREEN,LINETHICK1;

ZBGS_1:=(C-JJ)/JJ< -0.005;

ZBGS_11:=(C-JJ)/JJ< -0.03;

ZBGS_12:=LAST(JJ>=REF(JJ,1),5,1) AND (C-JJ)/JJ< 0.005;

STJ1:=(C-JJ)/JJ>0.005;

STJ01:=主力控盘< REF(主力控盘,1) AND 主力控盘>0.5;

STJ02:=主力控盘>0;

ZBGS_2:=主力控盘>REF(主力控盘,1) AND 主力控盘< -0.2;

ZBGS_22:=主力控盘>REF(主力控盘,1) AND 主力控盘< 0 ;

ZBGS_3:=CROSS(财,神) AND 财< -0.3;

ZBGS_32:=CROSS(财,神) AND 财< -0.1;

STJ31:=CROSS(神,财);

STJ32:=CROSS(神,财) AND 财>1.618;

ZBGS_com:=EMA(EMA(CLOSE,9),9);

专用:=(ZBGS_com-REF(ZBGS_com,1))/REF(ZBGS_com,1)*1000;

ZBGS2A:=100*WINNER(CLOSE*0.95);

高手专用:=ZBGS2A>50 AND COST(85)< CLOSE AND 专用>0;

CV:=CLOSE;

BBIBOLL:=(MA(CV,3)+MA(CV,6)+MA(CV,12)+MA(CV,24))/4;

UPR:=BBIBOLL+6*STD(BBIBOLL,11);

DWN:=BBIBOLL-6*STD(BBIBOLL,11);

QJJ:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));

XVL:=(IF(CLOSE>OPEN,QJJ*(HIGH-LOW),IF(CLOSE< OPEN,QJJ*(HIGH-OPEN+CLOSE-LOW),VOL/2))+IF(CLOSE>OPEN,0-QJJ*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE< OPEN,0-QJJ*(HIGH-LOW),0-VOL/2)));

HSL:=(XVL/20)/1.15;

强势股:=((HSL*0.55+(REF(HSL,1)*0.33))+(REF(HSL,2)*0.22))>1500;

绝杀前十:=高手专用 AND 高度主力控盘,COLORFF00FF;

ZBGSC:=SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100;

DRAWICON(CROSS(82,ZBGSC),H*1.02,2);

ZBGS34:=(INDEXC-REF(INDEXC, 1))/REF(INDEXC, 1);

ZBGS35:=(CLOSE-REF(CLOSE, 1))/REF(CLOSE, 1);

ZBGS36:=IF(ZBGS34>0.010, 0.900, 1) AND IF(ZBGS34>(-0.025), 1, 1.200);

ZBGS37:=ZBGS36*(ZBGS35-ZBGS34)*100;

ZBGS38:=SUM(ZBGS37, 10);

ZBGS310:=ZBGS38>20;

ZBGS326:=IF(CLOSE AND MA(VOL, 5)/240 AND CLOSE>REF(CLOSE, 1)*1.0 AND CLOSE,1,0);

ZBGS327:=IF(CLOSE/REF(CLOSE, 1)>1.050 AND VOL/CAPITAL*100< 10 AND CLOSE< 17 AND HIGH/CLOSE< 1.010 AND ZBGS326>0, 1, 0);

DRAWTEXT_FIX(1,0.980,20,1,', '),COLOR333333;

DRAWICON(ZBGS327=1,L*0.95,1);

HZ:=EMA(CLOSE,13);

短波:=EMA(HZ,1);

STICKLINE(CLOSE>OPEN,OPEN,CLOSE,3,0),COLORRED;

STICKLINE(CLOSE>OPEN,HIGH,LOW,0.5,0),COLORRED;

STICKLINE(CLOSE=OPEN AND CLOSE>REF(CLOSE,1),OPEN,CLOSE,3,0),COLORRED;

STICKLINE(CLOSE< OPEN,OPEN,CLOSE,3,0),COLORYELLOW;

STICKLINE(CLOSE< OPEN,HIGH,LOW,0.5,0),COLORYELLOW;

STICKLINE(CLOSE=OPEN AND CLOSE< REF(CLOSE,1),OPEN,CLOSE,3,0),COLORYELLOW;

DRAWLINE(CLOSE>OPEN,OPEN,CLOSE>OPEN,CLOSE,1),COLORFF66B2;

DRAWLINE(CLOSE>OPEN,OPEN+(CLOSE-OPEN)*0.3,CLOSE>OPEN,CLOSE-(CLOSE-OPEN)*0.3,1),COLORFF66B2;

DRAWLINE(CLOSE>OPEN,OPEN+(CLOSE-OPEN)*0.6,CLOSE>OPEN,CLOSE-(CLOSE-OPEN)*0.6,1),COLORFF66B2;

STICKLINE(CLOSE< OPEN,OPEN,OPEN,3,0),COLOR00FFFF;

STICKLINE(CLOSE< OPEN,OPEN-(CLOSE-OPEN)*0.3,OPEN-(CLOSE-OPEN)*0.3,3,0),COLOR00FFFF;

STICKLINE(CLOSE< OPEN,OPEN-(CLOSE-OPEN)*0.6,OPEN-(CLOSE-OPEN)*0.6,3,0),COLOR00FFFF;

中波:=EMA(HZ,26);

均线148天:=EMA(C,148);

成本:=SUM(AMOUNT,0)/SUM(VOL,0)/100;

HZ2:=EMA(HZ,8);

反转启动:=CROSS(短波,HZ2);

DRAWICON(反转启动,L*0.99,11);
DRAWTEXT (反转启动,L*0.97,'☆机构控盘'),COLORCYAN;



{副图源码如下}




HZ:=EMA(CLOSE,13);
短波:=EMA(HZ,1);
HZ2:=EMA(HZ,8);
反转启动:=CROSS(短波,HZ2);
XG:反转启动;















未
回复

举报