区間推定ライブラリ 使用例



[ 簡単な説明 ]

区間推定ライブラリの使用例です。

プログラム・ソース("test26.c")           top (先頭に戻る)
/*		test26.c		*/
#include <stdio.h>
#include "sslib.h"

int main(void)
{
	double g, ps1, ps2, pv, pv1, pv2, ps, r0, s, squv, uv1, uv2, v1, v2, xbar, xbar1, xbar2, xl, xu;
	int n, n1, n2, sw;

	printf("< 正規母集団における母平均の区間推定(母分散既知) >\n");
	n = 25;				/* 標本数 */
	xbar = 8.493;		/* 標本の平均 */
	pv = 0.1225;		/* 母分散 */
	g = 0.95;			/* 信頼係数 */
	mest1(n, xbar, pv, g, &xl, &xu);
	printf("区間推定 : %8.3f <-----> %8.3f\n", xl, xu);

	printf("\n< 正規母集団における母平均の区間推定(母分散未知) >\n");
	n = 5;				/* 標本数 */
	xbar = 131.0;		/* 標本の平均 */
	squv = 15.97;		/* 標本の不偏分散平方根 */
	g = 0.95;			/* 信頼係数 */
	mest2(n, xbar, squv, g, &xl, &xu);
	printf("区間推定 : %8.3f <-----> %8.3f\n", xl, xu);

	printf("\n< 2つの正規母集団における母平均の差の区間推定(母分散既知) >\n");
	n1 = 100;			/* 各標本数 */
	n2 = 100;
	xbar1 = 2035.0;		/* 各標本の平均 */
	xbar2 = 1920.0;
	pv1 = 4096.0;		/* 各母分散 */
	pv2 = 7056.0;
	g = 0.95;			/* 信頼係数 */
	mdest1(n1, n2, xbar1, xbar2, pv1, pv2, g, &xl, &xu);
	printf("区間推定 : %8.3f <-----> %8.3f\n", xl, xu);

	printf("\n< 2つの正規母集団における母平均の差の区間推定(母分散未知) >\n");
	n1 = 32;			/* 各標本数 */
	n2 = 30;
	xbar1 = 2.5;		/* 各標本の平均 */
	xbar2 = 2.1;
	v1 = 0.49;			/* 各標本の分散 */
	v2 = 0.16;
	g = 0.95;			/* 信頼係数 */
	mdest2(n1, n2, xbar1, xbar2, v1, v2, g, &xl, &xu);
	printf("区間推定 : %8.3f <-----> %8.3f\n", xl, xu);

	printf("\n< 正規母集団における母分散の区間推定 >\n");
	sw = -1;			/* 母平均既知:sw≧0, 母平均未知:sw<0 */
	n = 15;				/* 標本数 */
	s = 37500.0;		/* 母平均既知:標本の母平均に対する偏差平方和 */
						/* 母平均未知:標本の標本平均に対する偏差平方和 */
	g = 0.95;			/* 信頼係数 */
	vest(sw, n, s, g, &xl, &xu);
	printf("区間推定 : %8.3f <-----> %8.3f\n", xl, xu);

	printf("\n< 2つの正規母集団における母分散の比の区間推定) >\n");
	n1 = 21;			/* 各標本数 */
	n2 = 31;
	uv1 = 88.872;		/* 各標本の不偏分散 */
	uv2 = 111.765;
	g = 0.9;			/* 信頼係数 */
	vpest(n1, n2, uv1, uv2, g, &xl, &xu);
	printf("区間推定 : %8.3f <-----> %8.3f\n", xl, xu);

	printf("\n< 標本数が十分大きな2項母集団における母百分率(不良率)の区間推定 >\n");
	n = 450;			/* 標本数 */
	ps = 0.0333;		/* 標本中における不良率 */
	g = 0.95;			/* 信頼係数 */
	bpest(n, ps, g, &xl, &xu);
	printf("区間推定 : %8.3f <-----> %8.3f\n", xl, xu);

	printf("\n< 2つの2項母集団における母百分率(不良率)の差の区間推定) >\n");
	n1 = 400;			/* 各標本数 */
	n2 = 320;
	ps1 = 0.45;			/* 各標本の不良率 */
	ps2 = 0.33;
	g = 0.95;			/* 信頼係数 */
	bpdest(n1, n2, ps1, ps2, g, &xl, &xu);
	printf("区間推定 : %8.3f <-----> %8.3f\n", xl, xu);

	printf("\n< 母相関係数の区間推定 >\n");
	n = 18;				/* 標本数 n ≧ 4 */
	r0 = 0.842;			/* 標本の平均 */
	g = 0.95;			/* 信頼係数 */
	rest(n, r0, g, &xl, &xu);
	printf("区間推定 : %8.3f <-----> %8.3f\n", xl, xu);

	return 1;
}

出力結果           top (先頭に戻る)
< 正規母集団における母平均の区間推定(母分散既知) >
区間推定 :    8.356 <----->    8.630

< 正規母集団における母平均の区間推定(母分散未知) >
区間推定 :  111.171 <----->  150.829

< 2つの正規母集団における母平均の差の区間推定(母分散既知) >
区間推定 :   94.302 <----->  135.698

< 2つの正規母集団における母平均の差の区間推定(母分散未知) >
区間推定 :    0.103 <----->    0.697

< 正規母集団における母分散の区間推定 >
区間推定 : 1435.901 <-----> 6656.389

< 2つの正規母集団における母分散の比の区間推定) >
区間推定 :    0.412 <----->    1.621

< 標本数が十分大きな2項母集団における母百分率(不良率)の区間推定 >
区間推定 :    0.017 <----->    0.050

< 2つの2項母集団における母百分率(不良率)の差の区間推定) >
区間推定 :    0.049 <----->    0.191

< 母相関係数の区間推定 >
区間推定 :    0.618 <----->    0.940