|
|
INPUT:N(10,1,100);
fc:=c;fo:=o;cc:0*c,LINETHICK0;oo:0*c,LINETHICK0;t1:=0*c;t2:=0*c;
for i=1 to datacount do begin
if i=1 and fc>fo then
cc:=fc;
oo:=fc;
if i=1 and fc<fo then
cc:=fc;
oo:=fc;
if i>1 then
cc:=cc[i-1];
oo:=oo[i-1];
if i>1 and fc>cc*(1+n/100) then begin
cc:=cc[i-1]*(1+n/100);
oo:=cc[i-1];
end;
if i>1 and fc<oo/(1+n/100) then begin
oo:=oo[i-1]/(1+n/100);
cc:=oo[i-1];
end;
if oo=oo[i-1] then
t1:=t1[i-1]+1;
if cc=cc[i-1] then
t2:=t2[i-1]+1;
end;
o1:=ref(oo,t1+1);
c1:=ref(cc,t2+1);
STICKLINE(c1=oo,cc,oo,8,1)COLORRED;
STICKLINE(o1=cc,cc,oo,8,1)COLORCYAN;
能用了,但效果不如你的直观
在学习版江苏常熟老李的0AMA就是你画的 砖块图的效果,很不错
我也试着做过,但没做成 |
|
|