if(document.layers)
{
	eGrenztext=document.grenztext;
}
else
{
	eGrenztext=grenztext.style;
}


function InputChecker(stri){

	checkstring = '';
	checkstring=stri;
	jetzt = checkstring.replace(/,/,".");
	
	return jetzt;
}  


function round(num) {

if(num) {
    raw = Math.round(num * 100000) / 100000;
    sum_raw = raw.toString().split(".");
    if(sum_raw.length > 1) { 
      if(sum_raw[1].length == 1) {
        sum_raw[1] += '0';
      }
      if(sum_raw[1].length == 0) {
        sum_raw[1] += '00000';
      }
    }
    else {
      sum_raw[1] = '00000';
    }
    if(sum_raw[0].length == 0) {
      sum_raw[0] += '0';
    }
    sum = sum_raw[0]+","+sum_raw[1];
    return sum;
  }
  else {
    return "keine Zahl übergeben";
  }
}

var x = 0;
var y = 0;
var platz=240; // verfügbare Länge
var faktor=1;
var anwend = 0;
var rand = 5;
var einheit='';
var einhhh ="keineAusnahme";


function roundzwei(num) {

if(num) {
    raw = Math.round(num * 100) / 100;
    sum_raw = raw.toString().split(".");
    if(sum_raw.length > 1) { 
      if(sum_raw[1].length == 1) {
        sum_raw[1] += '0';
      }
      if(sum_raw[1].length == 0) {
        sum_raw[1] += '00';
      }
    }
    else {
      sum_raw[1] = '00';
    }
    if(sum_raw[0].length == 0) {
      sum_raw[0] += '0';
    }
    sum = sum_raw[0]+","+sum_raw[1];
    return sum;
  }
  else {
    return "keine Zahl übergeben";
  }
}

function getWert(){

	for(i=0;i<document.Rechner.einheit.length;++i)
	{
		if(document.Rechner.einheit.options[i].selected == true)
		{
			option_vari=eval(document.Rechner.einheit.options[i].value);
		}
	}

	return option_vari;
}

function umrechnenwert(){

	// Werte und Einheiten umrechnen
	// 1. Faktoren bzw. Wert aus der Klappbox lesen

	rEinheitFaktor=getWert();
	rEinheitIndex=document.Rechner.einheit.selectedIndex;
	rAnwendung= getAnwendung();
	x=InputChecker(document.Rechner.wert.value);

	// Init Variable
	summi=0;
	// Ausnahmen
	//alert(rEinheitIndex);
	if(rEinheitIndex==6){einhhh="V/M";}
	if(rEinheitIndex==7){einhhh="V/M";}
	if(rEinheitIndex==8){einhhh="V/M";}

	if(einhhh =="V/M" && (rAnwendung>=6 && rAnwendung<=8)){einhhh="efeld";}// Leerfeld Niederfrequenz Haushalt 50 Hz und 16,667 Hz

	if(einhhh =="V/M")
	{
		//summi=((x*x)/377);
                summi=Math.pow(x, 2)/377;  
		if(rEinheitIndex==6){summi=summi*1;}
		if(rEinheitIndex==7){summi=summi*0.000001;}//Umrechnung W/m2 in mW/m Ergebnis ist ja V/m 
		if(rEinheitIndex==8){summi=summi*1000;}//Umrechnung W/m2 in kV/m
		
	}
	
	if(einhhh=="efeld")
	{
		// Elektrisches Feld berechnen
		if(rEinheitIndex==6){summi=x*1;}
		if(rEinheitIndex==7){summi=x*1000;}//Umrechnung V/m in mV/m  
		if(rEinheitIndex==8){summi=x*0.001;}//Umrechnung V/m in kV/m
	}

	if(einhhh=="keineAusnahme"){summi=(x/rEinheitFaktor);} // Faktoren in value = ueberdecken sich und sind somit nicht eindeutig

	return summi;
}

function Ergebnis2(){

	if(document.Rechner.wert.value != '')
	{
		x=InputChecker(document.Rechner.wert.value);
		summi=umrechnenwert();
		getGrenzwerte();
	}
	else
	{
		alert('Kein Wert eingegeben');
	}
}

// Grenzwerttext Layer beschreiben
function showGWText(mess){

	if(document.layers)
	{
		tab1='<TABLE WIDTH="240" BORDER="0" HEIGHT="73"><TR VALIGN="TOP"><TD>';
		tab2 ="</TD></TR></TABLE>";

		eGrenztext.document.write(tab1+mess+tab2);
		eGrenztext.document.close();
	}
	else
	{
		grenztext.innerHTML = mess;
	}
}

function getAnwendung(){

	for(i=0;i<document.Rechner.anwendung.length;++i)
	{
		if(document.Rechner.anwendung.options[i].selected == true)
		anwendung =eval(document.Rechner.anwendung.options[i].value);
	}
	
	return anwendung;
}
// ---------------------------
// GET GRENZWERTE
// -----------------------------
//<img src='../pic/entspricht.gif' width='15' height='8' border='0'>

function getGrenzwerte(){

	// Anwendung aus der Klappbox holen
	anwend=getAnwendung();

	// Falls Magnetfeld oder Elektrisches Feld gew&auml;hlt ist Berechnung (summi) nicht anzeigen
	gwtxt ="Einheit und Anwendung sind nicht m&ouml;glich"
	showGWText(gwtxt);

	if(document.Rechner.einheit.selectedIndex <= 8)
	{
	
		// Grenzwerte setzen
		if(anwend==0)
		{
		  summi=summi*1000000;
			gwtxt = round(x) +" "+getEinheit()+" <img src='../pic/entspricht.gif' width='15' height='8' border='0'><br> " +roundzwei(summi)+ " &micro;W/m2";
			gwtxt +="<BR>W&auml;hlen Sie eine Anwendung <BR> z.B. D-Netz, Haushalt .."
			showGWText(gwtxt);
		}
		// UKW Fernseher 40-400 MHz 
		if(anwend==1)
		{
			// Faktor berechnen
			if (summi >= 2)
			{
				faktor = (platz*0.95)/summi;
			}
			else
			{
				faktor = (platz*0.95)/2;
			}
			summi=summi*1000000;
			gwtxt = round(x)+" "+getEinheit()+" <img src='../pic/entspricht.gif' width='15' height='8' border='0'><br>" +roundzwei(summi)+ " &micro;W/m2";
			gwtxt+="<br><br>Grenzwert BRD: 2 Mio. &micro;W/m <br> Richtwert Baubiologie: 10 &micro;W/m2";
	
			showGWText(gwtxt); 
		}

		// D-Netz 900 MHz
		if(anwend==2)
		{
			// Faktor berechnen
			if (summi >= 4.51)
			{
				faktor = (platz*0.95)/summi;
			}
			else
			{
				faktor = (platz*0.95)/4.51;
			}
			summi=summi*1000000;
			gwtxt = round(x)+" "+getEinheit()+" <img src='../pic/entspricht.gif' width='15' height='8' border='0'><br>" +roundzwei(summi)+ " &micro;W/m2";
			gwtxt+="<br><br>Grenzwert BRD: 4.5 Mio. &micro;W/m2<BR>";
			gwtxt+="Grenzwert CH: 45.000 &micro;W/m2<BR> Vorsorge Salzburg: 1.000 &micro;W/m2 <BR> Richtwert Baubiologie: 0,1 &micro;W/m2";

			showGWText(gwtxt); 
		}
		// E-Netz 1800 MHz
		if(anwend==3)
		{
			// Faktor berechnen
			if (summi >= 9)
			{
				faktor = (platz*0.95)/summi;
			}
			else
			{
				faktor = (platz*0.95)/9;
			}
			summi=summi*1000000;
			gwtxt = round(x)+" "+getEinheit()+" <img src='../pic/entspricht.gif' width='15' height='8' border='0'><br>" +roundzwei(summi)+ " &micro;W/m2";
			gwtxt+="<br><br>Grenzwert BRD: 9 Mio. &micro;W/m2<BR>";
			gwtxt+="Grenzwert CH: 90.000 &micro;W/m2<BR>";
			gwtxt+="Vorsorge Salzburg: 1000 &micro;W/m2<BR>";
			gwtxt+="Richtwert Baubiologie: 0,1 &micro;W/m2<BR>";

			showGWText(gwtxt); 
		}

		// DECT 1900 MHz
		if(anwend==4)
		{
			// Faktor berechnen
			if (summi >= 9)
			{
				faktor = (platz*0.95)/summi;
			}
			else
			{
				faktor = (platz*0.95)/9;
			}
			summi=summi*1000000;
			gwtxt = roundzwei(x)+" "+getEinheit()+" <img src='../pic/entspricht.gif' width='15' height='8' border='0'><br>" +roundzwei(summi)+ " &micro;W/m2";
			gwtxt+="<br><br>keine offiziellen Grenzwerte <Br> Richtwert Baubiologie: 0,1 &micro;W/m2";

			showGWText(gwtxt); 
		}

		// UMTS > 2000 MHz
		if(anwend==5)
		{
			// Faktor berechnen
			if (summi >= 10)
			{
				faktor = (platz*0.95)/summi;
			}
			else
			{
				faktor = (platz*0.95)/10;
			}
			summi=summi*1000000;
			gwtxt = roundzwei(x)+" "+getEinheit()+" <img src='../pic/entspricht.gif' width='15' height='8' border='0'><br>" +roundzwei(summi)+ " &micro;W/m2";
			gwtxt+="<br><br>Grenzwert BRD: 10 Mio. &micro;W/m2 <br> Technologie ist erst seit 2004 im Einsatz, daher existieren noch keine Richtwerte.";

			showGWText(gwtxt); 
		}
		//EndIF von der Hochfrequenz ------------------------
	}

	if(document.Rechner.einheit.selectedIndex >= 6)
	{
		// Checken ob magnetisches oder elektrisches Feld h&auml;ngt von der Einheit ab
		// Die Anwendung ist schon durch if(document.Rechner.einheit.selectedIndex >= 6) unterschieden
		// mT .. A/m = Magnetfeld
		// Elektrisches Feld = kV/m V/m mV/m
		if (anwend ==6 && einhhh=="efeld"){anwend=11;} // Elektrisches Feld
		if (anwend ==7 && einhhh=="efeld"){anwend=12;} //50 Hz Elektrisches Feld
		if (anwend ==8 && einhhh=="efeld"){anwend=13;} //16,667 Hz Elektrisches Feld

		// Niederfrequenz Allgemein bei Magnetfeld
		if(anwend==6)
		{
			summi=summi*1000;
			gwtxt = round(x)+" "+getEinheit()+" <img src='../pic/entspricht.gif' width='15' height='8' border='0'><br>" +roundzwei(summi)+ " nT";
			gwtxt+="<BR>Magnetfeld Niederfrequenz";
		
			showGWText(gwtxt); 
		}

		// 50 Hz Niederfrequenz Magnetfeld
		if(anwend==7)
		{
			if (summi >= 100)
			{
				faktor = (platz*0.95)/summi;
			}
			else
			{
				faktor = (platz*0.95)/100;
			}
			summi=summi*1000;
			gwtxt = round(x)+" "+getEinheit()+" <img src='../pic/entspricht.gif' width='15' height='8' border='0'><br>" +roundzwei(summi)+ " nT";
			gwtxt+="<br><br>Grenzwert BRD: 100.000 nT<BR>";
			gwtxt+="Grenzwert CH: 1.000 nT<BR>";
			gwtxt+="Empfehlung US-Kongress: 200 nT<BR> Richtwert Baubiologie: 20 nT";

			showGWText(gwtxt); 
		}
		// 16,67 Hz Niederfrequenz Magnetfeld
		if(anwend==8)
		{
			if (summi >= 300)
			{
				faktor = (platz*0.95)/summi;
			}
			else
			{
				faktor = (platz*0.95)/300;
			}
			summi=summi*1000;
			gwtxt = round(x)+" "+getEinheit()+" <img src='../pic/entspricht.gif' width='15' height='8' border='0'><br>" +roundzwei(summi)+ " nT";
			gwtxt+="<br><br>Grenzwert BRD: 300.000 nT<BR>";
			gwtxt+="Grenzwert CH: 1.000 nT<BR> Richtwert Baubiologie: 20 nT";

			showGWText(gwtxt); 
		}
		// 16,67 Hz Niederfrequenz Elektrischesfeld (keine Anwendung gew&auml;hlt)
		if(anwend==11)
		{
			gwtxt = round(x)+" "+getEinheit()+" <img src='../pic/entspricht.gif' width='15' height='8' border='0'><br>" +roundzwei(summi)+ " V/m";
			gwtxt+="<BR>Elektrisches Feld<BR>";

			showGWText(gwtxt); 
		}
		// Niederfrequenz Elektrisches Feld Haushalt 50 Hz
		if(anwend==12)
		{
			if (summi >= 5000)
			{
				faktor = (platz*0.95)/summi;
			}
			else
			{
				faktor = (platz*0.95)/5000;
			}

			gwtxt = round(x)+" "+getEinheit()+" <img src='../pic/entspricht.gif' width='15' height='8' border='0'><br>" +roundzwei(summi)+ " V/m";
			gwtxt+="<br><br>Grenzwert BRD: 5000 V/m<BR>";
			gwtxt+="Empfohlen ECOLOG-Institut  20 V/m";
		
			showGWText(gwtxt); 
		}
		// Niederfrequenz Elektrisches Feld Haushalt 16,667 Hz
		if(anwend==13)
		{
			if (summi >= 4000)
			{
				faktor = (platz*0.95)/summi;
			}
			else
			{
				faktor = (platz*0.95)/4000;
			}

			gwtxt = round(x)+" "+getEinheit()+" <img src='../pic/entspricht.gif' width='15' height='8' border='0'><br>" +roundzwei(summi)+ " V/m";
			gwtxt+="<br><br>Grenzwert BRD: 4000 V/m<BR>";
			gwtxt+="Empfohlen ECOLOG-Institut  20 V/m";

			showGWText(gwtxt); 
		}
	}
}

function getEinheit(){

einheit='-?-';
einh=document.Rechner.einheit.selectedIndex;

if(einh==0)einheit="W/m2";
if(einh==1)einheit="mW/m2";
if(einh==2)einheit="&micro;W/m2";
if(einh==3)einheit="mW/cm2";
if(einh==4)einheit="&micro;W/cm2";
if(einh==5)einheit="nW/cm2";
if(einh==6)einheit="V/m";
if(einh==7)einheit="mV/m";
if(einh==8)einheit="kV/m";
if(einh==9)einheit="mT";
if(einh==10)einheit="&micro;T";
if(einh==11)einheit="nT";
if(einh==12)einheit="A/m";

return einheit;
}