- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Private Sub Command1_Click()
Dim MaxH As Single, MinH As Single, IniH As Single, DeltH As Single
Dim Num As Integer, SimH As Single, i As Integer, j As Integer
Open App.Path \cross.txt For Input As #111
i = 1
Do While Not EOF(111)
Input #111, CS(i, 1), CS(i, 2)
i = i + 1
Loop
Num = i - 1
Dim AA As Single, Bed As Single , XX As Single, RR As Single
MinH = CS(1, 2)
For i = 2 To Num
If CS(i, 2) MinH Then MinH = CS(i, 2)
Next i
MaxH = CS(1, 2)
If MaxH CS(Num, 2) Then MaxH = CS(Num, 2) 两岸较低的高程为计算最大高程
IniH = Fix(MinH * 10) * 0.1 起始计算高程
If MinH 0 Then
SimH = IniH + 0.1
Else
SimH = IniH
End If
DeltH = 0.1 水位间距为0.1m
Dim nn As Single, JJ As Single
nn = 0.028 糙率
JJ = 0.024 坡降
Call ComputeCS(CS, Num, SimH, AA, Bed, XX, RR)
开始计算水位面积关系
Dim Loc As Integer Loc为水位线与两个断面高程点的位置关系,1为在两点上面,2为在两点之间,3为在两点下面
Dim temp As Single, tempA As Single, tempB As Single, tempXX As Single, SimX As Single
Dim tempID As Integer
Dim Area(1000, 2) As Single, BB(1000) As Single, XX(1000) As Single, RR(1000) As Single
Area(1, 1) = MinH
Area(1, 2) = 0
BB(1) = 0
Open App.Path \area.txt For Output As #222
Print #222, H, A, B, X, R
Print #222, Area(1, 1), Area(1, 2), BB(1), XX(1), RR(1), 0.0
j = 2
Do While SimH = MaxH
For i = 2 To Num
temp = (SimH - CS(i, 2)) * (SimH - CS(i - 1, 2))
If temp = 0 Then
Loc = 2
If SimH = CS(i - 1, 2) And SimH = CS(i, 2) Then
tempA = 0
tempB = 0
tempXX = 0
Else
Call chazhi(CS(i - 1, 1), CS(i - 1, 2), CS(i, 1), CS(i, 2), SimH, SimX)
If CS(i, 2) CS(i - 1, 2) Then
tempA = 0.5 * (CS(i, 1) - SimX) * (S
您可能关注的文档
- 城市河网水环境提升技术与河湖健康评价.pdf
- 某某市生态流量公示牌规范设置指导意见.docx
- 水库渗漏处理的五种常用方法.docx
- 水利工程项目设计作业指导书.doc
- 广东住院医师规范化外科试题库.doc
- 《民法典》 合同编重点问题解读.pptx
- 水利规划编制作业指导书.doc
- 设计院2020年个人总结.docx
- 独山港镇区域防洪影响评价报告(1).docx
- 水利档案工作规定.docx
- Module5Unit2ItdescribesthechangesinChinesesociety.课件英语八年级上册(1).pptx
- 中学英语课堂互动教学研究.pptx
- 预习08正弦定理(六大考点)(原卷版).docx
- 大学生创业意愿理论模型及研究假设.pptx
- 地理高中必修课件大规模的海水运动.pptx
- 淄博市2024年高三三模 仿真语文试题 .pdf
- 淄博市2024年高三三模仿真英语试题.pdf
- 2024九年级历史下册第3单元第一次世界大战和战后初期的世界第10课凡尔赛条约和九国公约习题课件新人教版.pptx
- 淄博市2024年高三三模仿真地理试题.pdf
- 2024九年级历史下册第5单元二战后的世界变化第19课亚非拉国家的新发展习题课件新人教版.pptx
文档评论(0)