求fortran编写的三个矩阵相乘的程序,三个矩阵设置成(m,m)形状的.
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/08/11 14:29:47
求fortran编写的三个矩阵相乘的程序,三个矩阵设置成(m,m)形状的.
矩阵是T*K*T的转置.最好能设置成两重循环,即do i=1,m
do j=1,m
矩阵是T*K*T的转置.最好能设置成两重循环,即do i=1,m
do j=1,m
![求fortran编写的三个矩阵相乘的程序,三个矩阵设置成(m,m)形状的.](/uploads/image/z/13389744-48-4.jpg?t=%E6%B1%82fortran%E7%BC%96%E5%86%99%E7%9A%84%E4%B8%89%E4%B8%AA%E7%9F%A9%E9%98%B5%E7%9B%B8%E4%B9%98%E7%9A%84%E7%A8%8B%E5%BA%8F%2C%E4%B8%89%E4%B8%AA%E7%9F%A9%E9%98%B5%E8%AE%BE%E7%BD%AE%E6%88%90%EF%BC%88m%2Cm%EF%BC%89%E5%BD%A2%E7%8A%B6%E7%9A%84.)
你的问题可进行简化,fortran中可以直接用matmul函数进行矩阵的乘积,下面是我编的程序愿您满意!其中矩阵C为矩阵A的转置,有问题可以问我
program main
implicit none
integer::A(3,3)=(/1,2,3,4,5,6,7,8,9/)
integer::B(3,3)=(/9,8,7,6,5,4,3,2,1/)
integer::C(3,3)=0
integer::D(3,3)=0
integer::i,j
do j=1,3
C(j,:)=A(:,j)!矩阵A的转置赋给C
enddo
write(*,*)"矩阵A=:"
write(*,"(3I3/)")((A(i,j),j=1,3),i=1,3)
write(*,*)"矩阵B=:"
write(*,"(3I3/)")((B(i,j),j=1,3),i=1,3)
write(*,*)"矩阵C=:"
write(*,"(3I3/)")((C(i,j),j=1,3),i=1,3)
D=matmul(A,B)
write(*,*)"矩阵A*B=:"
write(*,"(3I8/)")((D(i,j),j=1,3),i=1,3)
D=matmul(D,C)
write(*,*)"矩阵A*B*C=:"
write(*,"(3I8/)")((D(i,j),j=1,3),i=1,3)
stop
end
program main
implicit none
integer::A(3,3)=(/1,2,3,4,5,6,7,8,9/)
integer::B(3,3)=(/9,8,7,6,5,4,3,2,1/)
integer::C(3,3)=0
integer::D(3,3)=0
integer::i,j
do j=1,3
C(j,:)=A(:,j)!矩阵A的转置赋给C
enddo
write(*,*)"矩阵A=:"
write(*,"(3I3/)")((A(i,j),j=1,3),i=1,3)
write(*,*)"矩阵B=:"
write(*,"(3I3/)")((B(i,j),j=1,3),i=1,3)
write(*,*)"矩阵C=:"
write(*,"(3I3/)")((C(i,j),j=1,3),i=1,3)
D=matmul(A,B)
write(*,*)"矩阵A*B=:"
write(*,"(3I8/)")((D(i,j),j=1,3),i=1,3)
D=matmul(D,C)
write(*,*)"矩阵A*B*C=:"
write(*,"(3I8/)")((D(i,j),j=1,3),i=1,3)
stop
end
求fortran编写的三个矩阵相乘的程序,三个矩阵设置成(m,m)形状的.
matlab编写一个矩阵相乘的函数式m文件
用fortran语言编一个矩阵相乘的通用程序 急用
用Fortran语言编写两个4*4矩阵乘的程序
两个m×n的矩阵,用C++编写程序实现矩阵的加法运算(两个矩阵中的元素一一对应)
matlab编写m文件求两矩阵的乘法
编写一个程序,实现如下功能: 从键盘输入一个M*N的整数矩阵,求这个矩阵的周边元素之和
求VB解答.编写程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.
编写矩阵的加法运算程序.
、矩阵转置.编写程序将2*3的矩阵转置,即转换成3*2的矩阵.【提示】使用两个二维数组来完成.求程序
求用MATLAB编写空间梁的单元刚度矩阵和整体刚度矩阵的程序
编写求矩阵[B] n×s和[C] c×m相乘的子函数.其中[B]和[C]中各元素的值须由文件中读入.