input:n(5,1,100),m(4,0,4),la(50,1,1000),lb(70,1,1000),lc(120,1,1000);{参数}
vv:=ZIG(4,n);
tjs:=TROUGH(m,n,1)>TROUGH(m,n,2) and TROUGH(m,n,3)>TROUGH(m,n,2);
aaz:=BACKSET(tjs,TROUGHBARS(m,n,2));
az:=aaz<REFX(aaz,1);
bbz:=BACKSET(tjs,TROUGHBARS(m,n,1));
bz:=bbz<REFX(bbz,1);
v1:=if(bz,1,0);
abz:LINEVALUE(az,LOW,bz,LOW,0,0),linethick0;
kka:=refx(abz,1)-abz;
DRAWSL(vv=abz and az,l,kka,la,0),colorred,linethick2;
ccz:=sum(abz>vv and ref(abz,1)<ref(vv,1),BARSLAST(bz))=1 and
TROUGHBARS(m,n,1)=0 and TROUGH(m,n,2)>=ref(abz,TROUGHBARS(m,n,2));
cz:=ccz>ref(ccz,1);
bcz:=LINEVALUE(bz,LOW,cz,LOW,0,0),linethick0;
kkb:=refx(bcz,1)-bcz;
DRAWSL(vv=abz and v1,l,kkb,lb,0),COLORMAGENTA,linethick2;
DRAWSL(cz,l,0,lc,0),COLORWHITE,linethick2;
DRAWTEXT(vv=abz and az,L*0.98,'A'),COLORWHITE;
DRAWTEXT(vv=abz and v1,L*0.98,'B'),COLORWHITE;
DRAWTEXT(cz,L*0.98,'C'),COLORWHITE;
tjd:=peak(m,n,1)<peak(m,n,2) and peak(m,n,3)<peak(m,n,2);
aad:=BACKSET(tjd,peakBARS(m,n,2));
ad:=aad<REFX(aad,1);
bbd:=BACKSET(tjd,peakBARS(m,n,1));
bd:=bbd<REFX(bbd,1);
v2:=if(bd,1,0);
abd:LINEVALUE(ad,h,bd,h,0,0),linethick0;
kkad:=refx(abd,1)-abd;
DRAWSL(vv=abd and ad,h,kkad,la,0),colorgreen,linethick2;
ccd:=sum(abd>vv and ref(abd,1)<ref(vv,1),BARSLAST(bd))=1 and
peakBARS(m,n,1)=0 and peak(m,n,2)>=ref(abd,peakBARS(m,n,2));
cd:=ccd>ref(ccd,1);
bcd:=LINEVALUE(bd,h,cd,h,0,0),linethick0;
kkbd:=refx(bcd,1)-bcd;
DRAWSL(vv=abd and v2,h,kkbd,lb,0),COLORblue,linethick2;
DRAWSL(cd,h,0,lc,0),COLORWHITE,linethick2;
DRAWTEXT(vv=abd and ad,h*1.05,'A'),COLORWHITE;
DRAWTEXT(vv=abd and v2,h*1.05,'B'),COLORWHITE;
DRAWTEXT(cd,h*1.05,'C'),COLORWHITE;
