TJ:=MONTH=1 OR MONTH=2
      OR MONTH=3 OR MONTH=4 OR MONTH=5 OR MONTH=6
 OR MONTH=7 OR MONTH=8 OR MONTH=9
 OR MONTH=10 OR MONTH=11 OR MONTH=12;
 TJ1:=TJ AND DAY<REF(DAY,1);
 DRAWLINE(TJ1,O#MONTH,REF(TJ1,1),REF(O#MONTH,1),1)COLORYELLOW;

T1:=BARSLAST(MONTH!=REF(MONTH,1));

HH1:=HHV(H,T1+1);
 HH:=REF(HH1,T1+1);{上周最高价}

LL1:=LLV(L,T1+1);
 LL:=REF(LL1,T1+1);{上周最高价}

CC:REF(C,BARSLAST(MONTH!=REF(MONTH,1))+1),NODRAW;{上月收盘价}

PIVOT:(HH+LL+CC)/3,LINETHICK2;
 R1:2*PIVOT-LL,DOTLINE;
 S1:2*PIVOT-HH;
 R2:PIVOT+(R1-S1),DOTLINE;
 S2:PIVOT-(R1-S1),COLORGREEN;
 R3:HH+2*(PIVOT-LL),DOTLINE;
 S3:LL-2*(HH-PIVOT);