计算程序
1个回答
2020-01-18 · 技术研发知识服务融合发展。
中地数媒
中地数媒（北京）科技文化有限责任公司奉行创新高效、以人为本的企业文化，坚持内容融合技术，创新驱动发展的经营方针，以高端培训、技术研发和知识服务为发展方向，旨在完成出版转型、媒体融合的重要使命
向TA提问
关注
![]()
展开全部
c name：zwc2.for，无界承压含水层稳定流单孔抽水试验计算渗透系数
c 计算公式：K＝Q/（2πMsw）ln（R/rw）
dimension qq（7），r1（7）
open（1，file＝’qm421.txt’）
read（1，*）q，am，rw，sw
close（1）
open（1，file＝’qr423.txt’）
read（1，*）（qq（i），r1（i），i＝1，7）
close（1）
q1＝q/sw/24
do 40 i＝1，7
if（q1.le.qq（i）.and.q1.gt.qq（i+1））goto 50
40 continue
50 r＝r1（i+1）
aK＝q/（2*3.1415926*am*sw）*alog（r/rw）
30 write（*，*）’K＝’，aK，’（m/d）R＝’，r，’m’
open（1，file＝’K423.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（5f10.2，f10.2）
stop
end
-
官方服务
- 官方网站
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
