YLBFOR(DOC可编).docVIP

下载本文档

1
0
约2.3千字
约 4页
2018-03-24 发布于湖北
举报
版权申诉

YLBFOR(DOC可编).doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

YLBFOR(DOC可编).doc

溢流坝水力计算程序： real md,n,Ka,Kp,Ks0,Ks1,ks2,ks12,ks11,ks22,ks122,lj,lk,ks11p parameter g 9.81 write *,* que ding yian shang shui tou! write *,* bz,n,md,Ka,Kp read *,* bz,n,md,Ka,Kp Hmax 1.5 h0d 0.8*Hmax read *,* h0 10 b1 30.0-bz* n-1 /n y2 h0/ n*b1 ep 1-2* Ka+ n-1 *Kp *y2 y1 ep*n*b1*md*sqrt 2*g Q y1* h0** 3.0/2 c IF ABS y3-h0d .le.0.01 then c write *,100 h0d ,h0d,h0 ,h0 c else c h0d h0d+0.00001 c goto 10 c endif write *,* yi liou yan pou mian she ji! R1 0.5*h0d X1 -0.175*h0d R2 0.2*h0d X2 -0.276*h0d R3 0.04*h0d X3 -0.282*h0d DO 20 X 1.0,10.0,1.0 y5 0.5/ h0d**0.85 20 y4 y5* X**1.85 c write *,* h0d ? c read *,* h0d y5 0.5/ h0d**0.85 y6 1.85*y5 Xc 1.0/ 0.7*y6 ** 1.0/0.85 Yc y5* Xc**1.85 write *,100 R1 ,R1,X1 ,X1,R2 ,R2,X2 ,X2, $ R3 ,R3,X3 ,X3,Q ,Q,h0d ,h0d write *,100 X ,X,y4 ,y4,y6 ,y6,Xc ,Xc,Yc ,Yc write *,* pan bie shui yue xian jie xing shi ! write *,* P1 ? read *,* P1 E0 P1+1.5 b2 30.0-bz* n-1 DO 30 Qz 31.0,111.0,15.0 q1 Qz/b2 Hk q1*q1/g ** 1.0/3 KS0 E0/Hk write *,100 hk ,hk,ks0 ,ks0,q1 ,q1,qz ,qz write *,* cha KS2 ? read *,* ks2 hc2 ks2*hk 30 write *,100 ks2 ,ks2,hc2 ,hc2 write *,* hc2 ? , ht ? read *,* hc2,ht d 1.05*Hc2-Ht write *,100 d ,d 40 write *,* read qzz, d1 read *,* Qzz , d1 b2 30.0-bz* n-1 q2 Qzz/b2 E01 E0+d1 Hk1 q2*q2 /g ** 1.0/3 KS1 E01/Hk1 write *,100 ks1 ,ks1 write *,* cha KS12 read: ks2,ht! read *,* ks12 ,ht hc12 ks12*hk1 dtZ q1**2 / 2*g * 1/ 0.95*Ht **2 - 1/ 1.05*Hc12 **2 y7 1.05*Hc12 - Ht+dtZ write *,100 y7 ,y7,d1 ,d1 IF ABS y7-d1 .le.0.01 then write *,100 d1 ,d1 else c d1 d1+0.02 goto 40 endif write *,* ji suan xiao li chi chang du Lk ? write *,* read Qzz , d2 d1 read *,* Qzz , d2 b2 30.0-bz* n-1 q2 Qzz/b2 E011 E0+d2 Hk11 q2*q2 /g ** 1.0/3 KS11 E011/Hk11 write *,100 ks11 ,ks11 write *,* cha ks11p, KS122 ? read *,* ks11p , ks122 hc11p ks11p*hk11 hc122 ks122*hk11 Fr1 sqrt q2*q2/ 9.8* hc11p**3.0 write *,100 Fr1 ,Fr1,hc11p ,hc11p Lj 10.8*hc11p* Fr1-1.0 **0.93 Lk 0.8*Lj write *,100 Lk ,L