var k = nn;
var n = 0;
var nb = 0;
var nc = 0;
var nd = 0;
var ne = 0;
var suma = 0;
var sumb = 0;
var sumc = 0;
var sumd = 0;
var sume = 0;
var sumsqa = 0;
var sumsqb = 0;
var sumsqc = 0;
var sumsqd = 0;
var sumsqe = 0;

var ssa = 0;
var ssb = 0;
var ssc = 0;
var ssd = 0;
var sse = 0;

var sumab = 0;
var sumac = 0;
var sumad = 0;
var sumae = 0;
var sumbc = 0;
var sumbd = 0;
var sumbe = 0;
var sumcd = 0;
var sumce = 0;
var sumde = 0;

var rab = 0;
var rac = 0;
var rad = 0;
var rae = 0;
var rbc = 0;
var rbd = 0;
var rbe = 0;
var rcd = 0;
var rce = 0;
var rde = 0;

var rsqab = 0;
var rsqac = 0;
var rsqad = 0;
var rsqae = 0;
var rsqbc = 0;
var rsqbd = 0;
var rsqbe = 0;
var rsqcd = 0;
var rsqce = 0;
var rsqde = 0;

function calc() {

n = 0;
nb = 0;
nc = 0;
nd = 0;
ne = 0;
suma = 0;
sumb = 0;
sumc = 0;
sumd = 0;
sume = 0;
sumsqa = 0;
sumsqb = 0;
sumsqc = 0;
sumsqd = 0;
sumsqe = 0;

ssa = 0;
ssb = 0;
ssc = 0;
ssd = 0;
sse = 0;

sumab = 0;
sumac = 0;
sumad = 0;
sumae = 0;
sumbc = 0;
sumbd = 0;
sumbe = 0;
sumcd = 0;
sumce = 0;
sumde = 0;

rab = 0;
rac = 0;
rad = 0;
rae = 0;
rbc = 0;
rbd = 0;
rbe = 0;
rcd = 0;
rce = 0;
rde = 0;

rsqab = 0;
rsqac = 0;
rsqad = 0;
rsqae = 0;
rsqbc = 0;
rsqbd = 0;
rsqbe = 0;
rsqcd = 0;
rsqce = 0;
rsqde = 0;

for (var i=0; i<10; i++) {
document.r.elements[i].value = "";
document.rsq.elements[i].value = "";
}<!--end.for-->

for (var i=0; i<k; i++) {
if (document.a.elements[i].value.length > 0) {n=n+1}
}<!--end.for-->

for (var i=0; i<k; i++) {
if (document.b.elements[i].value.length > 0) {nb=nb+1}
}<!--end.for-->
nb=nb/n;

for (var i=0; i<k; i++) {
if (document.c.elements[i].value.length > 0) {nc=nc+1}
}<!--end.for-->
nc=nc/n;

for (var i=0; i<k; i++) {
if (document.d.elements[i].value.length > 0) {nd=nd+1}
}<!--end.for-->
nd=nd/n;

for (var i=0; i<k; i++) {
if (document.e.elements[i].value.length > 0) {ne=ne+1}
}<!--end.for-->
ne=ne/n;

for (var i=0; i<n; i++) {
suma+= (document.a.elements[i].value*1);
sumb+= (document.b.elements[i].value*1);
sumc+= (document.c.elements[i].value*1);
sumd+= (document.d.elements[i].value*1);
sume+= (document.e.elements[i].value*1);

sumsqa+= (document.a.elements[i].value*document.a.elements[i].value);
sumsqb+= (document.b.elements[i].value*document.b.elements[i].value);
sumsqc+= (document.c.elements[i].value*document.c.elements[i].value);
sumsqd+= (document.d.elements[i].value*document.d.elements[i].value);
sumsqe+= (document.e.elements[i].value*document.e.elements[i].value);

sumab+= (document.a.elements[i].value*document.b.elements[i].value);
sumac+= (document.a.elements[i].value*document.c.elements[i].value);
sumad+= (document.a.elements[i].value*document.d.elements[i].value);
sumae+= (document.a.elements[i].value*document.e.elements[i].value);

sumbc+= (document.b.elements[i].value*document.c.elements[i].value);
sumbd+= (document.b.elements[i].value*document.d.elements[i].value);
sumbe+= (document.b.elements[i].value*document.e.elements[i].value);

sumcd+= (document.c.elements[i].value*document.d.elements[i].value);
sumce+= (document.c.elements[i].value*document.e.elements[i].value);

sumde+= (document.d.elements[i].value*document.e.elements[i].value);
}<!--end.for-->

ssa = sumsqa-((suma*suma)/n);
ssb = sumsqb-((sumb*sumb)/n);
var ssab = sumab-((suma*sumb)/n);
ssc = sumsqc-((sumc*sumc)/n);
var ssac = sumac-((suma*sumc)/n);
var ssbc = sumbc-((sumb*sumc)/n);
ssd = sumsqd-((sumd*sumd)/n);
var ssad = sumad-((suma*sumd)/n);
var ssbd = sumbd-((sumb*sumd)/n);
var sscd = sumcd-((sumc*sumd)/n);
sse = sumsqe-((sume*sume)/n);
var ssae = sumae-((suma*sume)/n);
var ssbe = sumbe-((sumb*sume)/n);
var ssce = sumce-((sumc*sume)/n);
var ssde = sumde-((sumd*sume)/n);

var ss1 = ssa;
var ss2 = ssb;
var ss12 = ssab;
var r = ss12/Math.sqrt(ss1*ss2);
if(ss1*ss2>0&&nb==1){document.r.elements[0].value =  Math.round(r*1000)/1000}

ss1 = ssa;
ss2 = ssc;
ss12 = ssac;
 r = ss12/Math.sqrt(ss1*ss2);
if(ss1*ss2>0&&nc==1){document.r.elements[1].value =  Math.round(r*1000)/1000}

ss1 = ssa;
ss2 = ssd;
ss12 = ssad;
r = ss12/Math.sqrt(ss1*ss2);
if(ss1*ss2>0&&nd==1){document.r.elements[2].value =  Math.round(r*1000)/1000}

ss1 = ssa;
ss2 = sse;
ss12 = ssae;
 r = ss12/Math.sqrt(ss1*ss2);
if(ss1*ss2>0&&ne==1){document.r.elements[3].value =  Math.round(r*1000)/1000}

ss1 = ssb;
ss2 = ssc;
ss12 = ssbc;
 r = ss12/Math.sqrt(ss1*ss2);
if(ss1*ss2>0&&nb*nc==1){document.r.elements[4].value =  Math.round(r*1000)/1000}

ss1 = ssb;
ss2 = ssd;
ss12 = ssbd;
 r = ss12/Math.sqrt(ss1*ss2);
if(ss1*ss2>0&&nb*nd==1){document.r.elements[5].value =  Math.round(r*1000)/1000}

ss1 = ssb;
ss2 = sse;
ss12 = ssbe;
 r = ss12/Math.sqrt(ss1*ss2);
if(ss1*ss2>0&&nb*ne==1){document.r.elements[6].value =  Math.round(r*1000)/1000}

ss1 = ssc;
ss2 = ssd;
ss12 = sscd;
 r = ss12/Math.sqrt(ss1*ss2);
if(ss1*ss2>0&&nc*nd==1){document.r.elements[7].value =  Math.round(r*1000)/1000}

ss1 = ssc;
ss2 = sse;
ss12 = ssce;
 r = ss12/Math.sqrt(ss1*ss2);
if(ss1*ss2>0&&nc*ne==1){document.r.elements[8].value =  Math.round(r*1000)/1000}

ss1 = ssd;
ss2 = sse;
ss12 = ssde;
 r = ss12/Math.sqrt(ss1*ss2);
if(ss1*ss2>0&&nd*ne==1){document.r.elements[9].value =  Math.round(r*1000)/1000}

for (var i=0; i<10; i++) {
if(document.r.elements[i].value!="")
{
document.rsq.elements[i].value =  Math.round(document.r.elements[i].value*document.r.elements[i].value*1000)/1000;
}
}<!--end.for-->


document.r.elements[10].value = n;
}<!--end f.calc--->

function ab() {
subwipe();
document.pair.elements[0].value = "AB";
var df = document.r.elements[10].value-2;
if(document.r.elements[0].value!=""){
var num = document.r.elements[0].value;
var denom = 1-document.rsq.elements[0].value;
denom = Math.sqrt(denom);
var t = (num/denom)*Math.sqrt(df);
document.rpair.elements[0].value = num;
document.df.elements[0].value = df;
document.t.elements[0].value = Math.round(t*1000)/1000;
document.pa.elements[0].value = Tcall(buzz(eval(t),eval(df)));
document.pb.elements[0].value = document.pa.elements[0].value/2;
}else{
document.rpair.elements[0].value = "empty";
}<!--end.if/else-->
if(df<0){
document.df.elements[0].value = "??";
document.t.elements[0].value = "??";
}<!--end.if-->
}<!--end.function-->

function ac() {
subwipe();
document.pair.elements[0].value = "AC";
var df = document.r.elements[10].value-2;
if(document.r.elements[1].value!=""){
var num = document.r.elements[1].value;
var denom = 1-document.rsq.elements[1].value;
denom = Math.sqrt(denom);
var t = (num/denom)*Math.sqrt(df);
document.rpair.elements[0].value = num;
document.df.elements[0].value = df;
document.t.elements[0].value = Math.round(t*1000)/1000;
document.pa.elements[0].value = Tcall(buzz(eval(t),eval(df)));
document.pb.elements[0].value = document.pa.elements[0].value/2;
}else{
document.rpair.elements[0].value = "empty";
}<!--end.if/else-->
if(df<0){
document.df.elements[0].value = "??";
document.t.elements[0].value = "??";
}<!--end.if-->
}<!--end.function-->

function ad() {
subwipe();
document.pair.elements[0].value = "AD";
var df = document.r.elements[10].value-2;
if(document.r.elements[2].value!=""){
var num = document.r.elements[2].value;
var denom = 1-document.rsq.elements[2].value;
denom = Math.sqrt(denom);
var t = (num/denom)*Math.sqrt(df);
document.rpair.elements[0].value = num;
document.df.elements[0].value = df;
document.t.elements[0].value = Math.round(t*1000)/1000;
document.pa.elements[0].value = Tcall(buzz(eval(t),eval(df)));
document.pb.elements[0].value = document.pa.elements[0].value/2;
}else{
document.rpair.elements[0].value = "empty";
}<!--end.if/else-->
if(df<0){
document.df.elements[0].value = "??";
document.t.elements[0].value = "??";
}<!--end.if-->
}<!--end.function-->

function ae() {
subwipe();
document.pair.elements[0].value = "AE";
var df = document.r.elements[10].value-2;
if(document.r.elements[3].value!=""){
var num = document.r.elements[3].value;
var denom = 1-document.rsq.elements[3].value;
denom = Math.sqrt(denom);
var t = (num/denom)*Math.sqrt(df);
document.rpair.elements[0].value = num;
document.df.elements[0].value = df;
document.t.elements[0].value = Math.round(t*1000)/1000;
document.pa.elements[0].value = Tcall(buzz(eval(t),eval(df)));
document.pb.elements[0].value = document.pa.elements[0].value/2;
}else{
document.rpair.elements[0].value = "empty";
}<!--end.if/else-->
if(df<0){
document.df.elements[0].value = "??";
document.t.elements[0].value = "??";
}<!--end.if-->
}<!--end.function-->

function bc() {
subwipe();
document.pair.elements[0].value = "BC";
var df = document.r.elements[10].value-2;
if(document.r.elements[4].value!=""){
var num = document.r.elements[4].value;
var denom = 1-document.rsq.elements[4].value;
denom = Math.sqrt(denom);
var t = (num/denom)*Math.sqrt(df);
document.rpair.elements[0].value = num;
document.df.elements[0].value = df;
document.t.elements[0].value = Math.round(t*1000)/1000;
document.pa.elements[0].value = Tcall(buzz(eval(t),eval(df)));
document.pb.elements[0].value = document.pa.elements[0].value/2;
}else{
document.rpair.elements[0].value = "empty";
}<!--end.if/else-->
if(df<0){
document.df.elements[0].value = "??";
document.t.elements[0].value = "??";
}<!--end.if-->
}<!--end.function-->

function bd() {
subwipe();
document.pair.elements[0].value = "BD";
var df = document.r.elements[10].value-2;
if(document.r.elements[5].value!=""){
var num = document.r.elements[5].value;
var denom = 1-document.rsq.elements[5].value;
denom = Math.sqrt(denom);
var t = (num/denom)*Math.sqrt(df);
document.rpair.elements[0].value = num;
document.df.elements[0].value = df;
document.t.elements[0].value = Math.round(t*1000)/1000;
document.pa.elements[0].value = Tcall(buzz(eval(t),eval(df)));
document.pb.elements[0].value = document.pa.elements[0].value/2;
}else{
document.rpair.elements[0].value = "empty";
}<!--end.if/else-->
if(df<0){
document.df.elements[0].value = "??";
document.t.elements[0].value = "??";
}<!--end.if-->
}<!--end.function-->

function be() {
subwipe();
document.pair.elements[0].value = "BE";
var df = document.r.elements[10].value-2;
if(document.r.elements[6].value!=""){
var num = document.r.elements[6].value;
var denom = 1-document.rsq.elements[6].value;
denom = Math.sqrt(denom);
var t = (num/denom)*Math.sqrt(df);
document.rpair.elements[0].value = num;
document.df.elements[0].value = df;
document.t.elements[0].value = Math.round(t*1000)/1000;
document.pa.elements[0].value = Tcall(buzz(eval(t),eval(df)));
document.pb.elements[0].value = document.pa.elements[0].value/2;
}else{
document.rpair.elements[0].value = "empty";
}<!--end.if/else-->
if(df<0){
document.df.elements[0].value = "??";
document.t.elements[0].value = "??";
}<!--end.if-->
}<!--end.function-->

function cd() {
subwipe();
document.pair.elements[0].value = "CD";
var df = document.r.elements[10].value-2;
if(document.r.elements[7].value!=""){
var num = document.r.elements[7].value;
var denom = 1-document.rsq.elements[7].value;
denom = Math.sqrt(denom);
var t = (num/denom)*Math.sqrt(df);
document.rpair.elements[0].value = num;
document.df.elements[0].value = df;
document.t.elements[0].value = Math.round(t*1000)/1000;
document.pa.elements[0].value = Tcall(buzz(eval(t),eval(df)));
document.pb.elements[0].value = document.pa.elements[0].value/2;
}else{
document.rpair.elements[0].value = "empty";
}<!--end.if/else-->
if(df<0){
document.df.elements[0].value = "??";
document.t.elements[0].value = "??";
}<!--end.if-->
}<!--end.function-->

function ce() {
subwipe();
document.pair.elements[0].value = "CE";
var df = document.r.elements[10].value-2;
if(document.r.elements[8].value!=""){
var num = document.r.elements[8].value;
var denom = 1-document.rsq.elements[8].value;
denom = Math.sqrt(denom);
var t = (num/denom)*Math.sqrt(df);
document.rpair.elements[0].value = num;
document.df.elements[0].value = df;
document.t.elements[0].value = Math.round(t*1000)/1000;
document.pa.elements[0].value = Tcall(buzz(eval(t),eval(df)));
document.pb.elements[0].value = document.pa.elements[0].value/2;
}else{
document.rpair.elements[0].value = "empty";
}<!--end.if/else-->
if(df<0){
document.df.elements[0].value = "??";
document.t.elements[0].value = "??";
}<!--end.if-->
}<!--end.function-->

function de() {
subwipe();
document.pair.elements[0].value = "DE";
var df = document.r.elements[10].value-2;
if(document.r.elements[9].value!=""){
var num = document.r.elements[9].value;
var denom = 1-document.rsq.elements[9].value;
denom = Math.sqrt(denom);
var t = (num/denom)*Math.sqrt(df);
document.rpair.elements[0].value = num;
document.df.elements[0].value = df;
document.t.elements[0].value = Math.round(t*1000)/1000;
document.pa.elements[0].value = Tcall(buzz(eval(t),eval(df)));
document.pb.elements[0].value = document.pa.elements[0].value/2;
}else{
document.rpair.elements[0].value = "empty";
}<!--end.if/else-->
if(df<0){
document.df.elements[0].value = "??";
document.t.elements[0].value = "??";
}<!--end.if-->
}<!--end.function-->


function wipe() {
var k = nn;

for (var i=0; i<10; i++) {
document.r.elements[i].value = "";
document.rsq.elements[i].value = "";
}<!--end.for-->
document.r.elements[10].value = "";

for (var i=0; i<k; i++) {
document.a.elements[i].value = ""
document.b.elements[i].value = ""
document.c.elements[i].value = ""
document.d.elements[i].value = ""
document.e.elements[i].value = ""
}
document.pair.elements[0].value = "";
document.rpair.elements[0].value = "";
document.df.elements[0].value = "";
document.t.elements[0].value = "";
document.pa.elements[0].value = "";
document.pb.elements[0].value = "";
}

function subwipe()
{
document.pair.elements[0].value = "";
document.rpair.elements[0].value = "";
document.df.elements[0].value = "";
document.t.elements[0].value = "";
document.pa.elements[0].value = "";
document.pb.elements[0].value = "";
}