用fortran语言编一个矩阵相乘的通用程序 急用
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/02 20:08:47
用fortran语言编一个矩阵相乘的通用程序 急用
program matrix_multiplication
implicit none
integer::i,j,k
integer,parameter::m=4,n=4,l=4,p=4
integer(kind=8)::a(m,n),b(n,p)
integer(kind=8)::c(m,p)
do i=1,m
do j=1,n
write(*,"('Please input a('i2,i2')')")i,j
read(*,*)a(i,j)
end do
end do
do i=1,n
do j=1,p
write(*,"('Please input b('i2,i2')')")i,j
read(*,*)b(i,j)
end do
end do
do i=1,m
do j=1,p
c(i,j)=0
do k=1,n
c(i,j)=c(i,j)+a(i,k)*b(k,j)
end do
end do
end do
do i=1,m
do j=1,p
write(*,"(i2)")c(i,j)
end do
end do
end program
俺只是刚刚学,会的不多,这个你需要自己从程序开始,改那个m,n,l,p才可以算你需要的维数的.
implicit none
integer::i,j,k
integer,parameter::m=4,n=4,l=4,p=4
integer(kind=8)::a(m,n),b(n,p)
integer(kind=8)::c(m,p)
do i=1,m
do j=1,n
write(*,"('Please input a('i2,i2')')")i,j
read(*,*)a(i,j)
end do
end do
do i=1,n
do j=1,p
write(*,"('Please input b('i2,i2')')")i,j
read(*,*)b(i,j)
end do
end do
do i=1,m
do j=1,p
c(i,j)=0
do k=1,n
c(i,j)=c(i,j)+a(i,k)*b(k,j)
end do
end do
end do
do i=1,m
do j=1,p
write(*,"(i2)")c(i,j)
end do
end do
end program
俺只是刚刚学,会的不多,这个你需要自己从程序开始,改那个m,n,l,p才可以算你需要的维数的.
用fortran语言编一个矩阵相乘的通用程序 急用
用Fortran语言编写两个4*4矩阵乘的程序
求用FORTRAN编的数据处理小程序
求fortran编写的三个矩阵相乘的程序,三个矩阵设置成(m,m)形状的.
编一个程序,用C++实现矩阵的cholesky分解
求教 fortran 高手! 怎么用fortran语言编写程序 用来构建一个三维网格
一个简单的FORTRAN程序,
求fortran大神帮我编一个Fortran程序计算无理数π的1-100的小数位,
用C语言写一个两个矩阵相乘的函数
fortran程序 第一次接触fortran语言,试着编写了一个简单的程序:program tsimplicit non
用C语言怎么编一个求和的程序?
用c语言设计一个程序.要求写出一个函数,满足两个矩阵相乘,得到第三个矩阵.即输入两个矩阵则可得到这两个矩阵的乘积.