水力学计算程序代码

《水力学计算程序代码》由会员分享，可在线阅读，更多相关《水力学计算程序代码（5页珍藏版）》请在装配图网上搜索。

1、降低护坦式消力池水力计算Private Sub Command2_Click()Textl.Text =Text2.Text =Text3.Text =Text4.Text =Text5.Text =Text6.Text =Text7.Text =Text8.Text =Text9.Text =TextlO.Text =End SubPublic Function F(ByVal x0, d1)Dim q, HO, p2, ht, zq = Val(Textl.Text)HO = Val(Text5.Text)p2 = Val(Text2.Text)z = Val(Text3.Text)F =

2、 q / (z * Sqr(19.6 * (HO + p2 + (q / (19.6 * (HO + p2)人 2 + dl - xO) End FunctionPublic Sub diedai(ByVal xO, dl, y)Dim elel = Val(Text6.Text)DoxO = F(xO, dl)Loop Until Abs(F(xO, dl) - xO) = ely = xOEnd SubPrivate Function d2(ByVal y)q = Val(Textl.Text)m = y * (Sqr(l + 8 * q 人 2 / (9.8 * y 人 3) - l)

3、/ 2ht = Val(Text4.Text) z = q 人 2 / l9.6 * (l / (O.95 * ht)人 2) - l / (l.O5 * m)人 2)d2 = l.O5 * m - ht - zEnd FunctionPrivate Sub Commandl_Click()Dim e2, dle2 = Val(Text7.Text)dl = Val(TextlO.Text)DoxO = OCall diedai(xO, dl, y)di = (dl + d2(y) / 2Loop Until Abs(d1 - d2(y) = e2 d = dlq = Val(Textl.Te

4、xt)l = 8.1 * y * (q / y / (Sqr(9.8 * y) - 1)人 0.93Text8.Text = dText9.Text = lEnd Sub梯形断面明渠临界水深计算程序Dim b, m, Q, e, a , R, h0 As SinglePrivate Sub Command1_Click()b = Val(Text1.Text)m = Val(Text2.Text)Q = Val(Text3.Text)e = Val(Text4.Text)a = Val(Text5.Text)h0 = Val(Text7.Text)Call waiwaiEnd SubPriva

5、te Sub waiwai()Doh1 = h0 - f1(h0) / f2(h0)If Abs(h1 - h0) e Then Exit Doh0 = h1LoopText6.Text = h1End SubPublic Function f1(ByVal h)A = (b + m * h) * hR = b + 2 * m * hfl = 1 - a * Q * Q * R / (9.8 * A * A * A)End FunctionPublic Function f2(ByVal h)A = (b + m * h) * hX = b + 2 * m * hf2 = -a * Q 人 2

6、 * (2 * m * A - 3 * R 人 2) / (9.8 * A 人 4)End FunctionPrivate Sub Command2_Click()Textl.Text =Text2.Text =Text3.Text =Text4.Text =Text5.Text =Text6.Text =Text7.Text =End Sub梯形断面明渠正常水深计算Public Sub erfen(ByVal x, ByVal y, ByVal e, z) z = (x + y) / 2Do Until Abs(F(z) = eIf F(x) * F(z) 0 Theny = zElsex

7、= zEnd If z = (x + y) / 2 LoopEnd SubPublic Function F(ByVal h)Dim q, b, m, n, iq = Val(Text5.Text)b = Val(Textl.Text)m = Val(Text2.Text)n = Val(Text3.Text)i = Val(Text4.Text)F = q - (b + m * h) * h * 1 / n * (b + m * h) * h / (b + 2 * h * Sqr(1 + m 人 2)人(1 / 6) * Sqr(b + m * h) * h * i / (b + 2 * h

8、 * Sqr(1 + m 人 2)End FunctionPrivate Sub Command1_Click()Text1.Text =Text2.Text =Text3.Text =Text4.Text =Text5.Text =Text6.Text =Text8.Text =Text9.Text =Text10.Text =End SubPrivate Sub 计算Click()Dim x, y, hx = Val(Text9.Text)y = Val(Text8.Text)Call erfen(x, y, Val(Text6.Text), h)Text10.Text = hEnd Sub