Delphi TChart绘制圆形和正弦曲线
我用的是TChart中的 HorizontalLine。其他的怎么样不太清楚。
如果有帮到你,可否点个赞再走?
正弦曲线
//主要代码
i:integer;
x: Integer;
y,a: Double;
//正弦曲线
Series1.AddXY(0,0);
for x := 0 to 20 do
begin
a:=(x/20)*2*Pi;
y:=Sin(a);
y:=(1-y)*20/2;
Series1.AddXY(x,y);
end;
圆形曲线(椭圆同理)
i:integer;
y,a,x: Double;
//绘制圆
// for i := 0 to 180 do
// begin
// a:=i*Pi/180;
// x:=10*Cos(a);
// y:=10*Sin(a);
// Series1.AddXY(x,y);
// end;
// for i := 180 to 360 do
// begin
// a:=i*Pi/180;
// x:=10*Cos(a);
// y:=10*Sin(a);
// Series2.AddXY(x,y);
// end;
参考文章链接:https://blog.youkuaiyun.com/weixin_34261415/article/details/92545175?biz_id=102&utm_term=delphi%20TChart%E6%AD%A3%E5%BC%A6%E6%9B%B2%E7%BA%BF&utm_medium=distribute.pc_search_result.none-task-blog-2allsobaiduweb~default-0-92545175&spm=1018.2118.3001.4187