击实配水程序设计幻灯片.pptVIP

击实试验原理 ①以塑限为中心，相差2%含水量制备５个试样；　　　　　　 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 现在某土样的天然含水率为15% 已知试样的塑限为16% 击实采用重型击实试验，每个筒需要试样约6000g。 试求配水方案。 解：根据塑限为16%，则配水方案应该为： 12%，14%，16%，18%，20% 则加水时应加多少水？ 当目标含水率小于天然含水率时，怎么办？ 第一种情况：当目标含水率高于天然含水率情况 公式推导： 则需要添加的水量为： 界面实现，为了防止出现太多的控件，可以有表格实现，只要记住表格相应位置的数据，则直接引用即可，没有什么难度。 以本题为例： 为了方便计算，一般提供一组演示数据： 当目标含水率高于天然含水率情况 Spreadsheet1.Rows(1).Font.Color = vbBlue Spreadsheet1.Cells(1, 1) = 当目标含水率高于天然含水率情况 Spreadsheet1.Cells(2, 1) = 试样的天然含水率w0(%) Spreadsheet1.Cells(3, 1) = 试样的目标含水率w1(%) Spreadsheet1.Cells(4, 1) = 天然试样的质量m0(g) Spreadsheet1.Cells(5, 1) = 考虑蒸发需增加水百分比(%) Spreadsheet1.Cells(2, 2) = 15 Spreadsheet1.Cells(3, 2) = 20 Spreadsheet1.Cells(4, 2) = 6000 Spreadsheet1.Cells(5, 2) = 2 计算 ‘第一种情况，把表格给变量 Dim W0#, W1#, M0#, AddB#, Mw# W0 = Spreadsheet1.Cells(2, 2) / 100 W1 = Spreadsheet1.Cells(3, 2) / 100 M0 = Spreadsheet1.Cells(4, 2) AddB = Spreadsheet1.Cells(5, 2) / 100 变量参与运算，根据公式写出程序则行 If W1 W0 Then MsgBox 目标含水率小于试样的天然含水率，不能用此法计算, vbCritical Exit Sub End If Mw = M0 * (W1 - W0) / (1 + W0) Spreadsheet1.Cells(2, 4) = 需要加水的质量为: Spreadsheet1.Cells(2, 5) = Format(Mw, 0.000g) Spreadsheet1.Cells(3, 4) = 考虑蒸发需要加水的质量为: Spreadsheet1.Cells(3, 5) = Format(Mw * (1 + AddB), 0.000g) 情况2：目标含水率小于天然含水率 计算原理 总质量m一定（6000g），则需要干土试样与湿土试样混合可得到目标含水率。 经推导得：需要天然含水率试样质量为 试样的天然含水率w0(%) 风干试样的含水率w1(%) 试样的目标含水率w2(%) 情况2：目标含水率小于天然含水率 ‘演示数据 Spreadsheet1.Rows(7).Font.Color = vbBlue Spreadsheet1.Cells(7, 1) = 当目标含水率小于天然含水率情况 Spreadsheet1.Cells(8, 1) = 试样的天然含水率w0(%) Spreadsheet1.Cells(9, 1) = 风干试样的含水率w1(%) Spreadsheet1.Cells(10, 1) = 试样的目标含水率w2(%) Spreadsheet1.Cells(11, 1) = 目标含水率试样质量m(g) Spreadsheet1.Cells(8, 2) = 15 Spreadsheet1.Cells(9, 2) = 0 Spreadsheet1.Cells(10, 2) = 12 Spreadsheet1.Cells(11, 2) = 6000 计算 Dim WW0 As Double, WW1 As Double, WW2 As Double Dim MM As Double, MM0 As Double WW0 = Spreadsheet1.Cells(8, 2) / 100 WW1 = Spreadsheet1.Cells(9, 2) / 100 WW2 = Spreadsheet1.Cells(10, 2) / 100 MM = Spreadsheet1.Cells(11, 2) If WW0 = WW2 And WW2 = WW1 Then MM0