通达信量能百分图副图指标 显示获利百分比和北京时间 源码 附图

{量能百分图 副图源码}
STICKLINE(CLOSE=REF(CLOSE,1),0,VOL,3.3,0),COLORWHITE;
STICKLINE(CLOSE REF(CLOSE,1),0,VOL,3.3,0),COLORRED;
STICKLINE(CLOSE REF(CLOSE,1),0,VOL,3.3,0),COLORGREEN;
累计换手:SUM(VOL,0)*100/CAPITAL,NODRAW;
当日换手:IF((SETCODE==0||SETCODE==1),100*VOL,VOL)/(FINANCE(7)/100),NODRAW;
二日换手:SUM(VOL,2)*100/CAPITAL,NODRAW;
三日换手:SUM(VOL,3)*100/CAPITAL,NODRAW;
四日换手:SUM(VOL,4)*100/CAPITAL,NODRAW;
五日换手:SUM(VOL,5)*100/CAPITAL,NODRAW;
十日换手:SUM(VOL,10)*100/CAPITAL,NODRAW;
十五日换手:SUM(VOL,15)*100/CAPITAL,NODRAW;
二十日换手:SUM(VOL,20)*100/CAPITAL,NODRAW;
三十日换手:SUM(VOL,30)*100/CAPITAL,NODRAW;
四十日换手:SUM(VOL,40)*100/CAPITAL,NODRAW;
五十日换手:SUM(VOL,50)*100/CAPITAL,NODRAW;
六十日换手:SUM(VOL,60)*100/CAPITAL,NODRAW;
百日换手:SUM(VOL,100)*100/CAPITAL,NODRAW;
二百日换手:SUM(VOL,200)*100/CAPITAL,NODRAW;
三百日换手:SUM(VOL,300)*100/CAPITAL,NODRAW;
四百日换手:SUM(VOL,400)*100/CAPITAL,NODRAW;
五百日换手:SUM(VOL,500)*100/CAPITAL,NODRAW;
{年月日星期}
DA:=YEAR AND MONTH AND DAY;
AA1:=STRCAT(CON2STR(YEAR,0), 年
AA2:=STRCAT(CON2STR(MONTH,0), 月
AA3:=STRCAT(CON2STR(DAY,0), 日
AA4:=STRCAT( 【 ,IF(WEEKDAY=1, 星期一 ,IF(WEEKDAY=2, 星期二 ,
IF(WEEKDAY=3, 星期三 ,IF(WEEKDAY=4, 星期四 ,IF
(WEEKDAY=5, 星期五 ,IF(WEEKDAY=6, 星期六 , 星期日 )))))));
AA:=STRCAT(STRCAT(STRCAT(AA1,AA2),STRCAT(AA3,AA4)), 】
DRAWTEXT_FIX(DA,0.848,0.01,0,AA),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR=1,0.08,0,0,STKNAME),COLORWHITE ;
DRAWTEXT_FIX(ISLASTBAR=1,0.18,0,0,CODE) COLOR0000FF;
ASDF:=STRCAT(STRCAT( 当前获利盘比例: ,CON2STR(WINNER(CLOSE)*100,2)), %
DRAWTEXT_FIX(ISLASTBAR,0.500,0.001,0,ASDF),COLORWHITE;
{画横线,区分空间维度,间隔为10%比例}
DRAWRECTREL(000,001,999,005,000);
DRAWRECTREL(000,100,999,105,000);
DRAWRECTREL(000,200,999,205,000);
DRAWRECTREL(000,300,999,305,000);
DRAWRECTREL(000,400,999,405,000);
DRAWRECTREL(000,500,999,505,000);
DRAWRECTREL(000,600,999,605,000);
DRAWRECTREL(000,700,999,705,000);
DRAWRECTREL(000,800,999,805,000);
DRAWRECTREL(000,900,999,905,000);
DRAWRECTREL(000,995,999,999,000);
{右侧解说性文字}
DRAWTEXT_FIX(1,0.999,0.999,1, 最后边 ),COLORYELLOW;
DRAWTEXT_FIX(1,0.999,0.900,1, 10% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.999,0.800,1, 20% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.999,0.700,1, 30% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.999,0.600,1, 40% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.999,0.500,1, 50% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.999,0.400,1, 60% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.999,0.300,1, 70% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.999,0.200,1, 80% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.999,0.100,1, 90% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.999,0.001,1, 最前边 ),COLORYELLOW;
{左侧解说性文字}
DRAWTEXT_FIX(1,0.03,0.999,1, 最后边 ),COLORYELLOW;
DRAWTEXT_FIX(1,0.03,0.900,1, 10% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.03,0.800,1, 20% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.03,0.700,1, 30% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.03,0.600,1, 40% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.03,0.500,1, 50% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.03,0.400,1, 60% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.03,0.300,1, 70% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.03,0.200,1, 80% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.03,0.100,1, 90% ),COLORYELLOW;
DRAWTEXT_FIX(1,0.03,0.001,1, 最前边 ),COLORYELLOW;