function subwipe() {
document.msamp.elements[0].value = "";
document.msamp.elements[1].value = "";
document.pmean.elements[0].value = "";
document.pcov.elements[0].value = "";
document.pxmp.elements[0].value = "";
}<!--end.f.subwipe-->


function x_calc() {


for (var j=0; j<15; j++) {
for (var i=0; i<15; i++) {
if(document.obsfreq.elements[i].value==""&&document.obsfreq.elements[i+1].value.length>0)
{document.obsfreq.elements[i].value=1*0}
}<!--end.for.i-->
}<!--end.for.j-->



for (var i=0; i<16; i++) {
document.obsprop.elements[i].value = "";
document.rawp.elements[i].value = "";
document.exp.elements[i].value = "";
}<!--end.for-->

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

var nn = 1*0;

for (var i=0; i<n; i++) 
{
nn+= document.obsfreq.elements[i].value*1;
}<!--end.for-->

var obsprop = new Array();
var obsfreq = new Array();

for (var i=0; i<n; i++) 
{
obsfreq[i] = document.obsfreq.elements[i].value*1;
obsprop[i] = obsfreq[i]/nn;
document.obsprop.elements[i].value = Math.round(obsprop[i]*100000)/100000;
}<!--end.for-->

var cs = 1*10000000000000000;
var csnew = 1*0;
var rawp = new Array();
var distp = new Array();
var exp = new Array();
var e = Math.E;
var m = 1*0;
var sump = 1*0;

for (var jjz=0; jjz<15000; jjz++)
{
csnew = 1*0;
m+=.01;
sump = 1*0;

for (var j=0; j<n; j++) {
for(i=1, factr=1; i<j; i++, factr*=i);
rawp[j] = (Math.pow(e, -m)*Math.pow(m, j))/factr;
}<!--end.for.j-->

for (var j=0; j<n; j++) {
exp[j] = rawp[j]*nn;
csnew+= (obsfreq[j]-exp[j])*(obsfreq[j]-exp[j]);
}<!--end.for.j-->
if(csnew<cs){cs=csnew}else{m-=.01;break}
}<!--end.for.jjz-->

for (var j=0; j<n; j++) {
for(i=1, factr=1; i<j; i++, factr*=i);
rawp[j] = (Math.pow(e, -m)*Math.pow(m, j))/factr;
exp[j] = rawp[j]*nn;
}<!--end.for.j-->


for (var j=0; j<n; j++) {
document.obsprop.elements[j].value = Math.round(obsprop[j]*10000)/10000;
document.rawp.elements[j].value = Math.round(rawp[j]*100000)/100000;
document.exp.elements[j].value = Math.round(exp[j]*10000)/10000;
}<!--end.for.j-->

var sx = 1*0;
var sy = 1*0;
var sqx = 1*0;
var sqy = 1*0;
var sxy = 1*0;
var sox = 1*0;
var soxsq = 1*0;
for (var j=0; j<n; j++) {
sx+=obsfreq[j]*1;
sox+=obsfreq[j]*j;
soxsq+=(obsfreq[j]*j*j);
sy+=exp[j]*1;
sqx+=obsfreq[j]*obsfreq[j];
sqy+=exp[j]*exp[j];
sxy+=obsfreq[j]*exp[j];
}<!--end.for.j-->

var ssx = sqx-((sx*sx)/n);
var ssy = sqy-((sy*sy)/n);
var ssxy = sxy-((sx*sy)/n);
var r = ssxy/Math.sqrt(ssx*ssy);
r = Math.round(r*r*100000)/100000;
if(r==1*1){r = "1.0"}
document.pcov.elements[0].value = r;

var msamp = sox/nn;
document.msamp.elements[0].value = Math.round(msamp*100)/100;
document.pmean.elements[0].value = Math.round(m*100)/100;
document.pxmt.elements[0].value = Math.round(m*100)/100;
var varsamp = (soxsq-((sox*sox)/nn))/nn;
document.msamp.elements[1].value = Math.round(varsamp*100)/100;



if (n<4)
 {
alert("Please check your data for incorrect entries.");
subwipe();
}
}<!--end.f.x_calc-->


function x_wipe() {
for (var i=0; i<16; i++) {
document.obsfreq.elements[i].value = "";
document.obsprop.elements[i].value = "";
document.rawp.elements[i].value = "";
document.exp.elements[i].value = "";
}
document.msamp.elements[0].value = "";
document.msamp.elements[1].value = "";
document.pmean.elements[0].value = "";
document.pcov.elements[0].value = "";
document.pxmp.elements[0].value = "";
}<!--end.f.x_wipe-->