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

回复此楼