动态换手日周月表

 

{动态换手数据引用}
日换手:=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;
{各动态周期换手一目了然,方便观察使用.}
{}