メイン　fitness.html　　　Last modified: Sep 01, 2009
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;CHARSET=EUC-JP">
<link rel="shortcut icon" href="../favicon.ico">
<title>JavaScript</title>
<script src="io.js">document.write("io.js ファイルが見つかりません??<br>")</script>
<script src="gxp.js">document.write("gxp.js ファイルが見つかりません??<br>")</script>
<script src="xxp.js">document.write("xxp.js ファイルが見つかりません??<br>")</script>

<script language="JavaScript">
<!--

function decomp(data, a)
{
  var i, j, n = 0
  for (i = 0; i < data.length; i++) {
    for (j = 0; j < data[i].length; j++) {
      a[n++] = data[i][j]
    }
  }
  return n
}

function calc(obs, the)
{
  var n1, n2, o1, e1, total, n, chi, t2, t3, i
  var o = new Array()
  var e = new Array()
  var q = new Array()
  if ((o1 = getdata(obs, -1)) != false && (e1 = getdata(the, -1)) != false) {
    n1 = decomp(o1, o)
    n2 = decomp(e1, e)
    if (n1 != n2 || n1 <= 1) {
      printf("このデータについては検定できません\n")
      sep2(40)
      return
    }
    total = n = chi = 0
    for (i = 0; i < n1; i++) {
      total += e[i]
      n += o[i]
    }
    t2 = t3 = 0
    for (i = 0; i < n1; i++) {
      t2 += (q[i] = e[i]/total)
      t3 += (e[i] = q[i]*n)
      chi += Math.pow(o[i]-e[i], 2)/e[i]
    }
    printf("★ 適合度の検定 ★\n")
    sep(39)
    printf("%5s %10s %10s %10s\n", "階級", "観察度数", "期待度数", "理論比")
    sep(39)
    for (i = 0; i < n1; i++) {
      printf("%5i %10i %10.3f %10.5f\n", i, o[i], e[i], q[i])
    }
    sep(39)
    printf("%5s %10i %10.3f %10.5f\n", "合計", n, t3, t2)
    sep(39)
    printf("カイ二乗値 = %.6g\n", chi)
    printf("    自由度 = %i\n", n1-1)
    printf("      P 値 = %.5f\n", xxp(chi, n1-1))
  }
  sep2(40)
}
//-->
</script>
</head>

<body bgcolor="#ffffff">
<font size="+2"><b>適合度の検定</b></font>　<a  href="src/fitness.html"><img src="png/src.png" width=35 height=11 alt="src" align=top></a>　　　　　Last modified: Jun 01, 2006<hr noshade><p>
<font color="#ff0000" size="+2">以下のプログラムのサポートは終了しました。自己責任でお使い下さい。</font>

<form name=Result>
<script language="JavaScript">
<!--
//-->JavaScript がサポートされていないブラウザですか？
</script>
漸近近似による適合度の検定を行う（<a href="fitness-exact.html">Exact test</a>も用意している）。<br>
<img src="../gra/button3.png" width=9 height=9 alt="・"> <a href="../lecture/GoodnessOfFitness/nominalscale.html">手法の解説</a>　<img src="../gra/button3.png" width=9 height=9 alt="・"> <a href="exa/fitness.html">使用法</a>
<hr>

観察度数 <input name="o" value="" size=80><br>
理論度数 <input name="e" value="" size=80><br>
<table><tr>
<td><input type="button" name="calcurate" value="計算開始" onClick="calc(this.form.o.value,this.form.e.value)">　　</td>
<td><input type="button" name="clear" value="入力欄クリア" onClick="this.form.o.value=this.form.e.value=''">　　</td>
<td><input type="button" name="clear" value="出力欄クリア" onClick="this.form.result.value=''"></td>
</tr></table>
出力欄<br><textarea name="result" rows=24 cols=80></textarea>
</form>

<p><hr noshade>
<img src="../gra/button3.png" width=9 height=9 alt="・"> <A HREF="javascript:history.go(-1)">直前のページへ戻る</A>　　<img src="../gra/button3.png" width=9 height=9 alt="・"> <a href="../mail.html">E-mail to Shigenobu AOKI</a>
<p><IMG SRC="../gra/ume5.png" width=121 height=37 ALT="Made with Macintosh">
</body>
</html>

サブ　io.js　　　Last modified: Mar 25, 2004
サブ　gxp.js　　　Last modified: Mar 25, 2004
サブ　xxp.js　　　Last modified: Mar 25, 2004
・ 直前のページへ戻る　　・ E-mail to Shigenobu AOKI

Made with Macintosh