定点换手日周月年表

 

{定点换手}
{确定周期参数}
BZ:=WEEKDAY;ZB:=BZ<REF(BZ,1);Z1:=SUMBARS(ZB,1);ZZ0:=SUMBARS(ZB,2);//周
BY:=MONTH;YB:=BY-REF(BY,1)<>0;Y1:=SUMBARS(YB,1);Y0:=SUMBARS(YB,2);//月
年:=YEAR;FN:=年-REF(年,1)<>0;FN1:=SUMBARS(FN,1);FN0:=SUMBARS(FN,2);//年
QB:=SUMBARS(VOL,CAPITAL);XX:=BACKSET(BARPOS=SYSPARAM(1),QB)*40;QW:=XX>REF(XX,1);
换手:=VOL/CAPITAL*100;
当日换:=换手,STICK;
当周换:=SUM(VOL,Z1)/CAPITAL*100;
当月换:=SUM(VOL,Y1)/CAPITAL*100;
当季换:=SUM(VOL,J1)/CAPITAL*100;
半年换:=SUM(VOL,N1)/CAPITAL*100;
当年换:=SUM(VOL,FN1)/CAPITAL*100;
{16行显示换手↑↓用}
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),'↑','↓');
DJD:=当年换[SYSPARAM(1)];DJD1:=当年换[(SYSPARAM(1)-1)];DJ4:=IF((DJD>DJD1),'↑','↓');
{21行图表部份}
p:=SYSPARAM(1);
DRAWTEXT(c>0 and BARSTATUS=2,-10,''),ColorFFFF00,LINETHICK1,ALIGN2; {表框下限}{48行}
DRAWTEXT(c>0 and BARSTATUS=2, 60,'┏━━━┱─────┬─────┬─────┬─────┐'),Color00AAAA,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2, 50,'┃      ┃          │          │          │          │'),Color00AAAA,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2, 40,'┠───╂─────┼─────┼─────┼─────┤'),Color00AAAA,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2, 30,'┃      ┃          │          │          │          │'),Color00AAAA,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2, 20,'┗━━━┹─────┴─────┴─────┴─────┘'),Color00AAAA,SHIFT3,ALIGN2;
{第29行}
DRAWTEXT(c>0 and BARSTATUS=2,50,'  周期:  当日换手率: 当周换手率: 当月换手率: 当年换手率: '),ColorDEDEDE,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,'  值:          　　　　                                 '),ColorDEDEDE,SHIFT3,ALIGN2;
{32行}
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(当日换[P],2)+DJ1+'                                       '),COLORWHITE,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(当周换[P],2)+DJ2+'                           '),COLORWHITE,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(当月换[P],2)+DJ3+'               '),COLORWHITE,SHIFT3,ALIGN2;
DRAWTEXT(c>0 and BARSTATUS=2,30,NUMTOSTR(当年换[P],2)+DJ4+'   '),COLORWHITE,SHIFT3,ALIGN2;
{37行}