编写要求：
股票网解答：
网友求助：
哪位大侠能帮忙编个卢卡斯数列画线,象飞狐的菲薄纳西画线一样!谢谢了
解答如下：
代码:
IF DATACOUNT<7 THEN EXIT;
hx:=c*0;Lks:=c*0;Lks[1]:=3;Lks[2]:=4;
for i=3 to 100 do begin
Lks[i]:=Lks[i-2]+Lks[i-1];
hx[Lks[i]]:=1;
if Lks[i]+Lks[i-1]>datacount then
break;
end;
vertline(hx);
drawnumber(hx,10,barpos,0);
IF DATACOUNT<7 THEN EXIT;
hx:=c*0;Lks:=c*0;Lks[1]:=3;Lks[2]:=4;
for i=3 to 100 do begin
Lks[i]:=Lks[i-2]+Lks[i-1];
hx[Lks[i]]:=1;
if Lks[i]+Lks[i-1]>datacount then
break;
end;
vertline(hx);
drawnumber(hx,10,barpos,0);
- 0
- 顶一下