通达信连续九周画矩形标注最高最低价（主图叠加）未加密选股指标公式源码

T:=BArslAST(WEEKOFYEAR!=REF(WEEKOFYEAR,1));
L0:=LLV(L,T+1);
L1:=REF(L0,T+1);
L2:=REF(L1,T+1);
L3:=REF(L2,T+1);
L4:=REF(L3,T+1);
L5:=REF(L4,T+1);
L6:=REF(L5,T+1);
L7:=REF(L6,T+1);
L8:=REF(L7,T+1);
H0:=HHV(H,T+1);
H1:=REF(H0,T+1);
H2:=REF(H1,T+1);
H3:=REF(H2,T+1);
H4:=REF(H3,T+1);
H5:=REF(H4,T+1);
H6:=REF(H5,T+1);
H7:=REF(H6,T+1);
H8:=REF(H7,T+1);
TJ:=WEEKOFYEAR!=REF(WEEKOFYEAR,1);
TJ1:=COUNT(TJ,TOTALBARSCOUNT);
T0:=BARSLAST(crOSS(CONST(TJ1)-TJ1=0,0.5));
T1:=BARSLAST(CROSS(CONST(TJ1)-TJ1=1,0.5));
T2:=BARSLAST(CROSS(CONST(TJ1)-TJ1=2,0.5));
T3:=BARSLAST(CROSS(CONST(TJ1)-TJ1=3,0.5));
T4:=BARSLAST(CROSS(CONST(TJ1)-TJ1=4,0.5));
T5:=BARSLAST(CROSS(CONST(TJ1)-TJ1=5,0.5));
T6:=BARSLAST(CROSS(CONST(TJ1)-TJ1=6,0.5));
T7:=BARSLAST(CROSS(CONST(TJ1)-TJ1=7,0.5));
T8:=BARSLAST(CROSS(CONST(TJ1)-TJ1=8,0.5));
NOTEXT1:IF(CONST(TJ1)-TJ1=0,CONST(H0),DRAWNULL),COLORBLUE;
NOTEXT2:IF(CONST(TJ1)-TJ1=0,CONST(L0),DRAWNULL),COLORBLUE;
STICKLINE(T0=0 OR BARSTATUS=2,CONST(H0),CONST(L0),0,0),COLORBLUE;
NOTEXT3:IF(CONST(TJ1)-TJ1=1,CONST(H1),DRAWNULL),COLORBLUE;
NOTEXT4:IF(CONST(TJ1)-TJ1=1,CONST(L1),DRAWNULL),COLORBLUE;
STICKLINE(T1=0 OR REFX(T0=0,1),CONST(H1),CONST(L1),0,0),COLORBLUE;
NOTEXT5:IF(CONST(TJ1)-TJ1=2,CONST(H2),DRAWNULL),COLORBLUE;
NOTEXT6:IF(CONST(TJ1)-TJ1=2,CONST(L2),DRAWNULL),COLORBLUE;
STICKLINE(T2=0 OR REFX(T1=0,1),CONST(H2),CONST(L2),0,0),COLORBLUE;
NOTEXT7:IF(CONST(TJ1)-TJ1=3,CONST(H3),DRAWNULL),COLORBLUE;
NOTEXT8:IF(CONST(TJ1)-TJ1=3,CONST(L3),DRAWNULL),COLORBLUE;
STICKLINE(T3=0 OR REFX(T2=0,1),CONST(H3),CONST(L3),0,0),COLORBLUE;
NOTEXT9:IF(CONST(TJ1)-TJ1=4,CONST(H4),DRAWNULL),COLORBLUE;
NOTEXT10:IF(CONST(TJ1)-TJ1=4,CONST(L4),DRAWNULL),COLORBLUE;
STICKLINE(T4=0 OR REFX(T3=0,1),CONST(H4),CONST(L4),0,0),COLORBLUE;
NOTEXT11:IF(CONST(TJ1)-TJ1=5,CONST(H5),DRAWNULL),COLORBLUE;
NOTEXT12:IF(CONST(TJ1)-TJ1=5,CONST(L5),DRAWNULL),COLORBLUE;
STICKLINE(T5=0 OR REFX(T4=0,1),CONST(H5),CONST(L5),0,0),COLORBLUE;
NOTEXT13:IF(CONST(TJ1)-TJ1=6,CONST(H6),DRAWNULL),COLORBLUE;
NOTEXT14:IF(CONST(TJ1)-TJ1=6,CONST(L6),DRAWNULL),COLORBLUE;
STICKLINE(T6=0 OR REFX(T5=0,1),CONST(H6),CONST(L6),0,0),COLORBLUE;
NOTEXT15:IF(CONST(TJ1)-TJ1=7,CONST(H7),DRAWNULL),COLORBLUE;
NOTEXT16:IF(CONST(TJ1)-TJ1=7,CONST(L7),DRAWNULL),COLORBLUE;
STICKLINE(T7=0 OR REFX(T6=0,1),CONST(H7),CONST(L7),0,0),COLORBLUE;
NOTEXT17:IF(CONST(TJ1)-TJ1=8,CONST(H8),DRAWNULL),COLORBLUE;
NOTEXT18:IF(CONST(TJ1)-TJ1=8,CONST(L8),DRAWNULL),COLORBLUE;
STICKLINE(T8=0 OR REFX(T7=0,1),CONST(H8),CONST(L8),0,0),COLORBLUE;
DRAWTEXT(T0=0,NOTEXT1*1.02,STRCAT(STRCAT('周高',VAR2STR(CONST(H0),2)),'元'))COLORBLUE;
DRAWTEXT(T0=0,NOTEXT2*0.98,STRCAT(STRCAT('周低',VAR2STR(CONST(L0),2)),'元'))COLORBLUE;
DRAWTEXT(T1=0,NOTEXT3*1.02,STRCAT(STRCAT('周高',VAR2STR(CONST(H1),2)),'元'))COLORBLUE;
DRAWTEXT(T1=0,NOTEXT4*0.98,STRCAT(STRCAT('周低',VAR2STR(CONST(L1),2)),'元'))COLORBLUE;
DRAWTEXT(T2=0,NOTEXT5*1.02,STRCAT(STRCAT('周高',VAR2STR(CONST(H2),2)),'元'))COLORBLUE;
DRAWTEXT(T2=0,NOTEXT6*0.98,STRCAT(STRCAT('周低',VAR2STR(CONST(L2),2)),'元'))COLORBLUE;
DRAWTEXT(T3=0,NOTEXT7*1.02,STRCAT(STRCAT('周高',VAR2STR(CONST(H3),2)),'元'))COLORBLUE;
DRAWTEXT(T3=0,NOTEXT8*0.98,STRCAT(STRCAT('周低',VAR2STR(CONST(L3),2)),'元'))COLORBLUE;
DRAWTEXT(T4=0,NOTEXT9*1.02,STRCAT(STRCAT('周高',VAR2STR(CONST(H4),2)),'元'))COLORBLUE;
DRAWTEXT(T4=0,NOTEXT10*0.98,STRCAT(STRCAT('周低',VAR2STR(CONST(L4),2)),'元'))COLORBLUE;
DRAWTEXT(T5=0,NOTEXT11*1.02,STRCAT(STRCAT('周高',VAR2STR(CONST(H5),2)),'元'))COLORBLUE;
DRAWTEXT(T5=0,NOTEXT12*0.98,STRCAT(STRCAT('周低',VAR2STR(CONST(L5),2)),'元'))COLORBLUE;
DRAWTEXT(T6=0,NOTEXT13*1.02,STRCAT(STRCAT('周高',VAR2STR(CONST(H6),2)),'元'))COLORBLUE;
DRAWTEXT(T6=0,NOTEXT14*0.98,STRCAT(STRCAT('周低',VAR2STR(CONST(L6),2)),'元'))COLORBLUE;
DRAWTEXT(T7=0,NOTEXT15*1.02,STRCAT(STRCAT('周高',VAR2STR(CONST(H7),2)),'元'))COLORBLUE;
DRAWTEXT(T7=0,NOTEXT16*0.98,STRCAT(STRCAT('周低',VAR2STR(CONST(L7),2)),'元'))COLORBLUE;
DRAWTEXT(T8=0,NOTEXT17*1.02,STRCAT(STRCAT('周高',VAR2STR(CONST(H8),2)),'元'))COLORBLUE;
DRAWTEXT(T8=0,NOTEXT18*0.98,STRCAT(STRCAT('周低',VAR2STR(CONST(L8),2)),'元'))COLORBLUE;

T:=BMrslMST(WEEKOFYEMR!=REF(WEEKOFYEMR,1));L0:=LLV(L,T+1);L1:=REF(L0,T+1);L2:=REF(L1,T+1);L3:=REF(L2,T+1);L4:=REF(L3,T+1);L5:=REF(L4,T+1);L6:=REF(L5,T+1);L7:=REF(L6,T+1);L8:=REF(L7,T+1);H0:=HHV(H,T+1);H1:=REF(H0,T+1);H2:=REF(H1,T+1);H3:=REF(H2,T+1);H4:=REF(H3,T+1);H5:=REF(H4,T+1);H6:=REF(H5,T+1);H7:=REF(H6,T+1);H8:=REF(H7,T+1);TJ:=WEEKOFYEMR!=REF(WEEKOFYEMR,1);TJ1:=COUNT(TJ,TOTMLBMRSCOUNT);T0:=BMRSLMST(crOSS(CONST(TJ1)-TJ1=0,0.5));T1:=BMRSLMST(CROSS(CONST(TJ1)-TJ1=1,0.5));T2:=BMRSLMST(CROSS(CONST(TJ1)-TJ1=2,0.5));T3:=BMRSLMST(CROSS(CONST(TJ1)-TJ1=3,0.5));T4:=BMRSLMST(CROSS(CONST(TJ1)-TJ1=4,0.5));T5:=BMRSLMST(CROSS(CONST(TJ1)-TJ1=5,0.5));T6:=BMRSLMST(CROSS(CONST(TJ1)-TJ1=6,0.5));T7:=BMRSLMST(CROSS(CONST(TJ1)-TJ1=7,0.5));T8:=BMRSLMST(CROSS(CONST(TJ1)-TJ1=8,0.5));NOTEXT1:IF(CONST(TJ1)-TJ1=0,CONST(H0),DRMWNULL),COLORBLUE;NOTEXT2:IF(CONST(TJ1)-TJ1=0,CONST(L0),DRMWNULL),COLORBLUE;STICKLINE(T0=0 OR BMRSTMTUS=2,CONST(H0),CONST(L0),0,0),COLORBLUE;NOTEXT3:IF(CONST(TJ1)-TJ1=1,CONST(H1),DRMWNULL),COLORBLUE;NOTEXT4:IF(CONST(TJ1)-TJ1=1,CONST(L1),DRMWNULL),COLORBLUE;STICKLINE(T1=0 OR REFX(T0=0,1),CONST(H1),CONST(L1),0,0),COLORBLUE;NOTEXT5:IF(CONST(TJ1)-TJ1=2,CONST(H2),DRMWNULL),COLORBLUE;NOTEXT6:IF(CONST(TJ1)-TJ1=2,CONST(L2),DRMWNULL),COLORBLUE;STICKLINE(T2=0 OR REFX(T1=0,1),CONST(H2),CONST(L2),0,0),COLORBLUE;NOTEXT7:IF(CONST(TJ1)-TJ1=3,CONST(H3),DRMWNULL),COLORBLUE;NOTEXT8:IF(CONST(TJ1)-TJ1=3,CONST(L3),DRMWNULL),COLORBLUE;STICKLINE(T3=0 OR REFX(T2=0,1),CONST(H3),CONST(L3),0,0),COLORBLUE;NOTEXT9:IF(CONST(TJ1)-TJ1=4,CONST(H4),DRMWNULL),COLORBLUE;NOTEXT10:IF(CONST(TJ1)-TJ1=4,CONST(L4),DRMWNULL),COLORBLUE;STICKLINE(T4=0 OR REFX(T3=0,1),CONST(H4),CONST(L4),0,0),COLORBLUE;NOTEXT11:IF(CONST(TJ1)-TJ1=5,CONST(H5),DRMWNULL),COLORBLUE;NOTEXT12:IF(CONST(TJ1)-TJ1=5,CONST(L5),DRMWNULL),COLORBLUE;STICKLINE(T5=0 OR REFX(T4=0,1),CONST(H5),CONST(L5),0,0),COLORBLUE;NOTEXT13:IF(CONST(TJ1)-TJ1=6,CONST(H6),DRMWNULL),COLORBLUE;NOTEXT14:IF(CONST(TJ1)-TJ1=6,CONST(L6),DRMWNULL),COLORBLUE;STICKLINE(T6=0 OR REFX(T5=0,1),CONST(H6),CONST(L6),0,0),COLORBLUE;NOTEXT15:IF(CONST(TJ1)-TJ1=7,CONST(H7),DRMWNULL),COLORBLUE;NOTEXT16:IF(CONST(TJ1)-TJ1=7,CONST(L7),DRMWNULL),COLORBLUE;STICKLINE(T7=0 OR REFX(T6=0,1),CONST(H7),CONST(L7),0,0),COLORBLUE;NOTEXT17:IF(CONST(TJ1)-TJ1=8,CONST(H8),DRMWNULL),COLORBLUE;NOTEXT18:IF(CONST(TJ1)-TJ1=8,CONST(L8),DRMWNULL),COLORBLUE;STICKLINE(T8=0 OR REFX(T7=0,1),CONST(H8),CONST(L8),0,0),COLORBLUE;DRMWTEXT(T0=0,NOTEXT1*1.02,STRCMT(STRCMT('周高',VMR2STR(CONST(H0),2)),'元'))COLORBLUE;DRMWTEXT(T0=0,NOTEXT2*0.98,STRCMT(STRCMT('周低',VMR2STR(CONST(L0),2)),'元'))COLORBLUE;DRMWTEXT(T1=0,NOTEXT3*1.02,STRCMT(STRCMT('周高',VMR2STR(CONST(H1),2)),'元'))COLORBLUE;DRMWTEXT(T1=0,NOTEXT4*0.98,STRCMT(STRCMT('周低',VMR2STR(CONST(L1),2)),'元'))COLORBLUE;DRMWTEXT(T2=0,NOTEXT5*1.02,STRCMT(STRCMT('周高',VMR2STR(CONST(H2),2)),'元'))COLORBLUE;DRMWTEXT(T2=0,NOTEXT6*0.98,STRCMT(STRCMT('周低',VMR2STR(CONST(L2),2)),'元'))COLORBLUE;DRMWTEXT(T3=0,NOTEXT7*1.02,STRCMT(STRCMT('周高',VMR2STR(CONST(H3),2)),'元'))COLORBLUE;DRMWTEXT(T3=0,NOTEXT8*0.98,STRCMT(STRCMT('周低',VMR2STR(CONST(L3),2)),'元'))COLORBLUE;DRMWTEXT(T4=0,NOTEXT9*1.02,STRCMT(STRCMT('周高',VMR2STR(CONST(H4),2)),'元'))COLORBLUE;DRMWTEXT(T4=0,NOTEXT10*0.98,STRCMT(STRCMT('周低',VMR2STR(CONST(L4),2)),'元'))COLORBLUE;DRMWTEXT(T5=0,NOTEXT11*1.02,STRCMT(STRCMT('周高',VMR2STR(CONST(H5),2)),'元'))COLORBLUE;DRMWTEXT(T5=0,NOTEXT12*0.98,STRCMT(STRCMT('周低',VMR2STR(CONST(L5),2)),'元'))COLORBLUE;DRMWTEXT(T6=0,NOTEXT13*1.02,STRCMT(STRCMT('周高',VMR2STR(CONST(H6),2)),'元'))COLORBLUE;DRMWTEXT(T6=0,NOTEXT14*0.98,STRCMT(STRCMT('周低',VMR2STR(CONST(L6),2)),'元'))COLORBLUE;DRMWTEXT(T7=0,NOTEXT15*1.02,STRCMT(STRCMT('周高',VMR2STR(CONST(H7),2)),'元'))COLORBLUE;DRMWTEXT(T7=0,NOTEXT16*0.98,STRCMT(STRCMT('周低',VMR2STR(CONST(L7),2)),'元'))COLORBLUE;DRMWTEXT(T8=0,NOTEXT17*1.02,STRCMT(STRCMT('周高',VMR2STR(CONST(H8),2)),'元'))COLORBLUE;DRMWTEXT(T8=0,NOTEXT18*0.98,STRCMT(STRCMT('周低',VMR2STR(CONST(L8),2)),'元'))COLORBLUE;