//zakladni veliciny
var tlak = 100;//kPa
var vlhkost = 20;//%
var teplota_vzduch = 21;//˚C
var turbo = 'ne';//'turbo'

//parametry
var moment = 200;//Nm
var vykon = 100;//kW
var mernaSpotreba = 300;//g/kW/hod

//vysledek
var isoKonst = isokorekce();
var isoMoment = isoMoment();
var isoMernaSpotreba = isoMernaSpotreba();
var isoVykon = isoVykon();

console.log('isoKonst = '+isoKonst);
console.log('isoMoment = '+isoMoment);
console.log('isoMernaSpotreba = '+isoMernaSpotreba);
console.log('isoVykon = '+isoVykon);

function isokorekce()
{

    //zakladni podminky
    if(turbo == 'turbo') return 1.000;
    if(tlak < 0) return 5;
    if(vlhkost < 0) return 6;
    if(teplota_vzduch < -1) return 7;


    var tlakPar = parc_tlakP(teplota_vzduch, vlhkost/100);
    var isokor;

    if((tlak-tlakPar) > 0)
    {
        isokor = 99/(tlak-tlakPar);
    }
    else
    {
        return 1.000;
    }

    isokor = 1.2*Math.log(isokor);

    isokor = isokor + 0.6*Math.log((273+teplota_vzduch)/298);

    isokor = Math.exp(isokor);

    return isokor;
}

function parc_tlakP(tep_vzduch, vlhk){

    // v kPa pro T 10 az 40
    var new_tlak_par = [
        1.2513,1.3376,1.4291,1.5261,1.6289,1.7376,1.8527,1.9745,2.103,2.239,
        2.383,2.534,2.694,2.864,3.041,3.229,3.426,3.634,3.853,4.083,
        4.325,4.580,4.847,5.128,5.423,5.733,6.057,6.398,6.755,7.129,
        7.520];

    //par tlak par v kPa pro T 10 az 40°C
    //vlhkost 0 az 1

    if(tep_vzduch>45 || tep_vzduch<10) return 0;
    if(vlhk<0.01 || vlhk > 1) return 0;

    var i = Math.round(tep_vzduch);

    if(i>40) i = 40;

    return new_tlak_par[i-10]*vlhk;
}

function isoMoment()
{
    var ISOkorekce = isokorekce();
    return moment * ISOkorekce;
}


function isoMernaSpotreba(){

    var isokor = isokorekce();

    if(isokor < 0.2) return 0;

    return mernaSpotreba/isokor;
}

function isoVykon()
{
    var ISOkorekce = isokorekce();
    return vykon * ISOkorekce;
}