P:=5;P1:=10;N:=5; A1:=REF(H,P)=HHV(H,2*P+1); B1:=FILTER(A1,P); C1:=BACKSET(B1,P+1); D1:=FILTER(C1,P); E1:=BACKSET(ISLASTBAR,BARSLAST(D1)+1); F1:=E1>REF(E1,1); 短压:DRAWLINE(D1,H,F1,H,1),COLORCYAN; A2:=REF(L,P)=LLV(L,2*P+1); B2:=FILTER(A2,P); C2:=BACKSET(B2,P+1); D2:=FILTER(C2,P); E2:=BACKSET(ISLASTBAR,BARSLAST(D2)+1); F2:=E2>REF(E2,1); 短支:DRAWLINE(D2,L,F2,L,1),COLORLIRED; AA1:=REF(H,P1)=HHV(H,2*P1+1); BB1:=FILTER(AA1,P1); CC1:=BACKSET(BB1,P1+1); DD1:=FILTER(CC1,P1); EE1:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1); FF1:=EE1>REF(EE1,1); 长压:DRAWLINE(DD1,H,FF1,H,1),COLORGREEN; AA2:=REF(L,P1)=LLV(L,2*P1+1); BB2:=FILTER(AA2,P1); CC2:=BACKSET(BB2,P1+1); DD2:=FILTER(CC2,P1); EE2:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1); FF2:=EE2>REF(EE2,1); 长支:DRAWLINE(DD2,L,FF2,L,1),COLORRED; 高:=REFDATE(HHV(H,N),DATE); 低:=REFDATE(LLV(L,N),DATE); H1:=高-(高-低)*0.191; H2:=高-(高-低)*0.382; H3:=高-(高-低)*0.5; H4:=高-(高-低)*0.618; H5:=高-(高-低)*0.809; DRAWTEXT(CURRBARSCOUNT=1,高,'高'),COLORGREEN; DRAWTEXT(CURRBARSCOUNT=1,H1,'809'),COLORCYAN; DRAWTEXT(CURRBARSCOUNT=1,H2,'618'),COLORGRAY; DRAWTEXT(CURRBARSCOUNT=1,H3,'中'),COLORYELLOW; DRAWTEXT(CURRBARSCOUNT=1,H4,'382'),COLORLIRED; DRAWTEXT(CURRBARSCOUNT=1,H5,'191'),COLORMAGENTA; DRAWTEXT(CURRBARSCOUNT=1,低,'低'),COLORRED; STICKLINE(CURRBARSCOUNT=13,高,高,100,-1),COLORGREEN; STICKLINE(CURRBARSCOUNT=13,H1,H1,100,-1),COLORCYAN; STICKLINE(CURRBARSCOUNT=13,H2,H2,100,-1),COLORGRAY; STICKLINE(CURRBARSCOUNT=13,H3,H3,100,-1),COLORYELLOW; STICKLINE(CURRBARSCOUNT=13,H4,H4,100,-1),COLORLIRED; STICKLINE(CURRBARSCOUNT=13,H5,H5,100,-1),COLORMAGENTA; STICKLINE(CURRBARSCOUNT=13,低,低,100,-1),COLORRED;