// www.thestorff.de

// lineare Interpolation
function Interpolation (X,Xarr,Yarr) {
 anz=Xarr.length-1;
 for (i=0; i<anz; i++) {
  if (X>=Xarr[i] && X<=Xarr[i+1]) {
   min=i; max=i+1;
  }
 }
 return Yarr[min]+(Yarr[max]-Yarr[min])/(Xarr[max]-Xarr[min])*(X-Xarr[min]);
}

// Luftfeuchte berechnen
function luftfeuchte_berechnen(Saettigungsmenge, Temperatur) {
 AusgTemp = 0;
 AusgSaeMeWasser = 0;
 AusgTemp = Math.max(Math.min(parseFloat(document.F1.T1.value),100),0);
 document.F1.T1.value = AusgTemp;
 AusgSaeMeWasser=Interpolation (AusgTemp, Temperatur, Saettigungsmenge);
 document.F1.S1.value = ((AusgSaeMeWasser * 100) / 100).toPrecision(6);

 AusgRelFeu = 0;
 AusgAbsFeu = 0;
 AusgRelFeu =  Math.max(Math.min(parseFloat(document.F1.RF1.value),100),0);
 document.F1.RF1.value = AusgRelFeu;
 AusgAbsFeu = AusgSaeMeWasser * AusgRelFeu / 100;
 document.F1.AF.value = ((AusgAbsFeu * 100) / 100).toPrecision(6);

 Taupunkt = 0;
 if (AusgAbsFeu<Saettigungsmenge[0]) {
  document.F1.TP.value = "Error: unter 0";
 }
 else {
 Taupunkt=Interpolation (AusgAbsFeu, Saettigungsmenge, Temperatur);
 document.F1.TP.value = ((Taupunkt * 100) / 100).toPrecision(6);
 }

 Luftmenge = 0;
 MaxWasser = 0;
 EnthWasser = 0;
 Luftmenge = Math.abs(parseFloat(document.F1.V.value));
 document.F1.V.value = Luftmenge;
 MaxWasser = AusgSaeMeWasser * Luftmenge;
 EnthWasser = AusgAbsFeu * Luftmenge;
 document.F1.Wm.value = ((MaxWasser * 100) / 100).toPrecision(6);
 document.F1.We.value = ((EnthWasser * 100) / 100).toPrecision(6);

 ZielTemp = 0;
 ZielSaeMeWasser = 0;
 ZielTemp = Math.max(Math.min(parseFloat(document.F1.T2.value),100),0);
 document.F1.T2.value = ZielTemp;
 ZielSaeMeWasser=Interpolation (ZielTemp, Temperatur, Saettigungsmenge);
 document.F1.S2.value = ((ZielSaeMeWasser * 100) / 100).toPrecision(6);

 ZielMaxWasser = 0;
 BerRelFeu = 0;
 Niederschlag = 0;
 ZielMaxWasser = ZielSaeMeWasser * Luftmenge;
 document.F1.Wm2.value = ((ZielMaxWasser * 100) / 100).toPrecision(6);
 BerRelFeu = AusgAbsFeu / ZielSaeMeWasser * 100;

 if (BerRelFeu > 100) {
  ZielRelFeu = 100;
  Niederschlag = EnthWasser - ZielMaxWasser;
 }
 else {
  ZielRelFeu = BerRelFeu;
  Niederschlag = 0;
 }
 document.F1.RF2.value = ((ZielRelFeu * 100) / 100).toPrecision(6);
 document.F1.NS.value = ((Niederschlag * 100) / 100).toPrecision(6);
}

// Hauptscript

Temperatur=new Array;
Temperatur[0]=new Array(
0,1,2,3,4,5,6,7,8,9,10,
11,12,13,14,15,16,17,18,19,20,
21,22,23,24,25,26,27,28,29,30,
35,40,45,50,55,60,65,
70,75,80,85,90,95,100)
Saettigungsmenge=new Array;
Saettigungsmenge[0]=new Array(
4.84843,5.19317,5.55921,5.94766,6.35967,6.79642,7.25917,7.74919,8.26783,8.81648,9.39658,
10.0096,10.6572,11.3408,12.0623,12.8232,13.6254,14.4707,15.3611,16.2984,17.2848,
18.3224,19.4132,20.5596,21.7638,23.0283,24.3554,25.7477,27.2079,28.7385,30.3424,
39.5623,51.0726,65.3114,82.7730,104.011,129.642,160.344,
196.863,240.011,290.669,349.782,418.369,497.511,588.359)
Farbe=new Array;
Farbe[0]="#00F";

// Tabellenwerte aus Wikipedia "Sättigung"

Para=new Array();
Para["Ymax"]=600;	Para["Xmax"]=100;
Para["Yoffset"]=0;	Para["Xoffset"]=-0;
Para["Yfenster"]=700;	Para["Xfenster"]=600;
Para["Yposi"]=60;	Para["Xposi"]=60;
Para["Ybereich"]=600;	Para["Xbereich"]=500;
Para["Yscala1"]=60;	Para["Yscala1Fa"]="#999";
Para["Yscala2"]=10;	Para["Yscala2Fa"]="#009";
Para["Yscala3"]=5;
Para["Xscala1"]=100;	Para["Xscala1Fa"]="#999";
Para["Xscala2"]=10;	Para["Xscala2Fa"]="#009";
Para["Xscala3"]=5;
Para["ScalaBr1"]=10;	Para["ScalaBr2"]=20;
Para["ScalaBr3"]=15;
Para["Yraster1"]=12;	Para["Yraster1Fa"]="#bbb";
Para["Yraster2"]=2;	Para["Yraster2Fa"]="#999";
Para["Xraster1"]=10;	Para["Xraster1Fa"]="#bbb";
Para["Xraster2"]=2;	Para["Xraster2Fa"]="#999";
Para["Schrift"]="italic 16px monospace";
Para["Utext"]="Sättigungsmenge als Funktion der Temperatur","#000";
Para["UtextFa"]="#000";	Para["YtextEin"]=10;
Para["Ytext"]="Sättigungsmenge 0 bis 600 g/m³";
Para["YtextFa"]="#000";	Para["YtextEin"]=10;
Para["Xtext"]="Temperarur 0 bis 100 °C";
Para["XtextFa"]="#000";	Para["XtextEin"]=10;

// draw aufrufen
// berechnen aufrufen mit jQuery

$(document).ready(function() {
 drawFunction("grafik",Temperatur,Saettigungsmenge,Farbe,Para);
 $("#Luftfeuchte-berechnen").on("click", function() {
  luftfeuchte_berechnen(Saettigungsmenge[0], Temperatur[0]);
 });
});