水文分析计算课程设计-.附件.docVIP

水文分析计算课程设计-5.附件 2012水文分析计算课程设计——附件 五、 附件 1. 频率综合频率计算及拟合图 峡江站、吉安站、寨头站及桑庄站频率计算结果如表5-1，5-2，5-3，5-4。适线结果如图5.1,5.2，5.3，5.4。 表5-1 峡江站频率计算结果 单位：mm 说明：考虑特大暴雨未替换当年最大一日暴雨量。 表5-2 吉安站频率计算结果 单位：mm 表5-3 寨头站频率计算结果 单位：mm 15 2012水文分析计算课程设计——附件 表5-4 桑庄站频率计算结果 单位：mm 图5.1 峡江站经验适线结果图 图5.2 吉安站经验适线结果图 16 2012水文分析计算课程设计——附件 图5.3 寨头站经验适线结果图 图5.4 桑庄站经验适线结果图 2. 汇流参数m率定效果 良田站76.6.17、毛背站75.5.13、76.7.9以及77.6.26场次降水与洪水汇流系数m计算效果图如图5.5，5.6，5.7，5.8。 17 2012水文分析计算课程设计——附件 图5.5 良田站76.6.17场次洪水汇流系数m率定结果 图5.6 毛背站75.5.13场次洪水汇流系数m率定结果 18 2012水文分析计算课程设计——附件 图5.7 毛背站76.7.9场次洪水汇流系数m率定结果 图5.8 毛背站77.6.26场次洪水汇流系数m率定结果 3. 考虑历史洪水的频率计算程序 1) 频率计算与参数初定过程 data_in Option Base 1 Sub data_in() Dim k As Integer Dim sum1 As Double Dim sum2 As Double 19 2012水文分析计算课程设计——附件 Dim pj As Double Dim dt As Double Dim cv As Double Dim sj() As Double Dim i As Integer Dim j As Integer Dim maxy As Single Do k = k + 1 If Cells(k, 2) = Then Exit Do If k gt; 1 Then sum1 = sum1 + Cells(k, 2) Loop k = k - 1 If k = 1 Then MsgBox 请输入数据！..., vbQuestion, 错误提示 Exit Sub End If pj = Format(sum1 / (k - 1), ###.####) k = 0 Do k = k + 1 If Cells(k, 2) = Then Exit Do ReDim Preserve sj(k) As Double sj(k) = Cells(k + 1, 2) If k gt; 1 Then sum2 = sum2 + (Cells(k, 2) - pj) ^ 2 Loop k = k - 1 dt = (1 / (k - 1) * sum2) ^ 0.5 cv = Format(dt / pj, #.###) Cells(1, 5) = pj ‘计算均值 Cells(2, 5) = cv ‘计算出的离势系数 Sheets(优化参数).Select Cells(1, 1).Select Range(n1) = pj Range(n2) = cv Range(q2) = pj Range(q2) = cv Cells(1, 1) = 纵坐标 ‘设计表头 Cells(1, 2) = 频率 Cells(1, 3) = 横坐标 Cells(1, 4) = 优化数据 Cells(1, 5) = 纵坐标 Cells(1, 6) = 频率 Cells(1, 7) = 横坐标 20 ‘方差 2012水文分析计算课程设计——附件 Dim a() ‘设计频率数组 a =