资源描述:
《水文分析计算课程设计-.附件》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、水文分析计算课程设计-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寨头站频率计算结果单位:mm152012水文分析计算课程设计——附件表5-4桑庄站频率计算结果单位:mm图5.1峡江站经验适线结果图图5.2吉安站经验适线结果
2、图162012水文分析计算课程设计——附件图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。172012水文分析计算课程设计——附件图5.5良田站76.6.17场次洪水汇流系数m率定结果图5.6毛背站75.5.13场次洪水汇流系数m率定结果182012水文分析计算课程设计——附件图5.7毛背站76.7.9场次洪水汇流系数m率定结果图
3、5.8毛背站77.6.26场次洪水汇流系数m率定结果3.考虑历史洪水的频率计算程序1)频率计算与参数初定过程data_inOptionBase1Subdata_in()DimkAsIntegerDimsum1AsDoubleDimsum2AsDouble192012水文分析计算课程设计——附件DimpjAsDoubleDimdtAsDoubleDimcvAsDoubleDimsj()AsDoubleDimiAsIntegerDimjAsIntegerDimmaxyAsSingleDok=k+1IfCe
4、lls(k,2)=""ThenExitDoIfk>1Thensum1=sum1+Cells(k,2)Loopk=k-1Ifk=1ThenMsgBox"请输入数据!...",vbQuestion,"错误提示"ExitSubEndIfpj=Format(sum1/(k-1),"###.####")k=0Dok=k+1IfCells(k,2)=""ThenExitDoReDimPreservesj(k)AsDoublesj(k)=Cells(k+1,2)Ifk>1Thensum2=sum2+(C
5、ells(k,2)-pj)^2Loopk=k-1dt=(1/(k-1)*sum2)^0.5cv=Format(dt/pj,"#.###")Cells(1,5)=pj‘计算均值Cells(2,5)=cv‘计算出的离势系数Sheets("优化参数").SelectCells(1,1).SelectRange("n1")=pjRange("n2")=cvRange("q2")=pjRange("q2")=cvCells(1,1)="纵坐标"‘设计表头Cells(1,2)="频率"Cells(1,3)="横坐
6、标"Cells(1,4)="优化数据"Cells(1,5)="纵坐标"Cells(1,6)="频率"Cells(1,7)="横坐标"20‘方差2012水文分析计算课程设计——附件Dima()‘设计频率数组a=Array(0.1,0.5,1,2,5,10,20,25,50,75,80,90,95,97,99)Dimstrj=1ForEachstrInaj=j+1Range("f"&j)=Format(Val(str/100),"##.00%")Range("g"&j)="=-NORMSI
7、NV(0.01%)+NORMSINV("&Range("f"&j)&")"Range("e"&j)="=GAMMAINV(1-"&Range("f"&j).Address&","&Range("n5").Address&",1/"&Range("n6").Address&")+"&Range("n7").AddressNextstrFori=1Tok-1Cells(i+1,1)=sj(i)Cells(i+1
8、,2)=Format(i/k,"##.00%")Cells(i+1,3)="=-NORMSINV(0.01%)+NORMSINV("&"b"&i+1&")"Cells(i+1,4)="=GAMMAINV(1-"&Range("b"&i+1).Address&","&Range("q5").Address&",1/"&Range("q6").Address&")+"&R