跪求，已知一任意椭圆的圆心坐标和长短轴距离，如何绘制该旋转椭圆？

[sucan]

已知一任意椭圆的圆心坐标和长短轴距离，如何绘制该旋转椭圆？网上找N久了，只有VC代码的，功力不够，一直改不好，大家帮忙啊！！！
-----思路是算出13个点坐标，然后用贝塞尔曲线拟合椭圆，帮帮忙啊，有完整代码最好，分不够再开贴加，谢谢啦

[sucan]

-------自己顶，找了个以前的帖子-------------
const
r: Double = 0.2761423749154;　

Center为椭圆中心、mb为短半轴、ma为长半轴
得到１３个点
P[0].x := Center.x;
P[0].y := Center.y + mb;
P[1].x := Center.x + 2 * ma * r;
P[1].y := Center.y + mb;
P[2].x := Center.x + ma;
P[2].y := Center.y + 2 * mb * r;
P[3].x := Center.x + ma;
P[3].y := Center.y;
P[4].x := Center.x + ma;
P[4].y := Center.y - 2 * mb * r;
P[5].x := Center.x + 2 * ma * r;
P[5].y := Center.y - mb;
P[6].x := Center.x;
P[6].y := Center.y - mb;
P[7].x := Center.x - 2 * ma * r;
P[7].y := Center.y - mb;
P[8].x := Center.x - ma;
P[8].y := Center.y - 2 * mb * r;
P[9].x := Center.x - ma;
P[9].y := Center.y;
P[10].x := Center.x - ma;
P[10].y := Center.y + 2 * mb * r;
P[11].x := Center.x - 2 * ma * r;
P[11].y := Center.y + mb;
P[12].x := Center.x;
P[12].y := Center.y + mb;

旋转，旋转中心是Center, 旋转角的Cos,Sin值mCosAlpha, mSinAlpha
for i := 0 to 12 do
begin
X := P[i].x - Center.x;
Y := P[i].y - Center.y;

P[i].x := X * CosAlpha - Y * SinAlpha + Center.x;
P[i].y := X * SinAlpha + Y * CosAlpha + Center.y;
end;

画Bezier曲线
ThisDxf.DxfCanvas.PolyBezier(P);
-----拟合不出来啊，而且PolyBezier（）都是integer的类型参数，怎么办？？？

[sucan]

来人啦，救命啊，帮忙呵

[sucan]

谢谢啊，我要的是旋转的任意的椭圆，上面的方法都是平行于X、Y轴的啊

[neweipeng]

uses Math;

procedure TForm1.Button1Click(Sender: TObject);
var
  points : array [0.. 360] of TPoint;
  i,j: Integer;
  X, Y, A, B: Integer;
  xlen,ylen,len,angle:Extended;
begin
  X:= Self.Width div 2;
  Y:= Self.Height div 2;
  A:= 100;
  B:= 40;
  j:=0;
  while j<360 do
  begin
    for i:= 0 to 360 do begin
      xlen:=A * Cos(PI / 180 * i);
      ylen:=B * Sin(PI / 180 * i);
      len:=sqrt(xlen*xlen+ylen*ylen);
      angle:=ArcSin(ylen/len)+ PI / 180 * j;
      xlen:=len*Cos(angle);
      ylen:=len*Sin(angle);
      points[i].X:= Round(xlen) + X;
      points[i].Y:= Round(ylen) + Y;
    end;
    Canvas.Polyline(points);
    inc(j,45);//旋转递增角度
  end;
end;

[neweipeng]

结果是间隔45°角的4个椭圆（X, Y：为中心 A, B为长短轴）

[dext]

var
  points : array [0.. 360] of TPoint;
  i: Integer;
  X, Y, A, B: Integer;
begin
  X:= Self.Width div 2;
  Y:= Self.Height div 2;
  A:= 100;
  B:= 40;
  for i:= 0 to 360 do begin
    points[i].X:= Round(A * Cos(PI / 180 * i)) + X;
    points[i].Y:= Round(B * Sin(PI / 180 * i)) + Y;
  end;
  Canvas.Polyline(points);
end;

[dext]

Canvas.Ellipse(100, 200 ,300 ,250);

[22222bbb]

高手....

[JLBOY]

支持

[skylkj]

椭圆的定义是到两个焦点的距离和为定值

最直接的想法就是扫描图上各点(可根据焦点位置缩小扫描范围),凡是到焦点距离和为需要的常数值的点画成黑点

[oushengfen]

一个数学问题,来实现,呵呵.

[pidoudou]

？？？？？？？？

[oraplsql]

??????????????????????