windows平台下fortran编程求解方差 !===================================== ! fortran求解方差计算子程序 !=====================================subroutine dy2003310 implicit none integer::i,N real*8::x(8) real*8::sumX,sumXX real*8::variance x= !均值 sumX=0 N=size(x) do i=1,N sumX=sumX+x(i) sumXX=sumXX+x(i)**2 end do !方差 variance=sqrt((N*sumXX-sumX**2)/(N*(N-1))) print *, variance:,varianceend subroutine dy2003310工具/原料morecodeblocks IDE编程环境方法/步骤1/4分步阅读

关于codeblocks IDE的极速安装

请参考百度经验Windows下极速搭建fortran开发环境

2/4

方差计算公式如下：

3/4

编写源代码如下：

implicit none

integer::i,N

real*8::x(8)

real*8::sumX,sumXX

real*8::variance

x=

!均值

sumX=0

N=size(x)

do i=1,N

sumX=sumX+x(i)

sumXX=sumXX+x(i)**2

end do

!方差

variance=sqrt((N*sumXX-sumX**2)/(N*(N-1)))

print *, variance:,variance

4/4

编译、运行结果如下：

fortran方差