主题：K线顺序？

ll:=valuewhen(barpos=13,llv(c,13));

variable:n=0;
variable:cc=0;
if barpos=13 then begin
 n:=1;
 cc:=ll;
end
if barpos>13 and isup and c>cc then begin
 n:=n+1;
 cc:=c;
end
nn:n;
drawtext(barpos=13,close,numtostr(1,0)),colorwhite;

drawtext(n<>ref(n,1),close,numtostr(n,0)),colorwhite;

hh:=valuewhen(barpos=13,hhv(c,13));

variable:n2=0;
variable:cc2=0;
if barpos=13  then begin
 cc2:=hh;
 n2:=1;
end
if barpos>13 and isdown and c<cc2 then begin
 n2:=n2+1;
 cc2:=c;
end

drawtext(barpos=13,l,numtostr(1,0)),colorred;

drawtext(n2<>ref(n2,1),l,numtostr(n2,0)),colorred;