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

/*		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< ２つの正規母集団における母平均の差の区間推定(母分散既知) >\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< ２つの正規母集団における母平均の差の区間推定(母分散未知) >\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< ２つの正規母集団における母分散の比の区間推定) >\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< 標本数が十分大きな２項母集団における母百分率（不良率）の区間推定 >\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< ２つの２項母集団における母百分率（不良率）の差の区間推定) >\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;
}