<title>中心極限定理の確認</title><!-- saved from url=(0008)about:internet -->
<form>
	<textarea rows="15" cols="38"></textarea><br>
	<input type="button" value="OK" onClick="OK()">
	　標本の大きさ<input type="text" size="3" value="1">
	　抽出回数<input type="text" size="3" value="500"><br>
	分布：漸減<input type="radio" name="dp" checked> 
	一様<input type="radio" name="dp"> 減増<input type="radio" name="dp">
</form>
<script>
	漸減=new Array(8,8,8,8,8,8,7,7,7,7,7,6,6,6,6,5,5,5,4,4,4,3,3,2,2,1,0)
	一様=new Array(8,8,8,7,7,7,6,6,6,5,5,5,4,4,4,3,3,3,2,2,2,1,1,1,0,0,0)
	減増=new Array(8,8,8,8,8,7,7,7,7,6,6,6,5,5,4,3,3,2,2,2,1,1,1,1,0,0,0,0,0)
function OK(){母=漸減
	個=document.forms[0].elements[2].value
	回=document.forms[0].elements[3].value
	if(document.forms[0].elements[5].checked==true)母=一様
	if(document.forms[0].elements[6].checked==true)母=減増
	級=new Array();for(i=0;i<9;i++){級[i]=0};和=0;二乗和=0;三乗和=0;四乗和=0
	桁=100;説="大きさ"+個+"の標本の平均値"+回+"個の分布\n"
	for(i=1;i<=回;i++){計=0
		for(j=1;j<=個;j++){計=計+母[Math.floor(Math.random()*母.length)]}
		値=計/個;級[Math.round(値)]++;和=和+値;二乗和=二乗和+値*値
		三乗和=三乗和+値*値*値;四乗和=四乗和+値*値*値*値
	}
	平=和/回;SD=Math.sqrt(二乗和/回-平*平)
	μ3=三乗和/回-3*二乗和/回*平+2*平*平*平;歪度=μ3/(SD*SD*SD)
	μ4=四乗和/回-4*三乗和/回*平+6*二乗和/回*平*平-3*平*平*平*平
	目=" 0    10   20   30   40   50%\n";尖度=μ4/(SD*SD*SD*SD)
	尺=" +----+----+----+----+----+";図=""
	for(i=8;0<=i;i--){星=""
		for(j=1;j<=50*級[i]/回;j++){星=星+"*"};図=図+i+":"+星+"\n"
	}
	諸値="平均="+Math.round(桁*平)/桁+" SD="+Math.round(桁*SD)/桁
	諸値=諸値+" 歪度="+Math.round(桁*歪度)/桁+" 尖度="+Math.round(桁*尖度)/桁
	document.forms[0].elements[0].value=説+目+尺+"\n"+図+尺+"\n"+目+諸値
}
</script>