计算复杂河床断面面积的VBA程序

superhugo

另外，我们在编程时并不知道y1、y2会在断面中的哪两个测点出现，不妨定义y1(i,k)、y2(i,k+1)，其中i表示断面号，k表示断面测点号。条件语句按您的思路应该写成：
IF y1(i,k)<Y<y2(i,k+1) AND y2(i,k+1)<Y<y1(i,k)吗？这样的条件语句看上去不是自相矛盾了吗？

灰袍法师

原帖由 superhugo 于 2009-11-14 17:12 发表
另外，我们在编程时并不知道y1、y2会在断面中的哪两个测点出现，不妨定义y1(i,k)、y2(i,k+1)，其中i表示断面号，k表示断面测点号。条件语句按您的思路应该写成：
IF y1(i,k)

你没有仔细看我的回帖
1： y1,y2 是相邻的两点，判断它们是否与水平面相交，是用 OR
2：知道交点以后，相邻两个交点才是用 AND
编程是很好实现的

for i = 第一个断面曲线坐标  to  最后一个断面曲线坐标
if  ( y(i)>水平面 and 水平面> y(i+1) )   then 求出y(i) y(i+1)之间的交点坐标，记录这个交点是下降交点
else if  ( y(i)<水平面 and  水平面<y(i+1) )   then 求出y(i) y(i+1)之间的交点坐标，记录这个交点是上升交点
end if
next i

for i = 第一个交点  to 倒数最后一个交点
if 交点i = 下降交点 and 交点i+1 = 上升交点  then 求此两交点之间的断面曲线定积分
next i

superhugo

感谢灰袍法师一如既往地对该话题的支持 ，通过仔细看您的回帖，结合自己的一些思考，这个问题基本已经搞定了。我的主要思路是：定义一交点数n，对于各断面的每一个水位，对断面点进行循环，判断交点的位置，并记录下交点序号n、交点的坐标、交点处对应的小三角形的面积。这里，不管是下降交点还是上升交点，都是通过统一的编号n来记录的。然后，对交点n进行循环，并判断如果右侧上升交点的坐标大于其相邻的左侧下降交点的坐标，则计算其宽度。同时，对断面点进行循环，根据起点距与所要计算范围的交点坐标的大小关系，计算梯形的面积。最后，汇总得到整个断面所要计算范围的面积、水深、底高程等数据。当然在编程过程中还要考虑到一些特殊情况，如考虑的水位低于某些断面的最小高程点或者高于最大高程点、或者水位线与断面仅有一个交点等等。
按照这个思路进行VBA程序的编制，应该就不难得到若干断面、不同水位条件下的过流面积、水面宽、水深、底高程等数据了。
再次感谢灰袍法师的热心帮助！！

finallastend

我不是来挖坟的！！！！！！！！！

有收获 我必须顶一下！！！！！！！

kssclwz

能否把你编好的东西传一下，大家看看

芦苇芦苇

楼主能有分享一下编程的结果，小弟现在继续用到{:soso_e105:}

wanghx8866

那位老师有Excel表的计算程序吗?上传一个谢谢我要用！！！！

cudzdf

您好  您的这个问题解决了吗

cudzdf

我是新人  现在也面临这个问题  根据不同水位高程计算不规则断面过水面积，恳求指导哈

yeskyt

楼主优秀，现在也碰到同样的问题，留个印记