水力学计算程序代码

降低护坦式消力池水力计算PrivateSubCommand2_Click()Textl.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""Text9.Text=""TextlO.Text=""EndSubPublicFunctionF(ByValx0,d1)Dimq,HO,p2,ht,zq=Val(Textl.Text)HO=Val(Text5.Text)p2=Val(Text2.Text)z=Val(Text3.Text)F=q/(z*Sqr(19.6*(HO+p2+(q/(19.6*(HO+p2)))人2+dl-xO)))EndFunctionPublicSubdiedai(ByValxO,dl,y)Dimelel=Val(Text6.Text)DoxO=F(xO,dl)LoopUntilAbs(F(xO,dl)-xO)<=ely=xOEndSubPrivateFunctiond2(ByValy)q=Val(Textl.Text)m=y*(Sqr(l+8*q人2/(9.8*y人3))-l)/2ht=Val(Text4.Text)△z=q人2/l9.6*(l/((O.95*ht)人2)-l/((l.O5*m)人2))d2=l.O5*m-ht-△zEndFunctionPrivateSubCommandl_Click()Dime2,dle2=Val(Text7.Text)dl=Val(TextlO.Text)DoxO=OCalldiedai(xO,dl,y)di=(dl+d2(y))/2LoopUntilAbs(d1-d2(y))<=e2d=dlq=Val(Textl.Text)l=8.1*y*((q/y/(Sqr(9.8*y)))-1)人0.93Text8.Text=dText9.Text=lEndSub梯形断面明渠临界水深计算程序Dimb,m,Q,e,a,R,h0AsSinglePrivateSubCommand1_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)CallwaiwaiEndSubPrivateSubwaiwai()Doh1=h0-f1(h0)/f2(h0)IfAbs(h1-h0)<eThenExitDoh0=h1LoopText6.Text=h1EndSubPublicFunctionf1(ByValh)A=(b+m*h)*hR=b+2*m*hfl=1-a*Q*Q*R/(9.8*A*A*A)EndFunctionPublicFunctionf2(ByValh)A=(b+m*h)*hX=b+2*m*hf2=-a*Q人2*(2*m*A-3*R人2)/(9.8*A人4)EndFunctionPrivateSubCommand2_Click()Textl.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""EndSub梯形断面明渠正常水深计算PublicSuberfen(ByValx,ByValy,ByVale,z)z=(x+y)/2DoUntilAbs(F(z))<=eIfF(x)*F(z)<0Theny=zElsex=zEndIfz=(x+y)/2LoopEndSubPublicFunctionF(ByValh)Dimq,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*Sqr(1+m人2)))EndFunctionPrivateSubCommand1_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text8.Text=""Text9.Text=""Text10.Text=""EndSubPriva