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、编译、运行结果如下：
声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。