恳求fortran大神帮忙编译一小段简单程序
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/10/02 06:27:57
恳求fortran大神帮忙编译一小段简单程序
输入n个点(x1,y1).(xn,yn),求输出a和b.
, 其中
即x1.xn的平均值,公式中其他横杠均表示平均值的意思.有人能帮帮忙么,
输入n个点(x1,y1).(xn,yn),求输出a和b.
, 其中
即x1.xn的平均值,公式中其他横杠均表示平均值的意思.有人能帮帮忙么,
代码如下, 供参考 program test
implicit none
integer :: n,i
real(8),allocatable :: x(:), y(:), x2(:), xy(:)
real(8) :: xbar,ybar,xbar2,xybar,x2bar,a,b
print*, 'Number of points: '
read(*,*) n
allocate(x(n))
allocate(y(n))
allocate(x2(n))
allocate(xy(n))
do i = 1,n
print*, '(x,y) = '
read(*,*) x(i),y(i)
x2(i) = x(i)**2
xy(i) = x(i)*y(i)
end do
xbar = sum(x) / n
ybar = sum(y) / n
xybar = sum(xy) / n
xbar2 = xbar**2
x2bar = sum(x2) / n
b = ( xybar - xbar*ybar ) / ( x2bar - xbar2 )
a = ybar - b*xbar
print*, 'a = ', a
print*, 'b = ', b
deallocate(x,y,x2,xy)
stop
end program一个测试:
Number of points:
4
(x,y) =
1 2
(x,y) =
2 3
(x,y) =
3 4
(x,y) =
4 5
a = 1.00000000000000
b = 1.00000000000000
implicit none
integer :: n,i
real(8),allocatable :: x(:), y(:), x2(:), xy(:)
real(8) :: xbar,ybar,xbar2,xybar,x2bar,a,b
print*, 'Number of points: '
read(*,*) n
allocate(x(n))
allocate(y(n))
allocate(x2(n))
allocate(xy(n))
do i = 1,n
print*, '(x,y) = '
read(*,*) x(i),y(i)
x2(i) = x(i)**2
xy(i) = x(i)*y(i)
end do
xbar = sum(x) / n
ybar = sum(y) / n
xybar = sum(xy) / n
xbar2 = xbar**2
x2bar = sum(x2) / n
b = ( xybar - xbar*ybar ) / ( x2bar - xbar2 )
a = ybar - b*xbar
print*, 'a = ', a
print*, 'b = ', b
deallocate(x,y,x2,xy)
stop
end program一个测试:
Number of points:
4
(x,y) =
1 2
(x,y) =
2 3
(x,y) =
3 4
(x,y) =
4 5
a = 1.00000000000000
b = 1.00000000000000
恳求fortran大神帮忙编译一小段简单程序
求大神帮忙讲解一下这个fortran程序,
Fortran语言小程序编写,请各路大神帮忙
帮忙讲一下这一小段fortran的运行逻辑关系我不明白程序里 goto后面跟的数字都是怎么运行的!
一个简单的FORTRAN程序,
fortran的一个简单程序总是出错
帮忙翻译一小段话.很简单的
能不能简单地解释下计算机程序的编译过程?
请用fortran语言帮忙编写一下程序
fortran程序 第一次接触fortran语言,试着编写了一个简单的程序:program tsimplicit non
哪位大神帮忙写个Fortran的程序,有关有限元,只要能建立一个三节点平面单元(线弹性,各向同性).
求汉译英.简单的一小段