动态换手日周月表
{动态换手数据引用}
日换手:=VOL/CAPITAL*100;周换手:=SUM(VOL,5)/CAPITAL*100;月换手:=SUM(VOL,21)/CAPITAL*100;
{3行显示换手↑↓用}
DJA:=日换手[SYSPARAM(1)];DJA1:=日换手[(SYSPARAM(1)-1)];DJ1:=IF((DJA>DJA1),'↑','↓');
DJB:=周换手[SYSPARAM(1)];DJB1:=周换手[(SYSPARAM(1)-1)];DJ2:=IF((DJB>DJB1),'↑','↓');
DJC:=月换手[SYSPARAM(1)];DJC1:=月换手[(SYSPARAM(1)-1)];DJ3:=IF((DJC>DJC1),'↑','↓');
{7行图表部份}
p:=SYSPARAM(1);
DRAWTEXT(c>0 and BARSTATUS=2,-10,''),ColorFFFF00,LINETHICK1,ALIGN2; {表框下限}{48行}
DRAWTEXT(c>0 and BARSTATUS=2, 60,'┏━━━┱────┬────┬────┐'),Color00AAAA,LINETHICK1,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2, 50,'┃ ┃ │ │ │'),Color00AAAA,LINETHICK1,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2, 40,'┠───╂────┼────┼────┤'),Color00AAAA,LINETHICK1,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2, 30,'┃ ┃ │ │ │'),Color00AAAA,LINETHICK1,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2, 20,'┗━━━┹────┴────┴────┘'),Color00AAAA,LINETHICK1,ALIGN2;
{第15行}
DRAWTEXT(c>0 and BARSTATUS=2,50,'周期:日换手率: 周换手率:月换手率:'),ColorDEDEDE,LINETHICK1,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,'值: '),ColorDEDEDE,LINETHICK1,ALIGN2;
{18行}
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(日换手[P],2)+DJ1+' '),COLORWHITE,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(周换手[P],2)+DJ2+' '),COLORWHITE,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(月换手[P],2)+DJ3+' '),COLORWHITE,ALIGN2;
{各动态周期换手一目了然,方便观察使用.}
{}{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
