恳求fortran大神帮忙编译一小段简单程序输入n个点（x1,y1).(xn,yn),求输出a和b., 其中即x1.xn的平均值,公式中其他横杠均表示平均值的意思.有人能帮帮忙么,

来源：学生作业帮助网编辑：六六作业网时间：2025/01/24 16:41:29

恳求fortran大神帮忙编译一小段简单程序输入n个点（x1,y1).(xn,yn),求输出a和b.,其中即x1.xn的平均值,公式中其他横杠均表示平均值的意思.有人能帮帮忙么,恳求fortran大神

恳求fortran大神帮忙编译一小段简单程序输入n个点（x1,y1).(xn,yn),求输出a和b., 其中即x1.xn的平均值,公式中其他横杠均表示平均值的意思.有人能帮帮忙么,
恳求fortran大神帮忙编译一小段简单程序
输入n个点（x1,y1).(xn,yn),求输出a和b.

, 其中

即x1.xn的平均值,公式中其他横杠均表示平均值的意思.有人能帮帮忙么,

恳求fortran大神帮忙编译一小段简单程序输入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

恳求fortran大神帮忙编译一小段简单程序输入n个点（x1,y1).(xn,yn),求输出a和b., 其中即x1.xn的平均值,公式中其他横杠均表示平均值的意思.有人能帮帮忙么, 恳求大神帮忙翻译这串拼音首字母! 帮忙翻译一小段英文. fortran 一句语句看不懂高手帮忙解答下 %>_ 请帮忙写一小段话, 帮忙翻译一小段话吧英文编译原理课程设计：证明一个文法是LR(0)文法求大神帮忙啊大神们球帮忙学过一小段时间吉他,包括C F AM 几个很简单的和旋,因为新生迎新晚会实在要命才觉得弹吉他,有没有什么简单的和旋弹唱的吉他音乐,球完整的吉他谱,跪谢了. 能帮忙写一小段关于“HOW TO DEAL WITH CHEATING”写的简单点,单词不要太深奥,简单易懂的就行! 求大神帮忙翻译一段高一英语!就一段!急求!只把这一小段翻译出来就行! 求泰语一小段视频翻译在线求助求大神帮忙翻译一下一小段视频,http://tieba.baidu.com/p/252472147310：00到13：00两个人到底说了什么啊……在线等…… 帮忙讲一下这一小段fortran的运行逻辑关系我不明白程序里 goto后面跟的数字都是怎么运行的!if (lud.eq.0) goto 99do 6 i=1,Ndo 6 j=1,NAMD(i,j)=A(i,j) 6 continuec This part for decomposing A is taken from DGEFA.info=0if (nm 以water为题,帮忙用英文写一小段文章! 一道简单的数学题,求大神帮忙! fortran fortran问题,求大神解答这是怎么回事 intel visual fortran 11编译时发现sin log等数学函数不能用哪位大神帮忙写个Fortran的程序,有关有限元,只要能建立一个三节点平面单元（线弹性,各向同性）.我们有限元课的作业,我用的Fortran软件时FTN95.