 |
通达信周框图主图公式、源码、说明
源码
{周}
AQ:=O#WEEK;
B:=C#WEEK;
AAQ:=H#WEEK;
BB:=L#WEEK;
STICKLINE(WEEKDAY=1,AAQ,BB,0,-1),COLORLIGRAY;
STICKLINE(WEEKDAY=6-1,AAQ,BB,0,-1),COLORLIGRAY;
BZ:=WEEKDAY;
TT:=BARSCOUNT(C)=1;
{ZB:=DATE IFF(REF(DATE,1),DATE)>BZ-REF(BZ,1) OR BARSLAST=1;}
ZC:=WEEKDAY<REF(WEEKDAY,1)OR TT;
ZM:=REFX(ZC,1) ;
DRAWLINE(B>=AQ AND (ZC OR TT ),AAQ,B>=AQ AND (ZM OR ISLASTBAR),AAQ,0),COLOR9999DD;
DRAWLINE(B>=AQ AND (ZC OR TT ),BB,B>=AQ AND (ZM OR ISLASTBAR),BB,0),COLOR9999DD;
DRAWLINE(B<AQ AND (ZC OR TT ),AAQ,B<AQ AND (ZM OR ISLASTBAR),AAQ,0),COLORDDAA88;
DRAWLINE(B<AQ AND (ZC OR TT ),BB,B<AQ AND (ZM OR ISLASTBAR),BB,0),COLORDDAA88;