ckary = new Array();
ckary2 = new Array();
ckary3 = new Array();
ckary4 = new Array();

function AnovaMulti(){
	for(var i=0;i<4;i++) ckary[i] = false;

	ckary[0] = document.getElementById("LSD").checked;
	ckary[1] = document.getElementById("HSD").checked;
	ckary[2] = document.getElementById("BONF").checked;
	ckary[3] = document.getElementById("HOLM").checked;
}
function TwoSidedOrGreater(){
	for(var i=0;i<2;i++) ckary2[i] = false;

	ckary2[0] = document.getElementById("TwoSided").checked;
	ckary2[1] = document.getElementById("Greater").checked;
}
function ixjxk(){
	for(var i=0;i<3;i++) ckary3[i] = false;

	ckary3[0] = document.getElementById("ixj").checked;
	ckary3[1] = document.getElementById("jxk").checked;
	ckary3[2] = document.getElementById("ixk").checked;
}
function ixjxkxl(){
	for(var i=0;i<5;i++) ckary4[i] = false;

	ckary4[0] = document.getElementById("ixj").checked;
	ckary4[1] = document.getElementById("ixk").checked;
	ckary4[2] = document.getElementById("ixl").checked;
	ckary4[3] = document.getElementById("jxk").checked;
	ckary4[4] = document.getElementById("jxl").checked;
	ckary4[2] = document.getElementById("kxl").checked;
}
function DataClear(){
	var result = confirm("データを消去します");
	if(result == true){
		document.getElementById("DataArea").value = "";
		document.myForm.DataArea.focus();
	}
}
function DataClear2(){
	var result = confirm("データを消去します");
	if(result == true){
		document.getElementById("DataArea1").value = "";
		document.getElementById("DataArea2").value = "";
		document.myForm.DataArea1.focus();
	}
}
function AnswerClear(){
	var result = confirm("結果を消去します");
	if(result == true){
		document.getElementById("RltArea").value = "";
		document.myForm.RltArea.focus();
	}
}
function RcmClear(){
	var result = confirm("コマンドを消去します");
	if(result == true){
		document.getElementById("RcmArea").value = "";
		document.myForm.RcmArea.focus();
	}
}
function using(Num,seisu,syousu){
	Num = parseFloat(Num);
	Num = Num.toFixed(syousu);

	if(Math.abs(Num)<0.000001){
		var Unum = 0;
		Ustr="0.0000000000";
	}else{
		var Unum = Num;
		Ustr = Unum+"";
	}
	var n=seisu;
	var m=syousu;
	var l=0;

	if(Math.abs(Unum)>1){
		keta = Math.pow(10,m);
		Unum = Unum*keta;
		Unum = Math.round(Unum);
		Unum = Unum/keta;
		Ustr = Unum+"";
	}

	if(m<=0) m=-1;

	if(Unum>=0){
		for(l=0;l<n-1;l++){
			suu = Math.pow(10,l+1);
			if(Unum<suu){
				Ustr = " "+Ustr;
			}
		}
	}else if(Unum<0){
		for(l=0;l<n-2;l++){
			suu = Math.pow(10,l+1);
			if(Math.abs(Unum)<suu) Ustr = " "+Ustr;
		}
	}
		if(Ustr.length == n){
			Ustr = Ustr + ".0000000";
		}else{
			Ustr = Ustr + "0000000";
		}
	Ustr = Ustr.substring(0,n+m+1);
	return Ustr;
}
function space2tab(){
	var topflag=0;
	var firstflag=0;
	var crflag=1;
	var charflag=0;
	var str=document.getElementById("DataArea").value;
	var ddata="";
	var ddata2="";
	var strArray = new Array();
	var strArray2 = new Array();

	status="データリメイク中";
	for (var i=0;i<str.length;i++){
		if((str.charAt(i)==" ")||(str.charAt(i)=="\t")){
			firstflag=0;charflag=1;
		}else{
			if((str.charAt(i)=="\n")||(str.charAt(i)=="\r")){
				if((crflag==0)&&(firstflag==1)){
					strArray.push("\n");
					crflag=1;
					firstflag=0;
				}
				if((crflag==0)&&(charflag==1)){
					strArray.push("\n");
					crflag=1;
					firstflag=0;
				}
			}else if(firstflag==0){
				crflag=0;
				firstflag=1;charflag=0;
				if(topflag==0){
					strArray.push("\t"+str.charAt(i));
					topflag=1;
				}else{
					strArray.push("\t"+str.charAt(i));
				}
			}else{
					strArray.push(str.charAt(i));
					charflag=0;
			}
		}
	}
	ddata=strArray.join("");
	if((ddata.charAt(ddata.length-1)=="\n")||(ddata.charAt(ddata.length-1)=="\r")){
		for (i=0;i<ddata.length-1;i++){
			strArray2.push(ddata.charAt(i));
		}
		ddata=strArray2.join("");;
	}
	status="";
	document.getElementById("DataArea").value=ddata;
	strArray = null;
	strArray2 = null;
	document.myForm.DataArea.focus();
}
function space2tab2(wAria){
	var topflag=0;
	var firstflag=0;
	var crflag=1;
	var charflag=0;
	var str=document.getElementById(wAria).value;
	var ddata="";
	var ddata2="";
	var strArray = new Array();
	var strArray2 = new Array();

	status="データリメイク中";
	for (var i=0;i<str.length;i++){
		if((str.charAt(i)==" ")||(str.charAt(i)=="\t")){
			firstflag=0;charflag=1;
		}else{
			if((str.charAt(i)=="\n")||(str.charAt(i)=="\r")){
				if((crflag==0)&&(firstflag==1)){
					strArray.push("\n");
					crflag=1;
					firstflag=0;
				}
				if((crflag==0)&&(charflag==1)){
					strArray.push("\n");
					crflag=1;
					firstflag=0;
				}
			}else if(firstflag==0){
				crflag=0;
				firstflag=1;charflag=0;
				if(topflag==0){
					strArray.push("\t"+str.charAt(i));
					topflag=1;
				}else{
					strArray.push("\t"+str.charAt(i));
				}
			}else{
					strArray.push(str.charAt(i));
					charflag=0;
			}
		}
	}
	ddata=strArray.join("");
	if((ddata.charAt(ddata.length-1)=="\n")||(ddata.charAt(ddata.length-1)=="\r")){
		for (i=0;i<ddata.length-1;i++){
			strArray2.push(ddata.charAt(i));
		}
		ddata=strArray2.join("");;
	}
	status="";
	document.getElementById(wAria).value=ddata;
	strArray = null;
	strArray2 = null;
	document.getElementById(wAria).focus();
}

function dataremake(){
	var topflag=0;
	var firstflag=0;
	var crflag=1;
	var charflag=0;
	var str=document.getElementById("DataArea").value;
	var ddata="";
	var ddata2="";
	var strArray = new Array();
	var strArray2 = new Array();

	status="データリメイク中";
	for (var i=0;i<str.length;i++){
		if((str.charAt(i)==" ")||(str.charAt(i)=="\t")){
			firstflag=0;charflag=1;
		}else{
			if((str.charAt(i)=="\n")||(str.charAt(i)=="\r")){
				if((crflag==0)&&(firstflag==1)){
					strArray.push("\n");
					crflag=1;
					firstflag=0;
				}
				if((crflag==0)&&(charflag==1)){
					strArray.push("\n");
					crflag=1;
					firstflag=0;
				}
			}else if(firstflag==0){
				crflag=0;
				firstflag=1;charflag=0;
				if(topflag==0){
					strArray.push(str.charAt(i));
					topflag=1;
				}else{
					strArray.push(" "+str.charAt(i));
				}
			}else{
					strArray.push(str.charAt(i));
					charflag=0;
			}
		}
	}
	ddata=strArray.join("");
	if((ddata.charAt(ddata.length-1)=="\n")||(ddata.charAt(ddata.length-1)=="\r")){
		for (i=0;i<ddata.length-1;i++){
			strArray2.push(ddata.charAt(i));
		}
		ddata=strArray2.join("");
	}
	status="";
	document.getElementById("DataArea").value=ddata;
	strArray = null;
	strArray2 = null;
}
function dataremake2(){
	var topflag=0;
	var firstflag=0;
	var crflag=1;
	var charflag=0;
	var str=document.getElementById("RltArea").value;
	var ddata="";
	var ddata2="";
	var strArray = new Array();
	var strArray2 = new Array();

	status="データリメイク中";
	for (var i=0;i<str.length;i++){
		if((str.charAt(i)==" ")||(str.charAt(i)=="\t")){
			firstflag=0;charflag=1;
		}else{
			if((str.charAt(i)=="\n")||(str.charAt(i)=="\r")){
				if((crflag==0)&&(firstflag==1)){
					strArray.push("\n");
					crflag=1;
					firstflag=0;
				}
				if((crflag==0)&&(charflag==1)){
					strArray.push("\n");
					crflag=1;
					firstflag=0;
				}
			}else if(firstflag==0){
				crflag=0;
				firstflag=1;charflag=0;
				if(topflag==0){
					strArray.push(str.charAt(i));
					topflag=1;
				}else{
					strArray.push(" "+str.charAt(i));
				}
			}else{
					strArray.push(str.charAt(i));
					charflag=0;
			}
		}
	}
	ddata=strArray.join("");
	if((ddata.charAt(ddata.length-1)=="\n")||(ddata.charAt(ddata.length-1)=="\r")){
		for (i=0;i<ddata.length-1;i++){
			strArray2.push(ddata.charAt(i));

		}
		ddata=strArray2.join("");
	}
	status="";
	document.getElementById("RltArea").value=ddata;
	strArray = null;
	strArray2 = null;
}
function dataremake3(wAria){
	var topflag=0;
	var firstflag=0;
	var crflag=1;
	var charflag=0;
	var str=document.getElementById(wAria).value;
	var ddata="";
	var ddata2="";
	var strArray = new Array();
	var strArray2 = new Array();

	status="データリメイク中";
	for (var i=0;i<str.length;i++){
		if((str.charAt(i)==" ")||(str.charAt(i)=="\t")){
			firstflag=0;charflag=1;
		}else{
			if((str.charAt(i)=="\n")||(str.charAt(i)=="\r")){
				if((crflag==0)&&(firstflag==1)){
					strArray.push("\n");
					crflag=1;
					firstflag=0;
				}
				if((crflag==0)&&(charflag==1)){
					strArray.push("\n");
					crflag=1;
					firstflag=0;
				}
			}else if(firstflag==0){
				crflag=0;
				firstflag=1;charflag=0;
				if(topflag==0){
					strArray.push(str.charAt(i));
					topflag=1;
				}else{
					strArray.push(" "+str.charAt(i));
				}
			}else{
					strArray.push(str.charAt(i));
					charflag=0;
			}
		}
	}
	ddata=strArray.join("");
	if((ddata.charAt(ddata.length-1)=="\n")||(ddata.charAt(ddata.length-1)=="\r")){
		for (i=0;i<ddata.length-1;i++){
			strArray2.push(ddata.charAt(i));
		}
		ddata=strArray2.join("");
	}
	status="";
	document.getElementById(wAria).value=ddata;
	strArray = null;
	strArray2 = null;
}
function dataremake4(inArea,idName,idCount){
	var i;
	var topflag=0;
	var firstflag=0;
	var crflag=1;
	var charflag=0;
	var str=document.getElementById(inArea).value;
	var ddata="";
	var ddata2="";
	var strArray = new Array();
	var strArray2 = new Array();

	for (i=0;i<str.length;i++){
		if((str.charAt(i)==" ")||(str.charAt(i)=="\t")){
			firstflag=0;charflag=1;
		}else{
			if((str.charAt(i)=="\n")||(str.charAt(i)=="\r")){
				if((crflag==0)&&(firstflag==1)){
					strArray.push("\n");
					crflag=1;
					firstflag=0;
				}
				if((crflag==0)&&(charflag==1)){
					strArray.push("\n");
					crflag=1;
					firstflag=0;
				}
			}else if(firstflag==0){
				crflag=0;
				firstflag=1;charflag=0;
				if(topflag==0){
					strArray.push(str.charAt(i));
					topflag=1;
				}else{
					strArray.push(" "+str.charAt(i));
				}
			}else{
					strArray.push(str.charAt(i));
					charflag=0;
			}
		}
	}
	ddata=strArray.join("");
	if((ddata.charAt(ddata.length-1)=="\n")||(ddata.charAt(ddata.length-1)=="\r")){
		for (i=0;i<ddata.length-1;i++){
			strArray2.push(ddata.charAt(i));
		}
		ddata=strArray2.join("");
	}
	
	strArray = null;
	strArray2 = null;
}
function dataremake5(inArea){ // d = dataremake5('kekka'); id='kekka'のスペースやタブを除去した結果を d に代入する
	var i;
	var topflag=0;
	var firstflag=0;
	var crflag=1;
	var charflag=0;
	var str=document.getElementById(inArea).value;
	var ddata="";
	var ddata2="";
	var strArray = new Array();
	var strArray2 = new Array();

	for (i=0;i<str.length;i++){
		if((str.charAt(i)==" ")||(str.charAt(i)=="\t")){
			firstflag=0;charflag=1;
		}else{
			if((str.charAt(i)=="\n")||(str.charAt(i)=="\r")){
				if((crflag==0)&&(firstflag==1)){
					strArray.push("\n");
					crflag=1;
					firstflag=0;
				}
				if((crflag==0)&&(charflag==1)){
					strArray.push("\n");
					crflag=1;
					firstflag=0;
				}
			}else if(firstflag==0){
				crflag=0;
				firstflag=1;charflag=0;
				if(topflag==0){
					strArray.push(str.charAt(i));
					topflag=1;
				}else{
					strArray.push(" "+str.charAt(i));
				}
			}else{
					strArray.push(str.charAt(i));
					charflag=0;
			}
		}
	}
	ddata=strArray.join("");
	if((ddata.charAt(ddata.length-1)=="\n")||(ddata.charAt(ddata.length-1)=="\r")){
		for (i=0;i<ddata.length-1;i++){
			strArray2.push(ddata.charAt(i));
		}
		ddata=strArray2.join("");
	}
	
	strArray = null;
	strArray2 = null;
	
	return ddata;
}
function copipe(inArea,idName,idCount){
	var ddata;
	var dd = new Array();
	var i;
	var blankflag = 0;
	
	ddata = dataremake5(inArea);
	ddata = crDel(ddata);
	dd = ddata.split(" ");
	
	if(ddata != ''){
		for(i=0;i<idCount;i++){
			if(dd[i]!=undefined){
				if(document.getElementById(idName+(i+1)).value != ''){ //１つでもセルが空白でなかったらフラグを１にする
					blankflag = 1;
				}
			}
		}
		if(	blankflag == 1){
			var result = confirm("データを上書きしますか？");
			if(result == true){
				for(i=0;i<idCount;i++){
					if(dd[i]!=undefined){
						document.getElementById(idName+(i+1)).value = dd[i];
					}
				}
			}
		}else{
			for(i=0;i<idCount;i++){
				if(dd[i]!=undefined){
					document.getElementById(idName+(i+1)).value = dd[i];
				}
			}		
		}
	}
	
	document.getElementById(inArea).value = "";
}
function tvalue(D2){
	var Ud2,TT2,TTT2;
	Ud2 = D2;
	if(Ud2>=120) Ud2=120;
	TT2 = T2data.split(" ");
	TTT2 = TT2[Ud2-1];
	return TTT2;
}
function fratio(D1,D2,Fdata){

	var Ud1,Ud2,Ufdata;
	var FF1,FF2,FF3;
	var F$;

	Ud1 = D1;Ud2 = D2;Ufdata = Fdata;

	if(Ud1==11) Ud1 =10;
	if(Ud1==13) Ud1 =12;
	if(Ud1==14) Ud1 =12;
	if(Ud1==17) Ud1 =16;
	if(Ud1==19) Ud1 =18;
	if(Ud1>20) Ud1 =20;

	F1 = F[(Ud1-1)*3+0].split(" ");
	F2 = F[(Ud1-1)*3+1].split(" ");
	F3 = F[(Ud1-1)*3+2].split(" ");

	if(Ud2<=30){
		FF1 = F1[Ud2-1];
		FF2 = F2[Ud2-1];
		FF3 = F3[Ud2-1];
	}else if(Ud2<40){
		FF1 = F1[29];
		FF2 = F2[29];
		FF3 = F3[29];
	}else if(Ud2<60){
		FF1 = F1[30];
		FF2 = F2[30];
		FF3 = F3[30];
	}else if(Ud2<120){
		FF1 = F1[31];
		FF2 = F2[31];
		FF3 = F3[31];
	}
	if(Ud2>=120){
		FF1 = F1[32];
		FF2 = F2[32];
		FF3 = F3[32];
	}

	if(Ufdata>FF3){
		F$ = "**";
	}else if(Ufdata>FF2){
		F$ = " *";
	}else if(Ufdata>FF1){
		F$ = " +";
	}else {
		F$ = "ns";
	}

	return F$;
}
function st_q(D1,D2){
	var Ud1,Ud2;
	var Q2,QQ2;
	var Q$;

	Ud1 = D1;Ud2 = D2;

	if(Ud1>20) Ud1 =20;

	Q2 = Q[(Ud1-1)*3+1].split(" ");

	if(Ud2<=30){
		QQ2 = Q2[Ud2-1];
	}else if(Ud2<40){
		QQ2 = Q2[29];
	}else if(Ud2<60){
		QQ2 = Q2[30];
	}else if(Ud2<120){
		QQ2 = Q2[31];
	}
	if(Ud2>=120){
		QQ2 = Q2[32];
	}

	Q$ = QQ2;

	return Q$;
}
function st_q2(D1,D2){
	var Ud1,Ud2;
	var Q2,QQ2;
	var Q$;

	Ud1 = D1;Ud2 = D2;

	if(Ud1>20) Ud1 =20;

	Q2 = Q[(Ud1-1)*3+1].split(" ");

	if(Ud2<=30){
		QQ2 = Q2[Ud2-1];
	}else if(Ud2<40){
		QQ2 = (1/Ud2-1/40)/(1/30-1/40)*Q2[29]+(1/30-1/Ud2)/(1/30-1/40)*Q2[30];
	}else if(Ud2<60){
		QQ2 = (1/Ud2-1/60)/(1/40-1/60)*Q2[30]+(1/40-1/Ud2)/(1/40-1/60)*Q2[31];
	}else if(Ud2<120){
		QQ2 = (1/Ud2-1/120)/(1/60-1/120)*Q2[31]+(1/60-1/Ud2)/(1/60-1/120)*Q2[32];
	}
	if(Ud2>=120){
		QQ2 = Q2[32];
	}

	Q$ = QQ2;

	return Q$;
}
function t_bonf(k,D2){
	var Ud1,Ud2;
	var B2,BB2;
	var B$;

	Ud1 = k;Ud2 = D2;

	if(Ud1>105) Ud1 =105;

	B2 = TBonf[(Ud1-1)*3+1].split(" ");

	if(Ud2<=120){
		BB2 = B2[Ud2-1];
	}else{
		BB2 = B2[119];
	}

	B$ = BB2;

	return B$;
}
function kumiawase(myN,myR){
	wN=myN;
	wR=Math.min(myR,myN-myR);
	kumi=1;
	for(var x=1;x<=wR;x++){
		kumi=kumi*(wN-x+1)/x;
	}
	return kumi;
}
function ChartChange(id){
	document.getElementById("ChartImg"+id).src = document.getElementById("ChartArea"+id).value;
}
function chartTextAreaRow(obj,row){
	obj.rows = row;
}
function chartTextChange(obj,sw){
	if(sw){
		obj.value = obj.value.replace(/&c?/g,"\n&c");
	}else{
		obj.value = crDel(obj.value);
	}
}
function drawbarChart(chartCodeCount,chtt,chxr,chxl,chd,chds,chco){
    var chartImg = document.createElement('img');
	var chartStr ="";
	chartStr = "http://chart.apis.google.com/chart" +
			"?cht=bhs"+
			"&chtt=" + chtt +
			"&chs=400x250"+
			"&chd=" + chd  +
			"&chds=" + chds +
			"&chxt=x,y"+
			"&chxr=" + chxr +
			"&chxl=" + chxl +
			"&chbh=a" +
			"&chco=" + chco ;
	
	chartImg.src = chartStr; 
	chartImg.id = "ChartImg"+chartCodeCount; 
	document.getElementById("chart").appendChild(chartImg);

	var chartTextarea = document.createElement("textarea");
	chartTextarea.id = "ChartArea"+chartCodeCount;
	chartTextarea.className = "chartcode";
	chartTextarea.name = "ChartArea";
	chartTextarea.rows = 3;
	chartTextarea.cols = 60;
	chartTextarea.wrap="off"
	chartTextarea.onfocus = function(){
								onBgColor(this);
								chartTextAreaRow(this,10);
								chartTextChange(this,1);
							}
	chartTextarea.onblur = function(){
								offBgColor(this);
								chartTextAreaRow(this,3);
								ChartChange(chartCodeCount);
								chartTextChange(this,0);
							}
	
	document.getElementById("chart").appendChild(chartTextarea);
	document.getElementById("ChartArea"+chartCodeCount).value = chartStr;
}
function drawScatterplot(chartCodeCount,chxr,chd,chds,chdl,chco){
    var chartImg = document.createElement('img');
	var chartStr ="";
	chartStr = "http://chart.apis.google.com/chart" +
			"?cht=s"+
			"&chs=400x250"+
			"&chxt=x,y"+
			"&chxr=" + chxr +
			"&chd=" + chd  +
			"&chds=" + chds +
			"&chco=" + chco ;
	if(chdl!="") chartStr += "&chdl=" + chdl;
	
	chartImg.src = chartStr; 
	chartImg.id = "ChartImg"+chartCodeCount; 
	document.getElementById("chart").appendChild(chartImg);

	var chartTextarea = document.createElement("textarea");
	chartTextarea.id = "ChartArea"+chartCodeCount;
	chartTextarea.className = "chartcode";
	chartTextarea.name = "ChartArea";
	chartTextarea.rows = 3;
	chartTextarea.cols = 60;
	chartTextarea.wrap="off"
	chartTextarea.onfocus = function(){
								onBgColor(this);
								chartTextAreaRow(this,10);
								chartTextChange(this,1);
							}
	chartTextarea.onblur = function(){
								offBgColor(this);
								chartTextAreaRow(this,3);
								ChartChange(chartCodeCount);
								chartTextChange(this,0);
							}
	
	document.getElementById("chart").appendChild(chartTextarea);
	document.getElementById("ChartArea"+chartCodeCount).value = chartStr;
}
function drawLineChartXY(chartCodeCount,chxp,chxr,chxl,chd,chds,chdl,chco,chm){

    var chartImg = document.createElement('img');
	var chartStr ="";
	chartStr = "http://chart.apis.google.com/chart" +
			"?cht=lxy"+
			"&chs=400x250"+
			"&chxt=x,y"+
			"&chxp=" + chxp +
			"&chxr=" + chxr +
			"&chxl=" + chxl +
			"&chd=" + chd  +
			"&chds=" + chds +
			"&chdl=" + chdl +
			"&chco=" + chco +
			"&chm=" + chm ;

	chartImg.src = chartStr;
	chartImg.id = "ChartImg"+chartCodeCount; 
	document.getElementById("chart").appendChild(chartImg);

	var chartTextarea = document.createElement("textarea");
	chartTextarea.id = "ChartArea"+chartCodeCount;
	chartTextarea.className = "chartcode";
	chartTextarea.name = "ChartArea";
	chartTextarea.rows = 3;
	chartTextarea.cols = 60;
	chartTextarea.wrap="off"
	chartTextarea.onfocus = function(){
								onBgColor(this);
								chartTextAreaRow(this,10);
								chartTextChange(this,1);
							}
	chartTextarea.onblur = function(){
								offBgColor(this);
								chartTextAreaRow(this,3);
								ChartChange(chartCodeCount);
								chartTextChange(this,0);
							}
	
	document.getElementById("chart").appendChild(chartTextarea);
	document.getElementById("ChartArea"+chartCodeCount).value = chartStr;
}
function chartClear(){
	var parent = document.getElementById("chart");
	while(parent.firstChild){
		parent.removeChild(parent.firstChild);
	}
	chartCodeCount = 0;
}
function div(a,b) {
// 整数の除算(a/b の商を、小数点以下を切り捨て、整数で返す)
   return Math.round(a / b - 0.5)
}
function crDel(str){
// 改行を削除する
	var wstr;

	wstr = str;
	wstr = wstr.replace(/\n?/g,"");   //IE
	wstr = wstr.replace(/\r\n?/g,""); //FireFox

	return wstr;
}