求两条直线交点的算法...... ( 积分: 100 )

  • 主题发起人 主题发起人 Endo
  • 开始时间 开始时间
E

Endo

Unregistered / Unconfirmed
GUEST, unregistred user!
给出两条直线(四个顶点),求出这两条直线的交点......
Function GetCrossPoint(pt1, pt2, pt3, pt4: TPoint; Var pt: TPoint): boolean;
pt1, pt2:一条直线
pt3, pt4:另一条直线
pt:交点
有交点返回True 没有返回 False 该函数该怎么写啊???
急用,谢谢大虾。。。。。。
 
给出两条直线(四个顶点),求出这两条直线的交点......
Function GetCrossPoint(pt1, pt2, pt3, pt4: TPoint; Var pt: TPoint): boolean;
pt1, pt2:一条直线
pt3, pt4:另一条直线
pt:交点
有交点返回True 没有返回 False 该函数该怎么写啊???
急用,谢谢大虾。。。。。。
 
解析几何,一个平面上不平行的两条直线必然相交,算斜率是否相同就行了。
 
xeen兄 我最终想要得到的是交点的坐标值啊。。。。。。
有没有现成的函数,急用。。。。。。
解析几何到现在都放了N年了 :)
 
斜率,用定义域和值域确定,是什么的了(点斜,点点。。)
 
由两点写出直线方程
方程只有两种形式: X=const / Y=kX+b
求交点是一般情形用联立方程组 特殊情况讨论求得
无交点的情况:
(X1-X2)(Y3-Y4)=(X3-X4)(Y1-Y2)
两点法写直线方程
(Y1-Y2)(X-X1)=(X1-X2)(Y-Y1)
 
这个问题不值100分
 
已经解决了
谢谢各位大虾...... :)
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部