作业帮fortran语言怎么转成matlab语言,程序不大 是计算l理想导体散射的 对于fortran的解读能力不够 希望能帮帮忙
来源：学生作业帮助网 编辑：作业帮 时间：2024/07/28 21:04:13
fortran语言怎么转成matlab语言,程序不大 是计算l理想导体散射的 对于fortran的解读能力不够 希望能帮帮忙
fortran语言怎么转成matlab语言,
程序不大 是计算l理想导体散射的 对于fortran的解读能力不够 希望能帮帮忙
fortran语言怎么转成matlab语言,程序不大 是计算l理想导体散射的 对于fortran的解读能力不够 希望能帮帮忙
我不会matlan,我用过fortran,给你在关键语句上加了一些备注,其他语句,都是计算性质的,应该很好理解.
program main !主程序开始
implicit none !变量必须定义才能使用
real(kind=8)::wave,k_num !定义变量：real实型,kind=8表示占用8字节内存
real(kind=8)::radius
real(kind=8)::theta,phi
integer::n !整形
real(kind=8),allocatable::p0(:),p1(:)
complex(kind=8),allocatable::h0(:),h1(:),h2(:) !复数?这个没用过
real(kind=8)::dr
complex(kind=8)::e_scat(3)
complex(kind=8)::ai=(0.0,1.0)
real(kind=8)::pi=3.1415926
common /cl/ pi,ai,k_num !定义一块共享内存空间,在主子程序之间传递变量
!------------------------------------------------------------------------------
wave=1.0
k_num=2.0*pi/wave
theta=0.0
phi=0.0
theta=theta*pi/180.0
phi=phi*pi/180.0
n=30
allocate(p0(0:n),p1(0:n),h0(0:n),h1(0:n),h2(0:n)) !给前面声明的变量配置空间
call legendre(n,theta,p0,p1) !call为调用子程序
call hankel(n,dr,h0,h1,h2)
stop !结束程序执行
end
!