版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

江山2010

木虫 (小有名气)

应助: 0 (幼儿园)
金币: 5460.5
帖子: 78
在线: 293.1小时
虫号: 1059432
注册: 2010-07-17
性别: GG
专业: 凝聚态物性 II ：电子结构

[交流] 【求助】编程求教已有1人参与

我最近刚学Fortran，写了一个小程序，来计算每组中两个位置坐标的距离，但是我发现生成的结果不对，并且每次都不一样，请各位高手帮忙看一下。
implicit real*8(x,z)
   dimension x(5,3)
   real a,b,c,d,e,f,g
   open(11,file='t',status='old',form='formatted')
   do i=1,4,3
   read(11,*)(x(i,j),j=1,3)
   read(11,*)(x(i+1,j),j=1,3)
   x(i,1)=a
   x(i,2)=b
   x(i,3)=c
   x(i+1,1)=d
   x(i+1,2)=e
   x(i+1,3)=f
   g=sqrt((a-d)**2+(b-e)**2+(c-f)**2)
   write(*,*)g
   end do

   end
t文件
0.47250678  0.47250678  0.47250678
0.52749322  0.52749322  0.52749322

0.47250676  0.47250676  0.47250676
0.52749323  0.52749323  0.52749323

回复此楼

» 猜你喜欢

生物学调剂已经有10人回复
求调剂已经有3人回复
320求调剂已经有5人回复
接受任何调剂已经有7人回复
化学070300 求调剂已经有29人回复
297，工科调剂? 已经有5人回复
22408 312求调剂已经有26人回复
收到复试调剂但是去不了已经有8人回复
260求调剂已经有5人回复
急需调剂已经有10人回复

1楼 2010-08-24 20:43:09

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):谢谢参与应助！ 2010-08-24 22:40:07

下面这几行写反了……
   x(i,1)=a
   x(i,2)=b
   x(i,3)=c
   x(i+1,1)=d
   x(i+1,2)=e
   x(i+1,3)=f
你这么写，相当于把 a, b, c, d, e, f 赋值给 x，但实际上是反过来，不是吗？

赞一下(2人)