procedure TForm1.Button1Click(Sender: TObject);
var
x, l,i,j: Integer;
y, a: double;
begin
Image1.Picture.Bitmap := TBitMap.Create;
Image1.Picture.Bitmap.Width := Image1.Width;
Image1.Picture.Bitmap.Height := Image1.Height;
l := Image1.Picture.Bitmap.Width;
for x := 0 to l do
begin
a := (x / l) * 2 * Pi; {角度化弧度}
y := sin(2 * a); {为了加强美观效果,这里将振幅设为2}
y := y * (Image1.Picture.Bitmap.Height / 2);
y := y + (Image1.Picture.Bitmap.Height / 2);
Image1.Picture.Bitmap.Canvas.Brush.Style := bsSolid;
Image1.Picture.Bitmap.Canvas.Pixels[Trunc(x), Trunc(y)] := clRed; {当然也可以用LineTo过程来实现,但是要注意设置Pen.Width到合适的值}
end;
// 绘制直角坐标系上显示的字符
with Image1.Canvas do
begin
Font.Name := 'Symbol';
Font.Size := 8;
Font.Color := clBlack;
TextOut(2,Image1.Height div 2+1, '-2p');
TextOut(Image1.Width div 4,I
Delphi自绘网格坐标系正弦波演示
最新推荐文章于 2023-03-10 17:52:20 发布
这篇博客展示了如何使用Delphi编程语言自绘一个包含正弦波的网格坐标系,详细探讨了绘制曲线和坐标轴的方法,提供了一种实现sin(x)函数可视化的技术演示。
摘要由CSDN通过智能技术生成