| 查看: 528 | 回复: 1 | |||
江山2010木虫 (小有名气)
|
[交流]
【求助】编程求教 已有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 |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有3人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有4人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有3人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2010-08-24 22:19:39
