通达信周框图主图公式、源码、说明

源码

{周}
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;