这里所说的平分是指各椭圆弧所截取的弦长相等。要求得到平分后的各椭圆点的座标。
解决方案 »
- FillRect(Canvas.Handle, LTextRect, Clblue);为什么 无效?大侠指点下
- 请给出使用SQL语句调用存储过程的范例
- dll调用
- Delph与SQL Server连接的问题
- 查询后排序的问题
- StringReplace如何用?我英文不好,看不懂帮助:(
- 调用打印文件时出错
- 求助,这段函数怎么老是提示有问题
- 硬件故障!高手看看!(在線等待!)分數要多少給多少!!!
- TNND 谁说Delphi做数据库吃香啊??老子翻了近两个月的数据库开发的招聘记录,60个公司中只有一家要Delphi的,真TMD丧气,不学了不学了
- idudpserver如何向所有连接的client发送数据?
- EXE 中增加数据----RAR自解压
将点绕圆心旋转某个角度,确定好这个角度就可以评分了
px,py:转换前坐标,返回时,为新点的坐标
cx,cy:圆心坐标
degree:角度
procedure Revolvepoin(var px,py:integer;const cx,cy:integer;degree:integer);
var
r1:double;
dx,dy:integer;
atr:double;
begin
dx:=px-cx;
dy:=py-cy;
atr:=ArcTan2(dy,dx);
r1:=sqrt(dx*dx+dy*dy);
px:=cx+round(r1*cos(degree*PI/180+atr));
py:=cy+round(r1*sin(degree*PI/180+atr));
end;
此函数的一个缺点是,会有误差,因为返回为整数
高等数学```
两点之间的距离为2*asina=m,则第一轮一两个点可得到(m/2,sqrt(1-m*m/4)),(-m/2,sqrt(1-m*m/4))要得到其他的点需要参考上述算法循环即可(其中要用到两点之间距离的计算公式)