九毛八公式指标
公式模块:
哪位大侠能帮忙编个卢卡斯数列画线,象飞狐的菲薄纳西画线一样!谢谢了 代码:
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);