极品等价K线主副图均可

源码

INPUT:N(5,1,100);
fc:=c;fo:=o;cc:0*c,PRECISION4,LINETHICK0;oo:0*c,PRECISION4,LINETHICK0;t1:=0*c;t2:=0*c;
for i=1 to datacount do begin
  if i=1 and fc[i]>fo[i] then
  cc[i]:=fc[i];
  oo[i]:=fc[i];
  if i=1 and fc[i]   cc[i]:=fc[i];
  oo[i]:=fc[i];
  if i>1 then
  cc[i]:=cc[i-1];
  oo[i]:=oo[i-1];
  if i>1 and fc[i]>cc[i]*(1+n/1000) then begin
  cc[i]:=cc[i-1]*(1+n/1000);
  oo[i]:=cc[i-1];
end;
  if i>1 and fc[i]   oo[i]:=oo[i-1]/(1+n/1000);
  cc[i]:=oo[i-1];
end;
  if oo[i]=oo[i-1] then
    t1[i]:=t1[i-1]+1;
  if cc[i]=cc[i-1] then
    t2[i]