真实成交量彩带(大智慧)

真实成交量彩带(大智慧)

源码正文：

jj:=(HIGH+LOW+CLOSE)/3{XG51};
qj0:=vol/IF(HIGH=LOW,4,HIGH-LOW);

主买:=(qj0*(jj-MIN(CLOSE,OPEN))){XG51};
主卖:=(qj0*(MIN(OPEN,CLOSE)-LOW)){XG51};
主净:主买-主卖,COLORWHITE,LINETHICK2;

散买:=(qj0*(HIGH-maX(OPEN,CLOSE))){XG51};
散卖:=(qj0*(MAX(CLOSE,OPEN)-jj)){XG51};
散净:散买-散卖,COLORGREEN;

FILLRGN(0,散净,散净>0,rgb(0,250,250)){XG51};
FILLRGN(0,主净,主净>0,rgb(255,0,0));

天z:COUNT(主净>0,10),PRECIS0,COLORLIMAGENTA{XG51};
DRAWTEXTAbs(80,10,'主净十天内翻红:'+NUMTOstRN(天z,0)+' 天'),COLORLIMAGENTA;

天s:COUNT(散净>0,10),PRECIS0,COLORGREEN{XG51};
DRAWTEXTABS(360,10,'散净十天内翻红:'+NUMTOSTRN(天s,0)+ ' 天'),COLORGREEN;

0,colorwhite{X_G!5.1_C_N_{};