VV:="WEEK$1$V";
M:=5;
N:=BARSLAST(VV<>REF(VV,1))+1;
HH1:=HHV(H,N);//当前最高价
LL1:=LLV(L,N);//当前最低价
CC:=REF(C,N);//昨日收盘价
HH:=REF(HH1,N);//昨日最高价
LL:=REF(LL1,N);//昨日最低价
PIVOT:(HH+LL+CC)/3,LINETHICK2,COLORWHITE,LINETHICK2;
R1:=2*PIVOT-LL,COLORYELLOW;
S1:=2*PIVOT-HH,COLORWHITE;
R2:=PIVOT+(R1-S1),COLORMAGENTA;
R3:=HH+2*(PIVOT-LL),COLORRED;
S2:=PIVOT-(R1-S1),COLORCYAN;
S3:=LL-2*(HH-PIVOT),COLORLIGHTGREEN;
RM1:=(PIVOT+R1)/2,COLORYELLOW,DOT;
RM2:=(R1+R2)/2,COLORMAGENTA,DOT;
RM3:=(R2+R3)/2,COLORRED,DOT;
SM1:=(PIVOT+S1)/2,COLORWHITE,DOT;
SM2:=(S1+S2)/2,COLORCYAN,DOT;
SM3:=(S2+S3)/2,COLORLIGHTGREEN,DOT;
NG:=CROSS(BACKSET(ISLASTBAR,M),0.5);
DRAWSL(ISLASTBAR,PIVOT,0,-M+1,0,COLORWHITE),LINETHICK2;
DRAWSL(ISLASTBAR,PIVOT,0,M,0,COLORWHITE),LINETHICK2;
DRAWTEXT(NG,REFX1(PIVOT,9999),'周PIVOT'),COLORWHITE,ALIGN2,VALIGN1,FONTSIZE15;
DRAWNUMBER(ISLASTBAR,PIVOT,PIVOT,5,COLORWHITE),ALIGN0,VALIGN0,FONTSIZE15;
DRAWSL(ISLASTBAR,R1,0,-M+1,0,COLORYELLOW),LINETHICK2;
DRAWSL(ISLASTBAR,R2,0,-M+1,0,COLORMAGENTA),LINETHICK2;
DRAWSL(ISLASTBAR,R3,0,-M+1,0,COLORRED),LINETHICK2;
DRAWSL(ISLASTBAR,R1,0,M,0,COLORYELLOW),LINETHICK2;
DRAWSL(ISLASTBAR,R2,0,M,0,COLORMAGENTA),LINETHICK2;
DRAWSL(ISLASTBAR,R3,0,M,0,COLORRED),LINETHICK2;
DRAWTEXT(NG,REFX1(R1,9999),'周R1'),COLORYELLOW,ALIGN2,VALIGN1,FONTSIZE15;
DRAWTEXT(NG,REFX1(R2,9999),'周R2'),COLORMAGENTA,ALIGN2,VALIGN1,FONTSIZE15;
DRAWTEXT(NG,REFX1(R3,9999),'周R3'),COLORRED,ALIGN2,VALIGN1,FONTSIZE15;
DRAWNUMBER(ISLASTBAR,R1,R1,5,COLORYELLOW),ALIGN0,VALIGN0,FONTSIZE15;
DRAWNUMBER(ISLASTBAR,R2,R2,5,COLORMAGENTA),ALIGN0,VALIGN0,FONTSIZE15;
DRAWNUMBER(ISLASTBAR,R3,R3,5,COLORRED),ALIGN0,VALIGN0,FONTSIZE15;
DRAWSL(ISLASTBAR,S1,0,-M+1,0,COLORWHITE),LINETHICK2;
DRAWSL(ISLASTBAR,S2,0,-M+1,0,COLORCYAN),LINETHICK2;
DRAWSL(ISLASTBAR,S3,0,-M+1,0,COLORLIGHTGREEN),LINETHICK2;
DRAWSL(ISLASTBAR,S1,0,M,0,COLORWHITE),LINETHICK2;
DRAWSL(ISLASTBAR,S2,0,M,0,COLORCYAN),LINETHICK2;
DRAWSL(ISLASTBAR,S3,0,M,0,COLORLIGHTGREEN),LINETHICK2;
DRAWTEXT(NG,REFX1(S1,9999),'周S1'),COLORWHITE,ALIGN2,VALIGN1,FONTSIZE15;
DRAWTEXT(NG,REFX1(S2,9999),'周S2'),COLORCYAN,ALIGN2,VALIGN1,FONTSIZE15;
DRAWTEXT(NG,REFX1(S3,9999),'周S3'),COLORLIGHTGREEN,ALIGN2,VALIGN1,FONTSIZE15;
DRAWNUMBER(ISLASTBAR,S1,S1,5,COLORWHITE),ALIGN0,VALIGN0,FONTSIZE15;
DRAWNUMBER(ISLASTBAR,S2,S2,5,COLORCYAN),ALIGN0,VALIGN0,FONTSIZE15;
DRAWNUMBER(ISLASTBAR,S3,S3,5,COLORLIGHTGREEN),ALIGN0,VALIGN0,FONTSIZE15;
DRAWSL(ISLASTBAR,RM1,0,-M+1,0,COLORYELLOW),DOT;
DRAWSL(ISLASTBAR,RM2,0,-M+1,0,COLORRED),DOT;
DRAWSL(ISLASTBAR,RM3,0,-M+1,0,COLORRED),DOT;
DRAWSL(ISLASTBAR,RM1,0,M,0,COLORYELLOW),DOT;
DRAWSL(ISLASTBAR,RM2,0,M,0,COLORRED),DOT;
DRAWSL(ISLASTBAR,RM3,0,M,0,COLORRED),DOT;
DRAWTEXT(NG,REFX1(RM1,9999),'周RM1'),COLORYELLOW,ALIGN2,VALIGN1,FONTSIZE15;
DRAWTEXT(NG,REFX1(RM2,9999),'周RM2'),COLORRED,ALIGN2,VALIGN1,FONTSIZE15;
DRAWTEXT(NG,REFX1(RM3,9999),'周RM3'),COLORRED,ALIGN2,VALIGN1,FONTSIZE15;
DRAWNUMBER(ISLASTBAR,RM1,RM1,5,COLORYELLOW),ALIGN0,VALIGN0,FONTSIZE15;
DRAWNUMBER(ISLASTBAR,RM2,RM2,5,COLORRED),ALIGN0,VALIGN0,FONTSIZE15;
DRAWNUMBER(ISLASTBAR,RM3,RM3,5,COLORRED),ALIGN0,VALIGN0,FONTSIZE15;
DRAWSL(ISLASTBAR,SM1,0,-M+1,0,COLORYELLOW),DOT;
DRAWSL(ISLASTBAR,SM2,0,-M+1,0,COLORCYAN),DOT;
DRAWSL(ISLASTBAR,SM3,0,-M+1,0,COLORLIGHTGREEN),DOT;
DRAWSL(ISLASTBAR,SM1,0,M,0,COLORYELLOW),DOT;
DRAWSL(ISLASTBAR,SM2,0,M,0,COLORCYAN),DOT;
DRAWSL(ISLASTBAR,SM3,0,M,0,COLORLIGHTGREEN),DOT;
DRAWTEXT(NG,REFX1(SM1,9999),'周SM1'),COLORYELLOW,ALIGN2,VALIGN1,FONTSIZE15;
DRAWTEXT(NG,REFX1(SM2,9999),'周SM2'),COLORCYAN,ALIGN2,VALIGN1,FONTSIZE15;
DRAWTEXT(NG,REFX1(SM3,9999),'周SM3'),COLORLIGHTGREEN,ALIGN2,VALIGN1,FONTSIZE15;
DRAWNUMBER(ISLASTBAR,SM1,SM1,5,COLORYELLOW),ALIGN0,VALIGN0,FONTSIZE15;
DRAWNUMBER(ISLASTBAR,SM2,SM2,5,COLORCYAN),ALIGN0,VALIGN0,FONTSIZE15;
DRAWNUMBER(ISLASTBAR,SM3,SM3,5,COLORLIGHTGREEN),ALIGN0,VALIGN0,FONTSIZE15;
|