24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 447  |  回复: 4
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

kathy2008

木虫 (正式写手)

[交流] 【求助】Jabobi 程序中遇到的困惑 已有2人参与

本人菜鸟。刚开始学习Fortran. 在Jacobi程序中,其中A 表示数据矩阵A;S表示特征向量。里面有这么一段:
dimension A(1),S(1)
E=0.000001
CONSTF=N
IN=0
Do 10 J=1,N
Do 20 I=1,N
IS=(LRA*(J-1)+I)
S(IS)=0
IF((I-J).EQ.0) S(IS)=1.0
请高手解析一下CONSTF是什么意思?
IS=(LRA*(J-1)+I)
S(IS)=0
IF((I-J).EQ.0) S(IS)=1.0
又是什么意思?
谢谢。
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)


小木虫(金币+0.5):给个红包,谢谢回帖交流
我对算法不清楚,这个是语言之外的东西。

也许只是一个小的初值,使之不等于零即可(比如 E 可能是某个除法表达式的分母)……
4楼2010-07-21 10:32:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答

snoopyzhao

至尊木虫 (职业作家)


小木虫(金币+0.5):给个红包,谢谢回帖交流
还是找本 Fortran 的书看看吧,呵呵……

CONSTF = N,表示把 N 赋值给 CONSTF 这个变量,至于 CONSTF 它只是一个变量的名称

下面这几句字面意思不是很清楚吗?

IS=(LRA*(J-1)+I)
表示将 (LRA*(J-1)+I) 赋值给 IS

S(IS)=0

表示将 0 赋值给 S(IS)

IF((I-J).EQ.0) S(IS)=1.0

作一判断,如果 I-J 等于 0, S(IS) 就等于 1.0
2楼2010-07-21 07:13:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

kathy2008

木虫 (正式写手)

赋值我知道。关键是右边的LRA*(J-1)+I是什么意思?为什么要把0.000001赋值给E,而不是其他值。这才是问题的关键。
3楼2010-07-21 09:49:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
resonant(金币+1):指导费:-) 2010-07-21 17:32:15
引用回帖:
Originally posted by kathy2008 at 2010-07-21 09:49:28:
赋值我知道。关键是右边的LRA*(J-1)+I是什么意思?为什么要把0.000001赋值给E,而不是其他值。这才是问题的关键。

你上面这两句话之间有什么联系吗? LRA*(J-1)+I 只是一个表达式,用于计算出一个整数,从你给出的代码来看,应该是计算向量/矩阵下标的表达式……

对这些东西的理解要建立在你对算法已经清楚的基础之上,否则程序是没有办法看的……
5楼2010-07-21 10:34:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 277求调剂 +3 12A3 2026-04-02 3/150 2026-04-02 21:30 by swb0218
[考研] 求调剂 302分初试 0854 +5 伶可乐 2026-04-02 5/250 2026-04-02 17:53 by 笔落锦州
[考研] 一志愿南昌大学324求调剂 +12 hanamiko 2026-04-01 12/600 2026-04-02 14:51 by 5896
[考研] 311求调剂 +9 勇敢的小吴 2026-04-02 9/450 2026-04-02 11:37 by Sammy2
[考研] 289求调剂 +23 新时代材料 2026-03-27 26/1300 2026-04-02 10:29 by oooqiao
[考研] 324分 085600材料与化工 +20 呆鹅oor 2026-03-27 20/1000 2026-04-02 10:13 by oooqiao
[考研] 302求调剂一志愿北航070300,本科郑大化学 +8 圣日耳曼条 2026-04-01 11/550 2026-04-02 07:40 by chemdavid
[考研] 化学工程专硕324分,一志愿中国矿业大学求调剂 +7 耿耿1314 2026-04-01 7/350 2026-04-02 07:40 by 尚水阁主
[考研] 291求调剂 +20 Y-cap 2026-03-29 25/1250 2026-04-01 23:49 by 欣喜777
[考研] 材料专硕322分 +9 哈哈哈吼吼吼哈 2026-04-01 9/450 2026-04-01 14:30 by 无际的草原
[考研] 262求调剂 +9 励志一定发文章 2026-03-31 10/500 2026-04-01 12:22 by sunshine0013
[考研] 358求调剂 +3 王向阳花 2026-03-31 3/150 2026-04-01 09:56 by zzchen2000
[考研] 070300化学354求调剂 +15 101次希望 2026-03-28 15/750 2026-03-31 17:58 by jp9609
[考研] 343求调剂 +8 爱羁绊 2026-03-28 8/400 2026-03-31 16:12 by 不吃魚的貓
[考研] 286求调剂 +5 丢掉懒惰 2026-03-27 8/400 2026-03-31 11:27 by Delta2012
[考研] 262求调剂 +7 ZZ..000 2026-03-30 8/400 2026-03-31 10:05 by cal0306
[考研] 279求调剂 +12 j的立方 2026-03-29 12/600 2026-03-30 20:30 by dick_runner
[考研] 298求调剂 +3 种圣赐 2026-03-29 3/150 2026-03-29 12:06 by longlotian
[考研] 085602 化工专硕 338分 求调剂 +12 路痴小琪 2026-03-27 12/600 2026-03-28 15:41 by L135790
[考研] 调剂 +3 李嘉图·S·路 2026-03-27 3/150 2026-03-27 11:19 by wangjy2002
信息提示
请填处理意见