function targetclear(){
	const targets = ["lhx", "dic", "neu", "sna", "wn3", "wn5", "bmp", "hes", "zic", "dmr", "nod", "otx", "dlx", "a", "b", "c" ];
	var cellnum = document.getElementsByClassName("mach").length;
	var i0;
	var i1;
	
	for( i0 = 0; i0 < targets.length; i0++ ){
		for ( i1 = 0; i1 < cellnum; i1++){
			document.getElementsByName( "exp"+targets[i0] )[i1].value = "";
			document.getElementsByName( "exp"+targets[i0] )[i1].style.backgroundColor = '#ffffff';
		}
	}
}

function funcclear(){
	const targets = ["lhx", "dic", "neu", "sna", "wn3", "wn5", "bmp", "hes", "zic", "dmr", "nod", "otx", "dlx", "a", "b", "c" ];
	var i0;
	var i1;
	for( i0 = 0; i0 < targets.length; i0++ ){
		for ( i1 = 0; i1 < document.getElementsByName( targets[i0] ).length; i1++){
			document.getElementsByName( targets[i0] )[i1].value = "";
		}
	}
}

function dflt_func() {
	const d_lhx = ["Foxd&Fgf9/16/20&beta-catenin"];
	const d_dic = ["Foxd&Fgf9/16/20&beta-catenin"];
	const d_neu = ["Foxd&Fgf9/16/20&beta-catenin"];
	const d_sna = ["CA-Raf&Macho-1", "Tbx6-r.b"];
	const d_wn3 = ["CA-Raf&Macho-1", "Tbx6-r.b"];
	const d_wn5 = ["CA-Raf&Macho-1", "Tbx6-r.b"];
	const d_bmp = ["Foxa.a&Foxd"];
	const d_hes = ["Foxd&Fgf9/16/20", "^Sox1/2/3&^Hes.a&Fgf9/16/20&^Efna.d&^Prdm1-r"];
	const d_zic = ["Foxa.a&Foxd&Fgf9/16/20&^beta-catenin&Gata.a", "^beta-catenin&Gata.a&Macho-1", "^Sox1/2/3&^Hes.a&Fgf9/16/20&^beta-catenin&Gata.a", "Foxa.a&^Hes.a&Fgf9/16/20&^beta-catenin&Gata.a"];
	const d_dmr = ["Sox1/2/3&Foxa.a&^Foxd&Fgf9/16/20&^Efna.d&^beta-catenin&Gata.a"];
	const d_otx = ["^beta-catenin&Gata.a&Macho-1", "Tbx6-r.a&Fgf9/16/20", "Tbx6-r.b&Fgf9/16/20", "^Foxd&Fgf9/16/20&^Efna.d&Gata.a", "Fgf9/16/20&^Gdf1/3-r&^Admp"];
	const d_dlx = ["Sox1/2/3&Foxa.a&^Foxd&^beta-catenin&Gata.a", "Sox1/2/3&Efna.d", "Sox1/2/3&^Foxd&^Fgf9/16/20"];
	const d_nod = ["Foxa.a&Fgf9/16/20&beta-catenin&Zfpm&Gata.a", "Tbx6-r.b&beta-catenin&Zfpm&Gata.a", "Sox1/2/3&^Foxa.a&^Foxd&Fgf9/16/20&^Efna.d&^beta-catenin&Gata.a&Zfpm", "Fgf9/16/20&^Gdf1/3-r&^Admp&^Prdm1-r&^Foxa.a&^beta-catenin&Gata.a"];
	const d_a = [""];
	const d_b = [""];
	const d_c = [""];
                      
	var i;
	var s;
	
	for (i = 0; i < document.getElementsByName("lhx").length; i++){
		if( i < d_lhx.length ){
			s = d_lhx[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("lhx")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("dic").length; i++){
		if( i < d_dic.length ){
			s = d_dic[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("dic")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("neu").length; i++){
		if( i < d_neu.length ){
			s = d_neu[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("neu")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("sna").length; i++){
		if( i < d_sna.length ){
			s = d_sna[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("sna")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("wn3").length; i++){
		if( i < d_wn3.length ){
			s = d_wn3[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("wn3")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("wn5").length; i++){
		if( i < d_wn5.length ){
			s = d_wn5[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("wn5")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("bmp").length; i++){
		if( i < d_bmp.length ){
			s = d_bmp[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("bmp")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("hes").length; i++){
		if( i < d_hes.length ){
			s = d_hes[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("hes")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("zic").length; i++){
		if( i < d_zic.length ){
			s = d_zic[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("zic")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("dmr").length; i++){
		if( i < d_dmr.length ){
			s = d_dmr[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("dmr")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("nod").length; i++){
		if( i < d_nod.length ){
			s = d_nod[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("nod")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("otx").length; i++){
		if( i < d_otx.length ){
			s = d_otx[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("otx")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("dlx").length; i++){
		if( i < d_dlx.length ){
			s = d_dlx[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("dlx")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("a").length; i++){
		if( i < d_a.length ){
			s = d_a[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("a")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("b").length; i++){
		if( i < d_b.length ){
			s = d_b[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("b")[i].value = s;
	}
	
	for (i = 0; i < document.getElementsByName("c").length; i++){
		if( i < d_c.length ){
			s = d_c[i];
		}
		else {
			s = "";
		}
		document.getElementsByName("c")[i].value = s;
	}
}

function exp_calc () {
	var fnc = [];
	var regulators;
	var targets = ["lhx", "dic", "neu", "sna", "wn3", "wn5", "bmp", "hes", "zic", "dmr", "nod", "otx", "dlx", "a", "b", "c" ];
	var t1;
	var t2;
	
	var i0;
	var i1;
	var i2;
	var cellnum;
	var rslt;
	
	
	cellnum = document.getElementsByClassName("mach").length;
	
	for( i0 = 0; i0 < targets.length; i0++ ){
		t1 = targets[i0];
		t2 = "exp" + t1;

		for ( i1 = 0; i1 < document.getElementsByName(t1).length; i1++){
			fnc[ i1 ] = document.getElementsByName(t1)[i1].value;
		}
		fnc = fnc.filter(Boolean);
		
		for ( i1 = 1; i1 <= cellnum; i1++){
			
			regulators = document.getElementsByName("Cell"+i1);

			rslt = 0;
			for( i2 = 0; i2 < fnc.length; i2++ ){
				rslt = exp_calc2 ( fnc[i2], regulators );
				if( rslt == 1 ){
					break;
				}
			}
			document.getElementsByName( t2 )[ (i1-1) ].value = rslt;
			if( rslt == 1 ){
				document.getElementsByName( t2 )[ (i1-1) ].style.backgroundColor = '#00aa44';
			}
			else {
				document.getElementsByName( t2 )[ (i1-1) ].style.backgroundColor = '#ffffff';
			}
		}
	}
}

function exp_calc2 ( fnc, regulators ){
	var rn;
	var neg = [];
	var regs = [];
	var i;
	var id;
	
	var reg2id = {
		"Gata.a": 1,
		"Macho-1": 2,
		"CA-Raf": 3,
		"beta-catenin": 4,
		"Sox1/2/3": 5,
		"Zfpm": 6,
		"Foxa.a": 7,
		"Foxd": 8,
		"Foxtun2": 9,
		"Tbx6-r.a": 10,
		"Tbx6-r.b": 11,
		"Prdm1-r": 12,
		"Tfap2-r.b": 13,
		"Hes.a": 14,
		"Fgf9/16/20": 15,
		"Efna.d": 16,
		"Admp": 17,
		"Gdf1/3-r": 18,
		"Wnttun5": 19,
		"X": 20,
		"Y": 21,
		"Z": 22
	};
	
	regs = fnc.split("&");
	for( i = 0; i < regs.length; i++ ){
		if( regs[i].charAt(0) == "^" ){
			neg[i] = 1;
			regs[i] = regs[i].replace("^","");
		}
		else {
			neg[i] = 0;
		}
	}
	
	rn = 1;
	for( i = 0; i < regs.length; i++ ){
		if( reg2id [ regs[i] ] ){
			id = reg2id [ regs[i] ] - 1;
			if( neg[i] == 0 && regulators[id].checked == false || neg[i] == 1 && regulators[id].checked == true ){
				rn = 0;
				break;
			}
		}
		else {
			alert ( "["+regs[i]+"] was not a regulator\n" );
			rn = 0;
			break;
		}
	}
	
	return rn;
}