<title>母平均の信頼区間＠大標本法</title><!-- saved from url=(0008)about:internet -->
<form>
	<textarea rows="9" cols="28"></textarea><br>1.一列＠表計算ソフトをpaste※
	→2.<input type="button" value="OK" onClick="OK()">をclick<br>
	※最終data 以降の改行は欠測とみなされるため要削除。
</form>
<script>
	素="得点\n1\n2\n3\n3\n4\n4\n4\n5\n5\n5\n5\n5\n5\n6\n6\n6\n6\n6\n6\n"
	素=素+"7\n7\n7\n8\n8\n9\n10";document.forms[0].elements[0].value=素
function OK(){
	素=document.forms[0].elements[0].value.replace(/\r\n/g,"\n").split("\n")
	名=素.shift();有=0;欠=0;総和=0;二次=0;桁=1000
	for (i in 素){if(素[i].replace(/\s/g,"")==""){欠++;continue}
		有++;値=(素[i])-0;総和=総和+値}
	平均=総和/有
	for (i in 素){if(素[i].replace(/\s/g,"")=="")continue
		差=素[i]-平均;二次=二次+差*差}
	SD=Math.sqrt(二次/有);u=Math.sqrt(二次/(有-1));SE=u/Math.sqrt(有)
	p=new Array(95,99,90);z=new Array(1.96,2.576,1.645)
	r0="\n不偏標準偏差="+Math.round(桁*u)/桁+"\n標準誤差="+Math.round(桁*SE)/桁
	r0=r0+"\n☆正規分布に基づく信頼区間："
	for(i=0;i<3;i++){
		幅=z[i]*SE;r0=r0+"\n"+p[i]+"%:"+Math.round(桁*(平均-幅))/桁+"～"
		r0=r0+Math.round(桁*(平均+幅))/桁+"\n‥標本平均±"+Math.round(桁*幅)/桁}
	平均=Math.round(桁*平均)/桁;SD=Math.round(桁*SD)/桁
	r1="変数："+名+"\n有効"+有+"+欠測"+欠+"="+(有+欠)+"\n平均="+平均
	document.forms[0].elements[0].value=r1+"\n標準偏差="+SD+r0
}
</script>