怎样用delphi画余玄函数

Question

怎样用delphi画余玄函数

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    x,y:integer;
    valuex,valuey:real;
begin
    Image1.Canvas.Pen.Color:=clRed;
    Image1.Canvas.MoveTo(0,0);    for x:=0 to Image1.Width-1 do
    begin
        valuex:=(4*3.14*x)/image1.width;
//////////////4*3.14为在Image1的宽度内画2个周期。可以修改2*3.14为1个周期。
        valuey:=cos(valuex);
        y:=round(Image1.Height/2*valuey+Image1.Height/2);
        Image1.Canvas.LineTo(x,Image1.Height-y);
    end;
end;