/* 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;
}
|