統計関数(標準偏差、分散...)

COBOL
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 D1 PIC X(10) VALUE "0123456789".
       01 D REDEFINES D1 PIC 9 OCCURS 10.
       01 ANS0 PIC S9(5)V99.
       01 ANS1 PIC S9(5)V99.
       01 ANS2 PIC S9(5)V99.
       01 ANS3 PIC S9(5)V99.
       01 ANS4 PIC S9(5)V99.
       01 ANS5 PIC S9(5)V99.
       01 ANS6 PIC S9(5)V99.
       01 ANS  PIC ----.99.
       PROCEDURE DIVISION.
           COMPUTE ANS0 = FUNCTION STANDARD-DEVIATION (D(ALL)).
           COMPUTE ANS1 = FUNCTION VARIANCE (D(ALL)).
           COMPUTE ANS2 = FUNCTION MEAN (D(ALL))        .
           COMPUTE ANS3 = FUNCTION MEDIAN (D(ALL))      .
           COMPUTE ANS4 = FUNCTION MIDRANGE (D(ALL))    .
           COMPUTE ANS5 = FUNCTION SUM (D(ALL))         .
           COMPUTE ANS6 = FUNCTION RANGE (D(ALL))       .
           MOVE ANS0 TO ANS.
           DISPLAY "標準偏差 STANDARD-DEVIATION =" ANS            .
           MOVE ANS1 TO ANS.
           DISPLAY "分散  VARIANCE=" ANS                .
           MOVE ANS2 TO ANS.
           DISPLAY "平均値 MEAN=" ANS                   .
           MOVE ANS3 TO ANS.
           DISPLAY "メジアン値 MEDIAN=" ANS            .
           MOVE ANS4 TO ANS.
           DISPLAY "最大最小の平均値  MIDRANGE=" ANS   .
           MOVE ANS5 TO ANS.
           DISPLAY "合計  SUM=" ANS                    .
           MOVE ANS6 TO ANS.
           DISPLAY "最小値と最大値の差  RANGE=" ANS    .
           STOP RUN.

標準偏差 STANDARD-DEVIATION =   2.87
分散  VARIANCE=   8.25
平均値 MEAN=   4.50
メジアン値 MEDIAN=   4.50
最大最小の平均値  MIDRANGE=   4.50
合計  SUM=  45.00
最小値と最大値の差  RANGE=   9.00

VB.NET
統計関数は有りません。
自作するかSQLServerの集計関数を使うか或は市販の拡張ツールを使うことになります。

SQLServer集計関数
AVG  平均値
SUM   合計
STDEV  標準偏差
COUNT   データ数
VAR   分散
MIN   最小
MAX   最大

お役に立てましたか？
ＩＴ、プログラミングのランキングサイトはこちらです。

最新記事の自動受信登録はこちらです。