// (c) Link-Systems International, Inc. (1999)
exld=false;function gcd(val1,val2)
{var r_i=Math.abs(eval(val1));var r_ip1=Math.abs(eval(val2));var temp,result;if(r_i==0||r_ip1==0)
result=Math.max(r_i,r_ip1);else
{while(r_ip1!=0)
{temp=r_ip1;r_ip1=r_i -Math.floor(r_i/r_ip1)*r_ip1;r_i=temp;}result=r_i;}return result;}function term(x,y)
{var xval=eval(x);var z,xs;xs=n93(xval,'R.-1');switch(xval){case 0: z="";break;case -1: if(y!=null&&y!="")z='-'+y;else z='-1';break;case 1: if(y!=null&&y!="")z='+'+y;else z='+1';break;default: if(xval<0)z=""+xs+y;else z="+"+xs+y;}return z;}function n18(x,y)
{var xval=eval(x);var z,xs;xs=n93(xval,'R.-1');switch(xval){case 0: z="";break;case -1: if(y!=null&&y!="")z='-'+y;else z='-1';break;case 1: if(y!=null&&y!="")z=y;else z='1';break;default: z=""+xs+y;}return z;}function n75(num){var i,j;var result=1;num=Math.abs(num);if(num<4){return 1}for(i=2;i<40;i++){j=i* i;while(num% j==0){result*=j;num/=j;}if(num<j){return result}}return result;}
function n122(s)
{var result="";result=n107(s);return result;}function n105(s)
{var result="";result=n107(s);return result;}function stack(ts,bs)
{var result="";result+="<table hspace=4 cellspacing=0 cellpadding=0 border=0>"+"<tr><td nowrap align=\"center\" valign=\"bottom\">"+ts+"<\/td><\/tr>"+"<tr><td nowrap align=\"center\" valign=\"top\">"+bs+"<\/td><\/tr>"+"</table>";return result;}function n125(bs,ts)
{return n120(bs,ts,'int');}function n111(x,m,n,s)
{var mrows,ncols,result,cur_elem;var elems=new Array();cur_elem=0;result="";elems=s.split(",");if((m*n)!=(elems.length))return null;if((x=="mat")||(x=="det")){result+="<img src=\"chars/space.gif\" width=1 height=1>"+"<table cellpadding=0 cellspacing=0 border=0>"+"<tr><td bgcolor=\"black\" width=1 rowspan="+(m+4)+"><img src=\"chars/bdot.gif\""+" height="+(m*10)+" width=1></td>";}else if(x=="paren"){result+="<img src=\"chars/space.gif\" width=1 height=1>"+"<table cellpadding=0 cellspacing=0 border=0>"+"<tr><td width=11 rowspan="+(m+4)+" valign=middle align=center><img src=\"chars/parenleft.gif\""+" height="+(m*20)+" width=6 border=0></td>"+"<td colspan="+n+"><img src=\"chars/space.gif\"></td>"+"<td width=11 rowspan="+(m+4)+" valign=middle align=center><img src=\"chars/parenright.gif\""+" height="+(m*20)+" width=6></td></tr>";}
if(x=="mat"){result+="<td bgcolor=\"black\" width=7 height=1>"+"<img src=\"chars/bdot.gif\" width=7 height=1></td>"+"<td colspan="+n+"><img src=\"chars/space.gif\"></td>"+"<td bgcolor=\"black\" width=7 height=1>"+"<img src=\"chars/bdot.gif\" width=7 height=1></td>";}else if(x=="det"){result+="<td width=4 height=1>"+"<img src=\"chars/space.gif\" width=4 height=1></td>"+"<td colspan="+n+"><img src=\"chars/space.gif\"></td>"+"<td width=4 height=1>"+"<img src=\"chars/space.gif\" width=4 height=1></td>";}
if((x=="mat")||(x=="det")){result+=
"<td bgcolor=\"black\" width=1 rowspan="+(m+4)+"><img src=\"chars/bdot.gif\""+" height="+m*10+" width=1></td></tr>"+"<tr><td rowspan="+(m+2)+"><img src=\"chars/space.gif\" width=1 height=1></td>"+"<td colspan="+n+"><img src=\"chars/space.gif\" width=1 height=1></td>"+"<td rowspan="+(m+2)+"><img src=\"chars/space.gif\" width=1 height=1</td></tr>";}
for(mrows=0;mrows<m;mrows++){result+="<tr>";for(ncols=0;ncols<n;ncols++){result+=
"<td align=center valign=middle nowrap>&nbsp;"+elems[cur_elem]+"&nbsp;</td>";cur_elem++;}result+="</tr>";}result+="<tr><td colspan="+n+"><img src=\"chars/space.gif\" height=1"+" width=1></td></tr>";if(x=="mat"){result+="<tr><td bgcolor=\"black\" width=7 height=1>"+"<img src=\"chars/bdot.gif\" width=7 height=1></td>"+"<td colspan="+n+"><img src=\"chars/space.gif\"></td>"+"<td bgcolor=\"black\" width=7 height=1>"+"<img src=\"chars/bdot.gif\" width=7 height=1></td></tr>";}else if(x=="det"){result+="<tr><td width=4 height=1>"+"<img src=\"chars/space.gif\" width=4 height=1></td>"+"<td colspan="+n+"><img src=\"chars/space.gif\"></td>"+"<td width=4 height=1>"+"<img src=\"chars/space.gif\" width=4 height=1></td></tr>";}
result+="</table><img src=\"chars/space.gif\" width=1 height=1>";return(result);}function n127(m,n,p,s)
{var rows,cols,result,cur_elem;var elems=new Array();cur_elem=0;result="";elems=s.split(",");if((m*n)!=(elems.length))
return null;result+="<img src=\"chars/space.gif\" width=1 height=1>"+"<table cellspacing=0 cellpadding=0 border=0>"+"<tr><td rowspan="+(4+m)+" width=1 bgcolor=\"black\"><img"+" src=\"chars/bdot.gif\" height="+m*10+" width=1 border=0></td>"+"<td width=7 height=1 bgcolor=\"black\"><img src=\"chars/bdot.gif\""+" height=1 width=7 border=0></td><td colspan="+(n+1)+"><img src="+"\"chars/space.gif\" width=1 height=1 border=0></td>"+"<td width=7 height=1 bgcolor=\"black\"><img src=\"chars/bdot.gif\""+" height=1 width=7 border=0></td><td rowspan="+(4+m)+" bgcolor=\"black\"><img src=\"chars/bdot.gif\" height="+m*9+" border=0 width=1></td></tr>"+"<tr><td rowspan="+(m+2)+"><img src=\"chars/space.gif\" height=1"+" width=1 border=0></td><td colspan="+(n-p)+"><img src=\"chars/space.gif\""+" height=2 width=1 border=0></td><td rowspan="+(m+2)+" bgcolor=\"black\" width=1>"+"<img src=\"chars/bdot.gif\" width=1 height="+m*10+" border=0></td>"+"<td colspan="+p+"><img src=\"chars/space.gif\" height=2 width=1 border=0></td>"+"<td rowspan="+(m+2)+"><img src=\"chars/space.gif\" height=1"+" width=1 border=0></td></tr>";
for(rows=0;rows<m;rows++){result+="<tr>";for(cols=0;cols<n;cols++){result+=
"<td align=center valign=center nowrap>&nbsp;"+elems[cur_elem]+"&nbsp;</td>";cur_elem++;}result+="</tr>";}result+=
"<tr><td colspan="+(n-p)+"><img src=\"chars/space.gif\" height=2"+" width=1 border=0></td><td colspan="+p+"><img src=\"chars/space.gif\""+" height=2 width=1 border=0></td></tr>"+"<tr><td width=7 height=1 bgcolor=\"black\">"+"<img src=\"chars/bdot.gif\" height=1 width=7 border=0></td>"+"<td colspan="+(n+1)+"><img src=\"chars/space.gif\" height=1"+" width=1 border=0></td><td width=7 height=1 bgcolor=\"black\">"+"<img src=\"chars/bdot.gif\" height=1 width=7 border=0></td></tr></table>"+"<img src=\"chars/space.gif\" height=1 width=1>";
return(result);}function n106(num,den)
{var rnum,rden,result;result="";if(den==0)return"0 in the denominator!";if(num%den==0)result+=num/den;else
{rnum=num/(gcd(num,den));rden=den/(gcd(num,den));if(((rden<0)&&(rnum<0))||((rden<0)&&(rnum>0)))
{rden=-1*rden;rnum=-1*rnum;}result+="<sup>"+rnum+"</sup>/<sub>"+rden+"</sub>";}return result;}function n126(n,r)
{var result="";result+="<table cellspacing=0 cellpadding=1 border=0>"+"<tr>"+"<td nowrap valign=middle rowspan=4>"+"<img src=\"chars/parenleft.gif\" height=50 width=6 border=0></td>"+"<td align=center>"+"<img src=\"chars/space.gif\" height=5 width=1 border=0></td>"+"<td valign=middle nowrap rowspan=4>"+"<img src=\"chars/parenright.gif\" height=50 width=6 border=0></td>"+"</tr>"+"<tr height=20>"+"<td valign=top align=center>"+n+"</td>"+"</tr>"+"<tr height=20>"+"<td valign=bottom align=center>"+r+"</td>"+"</tr>"+"<tr>"+"<td align=center>"+"<img src=\"chars/space.gif\" height=5 width=1 border=0></td>"+"</tr>"+"</table>";
return result;}function factorial(n){var i;var result=1;if(n<0){return -1}if(n<=1){return 1}for(i=2;i<=n;i++){result*=i;}return result;}function n135(n,r){if(n<0||r<0){return -1}if(r>n){return 0}result=factorial(n)/(factorial(r)*factorial(n-r));return result;}
function bc(n,r)
{return n135(n,r);}function n144(p,n,r)
{var result;if((p<0)||(n<1)||(r<0)||(p>=1)||(!p)||(!n))return"null";result=n135(n,r)*Math.pow(p,r)*Math.pow(eval(1-p),eval(n-r));return result;}function n52(l,r)
{var result;if((!l)||(!r)||(l<=0)||(r<0))return"null";result=eval((Math.pow(Math.E,-l)*Math.pow(l,r))/(factorial(r)));return result;}function n29(z)
{var fnx,result;if((!z)||(z<0)||(z>4))return"null";fnx=new String("Math.pow(Math.E,(-Math.pow(x,2)/2))");result=eval(simpson(fnx,0,z,'n',6));result*=1/(Math.sqrt(2*Math.PI));return result;}function n21(m,x,df)
{var index1,index2,result;var ttable=new Array();if((!m)||(!x)||(!df)||(df<=0)||(df>30))return"null";if(m=='c')index1=eval(x);else if(m=='a1')index1=eval(1-(2*x));else if(m=='a2')index1=eval(1-x);else return"null";if(index1==0.75)index1=0;else if(index1==0.8)index1=1;else if(index1==0.85)index1=2;else if(index1==0.9)index1=3;else if(index1==0.95)index1=4;else if(index1==0.98)index1=5;else if(index1==0.99)index1=6;else return"null";
index2=eval(Math.floor(df));ttable[0]=new Array(2.414,1.604,1.423,1.344,1.301,1.273,1.254,1.24,1.23,1.221,1.214,1.209,1.204,1.2,1.197,1.194,1.191,1.189,1.187,1.185,1.183,1.182,1.18,1.179,1.178,1.177,1.176,1.175,1.174,1.173);ttable[1]=new Array(3.078,1.886,1.638,1.533,1.476,1.44,1.415,1.397,1.383,1.372,1.363,1.356,1.35,1.345,1.341,1.337,1.333,1.33,1.328,1.325,1.323,1.321,1.319,1.318,1.316,1.315,1.314,1.313,1.311,1.31);ttable[2]=new Array(4.165,2.282,1.924,1.778,1.699,1.65,1.617,1.592,1.574,1.559,1.548,1.538,1.53,1.523,1.517,1.512,1.508,1.504,1.5,1.497,1.494,1.492,1.489,1.487,1.485,1.483,1.482,1.48,1.479,1.477);ttable[3]=new Array(6.314,2.92,2.353,2.132,2.015,1.943,1.895,1.86,1.833,1.812,1.796,1.782,1.771,1.761,1.753,1.746,1.74,1.734,1.729,1.725,1.721,1.717,1.714,1.711,1.708,1.706,1.703,1.701,1.699,1.697);ttable[4]=new Array(12.706,4.303,3.182,2.776,2.571,2.447,2.365,2.306,2.262,2.228,2.201,2.179,2.16,2.145,2.131,2.12,2.11,2.101,2.093,2.086,2.08,2.074,2.069,2.064,2.06,2.056,2.052,2.048,2.045,2.042);ttable[5]=new Array(31.821,6.965,4.541,3.747,3.365,3.143,2.998,2.896,2.821,2.764,2.718,2.681,2.65,2.624,2.602,2.583,2.567,2.552,2.539,2.528,2.518,2.508,2.5,2.492,2.485,2.479,2.473,2.467,2.462,2.457);ttable[6]=new Array(63.657,9.925,5.841,4.604,4.032,3.707,3.499,3.355,3.25,3.169,3.106,3.055,3.012,2.977,2.947,2.921,2.898,2.878,2.861,2.845,2.831,2.819,2.807,2.797,2.787,2.779,2.771,2.763,2.756,2.75);
return ttable[index1][eval(index2-1)];}function n51(n,a,x)
{var y,index1,index2,result;var ttable=new Array();if((!n)||(!a)||(!x)||(n<3)||(n>30))return"null";index2=eval(n-3);y=eval(a*x);if(y==0.01)index1=0;else if(y==0.02)index1=1;else if(y==0.05)index1=2;else if(y==0.10)index1=3;else return"null";ttable[0]=new Array(1.00,0.98,0.93,0.88,0.83,0.79,0.75,0.72,0.69,0.66,0.63,0.61,0.59,0.57,0.56,0.54,0.53,0.52,0.50,0.49,0.48,0.47,0.46,0.45,0.45,0.44,0.43,0.42);ttable[1]=new Array(1.00,0.99,0.96,0.92,0.87,0.83,0.80,0.76,0.73,0.71,0.68,0.66,0.64,0.61,0.61,0.59,0.58,0.56,0.55,0.54,0.53,0.52,0.51,0.50,0.49,0.48,0.47,0.46);ttable[2]=new Array(0.99,0.90,0.81,0.73,0.67,0.62,0.58,0.54,0.52,0.50,0.48,0.46,0.44,0.42,0.41,0.40,0.39,0.38,0.37,0.36,0.35,0.34,0.34,0.33,0.32,0.32,0.31,0.31);ttable[3]=new Array(1.00,0.95,0.88,0.81,0.75,0.71,0.67,0.63,0.60,0.58,0.53,0.53,0.51,0.50,0.48,0.47,0.46,0.44,0.43,0.42,0.41,0.40,0.40,0.39,0.38,0.37,0.37,0.36);return ttable[index1][index2];}
function n137(df,a)
{var index1,index2,result;var ttable=new Array();if((!df)||(!a)||(df<0)||(df>30))return"null";if(a==0.995)index1=0;else if(a==0.990)index1=1;else if(a==0.975)index1=2;else if(a==0.950)index1=3;else if(a==0.900)index1=4;else if(a==0.100)index1=5;else if(a==0.050)index1=6;else if(a==0.025)index1=7;else if(a==0.010)index1=8;else if(a==0.005)index1=9;else return"null";index2=eval(df-1);
ttable[0]=new Array(0.0000393,0.0100,0.072,0.207,0.412,0.676,0.989,1.34,1.73,2.16,2.60,3.07,3.57,4.07,4.60,5.14,5.70,6.26,6.84,7.43,8.03,8.64,9.26,9.89,10.52,11.16,11.81,12.46,13.21,13.79);ttable[1]=new Array(0.000157,0.0201,0.115,0.297,0.554,0.872,1.24,1.65,2.09,2.56,3.05,3.57,4.11,4.66,5.23,5.81,6.41,7.01,7.63,8.26,8.90,9.54,10.20,10.86,11.52,12.20,12.88,13.56,14.26,14.95);
ttable[2]=new Array(0.000982,0.0506,0.216,0.484,0.831,1.24,1.69,2.18,2.70,3.25,3.82,4.40,5.01,5.63,6.26,6.91,7.56,8.23,8.91,8.59,10.28,10.98,11.69,12.40,13.12,13.84,14.57,15.31,16.05,16.79);ttable[3]=new Array(0.00393,0.103,0.352,0.711,1.145,1.64,2.17,2.73,3.33,3.94,4.57,5.23,5.89,6.57,7.26,7.96,8.67,9.39,10.12,10.85,11.59,12.34,13.09,13.85,14.61,15.38,16.15,16.93,17.71,18.49);
ttable[4]=new Array(0.0158,0.211,0.584,1.064,1.61,2.20,2.83,3.49,4.17,4.87,5.58,6.30,7.04,7.79,8.55,9.31,10.09,10.86,11.65,12.44,13.24,14.04,14.85,15.66,16.47,17.29,18.11,18.94,19.77,20.60);ttable[5]=new Array(2.71,4.61,6.25,7.78,9.24,10.64,12.02,13.36,14.68,15.99,17.28,18.55,19.81,21.06,22.31,23.54,24.77,25.99,27.20,28.41,29.62,30.81,32.01,33.20,34.38,35.56,36.74,37.92,39.09,40.26);
ttable[6]=new Array(3.84,5.99,7.81,9.49,11.07,12.59,14.07,15.51,16.92,18.31,19.68,21.03,22.36,23.68,25.00,26.30,27.59,28.87,30.14,31.41,32.67,33.92,35.17,36.42,37.65,38.89,40.11,41.34,42.56,43.77);ttable[7]=new Array(5.02,7.38,9.35,11.14,12.83,14.45,16.01,17.53,19.02,20.48,21.92,23.34,24.74,26.12,27.49,28.85,30.19,31.53,32.85,34.17,35.48,36.78,38.08,39.36,40.65,41.92,43.19,44.46,45.72,46.98);
ttable[8]=new Array(6.63,9.21,11.34,13.28,15.09,16.81,18.48,20.09,21.67,23.21,24.72,26.22,27.69,29.14,30.58,32.00,33.41,34.81,36.19,37.57,38.93,40.29,41.64,42.98,44.31,45.64,46.96,48.28,49.59,50.89);ttable[9]=new Array(7.88,10.60,12.84,14.86,16.75,18.55,20.28,21.96,23.59,25.19,26.76,28.30,29.82,31.32,32.80,34.27,35.72,37.16,38.58,40.00,41.40,42.80,44.18,45.56,46.93,48.29,49.64,50.99,52.34,53.67);
return ttable[index1][index2];}function n96(x,y,a)
{var z,index1,index2,result;var ttable=new Array();if((!x)||(!y)||(!a)||(x<0)||(x>10)||(y<0)||(y>10))return"null";index1=eval(x-1);z=eval(y+a);if(z==1.050)index2=0;else if(z==1.025)index2=1;else if(z==1.010)index2=2;else if(z==2.050)index2=3;else if(z==2.025)index2=4;else if(z==2.010)index2=5;else if(z==3.050)index2=6;else if(z==3.025)index2=7;else if(z==3.010)index2=8;else if(z==4.050)index2=9;else if(z==4.025)index2=10;else if(z==4.010)index2=11;else if(z==5.050)index2=12;else if(z==5.025)index2=13;else if(z==5.010)index2=14;else if(z==6.050)index2=15;else if(z==6.025)index2=16;else if(z==6.010)index2=17;else if(z==7.050)index2=18;else if(z==7.025)index2=19;else if(z==7.010)index2=20;else if(z==8.050)index2=21;else if(z==8.025)index2=22;else if(z==8.010)index2=23;else if(z==9.050)index2=24;else if(z==9.025)index2=25;else if(z==9.010)index2=26;else if(z==10.050)index2=27;else if(z==10.025)index2=28;else if(z==10.010)index2=29;else return"null";ttable[0]=new Array(161.45,647.79,4052.2,18.51,38.51,98.50,10.13,17.44,34.12,7.71,12.22,21.20,6.61,10.01,16.26,5.99,8.81,13.75,5.59,8.07,12.25,5.32,7.57,11.26,5.12,7.21,10.56,4.96,6.94,10.04);ttable[1]=new Array(199.50,799.50,4999.5,19.00,39.00,99.00,9.55,16.04,30.82,6.94,10.65,18.00,5.79,8.43,13.27,5.14,7.26,10.92,4.74,6.54,9.55,4.46,6.06,8.65,4.26,5.71,8.02,4.10,5.46,7.56);ttable[2]=new Array(215.71,864.16,5403.4,19.16,39.17,99.17,9.28,15.44,29.46,6.59,9.98,16.69,5.41,7.76,12.06,4.76,6.60,9.78,4.35,5.89,8.45,4.07,5.42,7.59,3.86,5.08,6.99,3.71,4.83,6.55);ttable[3]=new Array(224.58,899.58,5624.6,19.25,39.25,99.25,9.12,15.10,28.71,6.39,9.60,15.98,5.19,7.39,11.39,4.53,6.23,9.15,4.12,5.52,7.85,3.84,5.05,7.01,3.63,4.72,6.42,3.48,4.47,5.99);ttable[4]=new Array(230.16,921.85,5763.6,19.30,39.30,99.30,9.01,14.88,28.24,6.26,9.36,15.52,5.05,7.15,10.97,4.39,5.99,8.75,3.97,5.29,7.46,3.69,4.82,6.63,3.48,4.48,6.06,3.33,4.24,5.64);
ttable[5]=new Array(233.99,937.11,5859.0,19.33,39.33,99.33,8.94,14.73,27.91,6.16,9.20,15.21,4.95,6.98,10.67,4.28,5.82,8.47,3.87,5.12,7.19,3.58,4.65,6.37,3.37,4.32,5.80,3.22,4.07,5.39);ttable[6]=new Array(236.77,948.22,5928.4,19.35,39.36,99.36,8.89,14.62,27.67,6.09,9.07,14.98,4.88,6.85,10.46,4.21,5.70,8.26,3.79,4.99,6.99,3.50,4.53,6.18,3.29,4.20,5.61,3.14,3.95,5.20);ttable[7]=new Array(238.88,956.66,5981.1,19.37,39.37,99.37,8.85,14.54,27.49,6.04,8.98,14.80,4.82,6.76,10.29,4.15,5.60,8.10,3.73,4.90,6.84,3.44,4.43,6.03,3.23,4.10,5.47,3.07,3.85,5.06);ttable[8]=new Array(240.54,963.28,6022.5,19.38,39.39,99.39,8.81,14.47,27.35,6.00,8.90,14.66,4.77,6.68,10.16,4.10,5.52,7.98,3.68,4.82,6.72,3.39,4.36,5.91,3.18,4.03,5.35,3.02,3.78,4.94);ttable[9]=new Array(241.88,968.63,6055.8,19.40,39.40,99.40,8.79,14.42,27.23,5.96,8.84,14.55,4.74,6.62,10.05,4.06,5.46,7.87,3.64,4.76,6.62,3.35,4.30,5.81,3.14,3.96,5.26,2.98,3.72,4.85);return ttable[index1][index2];
}function src(n,s,x)
{var y,index1,index2,result;var ttable=new Array();if((!n)||(!s)||(!x)||(n<7)||(n>30)||(x<1)||(x>2))return"null";if(x==1)y=eval(s);else y=eval(s/2);if(y==0.05)index1=0;else if(y==0.025)index1=1;else if(y==0.005)index1=2;else if(y==0.001)index1=3;else return"null";
index2=eval(n-7);ttable[0]=new Array(0.715,0.620,0.600,0.564,0.537,0.504,0.484,0.464,0.447,0.430,0.415,0.402,0.392,0.381,0.371,0.361,0.353,0.345,0.337,0.331,0.325,0.319,0.312,0.307);ttable[1]=new Array(0.786,0.715,0.700,0.649,0.619,0.588,0.561,0.539,0.522,0.503,0.488,0.474,0.460,0.447,0.437,0.426,0.417,0.407,0.399,0.391,0.383,0.376,0.369,0.363);ttable[2]=new Array(0.929,0.881,0.834,0.794,0.764,0.735,0.704,0.680,0.658,0.636,0.618,0.600,0.585,0.570,0.556,0.544,0.532,0.521,0.511,0.501,0.493,0.484,0.475,0.467);ttable[3]=new Array(1.000,0.953,0.917,0.879,0.855,0.826,0.797,0.772,0.750,0.730,0.711,0.693,0.676,0.661,0.647,0.633,0.620,0.608,0.597,0.587,0.577,0.567,0.558,0.549);return ttable[index1][index2];}
function n128(n,s,x)
{var i,result;var parts=new Array();result="";parts=s.split(",");if((parts.length)!=(2*n))return null;else
{result+="<table cellpadding=1 cellspacing=0 border=0>";for(i=0;i<(2*n);i=i+2)
{result+="<tr><td align=right>"+parts[i]+"</td>"+"<td>&nbsp;"+x+"&nbsp;</td>"+"<td align=left>"+parts[i+1]+"</td></tr>";}result+="</table>";return result;}}function n97(x,pre_char)
{var i,j;var top_factor;var possible_factors=new Array();var factors_of_x;j=0;top_factor=Math.floor(Math.sqrt(x));for(i=1;i<=top_factor;i++)
{if(x%i==0)
{possible_factors[j]=i;if(i!=(x/i))
{possible_factors[j+1]=x/i;j=j+2;}else j++;}}possible_factors.sort(function(a,b){return a-b;});factors_of_x=possible_factors.join(','+pre_char);return factors_of_x;}function n86(x,p)
{var all_factors=new Array();all_factors=(n97(x,'')).split(',');if((p<1)||(p>all_factors.length))return null;else return all_factors[p-1];}function n110(x,s)
{var i=0,j=0;var factor_list=new Array();var base_list=new Array();var exp_list=new Array();var result="<nobr>";x=eval(x);for(i=0;x!=1;i++)
{factor_list[i]=n86(x,2);x=x/factor_list[i];}factor_list=factor_list.sort(function numord(a,b){return a-b;});if(s=='e')
{base_list[0]=factor_list[0];exp_list[0]=1;for(i=1,j=1;i<factor_list.length;i++)
{if(factor_list[i]==base_list[j-1])
{exp_list[j-1]++;}else
{base_list[j]=factor_list[i];exp_list[j]=1;j++;}}for(i=0;i<base_list.length;i++)
{result+=base_list[i];if(exp_list[i]>1)result+="<sup>"+exp_list[i]+"</sup>";if(i<base_list.length-1)result+="&nbsp;<img src=\"chars/dotmath.gif\">&nbsp;";else result+="</nobr>";}return result;}else
return factor_list.join('&nbsp;<img src=\"chars/dotmath.gif\">&nbsp;');}function n121(x,y,s)
{var tempx;tempx=x/gcd(x,y);y=y/gcd(x,y);x=tempx;if(y<0)
{y=y*-1;x=x*-1;}if(s=='n')return x;else if(s=='d')return y;else if(s=='f')
return"<table cellpadding=0 cellspacing=0 border=0><tr><td>&nbsp;</td><td>"+"<table cellpadding=0 cellspacing=0 border=0>"+"<tr><td nowrap valign=center align=center>"+x+"</td></tr>"+"<tr><td nowrap height=1 bgcolor=black><img src=\"gifs/space.gif\" height=1 width=1 border=0></td></tr>"+"<tr><td nowrap valign=center align=center>"+y+"</td></tr>"+"</table></td><td>&nbsp;</td></tr></table>";else if(s=='r1')
{if(y==1)return x;else if(y==-1)return -x;else
return"<table cellpadding=0 cellspacing=0 border=0><tr><td>&nbsp;</td><td>"+"<table cellpadding=0 cellspacing=0 border=0>"+"<tr><td nowrap valign=center align=center>"+x+"</td></tr>"+"<tr><td nowrap height=1 bgcolor=black><img src=\"gifs/space.gif\" height=1 width=1 border=0></td></tr>"+"<tr><td nowrap valign=center align=center>"+y+"</td></tr>"+"</table></td><td>&nbsp;</td></tr></table>";}else return"<b>Error in n121!</b>";}
function n74(x,y)
{var z;z=gcd(x,y);x=x/z;y=y/z;z=z*x*y;return z;}function n104(top,bottom)
{return("<table cellpadding=0 cellspacing=0 border=0>"+"<tr><td align=center valign=center>"+"<font size=-2>"+top+"</font></td></tr>"+"<tr><td align=center valign=center>"+"<img src=\"chars/sum.gif\" width=20 height=22></td></tr>"+"<tr><td align=center valign=center>"+"<font size=-2>"+bottom+"</font></td></tr></table>");}
function n28(arg1,arg2)
{if(arg1<arg2)
return -1;if(arg1>arg2)
return 1;if(arg1==arg2)
return 0;}function n85(s,t)
{var numbers_to_order=new Array();numbers_to_order=s.split(",");for(i=0;i<numbers_to_order.length;i++)numbers_to_order[i]=numbers_to_order[i] -0;numbers_to_order.sort(n28);return numbers_to_order[t-1];}function n124(n,s)
{var i,result;var parts=new Array();result="";parts=s.split(":");result+="<table cellpadding=1 cellspacing=0 border=0>";for(i=0;i<(n*4);i=i+4)
{result+="<tr><td align=right valign=middle>"+parts[i]+"</td>"+"<td align=center valign=middle>&nbsp;"+parts[i+1]+"&nbsp;</td>"+"<td align=left valign=middle>"+parts[i+2]+"</td>"+"<td align=left valign=middle>&nbsp;&nbsp;"+parts[i+3]+"</td></tr>";}result+="</table>";
return result;}function n107(rad,index,h)
{rad=new String(rad);var result;var rlh;if((!index)||(index==2))index="";if(!h)h=0;if(!(h>=20))
{h=20;if(rad.indexOf("<sub>")>=0)h+=3;if(rad.indexOf("<sup>")>=0)h+=3;if(rad.indexOf("<table")>=0)h=2*h;}rlh=parseInt(eval(h*(0.33)));if(rlh<8)rlh=8;if(rad.indexOf('<table')>=0){rad="<innertable cellpadding=0 cellspacing=0 border=0><tr><td>"+rad;rad=rad.replace(/<table/ig,"</td><td><innertable");rad=rad.replace(/<\/table/ig,"</innertable></td><td");rad=rad+"</td></tr></innertable>";}
result=
"<table cellpadding=0 cellspacing=0 border=0>"+"<tr>"+"<td nowrap valign=bottom height="+eval(h-rlh)+" align=right><font size=-2>"+index+"</font></td>"+"<td nowrap valign=middle rowspan=2><img src=\"chars/radright.gif\" border=0 width=5 height="+h+"></td>"+"<td nowrap rowspan=2>"+"<innertable cellpadding=0 cellspacing=0 border=0 height="+h+">"+"<tr><td nowrap height=1 width=100% bgcolor=black><img src=\"chars/blackdot.gif\" border=0 height=1></td></tr>"+"<tr><td nowrap height="+eval(h-1)+" valign=middle>"+rad+"</td></tr>"+"</innertable>"+"</td>"+"</tr>"+"<tr>"+"<td nowrap valign=bottom><img src=\"chars/radleft.gif\" border=0 width=6 height="+rlh+"></td>"+"</tr>"+"</table>";
return result;}function n123(num,den)
{var result="";var numArray=new Array();var denArray=new Array();var i,j;num=""+num;den=""+den;numArray=num.split(":");denArray=den.split(":");result+="<table cellpadding=0 cellspacing=0 border=0><tr><td align=center valign=middle>"+"<table cellpadding=0 cellspacing=0 border=0 align=center><tr>";
for(i=0;i<numArray.length;i++)
{if((numArray[i].indexOf('n107')>=0)||(numArray[i].indexOf('n123')>=0))
numArray[i]=eval(numArray[i]);result+="<td nowrap align=center valign=middle> "+numArray[i];if(i!=numArray.length-1)result+="&nbsp;";result+="</td>";}result+="</tr></table></td></tr>"+"<tr><td bgcolor=black height=1 width=100%><img src=\"chars/blackdot.gif\" border=0></td></tr>"+"<tr><td align=center valign=middle>"+"<table cellpadding=0 cellspacing=0 border=0 align=center><tr>";
for(j=0;j<denArray.length;j++)
{if((denArray[j].indexOf('n107')>=0)||(denArray[j].indexOf('n123')>=0))
denArray[j]=eval(denArray[j]);result+="<td align=center valign=middle> "+denArray[j];if(j!=denArray.length-1)result+="&nbsp;";result+="</td>";}result+="</tr></table></td></tr></table>";return result;}function simpson(fnx,lbound,ubound,m,ndegree)
{var last_approx=0,new_approx=0;var a=0,b=0;var i=0,n=0;var fni=new String();var can_stop=0;var test_degree=0;var fni=new String("return ("+fnx+");");var fnx=new Function("x",fni);if(m=="n")n=ndegree;if(m=="d")n=4;a=eval(lbound);b=eval(ubound);while(!can_stop){
for(i=0;i<=n;i++){if(i==0||i==n){new_approx+=fnx(((b-a)*i)/n);}else if(i%2==1){new_approx+=eval(4.0* fnx(((b-a)*i)/n));}else if(i%2==0){new_approx+=eval(2.0* fnx(((b-a)*i)/n));}}new_approx=((b -a)/(3.0* n))* new_approx;test_degree=Math.abs((new_approx -last_approx));
if((m=="d")&&(test_degree<Math.pow(10,-(ndegree+1)))){can_stop=1;}else{if(m=="n"){can_stop=1;}else{last_approx=new_approx;n+=n;}}}return new_approx;}function n120(lower,upper,theImage)
{return"<table cellpadding=0 cellspacing=0 border=0 height=30>"+"<tr>"+"<td rowspan=3 valign=middle>"+"<img src=\"chars/"+theImage+".gif\" width=6 height=19>"+"</td>"+"<td align=left valign=top><img src=\"chars/space.gif\" height=1 width=1><font size=-2>"+upper+"</font></td></tr>"+"<tr>"+"<td align=left valign=middle><img src=\"chars/space.gif\" height=2 width=2>"+"</td></tr>"+"<tr>"+"<td align=left valign=bottom><font size=-2>"+lower+"</font></td></tr></table>";}
function mkgraph(width,height,fns,minx,maxx,miny,maxy)
{return"<applet codebase='"+topURL+"grcalc' code='cal.class' width="+width+" height="+height+">"+"<param name=Title value='LSI Online Graphing Calculator'>"+"<param name=TRIG value='true'>"+"<param name=LEFTARROW value='FFFFFF'>"+"<param name=ANS value='FFFF00'>"+"<param name=MSMR value='66CC99'>"+"<param name=DIGITS value='9999FF'>"+"<param name=OPERATORS value='00CCFF'>"+"<param name=FORMATtoTRACE value='FFCCCC'>"+"<param name=ENTER value='0099CC'>"+"<param name=Appletbgc value=''>"+"<param name=LowerLeftPanelbgc value=''>"+"<param name=LowerRightPanelbgc value=''>"+"<param name=NONSELECTEDTAB value='FFCCCC'>"+"<param name=SELECTEDTAB value='9999FF'>"+"<param name=Tablebgc value=''>"+"<param name=RightPanel value=''>"+"<param name=MemoryPanel value=''>"+"<param name=Keyboardbgc value=''>"+"<param name=Popupbgc value=''>"+"<param name=LeftMenubgc value=''>"+"<param name=Titlebgc value='EEEEEE'>"+"<param name=ButtonOffbgc value=''>"+"<param name=ButtonOfffgc value=''>"+"<param name=MODE value='bare'>"+"<param name=xmin value='"+minx+"'>"+"<param name=xmax value='"+maxx+"'>"+"<param name=ymin value='"+miny+"'>"+"<param name=ymax value='"+maxy+"'>"+"<param name=func value='"+fns+"'>"+"</applet>";}
exld=true;