早教吧作业答案频道 -->其他-->
为啥我写的fortran结果算出来都是零,程序如下.programex01useimslparameter(n=50,l=1,p=1,h=l/(n-1))parameter(pi=3.1415926535)dimensiona(n-2,n),b(n-2,1),y(n,1),q(n,1)open(1,file='naodu.dat')y(:,:)=0doi=1,nq(i,1)=p*sin((i-1)*h*pi/l)end
题目详情
为啥我写的fortran结果算出来都是零,程序如下.
program ex01
use imsl
parameter(n=50,l=1,p=1,h=l/(n-1))
parameter(pi=3.1415926535)
dimension a(n-2,n),b(n-2,1),y(n,1),q(n,1)
open(1,file='naodu.dat')
y(:,:)=0
do i=1,n
q(i,1)=p*sin((i-1)*h*pi/l)
end do
do i=1,n
write(*,*) q(i,1)
end do
end
program ex01
use imsl
parameter(n=50,l=1,p=1,h=l/(n-1))
parameter(pi=3.1415926535)
dimension a(n-2,n),b(n-2,1),y(n,1),q(n,1)
open(1,file='naodu.dat')
y(:,:)=0
do i=1,n
q(i,1)=p*sin((i-1)*h*pi/l)
end do
do i=1,n
write(*,*) q(i,1)
end do
end
▼优质解答
答案和解析
program ex01
implicit none
integer , parameter :: n=50 , l=1 , p=1
real , parameter :: h= 1.0* l / (n-1)
Real , parameter :: pi=3.1415926535
Real :: a(n-2,n),b(n-2,1),y(n,1),q(n,1)
integer :: i
y(:,:)=0
do i=1,n
q(i,1)=p*sin((i-1)*h*pi/l)
end do
do i=1,n
write(*,*) q(i,1)
end do
end program ex01
implicit none
integer , parameter :: n=50 , l=1 , p=1
real , parameter :: h= 1.0* l / (n-1)
Real , parameter :: pi=3.1415926535
Real :: a(n-2,n),b(n-2,1),y(n,1),q(n,1)
integer :: i
y(:,:)=0
do i=1,n
q(i,1)=p*sin((i-1)*h*pi/l)
end do
do i=1,n
write(*,*) q(i,1)
end do
end program ex01
h=l/(n-1) = 0
注意 l 和 n 是整数.
注意 l 和 n 是整数.另外你的编程风格非常不好,建议这样写.
另外你的编程风格非常不好,建议这样写.
看了 为啥我写的fortran结果...的网友还看了以下:
为啥我写的fortran结果算出来都是零,程序如下.programex01useimslparam 2020-04-07 …
误差级别怎么计算的?“x^1999/(x^n-(x-1)^n)的极限等于1/a,x趋于正无穷,x的 2020-05-14 …
MATLAB中的错误???Subscriptindicesmusteitherberealposi 2020-05-17 …
设S=1+2+3+4+…+n=n(n+1)/2,求最小正整数n,使得S>2008的算法流程如图10 2020-06-06 …
等额本息算法月还款额=本金*月利率*(1+月利率)^n/[(1+月利率)^n-1]式中:月利率=年 2020-06-10 …
7年级有理数加减混合运算请帮我赶快做出来.O(∩_∩)O谢谢,如果好我可以额外加分儿!1、观察下列 2020-06-14 …
观察下列等式:1乘2分之1+2乘3分之1+3乘4分之1+...+99乘100分之1,利用规律计算1 2020-06-27 …
A(n,m)是数学排列的一个算数表达式,也可表示为P(n,m)一般记作(如图所示),但是由于单行不 2020-07-06 …
1.若(a^n*b^m*b)³=a^9*b^15,求2^m+n的值.2.计算;a^n-5(a^n+1 2020-11-01 …
VB计算1*2*3···*m的值,其中m的值由用户输入算法提示1.设置计算变量n和累积变量t,它们的 2020-12-31 …