var vocht;
var hoogte;
var gegevens = new Array(0.8,0.10,0.12,0.14,0.16,0.18,0.19,0.20,0.22,0.23,0.25,0.26,0.28,0.31,0.34,0.37,0.40,0.44,0.48,0.52,0.56,0.61,0.66,0.71,0.76,0.81,0.87,0.93,1.00,1.07,1.15,1.23,1.31,1.40,1.50,1.60,1.71,1.82,1.94,2.06,2.20,2.34,2.49,2.64,2.81,2.98,3.17,3.36,3.56,3.78,4.00,4.24,4.52,4.79,5.07,5.34,5.62,5.97,6.32,6.68,7.03,7.38,7.73);
var tdl;
var damp;
var maxdamp;
var indicator;
var T;
var dauwpunt;

function getDauwpunt(vocht,temp) {
    vocht = parseInt(vocht);
    temp = parseInt(temp);
    if(temp > -22 && temp < 41) {
        maxdamp = gegevens[temp+21];
        tdl = maxdamp;
        damp = vocht * maxdamp / 100;
        for (T = -21; T<41; T++) {
            indicator = T + 21;
            maxdamp = gegevens[indicator];
            if (damp >= maxdamp) {
                dauwpunt = T;
            }
        }
        return dauwpunt+' graden Celsius';
    }
    else {
        return 'Je kunt temperaturen tussen de -21 en de 41 graden Celsius berekenen.';
    }
}

/*
    De arrays:
*/

var namen = new Array('Cirrus','Cirrostratus','Altocumulus lenticularis','Cumulus congestus','Cirrus uncinus',
'Cirrostratus radiatus','Cumulonimbus incus','Altocumulus undulatus','Altocumulus castellanus','Altocumulus castellanus en floccus',
'Cumulonimbus tuba','Cumulonimbus mama','Cumulus humilus','Cumulus','Altocumulus','Stratocumulus');

var types = ['Ru','Kr','W','Z','O','N'];

var buttonTxt = ['Help! (inschakelen)', 'Help! (uitschakelen)'];

var d = new Array();
d['Cirrus'] = new Array();
d['Cirrus'][0] = 'Windveren langzaam voortbewegend.';
d['Cirrus']['Ru'] = 'Slecht weer-gebied trekt weg, afnemend buiig, zonniger.';
d['Cirrus']['Kr'] = 'Aanwakkerende wind uit west tot zuid, snelle verslechtering.';
d['Cirrus']['W'] = 'Opklaringen, gevolgd door regen en wind.';
d['Cirrus']['Z'] = 'Opklaringen, gevolgd door regen en wind.';
d['Cirrus']['O'] = 'Onzeker weer.';
d['Cirrus']['N'] = 'Eerst vrij goed weer, later regen en meer wind.';
d['Cirrostratus'] = new Array();
d['Cirrostratus'][0] = 'Melklucht met halo: kring om de zon of de maan.';
d['Cirrostratus']['Ru'] = 'Tijdelijk meer bewolking met kleine kans op neerslag.';
d['Cirrostratus']['Kr'] = 'Regen of sneeuw en wind binnen 24 uur.';
d['Cirrostratus']['W'] = 'Neerslag binnen 24 uur; meer wind.';
d['Cirrostratus']['Z'] = 'Regen, sneeuw of onweer binnen 24 uur. Hoe feller de kring des te meer neerslag en wind.';
d['Cirrostratus']['O'] = 'Regen, sneeuw of onweersstoring.';
d['Cirrostratus']['N'] = 'Neerslag binnen 24 uur en meer wind.';
d['Altocumulus lenticularis'] = new Array();
d['Altocumulus lenticularis'][0] = 'Lensvormige schapenwolken.';
d['Altocumulus lenticularis']['Ru'] = 'Eerst goed weer, later verslechtering.';
d['Altocumulus lenticularis']['Kr'] = 'Toenemende bewolking, gevolgd door neerslag; in zomer onweer en windvlagen.';
d['Altocumulus lenticularis']['W'] = 'Toenemende bewolking, gevolgd door neerslag en meer wind.';
d['Altocumulus lenticularis']['Z'] = 'Toenemende bewolking gevolgd door neerslag, in de zomer onweer en windvlagen.';
d['Altocumulus lenticularis']['O'] = 'Toenemende bewolking gevolgd door neerslag, in de zomer onweer en windvlagen.';
d['Altocumulus lenticularis']['N'] = 'Eerst goed weer, later verslechtering.';
d['Cumulus congestus'] = new Array();
d['Cumulus congestus'][0] = 'Gezwollen stapelwolk, in omvang en aantal toenemend.';
d['Cumulus congestus']['Ru'] = 'Kans op regenbui, maar bij afplatten wolkentop afnemende bewolking.';
d['Cumulus congestus']['Kr'] = 'Kans op regen- of onweersbui, maar bij afplatten wolkentop weersverbetering.';
d['Cumulus congestus']['W'] = 'Kans op een bui.';
d['Cumulus congestus']['Z'] = 'Kans op regen- of onweersbui later op de dag. Windstoten mogelijk.';
d['Cumulus congestus']['O'] = 'Kans op regen- of onweersbui later op de dag. Windstoten mogelijk.';
d['Cumulus congestus']['N'] = 'Grote kans op regen.';
d['Cirrus uncinus'] = new Array();
d['Cirrus uncinus'][0] = 'Windveren in kommavorm of haakjes, snel opkomend.';
d['Cirrus uncinus']['Ru'] = 'Onstandvastig weer.';
d['Cirrus uncinus']['Kr'] = 'Verslechtering. Hoe sneller de windveren opkomen des te eerder de neerslag.';
d['Cirrus uncinus']['W'] = 'Neerslag en wind.';
d['Cirrus uncinus']['Z'] = 'Toenemende bewolking; neerslag; meer wind.';
d['Cirrus uncinus']['O'] = 'Toenemende bewolking; later neerslag.';
d['Cirrus uncinus']['N'] = 'Toenemende bewolking; later neerslag; meer wind.';
d['Cirrostratus radiatus'] = new Array();
d['Cirrostratus radiatus'][0] = 'Poolbanden of windbomen.';
d['Cirrostratus radiatus']['Ru'] = 'Korte tijd beter weer, kans op nieuwe storing.';
d['Cirrostratus radiatus']['Kr'] = 'Neerslag en aanwakkerende wind. In de winter sneeuwbuien.';
d['Cirrostratus radiatus']['W'] = 'Neerslag en aanwakkerende wind.';
d['Cirrostratus radiatus']['Z'] = 'Neerslag en aanwakkerende wind.';
d['Cirrostratus radiatus']['O'] = 'Kans op regen.';
d['Cirrostratus radiatus']['N'] = 'Regen of sneeuw, aanwakkerende wind.';
d['Cumulonimbus incus'] = new Array();
d['Cumulonimbus incus'][0] = 'Buienwolk met aambeeld.';
d['Cumulonimbus incus']['Ru'] = 'Geleidelijk minder buien, meer zon.';
d['Cumulonimbus incus']['Kr'] = 'Kans op regen-, sneeuw- of onweersbui. ';
d['Cumulonimbus incus']['W'] = 'Buien; voornamelijk in \'t binnenland.';
d['Cumulonimbus incus']['Z'] = 'Buien \'s morgens vroeg; \s middags opklaringen.';
d['Cumulonimbus incus']['O'] = 'Buiig; in de zomer onweer.';
d['Cumulonimbus incus']['N'] = 'Aanhoudend buiig en wisselvallig.';
d['Altocumulus undulatus'] = new Array();
d['Altocumulus undulatus'][0] = 'Morgenrood.';
d['Altocumulus undulatus']['Ru'] = '"Morgenrood, water in de sloot."';
d['Altocumulus undulatus']['Kr'] = '"Morgenrood, water in de sloot."';
d['Altocumulus undulatus']['W'] = '"Morgenrood, water in de sloot."';
d['Altocumulus undulatus']['Z'] = '\'s Middags onweerskansen in de zomer.';
d['Altocumulus undulatus']['O'] = '\'s Middags onweerskansen in de zomer.';
d['Altocumulus undulatus']['N'] = 'Regen of buien.';
d['Altocumulus castellanus'] = new Array();
d['Altocumulus castellanus'][0] = 'Kanteelachtige uitstulpingen of torentjes op vlakke wolkenbasis.';
d['Altocumulus castellanus']['Ru'] = 'Voorbode van onweer binnen ca. 12 uur; in voorzomer alleen boven land.';
d['Altocumulus castellanus']['Kr'] = 'Voorbode van onweer binnen ca. 12 uur; vooral bij warm weer.';
d['Altocumulus castellanus']['W'] = 'Voorbode van onweer binnen ca. 12 uur;';
d['Altocumulus castellanus']['Z'] = 'Voorbode van onweer, meestal in de namiddag en avond.';
d['Altocumulus castellanus']['O'] = 'Voorbode van onweer, meestal in de namiddag en avond.';
d['Altocumulus castellanus']['N'] = 'Kans op onweer.';
d['Altocumulus castellanus en floccus'] = new Array();
d['Altocumulus castellanus en floccus'][0] = 'Chaotische lucht.';
d['Altocumulus castellanus en floccus']['Ru'] = 'Afnemende kans op regen en windstoten.';
d['Altocumulus castellanus en floccus']['Kr'] = 'Grote kans op onweer met slagregens en rukwinden.';
d['Altocumulus castellanus en floccus']['W'] = 'Grote kans op onweer met wolkbreuk en rukwinden.';
d['Altocumulus castellanus en floccus']['Z'] = 'Zeer grote kans op onweer met wolkbreuk en rukwinden.';
d['Altocumulus castellanus en floccus']['O'] = 'Zeer grote kans op onweer met wolkbreuk en rukwinden.';
d['Altocumulus castellanus en floccus']['N'] = 'Grote kans op onweer met slagregens en rukwinden.';
d['Cumulonimbus tuba'] = new Array();
d['Cumulonimbus tuba'][0] = 'Hozenlucht.';
d['Cumulonimbus tuba']['Ru'] = 'Buienlucht. Kans op onweer, hagel en rukwinden. Gevaar voor windhoos.';
d['Cumulonimbus tuba']['Kr'] = 'Buienlucht. Kans op onweer, hagel en rukwinden. Gevaar voor windhoos.';
d['Cumulonimbus tuba']['W'] = 'Buienlucht. Kans op onweer, hagel en rukwinden. Gevaar voor windhoos.';
d['Cumulonimbus tuba']['Z'] = 'Buienlucht. Kans op onweer, hagel en rukwinden. Gevaar voor windhoos.';
d['Cumulonimbus tuba']['O'] = 'Buienlucht. Kans op onweer, hagel en rukwinden. Gevaar voor windhoos.';
d['Cumulonimbus tuba']['N'] = 'Buienlucht. Kans op onweer, hagel en rukwinden. Gevaar voor windhoos.';
d['Cumulonimbus mama'] = new Array();
d['Cumulonimbus mama'][0] = 'Met uitstulpingen omlaag';
d['Cumulonimbus mama']['Ru'] = 'Onweer snel voorbij, daarna opklaringen.';
d['Cumulonimbus mama']['Kr'] = 'Snel opkomend zwaar onweer met slagregens en rukwinden.';
d['Cumulonimbus mama']['W'] = 'Onweersbuien, mogelijke rukwinden.';
d['Cumulonimbus mama']['Z'] = 'Snel opkomend zwaar onweer met slagregens en rukwinden.';
d['Cumulonimbus mama']['O'] = 'Grote kans op onweer, heftige regen en windstoten.';
d['Cumulonimbus mama']['N'] = 'Onweer snel voorbij, daarna opklaringen.';
d['Cumulus humilus'] = new Array();
d['Cumulus humilus'][0] = 'Mooi-weer-wolk.';
d['Cumulus humilus']['Ru'] = 'Enkele dagen vast en droog weer.';
d['Cumulus humilus']['Kr'] = 'Vandaag mooi, kans op windveren en schaapjeswolken.';
d['Cumulus humilus']['W'] = '\'t Blijft mooi en zonnig.';
d['Cumulus humilus']['Z'] = 'Mooi, maar minder zonnig; \'s zomers heet.';
d['Cumulus humilus']['O'] = '\'t Blijft mooi en zonnig; \'s zomers warmer.';
d['Cumulus humilus']['N'] = '\'t Blijft mooi en zonnig.';
d['Cumulus'] = new Array();
d['Cumulus'][0] = 'Opbolling en buiigheid worden onderdrukt.';
d['Cumulus']['Ru'] = 'Afnemende buiigheid; wolkenvelden.';
d['Cumulus']['Kr'] = 'Korte tijd beter weer met zon, later meer wolken en regen.';
d['Cumulus']['W'] = 'Geen buien meer, minder wind.';
d['Cumulus']['Z'] = 'Geen buien meer, \'s zomers warmer.';
d['Cumulus']['O'] = 'Geen buien meer; zonnniger, \'s zomers warmer.';
d['Cumulus']['N'] = 'Afnemende buiigheid, overgang naar wolkenvelden.';
d['Altocumulus'] = new Array();
d['Altocumulus'][0] = 'Schaapjeswolken in verschillende lagen bij aanhoudend rustig weer.';
d['Altocumulus']['Ru'] = 'Weersverbetering vanaf morgen.';
d['Altocumulus']['Kr'] = 'Toenemende bewolking; weinig of geen regen.';
d['Altocumulus']['W'] = 'Tijdelijk meer bewolking; weinig of geen regen.';
d['Altocumulus']['Z'] = 'Toenemende bewolking; weinig of geen regen.';
d['Altocumulus']['O'] = 'Weersverbetering; \'s zomers warmer.';
d['Altocumulus']['N'] = 'Eerst meer bewolking; droog en rustig weer.';
d['Stratocumulus'] = new Array();
d['Stratocumulus'][0] = 'In schollen, oplossend.';
d['Stratocumulus']['Ru'] = 'Droog weer met af en toe zon.';
d['Stratocumulus']['Kr'] = 'Eerst droog, later wat minder stabiel, iets meer wind.';
d['Stratocumulus']['W'] = 'Opklaringen, gematigde temperaturen.';
d['Stratocumulus']['Z'] = 'Zonnige perioden; \'s zomers drukkend warm.';
d['Stratocumulus']['O'] = 'Droog, zonniger en \'s zomers warmer.';
d['Stratocumulus']['N'] = 'Weinig verandering.';

/*
    TQ 2004, team lld011
    Weersverwachting en voorspelling aan de hand van wolken.

    Het JS bestand
*/
var pointer = 0;
var selR = 'none';
var helpid = 'help';
var helpen = false; // boolean voor help switch
var IE = document.all?true:false; // fake, ik weet het..

function switchWolk(msg) {
    document.getElementById('wolkPic').src = 'voorspellen/'+msg+'.jpg';
    document.getElementById('wolkNaam').firstChild.nodeValue = msg;
    if (selR != 'none') {
        switchWeer(selR);
    }
}
function wolk(w) {
    document.getElementById('wolkinfo').firstChild.nodeValue = w;
}

function switchWeer(naam) {
    document.getElementById('output').firstChild.nodeValue = d[namen[pointer]][naam];
    if (selR != 'none') {
        document.getElementById(selR).className = 'klein';
    }
    document.getElementById(naam).className = 'sel';
    selR = naam;
}

function volgendeWolk() {
    if (pointer+1 == namen.length) {
        pointer = 0;
    }
    else {
        pointer++;
    }
    switchWolk(namen[pointer]);
    wolk(d[namen[pointer]][0]);
}

function vorigeWolk() {
    if (pointer-1 < 0) {
        pointer = namen.length-1;
    }
    else {
        pointer--;
    }
    switchWolk(namen[pointer]);
    wolk(d[namen[pointer]][0]);
}
function switchButtonTxt() {
    txt = helpen?1:0;
    document.getElementById('helpButton').value = buttonTxt[txt];
}
// lomp typewerk oplossen door interessante functie ;-)
function d() {
    var n = 'var d = new Array();\n';
    for (var i=0;i<namen.length;i++) {
        n += 'd[\''+namen[i]+'\'] = new Array();\n'+
        'd[\''+namen[i]+'\'][0] = \'\';\n';
        for(var j=0;j<types.length;j++) {
            n += 'd[\''+namen[i]+'\'][\''+types[j]+'\'] = \'\';\n';
        }
    }
    document.getElementById('output').firstChild.nodeValue = n;
}

window.onload = function() { switchWolk(namen[0]); wolk(d['Cirrus'][0]); }