「翔博精选指标」量能百分图，显示获利百分比和北京时间（通达信

2022-05-23原创编辑：翔博软件

{量能百分图副图源码}

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;