プログラム例4

      W=0.0
        DO 10 I=1,N
          W=W+X(I)
   10   CONTINUE
      H=W/REAL(N)
      V=0.0
        DO 20 I=1,N
          V=V+(X(I)-H)**2
   20   CONTINUE
      S=V/REAL(N)
      SIGMA=SORT(S)
      END


<戻る>