早教吧作业答案频道 -->其他-->
vb求凹多边形顶点和面积'需求是有N个三角形组成的多边形已知每个三角形的顶点坐标,并且这些三角形会重叠一部分,求所组成的凹多边形的顶点数组,并求出面积。其实知道顶点就知道
题目详情
vb 求凹多边形顶点和面积
'需求是有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 数组 这个数组是三角形组成的多边形的外围顶点
'需求是有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 数组 这个数组是三角形组成的多边形的外围顶点
▼优质解答
答案和解析
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)
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)
看了vb求凹多边形顶点和面积'需求...的网友还看了以下:
空间有三点A、B和C位于直角三角形的三个顶点,且AB=4cmBC=3cm.现将点电荷Qa和Qb分别 2020-04-06 …
一副三角板的三个内角分别是90°,45°,45°和90°,60°,30°,按如图所示叠放在一起,若 2020-04-06 …
三国演义文学常识求解三国演义描写了以为首的三个政治、军事之间的矛盾与斗争.罗贯中综合民间传说和戏曲 2020-04-06 …
一个整式与多项式x的平方减y的平方的差为x的平方加y的平方,则这个整式为()一个整式与多项式x的平 2020-04-22 …
数学相似三角形已知三角形ABC的三边长20,30,60,现在利用长度为60和30的细木条各一更,做 2020-04-27 …
某校六年级有两个班,现重编为三个班.将原一班的三分之一和原二班的四分之一组成新一班.将原二班的四分 2020-04-27 …
用三连格(横的或竖的)去框右面表格中的数,每次框三个数.是11~70之间.(1)框出的三个数的和最 2020-05-13 …
“苹果的个数是桔子的三分之二”等量关系式“苹果的个数是桔子的三分之二”是把()和()相比较,()表 2020-05-13 …
在一个月的日历中,圈出斜对角的相邻的三个数如果和是51那么这三个数分别是多少了?麻烦讲...在一个 2020-05-13 …
一个三角形的底和高分别为a米和h米,如果底增加5米,高不变,它就成为一个底为(a+5)厘米的新的三 2020-05-13 …