当前位置：文档之家 › 水力学上机实验程序

水力学上机实验程序

  • 格式：doc
  • 大小：43.50 KB
  • 文档页数：6

工程1Public 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 = zEnd Ifz = (x + y) / 2LoopEnd SubPublic Function F(ByVal h)Dim q, b, m, n, iq = Val(qtext.Text)b = Val(btext.Text)m = Val(mtext.Text)n = Val(ntext.Text)i = Val(itext.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 / (b + 2 * h * Sqr(1 + m ^ 2)) * i)End FunctionPrivate Sub Command1_Click()Dim x, y, hx = Val(xtext.Text)y = Val(ytext.Text)Call erfen(x, y, Val(etext.Text), h)MsgBox "该渠道的正常水深为：" & h & "米", vbOKOnly, "计算结果"End Sub工程2Dim q As Single, m As Single, b As Single, e As SinglePrivate Sub Command1_Click()Dim x0 As SingleDoq = Val(InputBox("请输入流量Q(≠0) "))Loop Until q <> 0Dom = Val(InputBox("请输入边坡系数m(≠0) "))Loop Until m <> 0Dob = Val(InputBox("请输入底宽b(≠0) "))Loop Until b <> 0Doe = Val(InputBox("请输入允许误差e(≠0) "))Loop Until e <> 0Label1 = Label1 & "q=" & q & Chr(10) & "m=" & m & Chr(10) & "b=" & b & Chr(10) & "e=" & eDox0 = V al(InputBox("请输入迭代初值(hk1)(>0) "))Loop Until x0 > 0y0 = hanshu(x0)Doxielv = daoshu(x0)deltx = y0 / xielvx0 = x0 - deltxy0 = hanshu(x0)Loop Until Abs(y0) < e And Abs(deltx) < eLabel1 = Label1 & vbCrLf & "临界水深hk=" & x0End Sub棱柱体明渠水面曲面计算Private Function hanshu(x As Single) As Singlehanshu = 1 - q ^ 2 * (b + 2 * m * x) / (9.8 * (b + m * x) ^ 3 * x ^ 3)End FunctionPrivate Function daoshu(x As Single) As Singledaoshu = -q ^ 2 / (9.8 * (b + m * x) ^ 3 * x ^ 3) - 2 * m + 3 * (b + 2 * m * x) ^ 2 / ((b + m * x) * x) End Function消力池Dim q As Single, H0 As Single, P2 As Single, ht As Single, hc As Single, ht As Single, F As Single, E0 As Single, h2 As Single, h1 As Single, hc1 As Single, hc As Single, d As Single, d1 As Single, d2 As Single, F As SinglePrivate Sub Command1_Click()Doq = Val(InputBox("请输入q(≠0) "))Loop Until q <> 0DoH0 = Val(InputBox("请输入H0(≠0) "))Loop Until H0 <> 0DoP2 = Val(InputBox("请输入P2(≠0) "))Loop Until P2 <> 0Doht = Val(InputBox("请输入ht(≠0) "))Loop Until ht <> 0DoF = Val(InputBox("请输入f(≠0) "))Loop Until F <> 0Label1 = Label1 & "q=" & q & Chr(10) & "H0=" & H0 & Chr(10) & "P2=" & P2 & Chr(10) & "ht=" & ht & Chr(10) & "f=" & FDoE0 = Val(InputBox("请输入E0(>0) "))Loop Until E0 > 0Doh2 = q / (F * Sqr(2 * 9.8 * (E0 + d - h1)))If Abs(h1 - h2) < 0.001 Then Exit Dohc1 = h2LoopLabel1 = Label1 & "得到hc=" & h1hc1 = jisuanhc1(hc)d2 = jisuand(hc1)d1 = 0Dod = (d1 + d2) / 2If Abs(d1 - d2) < 0.001 Then Exit Dod1 = d2LoopF = jisuanFrc()l = jisuanl(F)Label1 = Label1 & Chr(10) & "L=" & lEnd SubPrivate Function jisuanhc1(x As Single) As Singlejisuanhc1 = x * (Sqr(1 + 8 * q ^ 2 / (9.8 * x ^ 3)) - 1) / 2End FunctionPrivate Function jisuand(x As Single) As Singlejisuand = 1.05 * x - ht - q ^ 2 * (1 / (0.95 * ht) ^ 2 - 1 / (1.05 * x) ^ 2) / 19.6End FunctionPrivate Function jisuanl(x As Single) As Singlejisuanl = 8.1 * hc1 * (x - 1) ^ 0.93End FunctionPrivate Function jisuanFrc(x As Single) As SinglejisuanFrc =End FunctionPrivate Sub Form_Load()End Sub闸孔出流Dim q As Single, u As Single, b As Single, e As Single, q1 As Single, q2 As Single, n As Single, s As Single, t As Single, y As Single, h As Single, hc As Single, H0 As Single, a As Single, ht As SinglePrivate Sub Command1_Click()Doe = Val(InputBox("请输入闸孔开度e(≠0) "))Loop Until e <> 0Dou = Val(InputBox("请输入流量系数μ(≠0) "))Loop Until u <> 0Dob = Val(InputBox("请输入每孔净宽b'(≠0) "))Loop Until b <> 0Dot = Val(InputBox("请输入垂直收缩系数ε2(≠0) "))Loop Until t <> 0Don = Val(InputBox("请输入粗糙系数n(≠0) "))Loop Until n <> 0Doh = Val(InputBox("请输入闸前水头H(≠0) "))Loop Until h <> 0Doa = Val(InputBox("请输入闸前河道断面面积A0(≠0) "))Loop Until a <> 0Doeps = Val(InputBox("请输入允许误差eps(≠0) "))Loop Until eps <> 0Label1 = Label1 & "流量系数μ=" & u & Chr(10) & "垂直收缩系数ε2=" & t & Chr(10) & "每孔净宽b'=" & b & Chr(10) & "闸孔开度e=" & e & Chr(10) & "粗糙系数n=" & n & Chr(10) & "闸前水头H=" & h & Chr(10) & "闸前河道断面面积A0=" & a & Chr(10) & "允许误差eps=" & epsDoq1 = V al(InputBox("请输入Q1值(>0) "))Loop Until q1 > 0Do Until Abs(q1 - q2) < espH0 = jisuanH0(q1)q = jisuanq(H0)hc = jisuanhc(q)Doht = Val(InputBox("请输入流量Q1对应Z值(>0) "))Loop Until ht > 0y = jisuany(ht - 35)Label1 = Label1 & Chr(10) & "输入Q1值=" & q1 & Chr(10) & "查得对应Z=" & ht & Chr(10) & "潜流比y=" & yDos = Val(InputBox("请输入潜流比y对应δs值(>0) "))Loop Until s > 0q2 = jisuanq2(s)Label1 = Label1 & Chr(10) & "求得q2值=" & q2If Abs(q1 - q2) < esp Thenq0 = q2Elseq1 = q2End Ifq0 = q2LoopLabel1 = Label1 & "查得对应δs值=" & s & Chr(10) & "该闸孔过流量Q=" & q2End SubPrivate Function jisuanH0(x As Single) As SinglejisuanH0 = h + (x / a) ^ 2 / (2 * 9.8)End FunctionPrivate Function jisuanq(x As Single) As Singlejisuanq = u * e * Sqr(2 * 9.8 * x)End FunctionPrivate Function jisuanhc(x As Single) As Singlejisuanhc = e * t * (Sqr(1 + 8 * x ^ 2 / (9.8 * e ^ 3 * t ^ 3)) - 1) / 2 End FunctionPrivate Function jisuany(x As Single) As Singlejisuany = (x - hc) / (h - hc)End FunctionPrivate Function jisuanq2(x As Single) As Singlejisuanq2 = u * x * n * b * e * Sqr(2 * 9.8 * h)End Function。

合集下载

水力学实验报告 (2)

水力学实验报告 (2)

水力学实验指导书及实验报告专业班级学号姓名河北农业大学城建学院目录实验（一）伯努利方程实验............................................................ - 2 -实验（二）动量定律实验................................................................ - 5 -实验（三）文丘里实验.................................................................... - 9 -实验（四）孔口与管嘴出流实验.................................................. - 11 -实验（五）雷诺实验...................................................................... - 13 -实验（六）沿程水头损失实验...................................................... - 15 -实验（七）局部阻力损失实验...................................................... - 18 -实验（一）伯努利方程实验一、实验目的1.观察流体流经能量方程试验管的能量转化情况，对实验中出现的动水水力现象进行分析，加深对能量方程的理解；2.掌握一种测量流体流速的原理：3.验证静压原理。

二、实验原理在恒定总流实验管内，沿水流方向的任一断面i（实验管的Ⅰ、Ⅱ、Ⅲ、Ⅳ见图1），可写22从静压管的读数算出hw图２伯努利方程实验仪结构示意图1.水箱及潜水泵；2.上水管；3.电源；4.溢流管；5.整流栅；6.溢流板；7.定压水箱；8.实验细管；9. 实验粗管；10.测压管；11.调节阀；12.接水箱，计量水箱；13.量杯{自备}；14.回水管；15.实验桌。

水力学实验指导书

水力学实验指导书

1水力学实验指导书第一节静水压强实验一、实验目的与要求1. 观察在重力作用下，液体中任意两点A、B的位置高度z、测压管高度p和测压管水头H(Hzp)，验证静水压强公式。

加深理解水静力学基本方程式的物理意义和几何意义，理解位置水头、压强水头及测压管水头等基本概念；2. 学习使用液体压力计测压强，测量当p0pa(pa为大气压强)、p0pa、p0pa时的A、B两点的绝对压强和相对压强。

3. 测定表面压强的真空度，加深对真空压强、真空度的理解；4. 学习测量液体比重的方法。

二、实验装置静水压强实验装置如图1所示。

4#6 #5 #4 #3 #2 #113P0Z0Z6Z4Z2Z12hh酒精Z3AZ5B图1 静水压强实验装置图1.水箱；2.测压管；3.升降调压筒；4.气门。

三、实验原理水静力学讨论静水压强的特性、分布规律及如何根据静水压强的分布规律来确定静水总压力。

1静水压强的特性流体静止时不承受切应力，一旦受到切应力时就产生变形。

从这个定义出发，可以认为在静止的液体内部，所有的应力都是正交应力。

因此，静水压强具有两个特性：1. 静水压强的方向与受压面垂直并指向受压面；2. 任一点静水压强的大小和受压面的方向无关，或者说作用于同一点上的各方向的静水压强大小相等。

静水压强的基本方程在重力作用下，处于静止状态下的不可压缩均质液体，其基本方程为。

Z1p1Z2p2C式中，Z—单位重量液体相对于基准面的位置高度，称位能或位置水头；p—单位重量液体的压能或压强水头； p1,p2—静止液体中任意两点的静水压强；—液体的容重。

该方程表明静止液体中任意一点的单位位能和单位压能之和为常数。

该方程也可以写为。

pp0h上式表明在静止液体中，液面下任一点的静水压强等于液面压强与从该点到液面的单位面积上的液体重量之和。

液面压强遵循巴斯加原理，将等值地传递到液体内部所有各点上。

所以表面压强为一定值时，静水压强是水深的函数，即只随水深变化。

水力学实验指导书2012-3-16

水力学实验指导书2012-3-16

伯诺里方程实验一部分：实验预习报告一、实验目的要求1．掌握恒定总流的能量方程。

2．掌握有压管流中水动力学的能量转换特性。

3．掌握渐变流过流断面压强分布。

4．认识离心惯性力对动水压强的影响。

5．掌握管流流量、压强等水动力学要素的实验量测方法。

6．掌握有压管流总水头线、测压管水头线的绘制方法。

二、实验原理均匀流或渐变流过水断面上的压强分布服从于水静力学规律。

而当水流沿弯管运动时，由于离心惯性力作用，外侧压强大，内侧压强小，过水断面上的压强分布不再服从于水静力学规律。

在实验管路中沿管内水流方向取n个过水断面。

可以列出进口断面至另一断面的伯诺里方程式，从已设置的各断面的测压管中读出测压管水头值，测出通过管路的流量，即可计算出断面平均流速及流速水头，从而即可得到各断面测压管水头和总水头。

三、主要仪器设备及耗材主要实验设备：自循环能量方程实验仪。

实验耗材：塑料管、调速器、量筒、秒表等。

四、实验方法与步骤1．准备熟悉实验装置，记录有关常数。

2．开启水泵。

3．关闭调节阀，检查所有测压管水面是否齐平。

如不平则需查明原因并加以排除。

4．打开调节阀，观察1）测压管水头线和总水头线的变化趋势；2）位置水头、压强水头之间的相互关系；3）渐变流断面上测点（2）、（3）的测压管水头是否相同；4）弯管断面上测点（10）、（11）的测压管水头是否相同；5）当流量变化时测压管水头线和总水头线如何变化。

5．当调节阀接近全开时，测计各测压管液面读数，同时用体积法测计流量。

6．改变流量，重复上述测量2次。

7．实验完毕，关闭水泵，清理实验桌面及场地。

第二部分：实验过程记录水箱液面高程▽0= cm；上管道轴线高程▽1= cm管径记录表第三部分：结果与讨论1. 计算流速水头和总水头。

流速水头v22. 绘制最大流量下的总水头线、测压管水头线。

动量定律实验一部分：实验预习报告一 、实验目的要求1．验证恒定总流的动量方程；2．通过对动量与流速、流量等因素间相关性的分析，进一步掌握动量守恒原理。

水力学实验指导书(1)

水力学实验指导书(1)

本科教学实验指导书水力学实验易文敏编写李克锋四川大学水利水电学院水力学与山区河流开发保护国家重点实验室前言水力学实验课的基本任务是：观察分析水流现象，验证所学理论，学会和掌握科学实验的方法和操作技能，培养整理实验资料和编写实验报告的能力。

在进行实验的过程中，要注意培养自己的动手能力和独立工作的能力。

使每个实验者有观察现象，进行操作和组织实验的机会，并能独立进行整理分析实验成果，受到实验技能的基本训练。

各项实验分别介绍了每个实验的目的、原理、实验设备、步骤、注意事项，以及可供实验者编写实验报告时参考的表格。

要求做好实验后，实验者要独立认真完成一份实验报告，按时交指导教师批阅。

为了使实验者能深入地掌握和巩固有关实验内容，每个实验项目的结尾都列有一定数量的思考题，供实验者进一步深入思考，并要求在实验报告中作出书面回答，随实验报告交指导教师审阅批改。

实验一 静水压强一、实验目的：1. 实测容器中的静水压强;2. 测定X 液体的容重；3. 通过实验，掌握静水压强的基本方法和了解测压计的应用。

二、实验设备：如图所示，1管和2管、3管和4管、5管和6管组成三支U 型管，其中5管和6管组成的U 型管装X 液体，其余U 型管装水。

1管、3管和5管与大气连通，2管、4管和6管与水箱顶部连通。

3管和4管组成的U 型管的底部与水箱的A 点连通，1管和2管组成的U 型管的底部与水箱的B 点连通。

水箱底部与调压筒连通。

三、实验原理：利用调压筒的升降来调节水箱内液体表面压强和液体内各点的压强。

1. 根据静水压强基本公式：p=p 0+ρg h 可得p A =ρg 水(▽3-▽A ) p B =ρg 水(▽1-▽B )2. 由于2、4、6管与水箱顶部连通，所以2、4、6管液面压强与水箱液面压强相同，于是可得：p 0=ρg 水(▽1-▽2)= ρg 水（▽3-▽4）=ρg X （▽5-▽6）ρg X =6543∇-∇∇-∇ρg 水 或ρg X =6521∇-∇∇-∇ρg 水3. 若水箱内气体压强p 0≠p a ,则p 1≠p 2、p 3≠p 4、p 5≠p 6。