作业帮 > 综合 > 作业

我是个FORTRAN新手,问一个关于二位矩阵计算的问题,

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/08 19:21:16
我是个FORTRAN新手,问一个关于二位矩阵计算的问题,
例如,有一个一维矩阵A(10),和一个二维矩阵B(2,10),让矩阵的每一行与矩阵A的每一项对应相乘,即A(1)*B(1,1),A(2)B(1,2),A(3)B(1,3).A(1)*B(2,1),A(2)*B(2,2),A(3)*B(2,3).以此类推 用FORTRAN语言实现 只写执行语句
DO I=1,2
DO J=1,10
C(I,J)=A(J)*B(I,J)
ENDDO
ENDDO
这样写,就会出现一些错误,例如 数组项不匹配,数组下标超出等
这是什么原因导致的,是不是改成如下形式
DO I=1,2
DO J=1,10
C(I,J)=A(1,J)*B(I,J)
ENDDO
ENDDO
可追分
我是个FORTRAN新手,问一个关于二位矩阵计算的问题,
你的第一段没有错,你看看你的数组C有没有设置错,Fortran使用变量前,要声明,数组默认下标从1开始,另外数组要声明成同类型的,比如都是real.
再问: C(I,J)=A(J)*B(I,J) 你是说这么写是可以的,就是看变量声明的问题了,是吧?我结一段错误给你看下,望指点 F:\FORTRANlianxi\ROUGHNESS\ROUGHNESS123.F90(237) : Error: The shapes of the array expressions do not conform. [R13] R13(I+1,J)=(BX(J)**2/BY(J)/LX(I+1,J))*THETA*2*EBXT(I+1) 不懂 ,出现这种情况,是什么原因啊 谢谢
再答: program main implicit none real*8 :: A(10),B(2,10),C(2,10) integer :: i, j A(:) = 1 B(:,:) = 1 do i=1, 2 do j=1, 10 C(i, j) = A(j) * B(i,j) end do end do write(*,*) C end 你看看这个对比一下,你屏蔽你的其他代码试试。
再问: 恩,我式了你这段是可行的, 但我的程序较长,而且出现的都是类似的3个错误,如下 Error: The shapes of the array expressions do not conform. Error: Conflicting attributes or multiple declaration of name. Error:The number of subscripts is incorrect. 它们到底是么原因导致的,求解答 回答后 必加分
再答: Fortran不区分大小写的,就是说你变量命名大小写一样的,别重复了,第二个错误好像就是因此引起的吧。Fortran数组下标默认从1开始。你把你的代码整体发出来看看。或者你也可以逐步屏蔽,然后看问题出在哪一部分代码。