windows平台下fortran编程求解方差

1、关于codeblocks IDE的极速安装

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

2、方差计算公式如下：

3、编写源代码如下：

        implicit none

        integer::i,N

        real*8::x(8)

        real*8::sumX,sumXX

        real*8::variance

        x=[1,2,3,4,5,6,7,8]

        !均值

        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、编译、运行结果如下：