function rnd3(x){return Math.round(x*1000)/1000}
function rnd4(x){return Math.round(x*10000)/10000}

function calc_rz()
{
var r = document.fsx.elements[0].value*1;
var rplus = r+1*1;
var rminus = 1-r*1;
var zr = rnd4((Math.log(rplus)-Math.log(rminus))/2);
document.fsx.elements[4].value = zr;

if(document.fsx.elements[1].value>0)
{
var n = document.fsx.elements[1].value*1;
var sdz = rnd4(1/Math.sqrt(n-3));
document.fsx.elements[5].value = sdz;
}
}<!--end.f.calc_rz-->


function wipe_rz()
{
document.fsx.elements[0].value = "";
document.fsx.elements[1].value = "";
document.fsx.elements[4].value = "";
document.fsx.elements[5].value = "";
}<!--end.f.wipe_rz-->


function calccs()
{
if(document.df.elements[0].value>20)
{
alert("df cannot be greater than 20.");
document.df.elements[0].value = 20*1;
}<!--end.if-->
if(document.df.elements[0].value==0)
{
alert("df cannot be zero.");
document.df.elements[0].value = 1*1;
}<!--end.if-->

document.df.elements[0].value = Math.floor(document.df.elements[0].value);

calc_csq();
if(document.p.elements[0].value!="<.0001")
{
document.p.elements[0].value=rnd4(document.p.elements[0].value);
}<!--end.if-->
}<!--end.f.calccs-->

function xsq()
{
document.csq.elements[0].value="";
document.df.elements[0].value="";
document.p.elements[0].value="";
}<!--end.f.wipecs-->

function calcz()
{
if (document.z.elements[0].value=="") {document.z.elements[0].value=1*0;}

document.xjz.elements[0].value = "";
var p1 = 1*0;
var p2 = 1*0;
var pmid = 1*0;
var z = Math.abs(document.z.elements[0].value);

p2 = (((((.000005383*z+.0000488906)*z+.0000380036)*z+.0032776263)*z+.0211410061)*z+.049867347)*z+1;

p2 = Math.pow(p2, -16);
p1 = p2/2;
pmid = 1-p2;
if(z>3.75)
{
document.xjz.elements[0].value = "Large value of z:\rP[one-tail]=\r  "+p1+"\rP[two-tail]=\r  "+p2+"\rArea between=\r  "+pmid;
}<!--end.if-->
pmid = Math.round(pmid*10000)/10000;
document.pmid.elements[0].value = pmid;

p2 = Math.round(p2*10000)/10000;
p1 = Math.round(p1*10000)/10000;
document.p1a.elements[0].value = p1;
document.p1b.elements[0].value = p1;
document.p2.elements[0].value = p2;

if(z>5)
{
document.xjz.elements[0].value = "Probabilities cannot be\rcalculated for values\rof z greater than 5.";
document.p1a.elements[0].value = "~0";
document.p1b.elements[0].value = "~0";
document.p2.elements[0].value = "~0";
document.pmid.elements[0].value = "~1.0";
}<!--end.if-->
}<!--end function calc-->

function wipez()
{
document.z.elements[0].value = "";
document.p1a.elements[0].value = "";
document.p1b.elements[0].value = "";
document.p2.elements[0].value = "";
document.pmid.elements[0].value = "";
document.xjz.elements[0].value = "";
}<!--end function wipe-->


function calct()
{
var t =document.t.elements[0].value*1;
var df = Math.floor(document.dft.elements[0].value);
document.dft.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";
}

if(document.pa.elements[0].value!="<.0001"){
document.pa.elements[0].value = rnd4(document.pa.elements[0].value);
}
if(document.pb.elements[0].value!="<.0001"){
document.pb.elements[0].value = rnd4(document.pb.elements[0].value);
}
}<!--end.f.calct-->

function xt()
{
document.t.elements[0].value = "";
document.dft.elements[0].value = "";
document.pb.elements[0].value = "";
document.pa.elements[0].value = "";
}<!--end.f.xt-->


function fcalc()
{
var fx = document.f.elements[0].value;
var df1 = Math.floor(document.df1.elements[0].value);
document.df1.elements[0].value = df1;
var df2 = Math.floor(document.df2.elements[0].value);
document.df2.elements[0].value = df2;
var p1 = Fcall(Fspin(eval(fx),eval(df1),eval(df2)));
if(p1<.0001||p1>1){p1="<.0001"}
document.pf.elements[0].value = p1;
if(document.pf.elements[0].value!="<.0001"){
document.pf.elements[0].value = rnd4(document.pf.elements[0].value);
}
}<!--end.f.fcalc-->

function fwipe()
{
document.f.elements[0].value = "";
document.df1.elements[0].value = "";
document.df2.elements[0].value = "";
document.pf.elements[0].value = "";
}<!--end.f.fwipe-->

function qcalc()
{
var t = 1*1.6;
var crit0 = 1*0;
var t05 = 1*0;
var t01 = 1*0;
var q05 = 1*0;
var q01 = 1*0;
var k = Math.floor(document.qtab.elements[0].value*1);
document.qtab.elements[0].value= k;
var df = Math.floor(document.qtab.elements[1].value*1);
document.qtab.elements[1].value= df;

for (var j=0; j<10000; j++) {
t+=.005;
crit0 = Tcall(buzz(eval(t),eval(df)));
if(crit0<=.05){t05=t;break;}
}<!--end for-->

for (var j=0; j<10000; j++) {
t+=.005;
crit0 = Tcall(buzz(eval(t),eval(df)));
if(crit0<=.01){t01=t;break;}
}<!--end for-->

if(k==3)
{
q05 = 2.106973*t05-0.817944;
q01 = 1.946821*t01-0.8996111;
}<!--end.if-->

if(k==4)
{
q05 = 2.59017*t05-1.443969;
q01 = 2.303537*t01-1.534593;
}<!--end.if-->

if(k==5)
{
q05 = 2.972018*t05-1.96814;
q01 = 2.587002*t01-2.064423;
}<!--end.if-->

if(k==6)
{
q05 = 3.27313260295899*t05-2.38279010928828;
q01 = 2.85765551110653*t01-2.61819815698612;
}<!--end.if-->

if(k==7)
{
q05 = 3.53785626144803*t05-2.76274478043922;
q01 = 3.04988915773087*t01-2.98527857882349;
}<!--end.if-->

if(k==8)
{
q05 = 3.75342544999978*t05-3.06529742825939;
q01 = 3.21818903063174*t01-3.31378857989615;
}<!--end.if-->

if(k==9)
{
q05 = 3.94085173471745*t05-3.32653946392437;
q01 = 3.37614586515416*t01-3.64658532621697;
}<!--end.if-->

if(k==10)
{
q05 = 4.1063693875735*t05-3.559775633569;
q01 = 3.4911129101093*t01-3.8429755454712;
}<!--end.if-->

document.qtab.elements[2].value = rnd2(q05);
document.qtab.elements[3].value = rnd2(q01);

if(k<3||k>10){
alert("k must be between 3 and 10, inclusive.");
document.qtab.elements[2].value = "";
document.qtab.elements[3].value = "";
}<!--end.if-->

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

function qwipe()
{
for(var i=0; i<4; i++){document.qtab.elements[i].value=""}
}<!--end.f.qwipe-->



function lcalc()
{

}<!--end.f-->

function lwipe()
{
for(var i=0; i<3; i++){document.logr.elements[i].value=""}
}<!--end.l.qwipe-->


function lc1()
{
var p = eval(document.logr.elements[0].value)*1;
var or = p/(1-p);
or = Math.round(or*10000)/10000;
document.logr.elements[1].value = or;
var lor = Math.log(or);
lor = Math.round(lor*10000)/10000;
document.logr.elements[2].value = lor;
if(p>1||p<0)
{
alert("The value of p must fall within the range 0.0~1.0.");
document.logr.elements[1].value = "";
document.logr.elements[2].value = "";

}



}<!--end.f-->

function lc2()
{
var or = eval(document.logr.elements[1].value)*1;
var p = or/(1+or);
p = Math.round(p*10000)/10000;
document.logr.elements[0].value = p;
var lor = Math.log(or);
lor = Math.round(lor*10000)/10000;
document.logr.elements[2].value = lor;
}<!--end.f-->

function lc3()
{
var lor = eval(document.logr.elements[2].value)*1;
var or = Math.exp(lor);
or = Math.round(or*10000)/10000;
document.logr.elements[1].value = or;
var p = or/(1+or);
p = Math.round(p*10000)/10000;
document.logr.elements[0].value = p;
}<!--end.f-->



function rcalc()
{
var n = eval(document.rx.elements[0].value);
var r = eval(document.rx.elements[1].value);
var df = n-2;
document.dfx.elements[0].value =  df;
var t_denom =Math.sqrt( (1-(r*r))/(n-2));
var t = r/t_denom;
document.tx.elements[0].value =  Math.round(t*100)/100;
document.pax.elements[0].value = Tcall(buzz(eval(t),eval(df)));
document.pbx.elements[0].value = Tcall(buzz(eval(t),eval(df)))/2;

if(document.pax.elements[0].value<.0001||document.pax.elements[0].value>1.0)
{document.pax.elements[0].value = "<.0001"}
else{document.pax.elements[0].value=rnd4(document.pax.elements[0].value)}
if(document.pbx.elements[0].value<.0001||document.pbx.elements[0].value>1.0)
{document.pbx.elements[0].value = "<.0001"}
else{document.pbx.elements[0].value=rnd4(document.pbx.elements[0].value)}
if(n<6){
alert("N must be equal to or greater than 6.");
wipe();
}
}<!--end.f.calc-->

function rwipe(){
document.rx.elements[0].value = "";
document.rx.elements[1].value = "";
document.tx.elements[0].value = "";
document.dfx.elements[0].value = "";
document.pax.elements[0].value = "";
document.pbx.elements[0].value = "";
}<!--end.f.wipe-->