var R = 287;	// Gaskonstante Luft
var g = 9.81;
var omega = 7.292E-5;	// Winkelgeschwindigkeit Erde

function runde(x,n) {
	n = Math.pow(10, n);
	x = Math.round(x*n);
	return x/n;
}

// Sättingungsdampfdruck in Abhängigkeit von der Temperatur
function SDD(T) {
	var a, b;
	if(T>=0) {	// Sättigungsdampfdruck über Wasser
		a=7.5; b=237.3;
	} else {
		a=7.6; b=240.7;
	}
	return 6.1078 * Math.exp(((a*T)/(b+T))/Math.LOG10E);
}

// Dampfdruck in Abhängigkeit von der Temperatur und der relativen Feuchte
function DD(T,r) {
	var sdd = SDD(T);
	var dd = r/100*sdd;
	return dd;
}

function RHtoDP(T,r) {
	var dd = DD(T,r);
	var a, b;
	if(T>=0) {
		a=7.5; b=237.3;
	} else {
		a=7.6; b=240.7;
	}	
	var c = Math.log(dd/6.1078)*Math.LOG10E;
	return b*c/(a-c);
}

function berechneTT() {
	if(document.feuchterechner.temperatur.value=="") {
		alert("Bitte geben Sie eine Temperatur ein!");
		return false;
	}
	var T = parseFloat(document.feuchterechner.temperatur.value.replace(/,/,'.'));	
	if(document.feuchterechner.relfeuchte.value=="") {
		var text = "Bitte geben Sie die relative Luftfeuchtigkeit ein,\n"
		text += "damit die Taupunkttemperatur berechnet werden kann.";
		alert(text);
		return false;
	}
	var r = parseFloat(document.feuchterechner.relfeuchte.value.replace(/,/,'.'));
	var taupunkt = RHtoDP(T,r);
	document.feuchterechner.taupunkt.value = runde(taupunkt, 4);
	var mw = 18.016;
	var RStern = 8314.3;
	var dd = 100 * DD(T,r);
	var absfeuchte = 1000 * mw/RStern * dd/CelsiusToKelvin(T);
	document.feuchterechner.absfeuchte.value = runde(absfeuchte, 4);
	return false;
}

function CelsiusToKelvin(T) {
	return T + 273.15;
}