function nullval(val,msg,err) { var at=val.indexOf("\""); var amsg;
if (trim(val)=='') { err=err+msg+".\n"; return(err); }
if (at>=0) { amsg="Invalid character (character '\"' at #"+at+" in text)."; alert(amsg); }
return("");
}
function trim(str) { return str.replace(/^\s*|\s*$/g,""); }
function mcalc(form) {
var err="", mode=""; var i, line, grp, grp1, grp2, phtm; var ct=0, tot=0, big=0;
var meas=trim(form['MEAS'].value); var repeat=new Array(); var sgrp=new Array();
err=nullval(meas,'Please enter some measurements',err); meas=meas.replace(/\r/g,""); //MSDOS carriage return
var lines=meas.split("\n");
phtm="Measurement Calculator\n";
phtm=phtm+"\n";
phtm=phtm+"\n";
phtm=phtm+"";
var head="| # | height (cm)5-cm interval | total\n";
var nav="\n";
nav=nav+" \n";
nav=nav+" \n";
nav=nav+" \n";
nav=nav+" \n";
nav=nav+" \n |
\n";
nav="";
phtm=phtm + head;
for(i in lines){
line=lines[i]; ct++;
if (line.match(/[^\d.]/)) {
err=err+"Invalid value in line "+ct+": "+line+".\n";
} else {
if (! (line.match(/\d/))) {
err=err+"Incorrect value in line "+ct+": "+line+".\n";
}
}
}
if (err.length>0) { alert(err); return false; }
lines.sort();
for(i in lines){
line=lines[i]; tot+=parseInt(line); hi = line;
if(repeat[line]) { repeat[line]++;
} else { repeat[line]=1; }
//alert(line+"="+repeat[line]+"!");
if(repeat[line] >= big) {
if(repeat[line] > big) {
mode="";
}
big=repeat[line];
mode=mode+", "+line+"("+big+")";
}
grp=Math.floor(lines[i] / 5); grp1=grp*5; grp2=grp1+4;
if(sgrp[grp1]) { sgrp[grp1]++;
} else { sgrp[grp1]=1; }
j=parseInt(i)+1;
phtm=phtm + "\n |
|---|
| "+j+" | "+lines[i]+" | "+grp1+" - "+grp2+" | "+sgrp[grp1]+" |
";
}
if(big == 1) {
mode="None";
} else {
mode=mode.substr(2);
}
mean = Math.round(tot / ct); lo = lines[0];
med = Math.round(ct / 2); median = lines[med-1];
// for(i in lines){ }
phtm=phtm + "\n
" + nav + "Press space bar to continue.
";
phtm=phtm + "\n| Range: | "+lo+" - "+hi+". |
";
phtm=phtm + "\n| Sum: | "+tot+". |
";
phtm=phtm + "\n| Number of students: | "+ct+". |
";
phtm=phtm + "\n| Mean: | "+mean+". |
";
phtm=phtm + "\n| Median (#"+med+"): | "+median+". |
";
phtm=phtm + "\n| Mode: | "+mode+". |
";
phtm=phtm + "\n
Graph:
";
//alert("lo="+lo+" hi="+hi+"?");
var win = window.open("","myWindow","resizable=yes,scrollbars=yes,menubar=yes,width=900,height=620");
doc = win.document.open(); doc.writeln(phtm);
var g = new Graph(460,200); var gdat=new Array(); var gXat=new Array();
for(i=lo; i");
doc.close();
return true;
}