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

登录注册

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

24小时热门版块排行榜

>论坛更新日志 (3190)
>虫友互识 (392)
>导师招生 (182)
>文献求助 (182)
>考博 (175)
>论文投稿 (90)
>基金申请 (85)
>硕博家园 (74)
>休闲灌水 (71)
>找工作 (70)
>博后之家 (59)
>招聘信息布告栏 (50)
>仿真模拟 (49)
>考研 (40)
>教师之家 (39)
>公派出国 (37)

返回列表

田山东

捐助贵宾 (著名写手)

应助: 5 (幼儿园)
金币: 77
帖子: 1577
在线: 138.1小时
虫号: 800307

[交流] 稀疏矩阵输出结果怎么写才对呢？

找到一个例子。

这是用C语言写的代码，很高兴啊，终于看到一个好的例子了。

我把这段代码转为fortran，为什么我的输出结果跟他的不同呢？请教了，就是输出结果该怎么写才能得到他的结果呢？

麻烦大侠们出来指点一二。

      program yasuo
      implicit none
      integer i,j,index

      integer A(9,7)
      integer CD(10,3)
      open(1,file='ceshi.txt')
      index=0

      data A/0,0,0,1,0,0,0,0,0,0,3,0,4,0,0,0,0,0,0,0,0,0,7,0,0,0,0,
   s  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0,0,
   s  0,0,0,0,0/

      do i=1,9
      do j=1,7
      print*, A(i,j)
      enddo
      enddo

      do i=1,8
      do j=1,7

      if(A(i,j)/=0) then

      index=index+1
      CD(index,1)=i
      CD(index,2)=j
      CD(index,3)=A(i,j)

      endif
      enddo
      enddo

      do i=1,index
      do j=1,3
      write(1,*) CD(i,j)
         enddo
      enddo
      end
      主要是换行这地方有点模糊啊。

回复此楼

» 猜你喜欢

售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有4人回复
论文撤稿了已经有6人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有5人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有4人回复
河北省自然科学基金已经有9人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有8人回复
西安交大新媒学院副院长用撤稿论文结题已经有5人回复
某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！已经有5人回复

» 抢金币啦！回帖就可以得到:

查看全部散金贴

1楼 2012-11-10 20:57:04

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

weiwei43

至尊木虫 (正式写手)

应助: 16 (小学生)
金币: 18316.1
帖子: 737
在线: 94.7小时
虫号: 250282

★ ★
田山东(金币+1): 谢谢参与
田山东: 金币+1, 要好好向前辈学习。致敬！！！ 2012-11-11 11:32:47

换行的地方改成：
   do i=1,index
         write(1,*) (CD(i,j),j=1,3)
      enddo
就可以对应每一个i输出一行了，但是结果是这样的。
   2          2          3
         4          1          1
         4          2          4
         5          3          7
         5          6          5

赞一下(1人)