:- module(verdamping_water_aarde,[verdamping_water_aarde/1]).:- style_check(-discontiguous).
label("Verdamping | Hydrologie | Meteorologie | EDAG.").
edag(verdamping_water_aarde,"./verdamping_water_aarde/verdamping_water_aarde.svg").
url("https://nl.wikipedia.org/wiki/Wolk").
url("https://nl.wikipedia.org/wiki/Rivierdelta").
url("https://nl.wikipedia.org/wiki/Verdamping").
url("https://en.wikipedia.org/wiki/Water_distribution_on_Earth").
url("https://ocw.tudelft.nl/wp-content/uploads/Hydrologie-hfdst-5.pdf").
url("https://nl.wikipedia.org/wiki/Rivier").
url("https://nl.wikipedia.org/wiki/Oceaan").
url("https://en.wikipedia.org/wiki/Interception_(water)").
url("https://nl.wikipedia.org/wiki/Interceptie_(hydrologie)").
url("https://nl.wikipedia.org/wiki/Sublimatie").
url("https://nl.wikipedia.org/wiki/Permafrost").
lucht("relatieve_vochtigheid < 100%").
lucht("relatieve_vochtigheid = 100%").
lucht("temperatuur > dauwpunt").
verdamping(water, "temperatuur > 0° C").
waterdruppels("gemiddeld 20 micron").
hoogte("2000-16000 meter").
img("./cloud.png").
afvloeien(van,hoog,naar,laag).
afvloeien(van,hoog,naar,zeeniveau).
url("https://nl.wikipedia.org/wiki/Transpiratie_(biologie)").
ltext("Dit is het proces waarbij water door planten wordt opgenomen en vervolgens via de huidmondjes in de bladeren verdampt.").
ltext("De planten gebruiken dit proces voor het transport van voedingsstoffen en het reguleren van hun temperatuur.").
ltext("Dat water wordt ook voor ongeveer 5 procent gebruikt voor fotosynthese.").
img("Transspiratie.jpg").
text("Aanslag van waterdruppels op de glazen stolp").
opvang(niet,doorlaatbare,oppervlakten).
permafrost("15%",noordelijk,halfrond).
grondijs(poolijs,gletjers).
zee_ijs(noordpool).
percentage(water,aarde,"97%").
prove :-
	condensatie(druppelvorming,rond_condesatiekernen),
	afvloeien(zoet,water,naar,zee),
	verdamping(zoet,water,atmosfeer),
	verdamping(zout,water,atmosfeer),
	transpireren,
	verdamping(interceptie,neerslag,atmosfeer),
	sublimeren(grondijs,zee_ijs,permafrost).
condensatie(druppelvorming,rond_condesatiekernen) :-
	url("https://nl.wikipedia.org/wiki/Wolk"),
	waterdamp(opstijgend),
	condensaat(stijgende,waterdamp,atmosfeer).
afvloeien(zoet,water,naar,zee) :-
	url("https://nl.wikipedia.org/wiki/Rivierdelta"),
	opslag(zoet,water,rivieren_en_meren),
	opslag(zout,water,oceanen).
verdamping(zoet,water,atmosfeer) :-
	url("https://nl.wikipedia.org/wiki/Verdamping"),
	opslag(zoet,water,rivieren_en_meren),
	waterdamp(opstijgend).
transpireren :-
	waterdamp(transpiratie,landplanten),
	waterdamp(opstijgend).
verdamping(zout,water,atmosfeer) :-
	url("https://en.wikipedia.org/wiki/Water_distribution_on_Earth"),
	opslag(zout,water,oceanen),
	waterdamp(opstijgend).
waterdamp(transpiratie,landplanten) :-
	url("https://nl.wikipedia.org/wiki/Transpiratie_(biologie)"),
	ltext("Dit is het proces waarbij water door planten wordt opgenomen en vervolgens via de huidmondjes in de bladeren verdampt."),
	ltext("De planten gebruiken dit proces voor het transport van voedingsstoffen en het reguleren van hun temperatuur."),
	ltext("Dat water wordt ook voor ongeveer 5 procent gebruikt voor fotosynthese."),
    img("Transspiratie.jpg"),
	text("Aanslag van waterdruppels op de glazen stolp").
verdamping(interceptie,neerslag,atmosfeer) :-
	url("https://nl.wikipedia.org/wiki/Interceptie_(hydrologie)"),
	interceptie(neerslag,bodem,vegetatie,gebouwen),
	waterdamp(opstijgend).
waterdamp(opstijgend) :-
		lucht("relatieve_vochtigheid < 100%"),
		lucht("temperatuur > dauwpunt"),
		verdamping(water, "temperatuur > 0° C").
condensaat(stijgende,waterdamp,atmosfeer) :-
	url("https://ocw.tudelft.nl/wp-content/uploads/Hydrologie-hfdst-5.pdf"),
		lucht("relatieve_vochtigheid = 100%"),
		waterdruppels("gemiddeld 20 micron"),
		hoogte("2000-16000 meter"),
	img("./cloud.png").
opslag(zoet,water,rivieren_en_meren) :-
	url("https://nl.wikipedia.org/wiki/Rivier"),
	afvloeien(van,hoog,naar,laag).
opslag(zout,water,oceanen) :-
	url("https://nl.wikipedia.org/wiki/Oceaan"),
		percentage(water,aarde,"97%"),
	afvloeien(van,hoog,naar,zeeniveau).
interceptie(neerslag,bodem,vegetatie,gebouwen) :-
	url("https://en.wikipedia.org/wiki/Interception_(water)"),
	opvang(niet,doorlaatbare,oppervlakten).
sublimeren(grondijs,zee_ijs,permafrost) :-
	url("https://nl.wikipedia.org/wiki/Sublimatie"),
	sublimatie(grondijs,zee_ijs,permafrost),
	waterdamp(opstijgend).
sublimatie(grondijs,zee_ijs,permafrost) :-
	url("https://nl.wikipedia.org/wiki/Permafrost"),
		permafrost("15%",noordelijk,halfrond),
	grondijs(poolijs,gletjers),
	zee_ijs(noordpool).