早教吧作业答案频道 -->其他-->
为啥我写的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结果...的网友还看了以下:
lingo 哪错了model:sets:year/1..15/:bank,st,xz;endset 2020-05-13 …
在“I”和“YOU”中添一个词,哪个能让你感动I love you:我爱你 I miss you: 2020-05-14 …
再过50年,我相信人们就可以到月球上去度假 I believe people will再过50年, 2020-05-17 …
安培力的F与B、I的关系F一定垂直于B,但是请问F与I、B与I一定垂直吗?我分析的是B与I不一定垂 2020-06-15 …
小波分析Haar一层分解合成程序谢谢了,这有个程序,帮我改个样子,实现同样的功能clear;x1= 2020-07-17 …
若(1+2ai)*i=1-b*i,其中a、b∈R,i是虚数单位,则|a+b*i|=?已知0<a<2 2020-07-30 …
设ai=1989+i当i取123…100时得到100个分式(如i=5则=)在这100个分式中最简分 2020-08-02 …
V.MultipleChoice:9.我是天生很谨慎的人.A.I’manaturallycarefu 2020-11-01 …
假设某种商品的需求曲线是Q=300-2P+4I,其中I是以千美元计量的收入,供给曲线是Q=3P-50 2020-11-01 …
(2011•河南模拟)给出50个数:1,2,4,7,11,…,要计算这50个数的和,现给出该问题的程 2021-01-15 …