function importxy() { var xjx = " "; var vals1 = document.xy.elements[0].value; if(vals1.indexOf("\t")>-1){xjx="\t"} var xjz = " "; if(vals1.indexOf("\r")>-1){xjz="\r"}else{xjz="\n"} vals1 = vals1.split(xjz); var npx = vals1.length; if(vals1[npx-1]==""){npx=npx-1} if(vals1[npx-1]==""){npx=npx-1} if(vals1[npx-1]==""){npx=npx-1} for(var i=0; i function zipx() { for (var i=0; i { if(document.y.elements[i].value !="") { if(1*document.y.elements[i].value <= 1*min) { min = 1*document.y.elements[i].value; } } } } function sort() { min =1*min; for (var p=0; p { document.z.elements[a].value = document.y.elements[p].value; document.y.elements[p].value = ""; a = 1*a+1; } } min = 1*10000; } function spin() { a = 1*0; lz = 1*0; min = 1*10000; b = 1*0; var xxx = 1*0; for (var q=0; q { if(document.x.elements[q].value=="") { xxx = 1*1; } } if(1*xxx>0) { alert("Data error. Please check your data entries."); } for (var q=0; q { if(1*xxx>0) {break}; document.y.elements[q].value = document.x.elements[q].value; } for (var j=0; j { if(1*xxx>0) {break}; zipx(); sort(); } document.y.elements[0].value = 1; for (var q=1; q { 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; } } for (var q=0; q { document.rank.elements[q].value = document.y.elements[q].value; } for (var jj=0; jj { if(1*xxx>0) {break}; a = 1*0; b = 1*0; lz = 1*0; for (var q=0; q { if((1*document.y.elements[q].value)==(1*jj+1)) { a = 1*a+1; b = (1*b)+(1*document.count.elements[q].value); } } if(a>0) { lz = b/a; } for (var s=0; s { if((1*document.y.elements[s].value)==(1*jj+1)) { document.y.elements[s].value = lz; } } } if((1*document.z.elements[0].value)<(1*document.z.elements[1].value)) { document.y.elements[0].value = document.count.elements[0].value; } if((1*document.z.elements[kj-1].value)>(1*document.z.elements[kj-2].value)) { document.y.elements[kj-1].value =document.count.elements[kj-1].value; } for (var j=1; j<(kj-1); j++) { 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; } } for (var jj=0; jj { if(1*xxx>0) {break}; a = 1*0; b = 1*0; lz = 1*0; for (var q=0; q { if((1*document.rank.elements[q].value)==(1*jj+1)) { a = 1*a+1; b = (1*b)+(1*document.count.elements[q].value); } } if(a>0) { lz = b/a; } for (var s=0; s { if((1*document.rank.elements[s].value)==(1*jj+1)) { document.y.elements[s].value = lz; } } } for (var jj=0; jj { if(1*xxx>0) {break}; for (var i=0; i { if(document.x.elements[i].value==document.z.elements[jj].value) { document.rank.elements[i].value = document.y.elements[jj].value; } } } } function calc2() { for (var i=0; i for (var i=0; i spin(); for (var i=0; i for (var i=0; i spin(); for (var i=0; i calc(); for (var i=0; i } function calc() { var sumx = 1*0; var sumy = 1*0; var sumsqx = 1*0; var sumsqy = 1*0; var ssx = 1*0; var ssy = 1*0; var ssxy = 1*0; var jjzz = 1*0; var sumxy = 1*0; n = 1*0; for (var i=0; i 0) {n+=1} } document.nx.elements[0].value = n; for (var i=0; i4, you may assume that your calculated value of r is significant beyond the .05 level for a two-tailed test.")} if (r==-1&&jjzz==0) {alert("With r=-1.0, the value of t cannot be calculated. If n>4, you may assume that your calculated value of r is significant beyond the .05 level for a two-tailed test.")} t_denom = Math.sqrt(1-(r*r)); t = (r*Math.sqrt(n-2))/t_denom; t = Math.round(t*100)/100; document.r.elements[0].value = Math.round(r*10000)/10000; df = n-2; if(n>9) { document.t.elements[0].value = t; document.df.elements[0].value =df; var pa = Tcall(buzz(eval(t),eval(df))); var pb = pa/2; pa = Math.round(pa*1000000)/1000000; if(pa==1*0||pa>1*1||pa<0){pa="<.000001"} pb = Math.round(pb*1000000)/1000000; if(pb==1*0||pb>1*1||pb<0){pb="<.000001"} document.pa.elements[0].value = pa; document.pb.elements[0].value = pb; }else{ document.t.elements[0].value = "---"; document.df.elements[0].value = "---"; document.pa.elements[0].value = "---"; document.pb.elements[0].value = "---"; } if(n<2){document.df.elements[0].value =""} if(jjzz>0) { alert("One of your variables includes zero variability."); document.t.elements[0].value = 1*0; document.r.elements[0].value = 1*0; } } function wipe() { var zd = 1*nn; for (var i=0; i