var subh1 = 12/(n*4*5);
var subh2 = 3*n*5;
var subhk = 1*0;

var sumrank = 1*0;
var suma = 1*0;
var sumb = 1*0;
var sumc = 1*0;
var sumd = 1*0;
var h = 1*0;
var meana = 1*0;
var meanb = 1*0;
var meanc = 1*0;
var meand = 1*0;


var k = 1*4;

var a = 1*0; <!--count fills-->
var lz = 1*0;
var min = 1*10000;
var b = 1*0;

<!--begin f. zip-->
function zip()
{
for (var i=0; i<k; i++)<!--begin ziploop1-->
{
if(document.y.elements[i].value !="") <!--begin if1-->
{
if(1*document.y.elements[i].value <= 1*min) <!--begin if2-->
{
min = 1*document.y.elements[i].value;
}<!--end if2-->
}<!--end if1-->
}<!--end ziploop1-->
}<!--end f. zip-->

<!--begin f. sort-->
function sort()
{
min =1*min;
<!--begin sortloop_1-->
for (var p=0; p<k; p++)
{
	if(document.y.elements[p].value==min)<!--begin sortif1-->
	{
	document.z.elements[a].value = document.y.elements[p].value;
	document.y.elements[p].value = "";
	a = 1*a+1;
	}<!--end sortif1-->
} <!--end sortloop_1-->
min = 1*10000;
}<!--end f. sort-->


<!--begin f. spin-->
function spin()
{
a = 1*0;
lz = 1*0;
min = 1*10000;
b = 1*0;
var xxx = 1*0;

for (var q=0; q<k; q++)<!--begin spinloop_datatest-->
{
if(document.x.elements[q].value=="")
{
xxx = 1*1;
}
}<!--end spinloop_datatest-->
if(1*xxx>0)
{
alert("Data error.  Please check your data entries.");
}

for (var q=0; q<k; q++)<!--begin spinloop1-->
{
if(1*xxx>0) {break};
document.y.elements[q].value = document.x.elements[q].value;
}<!--end spinloop1-->

for (var j=0; j<k; j++)<!--begin spinloop2-->
{
if(1*xxx>0) {break};
zip();
sort();
} <!--end spinloop2-->

document.y.elements[0].value = 1;

for (var q=1; q<k; q++)<!--begin spinloop3-->
{
if(1*xxx>0) {break};
	if(1*document.z.elements[q].value > 1*document.z.elements[q-1].value)
	{
	document.y.elements[q].value = 1*document.y.elements[q-1].value+1;
	} else {
	document.y.elements[q].value = document.y.elements[q-1].value;
	}<!--end ifelse-->
}<!--end spinloop3-->

for (var q=0; q<k; q++)<!--begin spinloop3a-->
{
document.rank.elements[q].value = document.y.elements[q].value;
}<!--end spinloop3a-->


for (var jj=0; jj<k; jj++)<!--begin spinloopjj-->
{
if(1*xxx>0) {break};

a = 1*0;
b = 1*0;
lz = 1*0;
	for (var q=0; q<k; q++)<!--begin spinloopjj1-->
	{
		if((1*document.y.elements[q].value)==(1*jj+1))
		{
		a = 1*a+1;
		b = (1*b)+(1*document.count.elements[q].value);		
		}
	}<!--end spinloopjj1-->
		if(a>0)
		{
		lz = b/a;
		}
	for (var s=0; s<k; s++)<!--begin spinloopjj2-->
	{
		if((1*document.y.elements[s].value)==(1*jj+1))
		{
		document.y.elements[s].value = lz;
		}<!--end if-->
	}<!--end spinloopjj2-->
}<!--end spinloopjj-->

if((1*document.z.elements[0].value)<(1*document.z.elements[1].value))
{
document.y.elements[0].value = document.count.elements[0].value;
}<!--end if-->

if((1*document.z.elements[k-1].value)>(1*document.z.elements[k-2].value))
{
document.y.elements[k-1].value =document.count.elements[k-1].value;
}<!--end if-->

for (var j=1; j<(k-1); j++)<!--begin spinloop_rectify-->
{
if(1*xxx>0) {break};

if(((1*document.z.elements[j].value)<(1*document.z.elements[1*j+1].value))&&((1*document.z.elements[j].value)>(1*document.z.elements[1*j-1].value)))
{
document.y.elements[j].value = document.count.elements[j].value;
}<!--end if-->
} <!--endspinloop_ rectify-->

for (var jj=0; jj<k; jj++)<!--begin spinloopjjx-->
{
if(1*xxx>0) {break};

a = 1*0;
b = 1*0;
lz = 1*0;
	for (var q=0; q<k; q++)<!--begin spinloopjj1-->
	{
		if((1*document.rank.elements[q].value)==(1*jj+1))
		{
		a = 1*a+1;
		b = (1*b)+(1*document.count.elements[q].value);		
		}
	}<!--end spinloopjj1-->
		if(a>0)
		{
		lz = b/a;
		}
	for (var s=0; s<k; s++)<!--begin spinloopjj2-->
	{
		if((1*document.rank.elements[s].value)==(1*jj+1))
		{
		document.y.elements[s].value = lz;
		}<!--end if-->
	}<!--end spinloopjj2-->
}<!--end spinloopjjx-->

for (var jj=0; jj<k; jj++)<!--begin final spinloop-->
{
if(1*xxx>0) {break};
for (var i=0; i<k; i++)<!--begin final subloop-->
{
if(document.x.elements[i].value==document.z.elements[jj].value)
{
document.rank.elements[i].value = document.y.elements[jj].value;
}<!--end if-->
}<!--end final subloop-->
}<!--end final spinloop-->
}<!--end f. spin-->

<!--begin f.calc2-->
function calc2()
{

for (var i=0; i<n; i++) {
document.x.elements[0].value = 1*document.rawx.elements[i].value+500*1;
document.x.elements[1].value = 1*document.rawy.elements[i].value+500*1;
document.x.elements[2].value = 1*document.rawz.elements[i].value+500*1;
document.x.elements[3].value = 1*document.rawzz.elements[i].value+500*1;
spin();
document.x_vals.elements[i].value = 1*document.rank.elements[0].value;
document.y_vals.elements[i].value = 1*document.rank.elements[1].value;
document.z_vals.elements[i].value = 1*document.rank.elements[2].value;
document.zz_vals.elements[i].value = 1*document.rank.elements[3].value;
}<!--end.for-->
zjz = 1*1;
calc();
}<!--end f.calc2-->




<!--begin f. calc-->
function calc()
{
sumrank =1* 0;
yell = 1*0;
suma = 1*0;
sumb = 1*0;
sumc = 1*0;
sumd = 1*0;
h = 1*0;

for (var i=0; i<n; i++)<!--begin sumloop1-->
{
suma = (1*suma)+(1*document.x_vals.elements[i].value);
}<!--end sumloop1-->
meana = suma/n;
document.meana.elements[0].value = Math.round(meana*10)/10;

for (var i=0; i<n; i++)<!--begin sumloop2-->
{
sumb = (1*sumb)+(1*document.y_vals.elements[i].value);
}<!--end sumloop3-->
meanb = sumb/n;
document.meanb.elements[0].value = Math.round(meanb*10)/10;

for (var i=0; i<n; i++)<!--begin sumloop3-->
{
sumc = (1*sumc)+(1*document.z_vals.elements[i].value);
}<!--end sumloop2-->
meanc = sumc/n;
document.meanc.elements[0].value = Math.round(meanc*10)/10;

for (var i=0; i<n; i++)<!--begin sumloop4-->
{
sumd = (1*sumd)+(1*document.zz_vals.elements[i].value);
}<!--end sumloop4-->
meand = sumd/n;
document.meand.elements[0].value = Math.round(meand*10)/10;

sumrank = (1*suma)+(1*sumb)+(1*sumc)+(1*sumd);
sumrank = Math.round(sumrank);


subhk = 1*(suma*suma)+(sumb*sumb)+(sumc*sumc)+(sumd*sumd);
h = (subh1*subhk)-subh2;

h = Math.round(h*100)/100;

document.csq.elements[0].value = h;
document.df.elements[0].value = 3;

if(n>2){
calc_csq();
document.p.elements[0].value = Math.round(10000*document.p.elements[0].value)/10000;
}
else{
document.p.elements[0].value = "-----"
}<!-- end.if -->

if(h>21){document.p.elements[0].value = "<0.0001"}


}<!--end f. calc-->


<!--begin f. wipe-->
function wipe()
{
for (var i=0; i<n; i++)<!--begin wipeloop1-->
{
document.x_vals.elements[i].value = "---";
document.rawx.elements[i].value = "";
document.y_vals.elements[i].value = "---";
document.rawy.elements[i].value = "";
document.z_vals.elements[i].value = "---";
document.rawz.elements[i].value = "";
document.zz_vals.elements[i].value = "---";
document.rawzz.elements[i].value = "";
}<!--end wipeloop-->
document.csq.elements[0].value = "";
document.df.elements[0].value = "";
document.p.elements[0].value = "";
document.meana.elements[0].value = "";
document.meanb.elements[0].value = "";
document.meanc.elements[0].value = "";
document.meand.elements[0].value = "";

}<!--end f. wipe-->