Box Plot

// JavaScript var index = 0; var T = new Array(4); var index = 0; var nw = ""; var mean = 0; // this is only for Microsoft Exloprer on Win! var NL="\r\n"; var Delimiters=new Array(); Delimiters[0]=' '; Delimiters[1]='\n'; Delimiters[2]=''; Delimiters[3]='\t'; Delimiters[4]='\r'; Delimiters[5]=''; function sort() { var x=new Array(); x=ParseString(document.theform.data.value ); if (x.length>0) x=bsort(x); document.theform.data.value="Datos ordenados:"+NL for (var j=0;j0) mid1=Math.floor((x.length-1)/2) var mid2=0 if (x.length>0) mid2=Math.ceil((x.length-1)/2) var m=0 var s=0 for (var j=0;j30 ) { document.theform.data.value=document.theform.data.value+NL+" --- stopped: too many stems ---"+NL break; } if (x[j]0) { document.theform.data.value=document.theform.data.value+'x' } else { cutoff+=(x[N-1]-x[0]+.0000001)/n if (x.length>0) { document.theform.data.value=document.theform.data.value+NL+" |" debug++ j-- } } } document.theform.data.value=document.theform.data.value+NL+(x[N-1]+.5*(x[N-1]-x[0])/n) } function boxplot(){ // need to get points and lines var nw=window.open("","hist",'toolbar=1,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=1,width=500,height=360'); if (navigator.appName!="Microsoft Internet Explorer")nw.focus() nw.document.write("Box Plot"); nw.document.write ("") nw.document.write ("") nw.document.write ("") nw.document.write ("") nw.document.write ("") nw.document.write ("") nw.document.write ("") nw.document.write ("") nw.document.write ("") nw.document.write ("") nw.document.write ("

No java

Please use java-enabled browser!") nw.document.write ("
") nw.document.write ("

The box plot is drawn by an applet by Steve Pelikan as part of ") nw.document.write ("OnEx project
"); nw.document.write ("

") nw.document.close(); } function stemLeaf() { var x=new Array(); x=sort() var N=x.length var stem=""; var leaf=""; if (N<1) {alert("Please type your data");N=1} //first guess for number of classes var n=Math.floor(Math.sqrt(2*N)); if (n<1){n=1} if (n>50){n=50} // decimal multiplier upfront var stemScale=1 //increment var delta=1; var n1=Math.floor(N/4) var n2=Math.ceil(3*N/4) var tmp=Math.max(Math.abs(x[n1]),Math.abs(x[n2])) // adjust main stem size using ``middle of the sample" while(Math.abs(tmp/stemScale)>1) {stemScale=stemScale*10;} while (Math.abs(tmp/stemScale)<10){stemScale=stemScale/10;} // temporary value to adjust n, delta tmp=Math.max((x[N-1]-x[0])/n,.00000000001); // adjust increment delta while (deltatmp) {delta=delta/5; if (delta>tmp) delta=delta/2} // may need to increase stemScale while ((x[N-1]-x[0])>(delta+stemScale)*n){stemScale*=10} //var cutoff=stemScale*Math.floor(10*x[0]/stemScale)/10 var cutoff=stemScale*trunc(10*x[0]/stemScale)/10 document.theform.data.value=document.theform.data.value+NL+"Stem and Leaf Plot"+NL var debug=0 for (j=0;j30 ) { document.theform.data.value=document.theform.data.value+NL+" --- stopped: too many stems ---"+NL break; } if (trunc(x[j]/stemScale)=max) tNumInt=1 // check automatic choice with user tNumInt=eval(prompt("¿Cuántos intervalos?",tNumInt)); return tNumInt-1; } function ParseString(string) { var x=new Array(); var tmp=string.indexOf("_") if (tmp>0) string=string.substring(0,tmp) var i=string.indexOf(":")+1 var ii=0; temp=""; while(i x[i+1]) { var t = x[i]; x[i] = x[i+1]; x[i+1] = t; done = false; } } N--; } return x; } function intlabels(y1,y2,tnumint){ var diff =y2-y1; if (diff<0) {diff=-diff; } if (diff==0){diff=.000000001} var x= intervals(diff,tnumint); if (x 100) {break}; } // assign bigger value WB L[i] = yy; L[i+1] = yy+x; return L; } function intervals(diff, NumCats) { var t4 = trunc(Math.log(diff) * 0.4342945); t4 = Math.pow(10,t4); if (t4==0){t4=10/(diff+1);} T[3]= t4; T[2] = t4/2; T[1] = t4/5; T[0] = t4/10; var A = new Array(4); for (i = 0;i < 4; i++) { A[i] = trunc(diff/T[i]) +1; } var D = Math.abs(10 - A[0]); index = 1; for (i = 1; i < 4; i++) { if (A[i] <= 25) { if (A[i] > 2) { XX = Math.abs(NumCats - A[i]); if (XX < D) { D = XX; index = i+1; } } } } return T[index-1]; } function stemandleaf(x) { nw.document.write("Gráfico de Tallos y Hojas"); var didzero = false; var N = x.length; if (N==0){ alert("Please type your data"); } var tNumInt=1; if (N<20) { tNumInt = 5; } else { if (N < 100) { tNumInt = 10; } else { if (N < 150) { tNumInt = 15; } else { tNumInt = 20; } } } if (N<1) {tNumInt=2;} // make sure N-1 is defined if (!N || N<1){N=1} var theMax = x[N-1]; var theMin = x[0]; var BIGFIX=""; if (theMax<0){ BIGFIX="-" for (var i = 0; i < N ; i++) { x[i] *= -1; } x=bsort(x); theMax = x[N-1]; theMin = x[0]; } //alldone = false; var ratio=1; if (theMax - theMin < 10 && theMax>theMin) { ratio = 1000/(theMax - theMin); ratio = Math.max(ratio,1000); if (ratio<=0){ratio=1} ratio = trunc(Math.log(ratio) * 0.4342945); ratio = Math.pow(10,ratio); for (var i = 0; i < N ; i++) { x[i] *= ratio; } } var zcount = 0; theMin = x[0]; var abMin = Math.abs(theMin); theMax = x[N-1]; var Y = intervals(theMax-theMin,tNumInt); var indexA = index +0; var ncats = 1; var newz = 0; if (indexA== 2) { Y *= 5; ncats =5 ; newz = 1; } if(indexA==3) { Y *= 2; ncats = 2; } var cutoffs = intlabels(x[0], x[N-1], tNumInt); theMax = ratio * Math.round(theMax); var nc = cutoffs.length; if (nc<2) {nc=2} var xx8=0; while (cutoffs[nc-2] > Math.abs(theMax) && nc>2) { nc--; } theMax = cutoffs[nc-2]; if (Y > Math.abs(theMax)) { nc++; while(Y > Math.abs(theMax)) { xx8++; if(xx8>100){break;} if (nc > cutoffs.length && nc>2) { var temp = cutoffs[nc-2] - cutoffs[nc - 3]; temp += cutoffs[nc-2]; cutoffs[nc-1] = temp; } theMax = cutoffs[nc-1]; nc++; } } if (Y==0){Y=1} var base = trunc(theMax/Y); if (base==0){base=1} var leftover = Math.round(theMax - base * Y); while (Math.abs(leftover) > 10) { leftover = Math.abs(Math.round(leftover/10)); } var theMax2 = Math.max(theMax,abMin); var t4 = trunc(theMax2/base); if (t4<0){t4=1/Math.abs(theMax)+1} t4 = trunc(Math.log(t4) * .4342945); t4 = Math.pow(10,t4); if (t4==0){t4=1/Math.abs(theMax)+1} var t3 = t4/10; if (indexA == 2) { if (leftover >= 8) { var newz = 1; } else { if (leftover >= 6) { var newz = 0; } else { if (leftover >= 4) { var newz = 4; } else { if (leftover >= 2) { var newz = 3; } else { var newz = 2; } } } } } else { if (indexA == 3) { if (leftover >=5) { var newz = 1; } else { var newz = 0; } } } var start = false; var LN = 1; var LN2 = 0; var nn = N; var cur = cutoffs[nc-2]; var count = nc-2; var base2=base; var newline = true; var stems = new Array(); var leaves = new Array(); stems[0] = base2; leaves[0] = ""; for (var i = nn-1; i >= 0 ; i--) { var it = x[i]; var dd = Math.round(it/t3) * t3; var b = trunc(dd/t4); var L = dd-t4*b; leftover = Math.abs(Math.round(L/t3)); while (leftover >= 10) { leftover = Math.round(leftover/10); } if (it >=0) { var tt = t3; } else { var tt = -t3; } var xz = b * t4 + leftover * tt; if (it<0) { if (xz > 0 ) { xz = xz * -1; } xz -= .00001; } if (xz0){temp= trunc(LN/ncats);} temp = LN - temp*ncats; if(temp == newz) { if (base2 == 0) { if (didzero) { base2 -= 1; } else { didzero = 1; } } else { base2 -= 1; } } count -= 1; if (count < 0) { cur = xz -1000; } else { cur = cutoffs[count]; } if (base2 == 0) { zcount ++; if ( ((indexA == 2) && (zcount >=6)) || ((indexA == 3) && (zcount >=3)) || ((indexA == 1) && (zcount >1)) || ((indexA == 4) && (zcount >1))) { stems[LN2] = "-" + base2; } else { stems[LN2] = base2; } } else { stems[LN2] = base2; } } } start = true; leftover += ""; if (it>=0) { leaves[LN2] = leftover + "" + leaves[LN2]; } else { leaves[LN2] = leaves[LN2] + "" + leftover; } } for (var i = 0; i < N ; i++) { x[i] /= ratio; } nw.document.write ("

");
  nw.document.write (" Tallos Hojas" + "
")
    for (i=0;i");

    }

  nw.document.write ("

"); nw.document.write("

Tallos de tamaño " + t4/ratio + "
") nw.document.write(" Hojas de tamaño " + t3/ratio +"
"+" (Si el Tallo es positivo o por -" + t3/ratio + " si el Tallo es negativo).

"); } //var x=new Array(); function main() { nw = window.open("","Output", "toolbar=no,location=no,directories=no,status=no,menubar=yes,scrollbars=yes,resizable=yes,width=350,height=350"); if (navigator.appName!="Microsoft Internet Explorer") nw.focus() nw.document.clear() nw.document.write("Diagrama de tallos y hojas"); //Parse the data from the field data //ParseString(document.theform.data.value );//Now x has the data //x=bsort(x);//Macs and Bill G's product don't do array.sort() var x=new Array(); x=sort(); stemandleaf(x); nw.document.write("

"); nw.document.close(); } function compare (a,b) { return a-b; }