vb 求凹多边形顶点和面积

Question

'需求是有N个三角形组成的多边形 已知每个三角形的顶点坐标，并且这些三角形会重叠一部分，求所组成的凹多边形的顶点数组，并求出面积。其实知道顶点就知道面积了。想问问大家怎么求顶点。下边是生成的三角形代码。

Public Type MySinglePoint
x As Single
y As Single
End Type
Public triangle(1 to 3,1 To 3) As MySinglePoint ’前一个坐标是三角形个数，后一个是三角形的点 需求是有N个三角形 不过为了简单起见3个就行
'该多边形是由多个重叠的三角形组成的
'三角形1
triangle(1,1).x=119.16 : triangle(1,1).y=27.06
triangle(1,2).x= 119.45 : triangle(1,2).y=28.04
triangle(1,3).x= 120.28 : triangle(1,3).y=27.31
For ii = 1 To 3
Picture1.Line (1, i)-(1, iif(i+1>3,1,i+1))
Next ii
'三角形2
triangle(2,1).x= 119.16 : triangle(2,1).y= 27.06
triangle(2,2).x= 119.76 : triangle(2,2).y= 27.68
triangle(2,2).x= 120.07 : triangle(2,3).y= 26.91
For ii = 1 To 3
Picture1.Line (2, i)-(2, iif(i+1>3,1,i+1))
Next ii

'三角形3
triangle(3,1).x= 120.07 : triangle(3,1).y= 26.91
triangle(3,2).x=119.64 : triangle(3,2).y= 27.02
triangle(3,2).x= 119.49 : triangle(3,3).y= 26.62

For ii = 1 To 3
Picture1.Line (3, i)-(3, iif(i+1>3,1,i+1))
Next ii

’最后求一个 MySinglePoint 数组 这个数组是三角形组成的多边形的外围顶点

Answer 1

function s(dim a as integer,dim b as integer,dim c as integer) as double
p=(a+b+c)/2
s=sqrt(p*(p-a)(p-b)(p-c))
end function

a1=(x1-x0)^2+(y1-y0)^2
a2=(x2-x1)^2+(y2-y1)^2
a3=(x3-2)^2+(y3-y2)^2
a4=(x4-x3)^2+(y4-y3)^2
a5=(x5-x4)^2+(y5-y4)^2
a6=(x5-x0)^2+(y5-y0)^2

b1=(x1-x0)^2+(y1-y0)^2
b2=(x2-x1)^2+(y2-y1)^2
b1=(x1-x0)^2+(y1-y0)^2

S=function(a1,a2,a3)+function(a3,b1,b1)+function(a4,b2,b3)+function(a5,b3,a6)Public Type MySinglePoint
x As Single
y As Single
End Type
Public triangle(1 to 3,1 To 3) As MySinglePoint ’前一个坐标是三角形个数，后一个是三角形的点 需求是有N个三角形 不过为了简单起见3个就行
'该多边形是由多个重叠的三角形组成的
'三角形1
triangle(1,1).x=119.16 : triangle(1,1).y=27.06
triangle(1,2).x= 119.45 : triangle(1,2).y=28.04
triangle(1,3).x= 120.28 : triangle(1,3).y=27.31
For ii = 1 To 3
Picture1.Line (1, i)-(1, iif(i+1>3,1,i+1))
Next ii
'三角形2
triangle(2,1).x= 119.16 : triangle(2,1).y= 27.06
triangle(2,2).x= 119.76 : triangle(2,2).y= 27.68
triangle(2,2).x= 120.07 : triangle(2,3).y= 26.91
For ii = 1 To 3
Picture1.Line (2, i)-(2, iif(i+1>3,1,i+1))
Next ii

'三角形3
triangle(3,1).x= 120.07 : triangle(3,1).y= 26.91
triangle(3,2).x=119.64 : triangle(3,2).y= 27.02
triangle(3,2).x= 119.49 : triangle(3,3).y= 26.62

For ii = 1 To 3
Picture1.Line (3, i)-(3, iif(i+1>3,1,i+1))
Next ii两种

Answer 2

function s(dim a as integer,dim b as integer,dim c as integer) as double
p=(a+b+c)/2
s=sqrt(p*(p-a)(p-b)(p-c))
end function

a1=(x1-x0)^2+(y1-y0)^2
a2=(x2-x1)^2+(y2-y1)^2
a3=(x3-2)^2+(y3-y2)^2
a4=(x4-x3)^2+(y4-y3)^2
a5=(x5-x4)^2+(y5-y4)^2
a6=(x5-x0)^2+(y5-y0)^2

b1=(x1-x0)^2+(y1-y0)^2
b2=(x2-x1)^2+(y2-y1)^2
b1=(x1-x0)^2+(y1-y0)^2

S=function(a1,a2,a3)+function(a3,b1,b1)+function(a4,b2,b3)+function(a5,b3,a6)

追问

谢谢回答 能解释一下 算法吗？没看懂 你这个是分解三角形吗？ 对于任意重叠的三角形 组成的点 都生效吗？

追答

对于一个5边三角形 顶点可以编号为0 1 2 3 4 5 连接0-1 0-2 0-3 0-4 总能组成5个三角形并使用变长公式求得其面积 而0-1的长时可以通过0-1顶点左边来计算的

Answer 3

Msgbix MySinglePoint.Y就是你要的

追问

看好了 我要的是多边形的点 这个多边形的顶点 有可能是2个三角形的边交叉形成的点

追答

没看好，飘过。

Answer 4

你为什么不问你的数学老师

追问

大哥 这个是工作中用到的，我都毕业N年了

追答

大哥我不知道你老了啊。。。那你好好的做数学题目干什么啊，锻炼脑子啊？？
‘