var tot = (kk*(kk+1))/2;
var subh1 = 12/(kk*(kk+1));
var subh2 = 3*(kk+1);
var subhk = 1*0;

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

var max = 1*0;
if(kc>=kb)
{
max = 1*kc;
} else {
max = 1*kb;
}

if(ka>=max)
{
max = 1*ka;
}

var k = 1*n;

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<ka; i++) {
document.x.elements[i].value = 1*document.rawx.elements[i].value;
}<!--end.for-->
for (var i=0; i<kb; i++) {
document.x.elements[i+ka].value = 1*document.rawy.elements[i].value;
}<!--end.for-->
for (var i=0; i<kc; i++) {
document.x.elements[i+ka+kb].value = 1*document.rawz.elements[i].value;
}<!--end.for-->
spin();
for (var i=0; i<ka; i++) {
document.x_vals.elements[i].value = 1*document.rank.elements[i].value;
}<!--end.for-->
for (var i=0; i<kb; i++) {
document.y_vals.elements[i].value = 1*document.rank.elements[i+ka].value;
}<!--end.for-->
for (var i=0; i<kc; i++) {
document.z_vals.elements[i].value = 1*document.rank.elements[i+ka+kb].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;
h = 1*0;

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

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

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

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

if(sumrank!=tot) {yell = 1*yell+1};

if(yell>0)
{
alert("The sum of ranks for samples A, B, and C combined does not equal [N(N+1)]/2. Please check your data entries.");
}

subhk = 1*((suma*suma)/ka)+((sumb*sumb)/kb)+((sumc*sumc)/kc);
h = (subh1*subhk)-subh2;

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

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

if(na>2&&nb>2&&nc>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 -->
}<!--end f. calc-->


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