24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 449  |  回复: 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的回帖

kathy2008

木虫 (正式写手)

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

snoopyzhao

至尊木虫 (职业作家)


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

也许只是一个小的初值,使之不等于零即可(比如 E 可能是某个除法表达式的分母)……
4楼2010-07-21 10:32:26
已阅   回复此楼   关注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的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求生物学调剂 +10 15172915737 2026-04-01 10/500 2026-04-02 18:53 by 哦哦嗯哈
[考研] 085601一志愿中山大学深圳材料工程330求调剂 +8 pipiver 2026-03-30 8/400 2026-04-02 12:01 by ms629
[考研] 08开头看过来!!! +4 wwwwffffff 2026-03-31 6/300 2026-04-02 11:42 by 均值回归
[考研] 329求调剂 +8 miaodesi 2026-04-02 10/500 2026-04-02 10:24 by 不吃魚的貓
[考研] 337求调剂 +11 《树》 2026-03-29 11/550 2026-04-02 10:20 by 不吃魚的貓
[考研] 311求调剂 +16 zchqwer 2026-04-01 18/900 2026-04-02 10:15 by 不吃魚的貓
[考研] 土木304求调剂 +6 兔突突突, 2026-03-31 7/350 2026-04-02 09:06 by coolminer
[考研] 296求调剂 +4 汪!?! 2026-03-31 7/350 2026-04-01 22:04 by 客尔美德
[考研] 266分,一志愿电气工程,本科材料,求材料专业调剂 +10 哇呼哼呼哼 2026-04-01 11/550 2026-04-01 21:48 by chyhaha
[考研] 食品学硕362求调剂 +3 xuanxianxian 2026-04-01 3/150 2026-04-01 21:05 by 啊李999
[考研] 085601材料工程找调剂 +20 oatmealR 2026-03-29 21/1050 2026-04-01 21:00 by lijunpoly
[考研] 085600,320分求调剂 +5 大馋小子 2026-04-01 6/300 2026-04-01 19:40 by 唐沐儿
[考研] 0703求调剂 +4 zizimo 2026-03-31 4/200 2026-04-01 16:04 by yanflower7133
[考研] 省双一流重点一本大学招收调剂 +4 wwwwffffff 2026-03-31 7/350 2026-04-01 15:23 by wwwwffffff
[考研] 080200学硕,机械工程专业277分,求带走! +4 瓶子PZ 2026-03-31 4/200 2026-03-31 20:16 by vgtyfty
[考研] 318求调剂 +10 陈晨79 2026-03-30 10/500 2026-03-31 17:37 by 544594351
[考研] 343求调剂 +8 爱羁绊 2026-03-28 8/400 2026-03-31 16:12 by 不吃魚的貓
[考研] 277跪求调剂 +8 1915668 2026-03-27 13/650 2026-03-31 14:58 by 王亮_大连医科大
[考研] 297 地理学070500 复试求调剂 +3 小圆圈圈ooo 2026-03-30 3/150 2026-03-30 21:05 by 余震yz
[考研] 308求调剂 +7 墨墨漠 2026-03-27 7/350 2026-03-28 07:43 by 热情沙漠
信息提示
请填处理意见