计算程序
1个回答
2020-01-18 · 技术研发知识服务融合发展。
中地数媒
中地数媒（北京）科技文化有限责任公司奉行创新高效、以人为本的企业文化，坚持内容融合技术，创新驱动发展的经营方针，以高端培训、技术研发和知识服务为发展方向，旨在完成出版转型、媒体融合的重要使命
向TA提问
关注
![]()
展开全部
c name：zwc1.for，承压含水层稳定流单孔抽水试验计算K、R值
c计算公式：K＝Q/（2πMsw）ln（R/rw）R＝10sw
open（1，file＝’qm421.txt’）
read（1，*）q，am，rw，sw
close（1）
R0＝500
ak0＝1000
i ak＝q/（2*3.1415926*am*sw）*alog（R0/rw）
R＝10*sw*sqrt（ak）
wk＝abs（ak-ak0）
if（wk.le.0.01）goto 30
ak0＝ak
R0＝R
goto 20
30 write（*，*）’k＝’，ak，’（m/d）R＝’，R，’m’
open（1，file＝’k421.txt’）
write（1，*）’Q（m3/d）M（m）rw（m）’，
*’sw（m）R（m）k（m/d）’
write（1，10）q，am，rw，sw，R，ak
close（1）
10 format（4f8.2，f8.0，f10.2）
stop
end
-
官方服务
- 官方网站
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
