通达信月轴心点+月开盘价源码

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);