メイン distribution.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 language="JavaScript">
<!--
function bdis(p0, n0)
{
var i, n, p, pi, cum = 0, cum2 = 1
var log_p, log_q
var ct, ctn
if (isNaN(p = parseFloat(p0)) || p < 0 || p > 1 || isNaN(n = parseFloat(n0)) || n <= 0 || Math.ceil(n) != n) {
printf("入力した数値が変です。")
return
}
printf("★ 二項分布 ★\n")
printf("%5s %10s %15s %10s %10s\n", "x", "f(x)", "浮動小数点表示", "累積和１", "累積和２")
log_p = Math.log(p)
log_q = Math.log(1-p)
ct = makeVector(n+1)
ct[0] = 0
for (i = 1; i <= n; i++) {
ct[i] = ct[i-1]+Math.log(i)
}
ctn = ct[n]
for (i = 0; i <= n; i++) {
pi = Math.exp(ctn-ct[i]-ct[n-i]+i*log_p+(n-i)*log_q)
cum += pi
printf("%5i %10.5f (%15.5g) %10.5f %10.5f\n", i, pi, pi, cum, cum2)
cum2 -= pi
}
sep2(60)
printf("\n\n")
}
function pdis(lambda0)
{
var i, lambda, pi, cum = 0, cum2 = 1
var log_lambda, ct
if (isNaN(lambda = parseFloat(lambda0)) || lambda <= 0) {
printf("入力した数値が変です。")
return
}
printf("★ ポアソン分布 ★\n")
printf("%5s %10s %15s %10s %10s\n", "x", "f(x)", "浮動小数点表示", "累積和１", "累積和２")
log_lambda = Math.log(lambda)
ct = lambda
for (i = 0; ; i++) {
pi = Math.exp(i*log_lambda-ct)
ct += Math.log(i+1)
cum += pi
printf("%5i %10.5f (%15.5g) %10.5f %10.5f\n", i, pi, pi, cum, cum2)
cum2 -= pi
if (cum2 < 1e-10) {
break
}
}
sep2(60)
printf("\n\n")
}
//-->
</script>
</head>
<body bgcolor="#ffffff">
<font size="+2"><b>離散分布関数</b></font> <a href="src/distribution.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>
二項分布，ポアソン分布について，パラメータを入力して確率関数，分布関数を計算する。<br>
<img src="../gra/button3.png" width=9 height=9 alt="・"> <a href="../lecture/Bunpu/nikou.html">二項分布の解説</a>
<img src="../gra/button3.png" width=9 height=9 alt="・"> <a href="../lecture/Bunpu/poisson.html">ポアソン分布の解説</a>
<hr>
<table cellspacing=0>
<tr>
<td valign=top>
<table>
<tr><td valign=top bgcolor="#a0a050">
<table>
<tr><td align=center>
二項分布
</td></tr>
<tr><td align=right nowrap>
<input type="button" name="calcurate1" value="入力欄クリア" onClick="this.form.p.value=this.form.trial.value=''">
</td></tr>
<tr><td align=right nowrap>
母比率 <input name="p" value="0.5" size=6>
</td></tr>
<tr><td align=right nowrap>
試行回数 <input name="trial" value="5" size=6>
</td></tr>
<tr><td align=right nowrap>
<input type="button" name="clear" value="出力欄クリア" onClick="this.form.result.value=''">
</td></tr>
<tr><td align=right nowrap>
<input type="button" name="calcurate1" value="計算開始" onClick="bdis(this.form.p.value, this.form.trial.value)">
</td></tr>
</table>
</td>
<td valign=top bgcolor="#c0a050">
<table>
<tr><td align=center>
ポアソン分布
</td></tr>
<tr><td align=right nowrap>
<input type="button" name="calcurate2" value="入力欄クリア" onClick="this.form.lambda2.value=''">
</td></tr>
<tr><td align=right nowrap>
ポアソン定数 <input name="lambda2" value="1" size=6>
</td></tr>
<tr><td align=right nowrap>
<input type="button" name="clear" value="出力欄クリア" onClick="this.form.result.value=''">
</td></tr>
<tr><td align=right nowrap>
<input type="button" name="calcurate1" value="計算開始" onClick="pdis(this.form.lambda2.value)">
</td></tr>
</table>
</td> </tr>
</table>
</td>
</tr>
</table>
<p>
出力欄<br><textarea name="result" ROWS=26 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>
サブ fac.js Last modified: Mar 25, 2004
サブ com.js Last modified: Mar 25, 2004
サブ io.js Last modified: Mar 25, 2004
直前のページへ戻る E-mail to Shigenobu AOKI
