メイン　u-test.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 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 u_test(n1, array1, n2, array2)
{
  var a = new Array(n1+n2)
  var i, j, n, lt, eq, u1, u2, u, r, t, v, e, z, p
  printf("n1 = %i,  n2 = %i\n", n1, n2)
  n = n1+n2
  for (i = 0; i < n1; i++) {
    a[i] = array1[i]
  }
  for (i = 0; i < n2; i++) {
    a[n1+i] = array2[i]
  }
  r = 0
  for (i = 0; i < n1; i++) {
    lt = eq = 0
    for (j = 0; j < n; j++) {
      if (a[j] == a[i]) {
        eq++
      }
      else if (a[j] < a[i]) {
        lt++
      }
    }
    r += lt+(eq+1)/2
  }
  u1 = n1*n2+n1*(n1+1)/2-r
  u2 = n1*n2-u1
  u = Math.min(u1, u2)
  printf("   U = %g\n", u)
  e = n1*n2/2
  printf("E[U] = %g\n", e)
  t = 0
  for (i = 0; i < n; i++) {
    eq = 0
    for (j = 0; j < n; j++) {
      if (a[j] == a[i]) {
        eq++
      }
    }
    t += eq*eq-1
  }
  v = n1*n2*(n*n*n-n-t)/(12*(n*n-n))
  printf("V[U] = %g\n", v)
  z = Math.abs(e-u)/Math.sqrt(v)
  printf("   Z = %.5f\n", z)
  p = 2*gxp(z)
  printf("   p = %.5f\n", p)
}

function calc(data1_string, data2_string)
{
  var n1, n2, data1, data2
  var array1 = new Array()
  var array2 = new Array()
  if ((data1 = getdata(data1_string, -1)) != false && (data2 = getdata(data2_string, -1)) != false) {
    n1 = decomp(data1, array1)
    n2 = decomp(data2, array2)
    u_test(n1, array1, n2, array2)
  }
  sep(40)
}
//-->
</script>
</head>

<body bgcolor="#ffffff">
<font size="+2"><b>原データからの U 検定（二群の代表値の差の検定）</b></font>　<a  href="src/utest.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>
<table><tr>
<td><input type="button" name="calcurate" value="計算開始" onClick="calc(this.form.data1.value,this.form.data2.value)">　　</td>
<td><input type="button" name="clear" value="入力欄クリア" onClick="this.form.data1.value=this.form.data2.value=''">　　</td>
<td><input type="button" name="clear" value="出力欄クリア" onClick="this.form.result.value=''">　　</td>
<td><img src="../gra/button3.png" width=9 height=9 alt="・"> <a href="exa/ttest2.html">使用法</a></td>
</tr></table>
<p>

<table>
<tr>
<td valign=top>第一群のデータ<br><textarea name="data1" rows=10 cols=20></textarea><p>
第二群のデータ<br><textarea name="data2" rows=10 cols=20></textarea></td>
<td valign=top rowspan=2>出力欄<br><textarea name="result" rows=24 cols=80></textarea></td>
</tr>
</table>
</form>

<p><hr noshade>
<img src="../gra/button3.png" width=9 height=9 alt="・"> <a href="../lecture/Average/U-test.html">手法の解説</a><br>
<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><center><IMG SRC="../gra/ume5.png" width=121 height=37 ALT="Made with Macintosh"></center>
</body>
</html>

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

Made with Macintosh