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

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索

[通达信] 〖全幅资金筹码动能〗告别多窗口繁琐切换实时捕捉大单成交动向源码


   
楼主
2026-9-14 09:01:39



PEAKVOL:=CONST(IF(V=HHV(V,30),V,REF(V,BARSLAST(V=HHV(V,30))))),COLOR00FF00,POINTDOT;

SINGLEBASE:=(VOL/CLOSE)/3;

BUYSMALLLOW:=SUM((IF(((SINGLEBASE>60) AND C< 15 AND C>REF(C,1)),SINGLEBASE,0)),1);

BUYBIGHIGH:=SUM((IF(((SINGLEBASE>20) AND C>15 AND C>REF(C,1)),SINGLEBASE,0)),1);

BUYTOTAL:(BUYSMALLLOW+BUYBIGHIGH),NODRAW;

SELLSMALLLOW:=SUM((IF(((SINGLEBASE>60) AND C< 15 AND C< REF(C,1)),SINGLEBASE,0)),1);

SELLBIGHIGH:=SUM((IF(((SINGLEBASE>20) AND C>15 AND C< REF(C,1)),SINGLEBASE,0)),1);

SELLTOTAL:(SELLSMALLLOW+SELLBIGHIGH),NODRAW;

NETFLOW:=IF(FINANCE(7)< 5000000000,(BUYTOTAL-SELLTOTAL)/10,0),COLORYELLOW,NODRAW;

STICKLINE(BUYTOTAL ,PEAKVOL+BUYTOTAL*4,PEAKVOL,2,0),COLORRED;

STICKLINE(SELLTOTAL ,PEAKVOL-SELLTOTAL*4,PEAKVOL,2,0),COLORGREEN;

STICKLINE(NETFLOW ,PEAKVOL+NETFLOW*4,PEAKVOL,2,0),COLORYELLOW;

MIDLINE:=PEAKVOL*0.5;

PRICEWEIGHT:=(2*CLOSE+OPEN+HIGH+LOW)*10000;

POWERINDEX:PRICEWEIGHT/EMA(PRICEWEIGHT,4)-1,COLORSTICK,NODRAW;

POWERMAG:=POWERINDEX*800000;

PROFITLINE:STICKLINE(POWERMAG< REF(POWERMAG,1)AND POWERMAG>0,MIDLINE,MIDLINE+POWERMAG,2,0),COLOR33DFDD;

SHORTLINE:STICKLINE(POWERMAG< REF(POWERMAG,1)AND POWERMAG< 0,MIDLINE,MIDLINE+POWERMAG,2,0),COLOR00DD00;

COVERLINE:STICKLINE(POWERMAG>REF(POWERMAG,1)AND POWERMAG< 0,MIDLINE,MIDLINE+POWERMAG,2,0),COLORFFAA00;

LONGLINE:STICKLINE(POWERMAG>REF(POWERMAG,1)AND POWERMAG>0,MIDLINE,MIDLINE+POWERMAG,2,0),COLOR0000DD;

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

ZBGS10:=IF(BARSCOUNT(C)>60 AND DYNAINFO(4)>0,POWERMAG=HHV(ABS(POWERMAG),10),0);

ZBGS20:=IF(BARSCOUNT(C)>60 AND DYNAINFO(4)>0,POWERMAG=HHV(ABS(POWERMAG),20),0);

ZBGS30:=IF(BARSCOUNT(C)>60 AND DYNAINFO(4)>0,POWERMAG=HHV(ABS(POWERMAG),30),0);

ZBGS50:=IF(BARSCOUNT(C)>60 AND DYNAINFO(4)>0,POWERMAG=HHV(ABS(POWERMAG),50),0);

ZBGS80:=IF(BARSCOUNT(C)>60 AND DYNAINFO(4)>0,POWERMAG=HHV(ABS(POWERMAG),80),0);

POWERSCORE:(ZBGS10+ZBGS20+ZBGS30+ZBGS50+ZBGS80)/50,LINETHICK,NODRAW;

SUPERPOWER:STICKLINE(ZBGS80,MIDLINE,MIDLINE+POWERMAG,2,0),COLORMAGENTA;

LOWVOL:=PEAKVOL*0.1;

AVGPRICE:=(2*O+H+L+3*C)/7;

CAPBASE:=CAPITAL*AVGPRICE/10;

AVGAMT:=SMA(AMOUNT,10,1)/1000;

MAPRICE:=MA(C*3,5);

CAMT:=AVGAMT*C*3/MAPRICE*1/10;

OAMT:=AVGAMT*O*3/MAPRICE*1/10;

HAMT:=AVGAMT*H*3/MAPRICE*1/10;

LAMT:=AVGAMT*L*3/MAPRICE*1/10;

BALANCECOEF:=(2*OAMT+HAMT+LAMT+3*CAMT)/7;

SMOOTHCAP:=DMA(EMA(CAMT,2),SUM(V,1)*BALANCECOEF);

CAPTREND:=EMA(SMOOTHCAP,2);

TRENDUP:=SMOOTHCAP>CAPTREND;

CAPDIFF:=EMA(CAPBASE-SMOOTHCAP,1);

PREDIFF:=REF(CAPDIFF,1);

DIFFUP:=CAPDIFF>PREDIFF;

YANGCONFIRM:=DIFFUP AND C>O;

DIFFRANGE:=(CAPDIFF-PREDIFF)*0.15;

网:=(SMOOTHCAP-CAPTREND)*150;

REVRANGE:=(PREDIFF-CAPDIFF)*(-1);

INCRANGE:=IF(CAPDIFF>PREDIFF,DIFFRANGE,0);

DECRANGE:=IF(CAPDIFF< PREDIFF,DIFFRANGE,0);

REDRANGE:=IF(TRENDUP AND CAPDIFF< PREDIFF,DIFFRANGE,0);

STRONGRANGE:=IF(TRENDUP AND YANGCONFIRM,网/10,0);

















未
回复

举报