一个公式写成Fortran语言代码
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/07/22 18:07:15
一个公式写成Fortran语言代码
![](http://img.wesiedu.com/upload/1/5f/15f85701b6fcd11ab982f9cfe6387db9.jpg)
以上这个公式(自变量只有x),如何用Fortran语言写成代码?
![](http://img.wesiedu.com/upload/1/5f/15f85701b6fcd11ab982f9cfe6387db9.jpg)
以上这个公式(自变量只有x),如何用Fortran语言写成代码?
![一个公式写成Fortran语言代码](/uploads/image/z/6928809-33-9.jpg?t=%E4%B8%80%E4%B8%AA%E5%85%AC%E5%BC%8F%E5%86%99%E6%88%90Fortran%E8%AF%AD%E8%A8%80%E4%BB%A3%E7%A0%81)
program baidu
integer::I,J,N
real*8::Cr,T
real*8,dimension(:),allocatable ::P,X
N=3 !变量X的个数
Cr=5.0d0 !常量Cr,自己设定
T=4.0d0 !常量T,自己设定
allocate(P(N),X(N))
! 读入变量X的值
do I=1,N
P(I)=(-4.2d0/Cr**2*X(I)+2.9/Cr)*T
write(*,*)“第 ”,I," 个变量X对应结果:",P(I)
enddo
end
integer::I,J,N
real*8::Cr,T
real*8,dimension(:),allocatable ::P,X
N=3 !变量X的个数
Cr=5.0d0 !常量Cr,自己设定
T=4.0d0 !常量T,自己设定
allocate(P(N),X(N))
! 读入变量X的值
do I=1,N
P(I)=(-4.2d0/Cr**2*X(I)+2.9/Cr)*T
write(*,*)“第 ”,I," 个变量X对应结果:",P(I)
enddo
end