function checnum(as)
{
	var dd = as.value;
	
	if(isNaN(dd))
	{
		dd = dd.substring(0,(dd.length-1));
		as.value = dd;
	}		
}

function checn(as)
{
	var args = as.value;
	var df = "";
	for (var i = 0;  i<args.length;  i++)
	{
		if(!(args.substring(i,i+1) < "0" || args.substring(i, i+1) > "9"))
				df=df+args.substring(i,i+1);
	}
	as.value = df;
}


function calsi()
{
	//var paw = Math.pow(16,1/4);

	var ty = document.sint.ss.value;
	var si = document.sint.res4.value;
	var p = document.sint.res1.value;
	var r = document.sint.res2.value;
	var n = document.sint.res3.value;
	var  typ = document.sint.typ.value;

	if(ty == 4)
	{
		var dd = 1+((r/typ)/100);
		si = p*Math.pow(dd,typ*n);
		si = Math.round((si-p)*100)/100;
		document.sint.res4.value=si;
	}
	if(ty == 1)
	{
		var dd = 1+((r/typ)/100);
		p = si/(Math.pow(dd,typ*n)-1);
		p = Math.round(p);
		document.sint.res1.value=p;
	}
	if(ty == 2)
	{
		var t = parseFloat(si)+parseFloat(p);
		r = (Math.pow(t/p,1/(n*typ))-1)*typ*100;
		r = Math.round(r*100)/100;
		document.sint.res2.value=r;	
	}
	return false;
}

function modf()
{
	for(var h=1; h<5; h++)
	{
		var dd = "document.sint.res"+h;
		ss = eval(dd);
		ss.disabled=false;
		ss.style.backgroundColor="#eefaff";
		ss.style.color= "#000000";
	}
	var vv = document.sint.ss.value;
	var dd = "document.sint.res"+vv;
	ss = eval(dd);
	ss.disabled=true;
	ss.value="";
	ss.style.color= "black";
	ss.style.backgroundColor="#bbc7dd";
}

function color(test)
{

	var myI=document.getElementsByTagName("input").item(4);
	myI.style.backgroundColor=test;
}


function color1(test)
{
var myI=document.getElementsByTagName("table").item(0);
//myI.setAttribute("style",ch);
myI.style.backgroundColor=test;
}