<title>定義どおりの２～４次の積率</title><!-- saved from url=(0008)about:internet -->
<form>
	<textarea rows="8" cols="24"></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\n7\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;歪度=0;尖度=0;桁=1000;大=素[1];小=素[1]
	for (i in 素){if(素[i].replace(/\s/g,"")==""){欠++;continue}
		有++;値=(素[i])-0;if(値<小)小=値
		総和=総和+値;if(大<値)大=値}
	平均=総和/有
	for (i in 素){if(素[i].replace(/\s/g,"")=="")continue
		差=素[i]-平均;二次=二次+差*差}
	SD=Math.sqrt(二次/有)
	for (i in 素){if(素[i].replace(/\s/g,"")=="")continue
		差=(素[i]-平均)/SD;歪度=歪度+差*差*差;尖度=尖度+差*差*差*差}
	平均=Math.round(桁*平均)/桁;SD=Math.round(桁*SD)/桁
	歪度=Math.round(桁*歪度/有)/桁;尖度=Math.round(桁*尖度/有)/桁
	r1="変数："+名+"\n有効"+有+"+欠測"+欠+"="+(有+欠)+"\n範囲："+小+"～"+大
	r2="\n平均="+平均+"\n標準偏差：２次の積率="+SD+"\n歪度：３次の積率="+歪度
	document.forms[0].elements[0].value=r1+r2+"\n尖度：４次の積率="+尖度
}
</script>