function calc() {
var k = nn;
var nx = 0;
var ny = 0;
var nd = 0;
var sumx = 0;
var sumy = 0;
var sumd = 0;
var sumsqx = 0;
var sumsqy = 0;
var sumsqd = 0;

for (var i=0; i<k; i++) {
	document.xy_vals.elements[i].value = "";
	}


for (var i=0; i<k; i++) {
	if (document.x_vals.elements[i].value.length > 0) {nx=nx+1}
	}
document.nx.elements[0].value = nx;

for (var i=0; i<k; i++) {
	if (document.y_vals.elements[i].value.length > 0) {ny=ny+1}
	}
document.ny.elements[0].value = ny;

for (var i=0; i<nx; i++) {
	document.xy_vals.elements[i].value=document.x_vals.elements[i].value-document.y_vals.elements[i].value}

for (var i=0; i<k; i++) {
	if (document.xy_vals.elements[i].value.length > 0) {nd=nd+1}
	}
document.nd.elements[0].value = nd;

var col = (nx+ny)/2;
if (nd<col) {
alert("Caution: Please check your data to make sure they are entered correctly.")}

for (var i=0; i<nx; i++) {
	sumx = sumx + (document.x_vals.elements[i].value*1)}
document.sumx.elements[0].value = sumx;

for (var i=0; i<ny; i++) {
	sumy = sumy + (document.y_vals.elements[i].value*1)}
document.sumy.elements[0].value = sumy;

for (var i=0; i<nd; i++) {
	sumd = sumd + (document.xy_vals.elements[i].value*1)}
document.sumd.elements[0].value = sumd;

for (var i=0; i<nx; i++) {
	sumsqx = sumsqx + (document.x_vals.elements[i].value*document.x_vals.elements[i].value)}
document.sumsqx.elements[0].value = Math.round(sumsqx*10000)/10000;

for (var i=0; i<ny; i++) {
	sumsqy = sumsqy + (document.y_vals.elements[i].value*document.y_vals.elements[i].value)}
document.sumsqy.elements[0].value = Math.round(sumsqy*10000)/10000;

for (var i=0; i<ny; i++) {
	sumsqd = sumsqd + (document.xy_vals.elements[i].value*document.xy_vals.elements[i].value)}
document.sumsqd.elements[0].value = Math.round(sumsqd*10000)/10000;

var ssx =  sumsqx-((sumx*sumx)/nx);
var ssy =  sumsqy-((sumy*sumy)/ny);
var ssd =  sumsqd-((sumd*sumd)/nd);
if (ssd==0) {
alert("A t-ratio cannot be calculated, because there is zero variability among your values of d.")}
var meanx = sumx/nx;
var meany = sumy/ny;
var meand = sumd/nd;
meand = Math.round(meand*10000)/10000;
document.meanx.elements[0].value = Math.round(meanx*10000)/10000;
document.meany.elements[0].value = Math.round(meany*10000)/10000;
document.meand.elements[0].value = meand;

document.ssx.elements[0].value = Math.round(ssx*10000)/10000;
document.ssy.elements[0].value = Math.round(ssy*10000)/10000;
document.ssd.elements[0].value = Math.round(ssd*10000)/10000;
document.varx.elements[0].value = Math.round((ssx/(nx-1))*10000)/10000;
document.vary.elements[0].value = Math.round((ssy/(ny-1))*10000)/10000;
document.vard.elements[0].value = Math.round((ssd/(nd-1))*10000)/10000;
document.sdx.elements[0].value = Math.round((Math.sqrt(ssx/(nx-1)))*10000)/10000;
document.sdy.elements[0].value = Math.round((Math.sqrt(ssy/(ny-1)))*10000)/10000;
document.sdd.elements[0].value = Math.round((Math.sqrt(ssd/(nd-1)))*10000)/10000;

var df = nd-1;
var se = ssd/(nd-1)/nd;
var t = meand/Math.sqrt(se);
document.diff.elements[0].value = meand;
document.t.elements[0].value = Math.round(t*100)/100;
document.df.elements[0].value = df;

document.pa.elements[0].value = Tcall(buzz(eval(t),eval(df)));
document.pb.elements[0].value = Tcall(buzz(eval(t),eval(df)))/2;

if(document.pa.elements[0].value<.0001||document.pa.elements[0].value>1.0)
{
document.pa.elements[0].value = "<.0001";
}
if(document.pb.elements[0].value<.0001||document.pb.elements[0].value>1.0)
{
document.pb.elements[0].value = "<.0001";
}

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


function unwipe() {
var pa = document.pa.elements[0].value;
var pb = document.pb.elements[0].value;
var k = nn;
var n = "";
var x_vals = "";
var y_vals = "";
var xy_vals = "";
for (var i=0; i<k; i++) {
x_vals = x_vals+document.x_vals.elements[i].value+"<br> ";
y_vals = y_vals+document.y_vals.elements[i].value+"<br> ";
xy_vals =xy_vals+document.xy_vals.elements[i].value+"<br> ";
}

for (var i=1; i<(1*k+1); i++) {
n = n+i+"<br> ";
}

var date = new Date();

var nx = document.nx.elements[0].value;
var ny = document.ny.elements[0].value;
var nd = document.nd.elements[0].value;
var sumx = document.sumx.elements[0].value;
var sumy = document.sumy.elements[0].value;
var sumd = document.sumd.elements[0].value;
var sumsqx = document.sumsqx.elements[0].value;
var sumsqy = document.sumsqy.elements[0].value;
var sumsqd = document.sumsqd.elements[0].value;
var varx = document.varx.elements[0].value;
var vary = document.vary.elements[0].value;
var vard = document.vard.elements[0].value;
var ssx = document.ssx.elements[0].value;
var ssy = document.ssy.elements[0].value;
var ssd = document.ssd.elements[0].value;
var meanx = document.meanx.elements[0].value;
var meany = document.meany.elements[0].value;
var meand = document.meand.elements[0].value;
var diff = document.diff.elements[0].value;
var t = document.t.elements[0].value;
var df = document.df.elements[0].value;
var sdx = document.sdx.elements[0].value;
var sdy = document.sdy.elements[0].value;
var sdd = document.sdd.elements[0].value;
var p1 = document.pb.elements[0].value;
var p2 = document.pa.elements[0].value;

var aa = '<BODY BGCOLOR="#FFFFFF" linkColor="010785" vlinkColor="010785"><font face="verdana, arial"><FONT COLOR="010785">VassarStats Printable Report<BR>t-Test for Correlated Samples</FONT><br>'+date+'<HR><FONT COLOR="010785">Values entered:</FONT><br>';

document.open();
document.write('<font face="verdana, arial">'+aa);


document.write('<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=4><TR><TD><font face="verdana, arial">count<TD><font face="verdana, arial">X<SUB>a</SUB><TD><font face="verdana, arial">X<SUB>b</SUB><TD><font face="verdana, arial">X<SUB>a</SUB> - X<SUB>b</SUB><TR><TD><font face="verdana, arial">'+n+'<TD><font face="verdana, arial">'+x_vals+'<TD><font face="verdana, arial">'+y_vals+'<TD><font face="verdana, arial">'+xy_vals+'</table><HR><FONT COLOR="010785">Summary Values</FONT><TABLE BORDER=1 CELLSPACING=1 CELLPADDING=4><TR><TD><font face="verdana, arial">Values<TD><font face="verdana, arial">X<SUB>a</SUB><TD><font face="verdana, arial">X<SUB>b</SUB><TD><font face="verdana, arial">X<SUB>a</SUB> - X<SUB>b</SUB><TR><TD><font face="verdana, arial">n<TD><font face="verdana, arial">'+nx+'<TD><font face="verdana, arial">'+ny+'<TD><font face="verdana, arial">'+nd+'<TR><TD><font face="verdana, arial">sum<TD><font face="verdana, arial">'+sumx+'<TD><font face="verdana, arial">'+sumy+'<TD><font face="verdana, arial">'+sumd+'<TR><TD><font face="verdana, arial">mean<TD><font face="verdana, arial">'+meanx+'<TD><font face="verdana, arial">'+meany+'<TD><font face="verdana, arial">'+meand+'<TR><TD><font face="verdana, arial">sum_sq<TD><font face="verdana, arial">'+sumsqx+'<TD><font face="verdana, arial">'+sumsqy+'<TD><font face="verdana, arial">'+sumsqd+'<TR><TD><font face="verdana, arial">SS<TD><font face="verdana, arial">'+ssx+'<TD><font face="verdana, arial">'+ssy+'<TD><font face="verdana, arial">'+ssd+'<TR><TD><font face="verdana, arial">variance<TD><font face="verdana, arial">'+varx+'<TD><font face="verdana, arial">'+vary+'<TD><font face="verdana, arial">'+vard+'<TR><TD><font face="verdana, arial">st. dev.<TD><font face="verdana, arial">'+sdx+'<TD><font face="verdana, arial">'+sdy+'<TD><font face="verdana, arial">'+sdd+'</TABLE><FONT SIZE=-1>Variances and standard deviations are calculated<BR>with denominator&nbsp;=&nbsp;n-1.</FONT><HR><TABLE BORDER=1 CELLSPACING=2 CELLPADDING=4><TR ALIGN=Center><TD><font face="verdana, arial">Mean<SUB>A</SUB> - Mean<SUB>B</SUB><TD><font face="verdana, arial">t<TD><font face="verdana, arial">&nbsp;df&nbsp;<TR ALIGN=Center><TD><font face="verdana, arial">'+diff+'<TD><font face="verdana, arial">'+t+'<TD><font face="verdana, arial">'+df+'</TABLE><TABLE BORDER=1 CELLSPACING=1 CELLPADDING=4><TR ALIGN=left>	<TD rowspan=2><font face="verdana, arial">&nbsp;&nbsp;P&nbsp;&nbsp;<Td><font face="verdana, arial">one-tailed<Td><font face="verdana, arial">'+p1+'<TR ALIGN=left><Td><font face="verdana, arial">two-tailed<Td><font face="verdana, arial">'+p2+'</TABLE><HR><TABLE BORDER=1 CELLSPACING="1" CELLPADDING="4"><TR valign=top><TD><font face="verdana, arial"><A HREF="VassarStats.html" TARGET="VassarStats"><span style="font-size: 90%;">Home</span></font></A><TD><font face="verdana, arial"><span style="font-size: 90%;">Click this link only if you did not arrive here via the VassarStats main page.</span></font></TABLE>');

document.close();
}


function wipe() {
var k = nn;
for (var i=0; i<k; i++) {
	document.x_vals.elements[i].value = ""
	document.y_vals.elements[i].value = ""
	document.xy_vals.elements[i].value = "-----"
	}
document.nx.elements[0].value = "";
document.ny.elements[0].value = "";
document.nd.elements[0].value = "";
document.sumx.elements[0].value = "";
document.sumy.elements[0].value = "";
document.sumd.elements[0].value = "";
document.sumsqx.elements[0].value = "";
document.sumsqy.elements[0].value = "";
document.sumsqd.elements[0].value = "";
document.meanx.elements[0].value = "";
document.meany.elements[0].value = "";
document.meand.elements[0].value = "";

document.ssx.elements[0].value = "";
document.ssy.elements[0].value = "";
document.ssd.elements[0].value = "";
document.varx.elements[0].value = "";
document.vary.elements[0].value = "";
document.vard.elements[0].value = "";
document.sdx.elements[0].value = "";
document.sdy.elements[0].value = "";
document.sdd.elements[0].value = "";
document.diff.elements[0].value = "";
document.t.elements[0].value = "";
document.df.elements[0].value = "";
document.pa.elements[0].value = "";
document.pb.elements[0].value = "";
}