通信達公式周框圖主圖AQ:=O#WEEK;

　　B:=C#WEEK;

　　AAQ:=H#WEEK;

　　BB:=L#WEEK;

　　BZ:=WEEKDAY;

　　TT:=BARSCOUNT(C)=1;

　　ZC:=WEEKDAY < REF(WEEKDAY,1)OR TT;

　　ZM:=REFX(ZC,1) ;

　　STICKLINE(WEEKDAY=1,AAQ,BB,0,-1),COLORLIGRAY;

　　STICKLINE(WEEKDAY=6-1,AAQ,BB,0,-1),COLORLIGRAY;

　　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;