24小时热门版块排行榜    

查看: 2308  |  回复: 8
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

田山东

捐助贵宾 (著名写手)

[求助] fortran到底怎么弄稀疏矩阵啊?



大家好,我对稀疏矩阵很模糊,在网上和论坛上搜了下一直没找到该怎么去构建稀疏矩阵。我这里有个图形,是六角格子,沿着x方向具有平移对称性,也就是说x方向是一样的,y方向我取8个点为一个原包,也就是y方向8个点为一个最小单元,我现在把这8个点的哈密顿矩阵写出来:

0  t  0  0  0  0  0  t

t  0  t  0  0  0  0  0

0  t  0  t  0  0  0  0

0  0  t  0  t  0  0  0

0  0  0  t  0  t  0  0

0  0  0  0  t  0  t  0

0  0  0  0  0  t  0  t

t  0  0  0  0  0  t  0

  



t的近邻两点之间相互作用,从哈密顿形式上看,是稀疏矩阵,我有一个问题:怎么用fortran把它写成稀疏矩阵?比如我把上面的哈密顿写出来之后,怎么把它转成稀疏矩阵?

这个小程序就是上面这个哈密顿矩阵的写法。

      program  xishu

     implicit none

     real(8)       :: t=1.0   

     integer       :: i1,ny

     real(8),allocatable  :: h(:,: )

     ny=8  

     allocate(h(ny,ny))

     h=0.0

     do i1=1,ny-1

     h(i1,i1+1)=t

     h(i1+1,i1)=t

     enddo

     h(1,ny)=t

     h(ny,1)=t

     end

我想把它转成稀疏矩阵,该怎么办呢?sparse命令到底是怎么用的呢?纠结啊!!
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

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

田山东

捐助贵宾 (著名写手)

引用回帖:
6楼: Originally posted by weiwei43 at 2012-11-10 08:49:45
我这里主要是利用稀疏矩阵特点存储,至于求解方法什么的适当的根据存储特点修改了一下,主要是减少计算量。稀疏矩阵可以求特征值和特征向量我感觉是和一般的方阵求解是一样的。
关于书,我现在手头没有,没法给你 ...

非常感谢您。我找到书了,也找了个例子,开个新帖,麻烦指点下。谢谢啦
everythinghasitsseason.enjoyyourlife.
7楼2012-11-10 20:52:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答

virtualzx

木虫 (著名写手)

【答案】应助回帖


感谢参与,应助指数 +1
jjdg: 金币+1, 感谢参与 2012-11-10 01:05:08
2楼2012-11-09 03:03:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

weiwei43

至尊木虫 (正式写手)


jjdg: 金币+1, 感谢参与 2012-11-11 01:12:34
稀疏矩阵我在有限元程序中用过,主要是考虑存储空间紧张,有限元刚度阵是对角稀疏矩阵,如果存储下三角,需要很多存储空间,所以根据稀疏矩阵特点,只存储非零元素。
存储时要增加一个一维数组,记录每行长度。具体的方法在老版本的有限元书中会有程序段,可以参考。
不过我感觉你的用法和有限元中用法好像不太一致。
4楼2012-11-10 08:22:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

田山东

捐助贵宾 (著名写手)

引用回帖:
4楼: Originally posted by weiwei43 at 2012-11-10 08:22:12
稀疏矩阵我在有限元程序中用过,主要是考虑存储空间紧张,有限元刚度阵是对角稀疏矩阵,如果存储下三角,需要很多存储空间,所以根据稀疏矩阵特点,只存储非零元素。
存储时要增加一个一维数组,记录每行长度。具体 ...

实际上我存储的是对角线旁边的元素,可以跟我说下那本书吗?我在看别人的代码。有点看不懂啊。想找本书参考着看下。另外,稀疏矩阵可以求特征值和特征向量吗?跟普通矩阵一样吗》
everythinghasitsseason.enjoyyourlife.
5楼2012-11-10 08:31:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 投票:  有多少人是今天查系统知道结果的? +16 爱看书的可乐 2026-08-26 18/900 2026-08-28 05:13 by winsaint
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +5 yuleib84 2026-08-26 6/300 2026-08-28 00:02 by yudaoqian88
[基金申请] 面上合作单位盖章 +5 ssyjh 2026-08-27 5/250 2026-08-27 20:50 by gdfollow
[教师之家] 导师吐槽:我怎么摊上了这么个极品研究生! +7 苏东坡二世 2026-08-23 7/350 2026-08-27 18:14 by 瞬息宇宙
[基金申请] 申请删除本帖 +6 lyz123lyz 2026-08-27 7/350 2026-08-27 17:31 by 宁静致远sy
[基金申请] 基金未中,这种答复是模板吗? +5 zhaosm1982 2026-08-27 6/300 2026-08-27 16:00 by lfy8008
[基金申请] 看板上这么多中的,有点像50人群里49个人都是骗子的那种感觉…… +5 a089 2026-08-26 6/300 2026-08-27 14:05 by jonewore
[基金申请] 怎么看青基中了没有啊 +5 叶九微 2026-08-26 5/250 2026-08-27 10:35 by l_zh2008
[文学芳草园] 梦想 +3 myrtle 2026-08-26 3/150 2026-08-27 10:01 by angelyueyi
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜? 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 系统查不到 +10 董八千 2026-08-26 10/500 2026-08-26 16:30 by Equinoxhua
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件,有关系吗? +25 木水思豆 2026-08-25 28/1400 2026-08-26 14:53 by draco1987
[基金申请] 能否退出参与的面上项目解除限项 +23 koalala 2026-08-24 26/1300 2026-08-26 14:29 by 宝贝虫子
[基金申请] 国际合作可查了,中了面上 (EPI+1)(金币+50) +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 国合可查了 +3 paperzjh 2026-08-26 3/150 2026-08-26 10:41 by LemmonTr
[基金申请] 国合现在查不到了吗? +10 chengyan1220 2026-08-24 20/1000 2026-08-26 08:57 by peasantsprig
[基金申请] 在坚冰还盖着北海的时候,我看到了怒放的梅花。 (金币+10) +6 ziyangfang 2026-08-25 9/450 2026-08-25 20:26 by huagongfeihu
[基金申请] 如果此刻你正在为国基感到焦虑,不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
[基金申请] 看来今天不会放榜了? +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
信息提示
请填处理意见