通达信〖资金筹码动能〗综合监测大单成交多空动能与筹码增减指标公式源码

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;
GSPT10:=IF(BARSCOUNT(C)>60 AND DYNAINFO(4)>0,POWERMAG=HHV(Abs(POWERMAG),10),0);
GSPT20:=IF(BARSCOUNT(C)>60 AND DYNAINFO(4)>0,POWERMAG=HHV(ABS(POWERMAG),20),0);
GSPT30:=IF(BARSCOUNT(C)>60 AND DYNAINFO(4)>0,POWERMAG=HHV(ABS(POWERMAG),30),0);
GSPT50:=IF(BARSCOUNT(C)>60 AND DYNAINFO(4)>0,POWERMAG=HHV(ABS(POWERMAG),50),0);
GSPT80:=IF(BARSCOUNT(C)>60 AND DYNAINFO(4)>0,POWERMAG=HHV(ABS(POWERMAG),80),0);
POWERSCORE:(GSPT10+GSPT20+GSPT30+GSPT50+GSPT80)/50,LINETHICK,NODRAW;
SUPERPOWER:STICKLINE(GSPT80,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);
INCNUM:INCRANGE/100,NODRAW,COLORRED;
DECNUM:DECRANGE/100,NODRAW,COLORGREEN;
REDNUM:REDRANGE/100,NODRAW,COLORFFF516;
STRONGNUM:STRONGRANGE/100,NODRAW,COLORYELLOW;
STICKLINE(CAPDIFF>PREDIFF,LOWVOL,LOWVOL+INCRANGE,3,1),COLORRED;
STICKLINE(CAPDIFF< PREDIFF,LOWVOL,LOWVOL+DECRANGE,3,0),COLORGREEN;
STICKLINE(TRENDUP AND CAPDIFF< PREDIFF,LOWVOL,LOWVOL+REDRANGE,3,0),COLORFFF516;
STICKLINE(TRENDUP AND YANGCONFIRM,LOWVOL,LOWVOL+STRONGRANGE,3,0),COLORYELLOW;
DRAWTEXT_FIX(1,0.02,0.1,0,'大单成交监测'),COLORWHITE;
DRAWTEXT_FIX(1,0.02,0.5,0,'多空动能指标'),COLORWHITE;
DRAWTEXT_FIX(1,0.02,0.9,0,'筹码增减追踪'),COLORWHITE;