求多边形面积，判断点在多边形内（面积法）

明天自然醒

  

子程序名	返回值类型	公开	备 注
判断点是否在凸包内_面积法	逻辑型
参数名	类 型	参考	可空	数组	备 注
p	点坐标
hull	点坐标

变量名	类 型	静态	数组	备 注
i	整数型
area	双精度小数型

area ＝ 0
计次循环首 (取数组成员数 (hull) － 1, i)
area ＝ area ＋ 三点求面积2 (p, hull [i], hull [i ＋ 1])
计次循环尾 ()
area ＝ area ＋ 三点求面积2 (p, hull [1], hull [取数组成员数 (hull)])
返回 (取绝对值 (area) ＝ 求多边形面积 (hull))

子程序名	返回值类型	公开	备 注
求多边形面积	双精度小数型
参数名	类 型	参考	可空	数组	备 注
vertexes	点坐标

变量名	类 型	静态	数组	备 注
i	整数型
area	双精度小数型

area ＝ 0
变量循环首 (2, 取数组成员数 (vertexes) － 1, 1, i)
area ＝ area ＋ 三点求面积 (vertexes [1], vertexes [i], vertexes [i ＋ 1])
变量循环尾 ()
返回 (取绝对值 (area))

子程序名	返回值类型	公开	备 注
三点求面积2	双精度小数型
参数名	类 型	参考	可空	数组	备 注
p1	点坐标
p2	点坐标
p3	点坐标

返回 ( (p1.x × p2.y ＋ p2.x × p3.y ＋ p3.x × p1.y － p1.x × p3.y － p2.x × p1.y － p3.x × p2.y) ÷ 2)

子程序名	返回值类型	公开	备 注
三点求面积	双精度小数型
参数名	类 型	参考	可空	数组	备 注
p0	点坐标
p1	点坐标
p2	点坐标

返回 ( ( (p1.x － p0.x) �� (p2.y － p0.y) ��� (p2.x － p0.x) �� (p1.y － p0.y)) ÷ 2)

.版本 2<br /> <br /> .子程序 判断点是否在凸包内_面积法, 逻辑型<br /> .参数 p, 点坐标<br /> .参数 hull, 点坐标, 数组<br /> .局部变量 i, 整数型<br /> .局部变量 area, 双精度小数型<br /> <br /> area ＝ 0<br /> .计次循环首 (取数组成员数 (hull) － 1, i)<br />     area ＝ area ＋ 三点求面积2 (p, hull <i>, hull [i ＋ 1])<br /> .计次循环尾 ()<br /> area ＝ area ＋ 三点求面积2 (p, hull [1], hull [取数组成员数 (hull)])<br /> 返回 (取绝对值 (area) ＝ 求多边形面积 (hull))<br /> <br /> .子程序 求多边形面积, 双精度小数型<br /> .参数 vertexes, 点坐标, 数组<br /> .局部变量 i, 整数型<br /> .局部变量 area, 双精度小数型<br /> <br /> area ＝ 0<br /> .变量循环首 (2, 取数组成员数 (vertexes) － 1, 1, i)<br />     area ＝ area ＋ 三点求面积 (vertexes [1], vertexes <i>, vertexes [i ＋ 1])<br /> .变量循环尾 ()<br /> 返回 (取绝对值 (area))<br /> <br /> .子程序 三点求面积2, 双精度小数型<br /> .参数 p1, 点坐标<br /> .参数 p2, 点坐标<br /> .参数 p3, 点坐标<br /> <br /> 返回 ((p1.x × p2.y ＋ p2.x × p3.y ＋ p3.x × p1.y － p1.x × p3.y － p2.x × p1.y － p3.x × p2.y) ÷ 2)<br /> <br /> .子程序 三点求面积, 双精度小数型<br /> .参数 p0, 点坐标<br /> .参数 p1, 点坐标<br /> .参数 p2, 点坐标<br /> <br /> 返回 (((p1.x － p0.x) × (p2.y － p0.y) － (p2.x － p0.x) × (p1.y － p0.y)) ÷ 2)

year1970

感谢分享

zidoo

求指点何故，用下面这三个点坐标测试


n [1].x ＝ 0.6866
n [1].y ＝ 1.0325
n [2].x ＝ 1.7967
n [2].y ＝ 3.2987
n [3].x ＝ 2.7781
n [3].y ＝ -0.7837


专门用CAD把三角形画出来计算结果完全不对啊，程序结果是3.37796046，CAD的结果是0.0529

zidoo

求教，楼主的代码能计算如图所示围成的面积不？应该怎么处理呢。白线在上方的为负数，白线在下方的为正数。图中的折点都有(x,y)坐标。

tian7333093

厉害，正需要

zping346

zping346 发表于 2023-2-9 12:18
这个好像只能判断在凸多边形内，二楼的只能判断整数型的坐标点。我也做过根据面积来判断点是否在多边型内。 ...

好吧，惯性思维让我以为三点求坐标计算出来的面积一定是正值了。没有考虑到你的三点求面积可以有负值的存在

zping346

这个好像只能判断在凸多边形内，二楼的只能判断整数型的坐标点。我也做过根据面积来判断点是否在多边型内。思路是在多边型上增加一个顶点，根据原多边形与新多边形面积进行对比，如果面积一致，则点在多边形线上。原多边形面积小于新多边形的面积，则点在多边形外，原多边形面积大于新多边形面积，则点在多边形内。

循环求出判断点到多边形各直线的垂距，如果垂距等于0且垂足在直线上，则可判断出判断点在多边形的线上。如果垂足不在直线上，则判断点到直线端点距离。找出判断到到多边形最近的边。
如果判断点到最近边的垂足在线上，则在线上增加一个点。如果判断点到最近边的垂足在线外，则把最近边的端点移到判断点上。
生成一个新的多边形。图中蓝色线为增加的点。然后根据原多边形和新多边形的面积进行对比。
大概思路是这样，程序写得有点乱，就不献丑了

凌哥

似乎 不准？

  

子程序名	返回值类型	公开	备 注
L_运算_坐标是否在多边形内	逻辑型		判断一个坐标是否在指定的多边形内
参数名	类 型	参考	可空	数组	备 注
多边形点	L_坐标				内部默认多边形是闭合的
x	整数型
y	整数型

变量名	类 型	静态	数组	备 注
局_句柄	整数型
局_返回值	逻辑型

局_句柄 ＝ L_CreatePolygonRgn (多边形点, 取数组成员数 (多边形点), 2)
如果真 (局_句柄 ≠ 0)
局_返回值 ＝ L_PtInRegion (局_句柄, x, y) ≠ 0
L_DeleteObject (局_句柄)
返回 (局_返回值)

.版本 2<br /> <br /> .子程序 L_运算_坐标是否在多边形内, 逻辑型, 公开, 判断一个坐标是否在指定的多边形内<br /> .参数 多边形点, L_坐标, 数组, 内部默认多边形是闭合的<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .局部变量 局_句柄, 整数型<br /> .局部变量 局_返回值, 逻辑型<br /> <br /> 局_句柄 ＝ L_CreatePolygonRgn (多边形点, 取数组成员数 (多边形点), 2)<br /> .如果真 (局_句柄 ≠ 0)<br />     局_返回值 ＝ L_PtInRegion (局_句柄, x, y) ≠ 0<br />     L_DeleteObject (局_句柄)<br /> .如果真结束<br /> 返回 (局_返回值)