Minera-malli

Metodit

Ekologisten vaikutusten arviointi · Hajuhaitan arviointi kaivostoiminnassa · Hiukkaslaskeuma · Kaasumaiset ilman epäpuhtaudet · Kaivannaisjätteiden varastointi · Kaivostöiden aiheuttama tärinä · Kasvien altistuminen metalleille · Kohdekohtainen malli · Kuljetuksen pakokaasupäästöt · Kuljetuksen päästöt · Louheen lastaus ja pudotus · Louhinnan päästöt · Maaperä · Maaperän ekologisten riskien arviointi · Maaselkärangattomien altistuminen metalleille · Mallinnusohjelmat päästöjen arvioinnissa · Materiaalin varastointi · Metallimalmin hihnakuljetuksen pölypäästöt · Metallimalmin murskausprosessin pölypäästöt · Nisäkkäiden ja lintujen altistuminen metalleille · Pienhiukkasvaikutukset · Pinta- ja pohjavesien pitoisuudet · Pintamaan poiston päästöt · Pölyn leviäminen kaivosalueelta · Ravinnon haitta-ainepitoisuuden arviointi · Rikastushiekka-alueiden päästöt · Sedimenttien ekologisten riskien arviointi · Sedimenttien metallipitoisuuksien arviointi · Sivukivialueiden päästöt · Säteilyhaittojen arviointi kaivostoiminnassa · Tarvekiven murskauksen päästöt · Terveysriskin kuvaus · Typpipäästöt kaivosalueelta · Työkoneiden päästöt · Veden ja aineiden kulkeutuminen · Vesistöjen ekologisten riskien arviointi · Väestön kohdekohtainen ympäristöperäisen haitta-ainealtistumisen arviointi ·

Ovariablet

Energiantuotannon päästökertoimet/Boilerit · Energiantuotannon päästökertoimet/Paikallaan olevat polttomoottorit · Energiantuotannon päästökertoimet/Sähköntuotanto · Kaivannaisjätteiden varastointi · Kaivostöiden aiheuttama tärinä · Kasvien altistuminen metalleille · Kuljetuksen pakokaasupäästöt · Kuljetuksen päästöt · Louheen lastaus ja pudotus · Louhinnan päästöt · Maaperä · Maaperän ekologisten riskien arviointi · Maaselkärangattomien altistuminen metalleille · Materiaalin varastointi · Metallimalmin hihnakuljetuksen pölypäästöt · Metallimalmin murskausprosessin pölypäästöt · Nisäkkäiden ja lintujen altistuminen metalleille · Pintamaan poiston päästöt · Ravinnon haitta-ainepitoisuuden arviointi · Rikastushiekka-alueiden päästöt · Sedimenttien ekologisten riskien arviointi · Sivukivialueiden päästöt · Säteilyhaittojen arviointi kaivostoiminnassa · Tarvekiven murskauksen päästöt · Terveysriskin kuvaus · Typpipäästöt kaivosalueelta · Työkoneiden päästöt · Veden ja aineiden kulkeutuminen · Vesistöjen ekologisten riskien arviointi · Väestön kohdekohtainen ympäristöperäisen haitta-ainealtistumisen arviointi ·

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi3744
Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi3744}}

Tapauskohtaiset lähtötiedot

Varsinainen käyttökoodi: hakee ja laskee seuraavat muuttujat:

Lähtötiedot(-)
Obs	Muuttuja	Kuvaus	Arvo
1	varastokastelu	Varastointialueen kastelu (mm /d)	0
2	varastopinta.ala	Varastointialueen pinta-ala (ha)	1
3	varastosilttipitoisuus	Varastoitavan maamassan silttipitoisuus (%)	30
4	hihnamäärä	Hihnakuljetettavan materiaalin määrä	100
5	hihna.aika	Hihnakuljetuksen käyttö (h /d)	8
6	hihnaprosessi	Prosessin tyyppi	Hihnalle lastaaminen ja hihnan vaihto
7	hihnoja	Hihnojen lukumäärä	1
8	hihnakosteus	Hihnalla kuljettavan materiaalin kosteus	Kostea
9	hihnavaimennus	Hihnakuljetuksen vaimennusprosessit	Tuulensuojamuuri
10	pintamaasilttipitoisuus	Materiaalin silttipitoisuus (%)	20
11	pintamaakosteusprosentti	materiaalin kosteusprosentti (%)	1
12	pintamaatyötunnit	Käytetyt työtunnit (h)	100
13	työkone	Käytetty työkone	Nosturit
14	työkonekulutusRaw	Polttoaineen kulutus (l)	10
15	ruutu	Laskeumamallin ruudun koko (km)	0.5
16	peitto	Laskeumamallin kattaman alueen säde (km)	15
17	LO	Kaivoksen sijainti (pituuspiiri)	28
18	LA	Kaivoksen sijainti (leveyspiiri)	61

Päätökset

Päätökset(-)
Obs	Decision	Option	Variable	Cell	Change	Result
1	Kaivoksen.koko	BAU	työkonekulutus	Työkone:Nosturit	Multiply	1
2	Kaivoksen.koko	Suurempi kaivos	työkonekulutus	Työkone:Nosturit	Multiply	2

Laskenta

+ Näytä koodi - Piilota koodi

library(OpasnetUtils)
library(ggplot2)

########## Hae metodit

objects.latest("Op_fi3492", "alustus") ### Materiaalin varastointi
objects.latest("Op_fi2825", "alustus") ### Metallimalmin hihnakuljetuksen pölypäästöt
objects.latest("Op_fi3186", "alustus") ### Työkoneiden päästöt
objects.latest("Op_fi3351", "alustus") ### Pintamaan poiston päästöt
objects.latest("Op_fi3791", "alustus") ### Hiukkaslaskeuma
objects.latest("Op_fi3719", "alustus") ### Pienhiukkasvaikutukset

########## Hae tapauskohtaiset parametrit

parametrit <- opbase.data("Op_fi3744.lahtotiedot")

for(i in 1:nrow(parametrit)) {
	temp <- as.character(parametrit$Result[i])
	temp <- ifelse(is.na(as.numeric(temp)), temp, as.numeric(temp))
	assign(as.character(parametrit$Muuttuja[i]), temp)
}

työkonekulutus <- Ovariable(
	name='työkonekulutus', 
	data = data.frame(Työkone = työkone, Result = työkonekulutusRaw)
)

#### Hae päätökset####

päätökset <- opbase.data("Op_fi3744.paatokset")

oprint(päätökset)

DecisionTableParser(päätökset)

##### Välivaiheiden laskenta

varastopäästö 	<- EvalOutput(varastopäästö)
hihnapäästö 	<- EvalOutput(hihnapäästö)
työkonekulutus 	<- EvalOutput(työkonekulutus)
työkonepäästö 	<- EvalOutput(työkonepäästö)
pintamaapäästö 	<- EvalOutput(pintamaapäästö)
oprint(työkonekulutus)
################ Välitulosten printtaaminen

if('lähtötiedot' %in% tulosteet) {
	oprint(parametrit)

	cat("Mallin oletusarvoja:\n sadepäiviä (d /a): ", sadepäiviä, 
		"\n osuus tuulista (h /h): ", osuus.tuulista, 
		"\n osuus lumista (h /h): ", osuus.lumista, 
	"\n")
}

if("varastointi" %in% tulosteet) {
	cat("Pölypäästö varastoinnista\n")
	oprint(summary(varastopäästö, "mean"))
	ograph(varastopäästö, x = "Hiukkaskoko")
}

if("hihnakuljetus" %in% tulosteet) {
	cat(paste("Pölypäästöt (kg/d) prosessista, kun prosessoidaan ", hihnamäärä * hihna.aika, " tonnia päivässä.\n", sep=""))
	ograph(hihnapäästö, x = "Hiukkaskoko")
	oprint(summary(hihnapäästö), digits = 5)
}

if("työkoneet" %in% tulosteet) {
	cat("Työkoneiden päästöt\n")
	oprint(summary(työkonepäästö))
	ograph(työkonepäästö, x = "Altiste")
}

if("pintamaa" %in% tulosteet) {
	cat("Pintamaan poiston päästöt\n")
	oprint(summary(pintamaapäästö))
	ograph(pintamaapäästö, x = "Hiukkaskoko")
}

######### Varsinaisten tulosten laskeminen

hiukkaspäästö <- new("ovariable", 
	name = "hiukkaspäästö", 
	dependencies = data.frame(Name = c(
		"varastopäästö", 
		"hihnapäästö", 
		"työkonepäästö",
		"pintamaapäästö"
	)),
	formula = function(...) {

		varastopäästö@output <- cbind(varastopäästö@output, data.frame(Prosessi = "Varastointi"))
		pintamaapäästö@output <- cbind(pintamaapäästö@output, data.frame(Prosessi = "Pintamaan poisto"))	

		työkonepäästö@output <- cbind(työkonepäästö@output, data.frame(Prosessi = "Työkone"))
		# Siirretään PM-tieto Altiste-sarakkeesta Hiukkaskokoon
		työkonepäästö@output <- työkonepäästö@output[työkonepäästö@output$Altiste == "PM2.5", ]
		työkonepäästö@output$Hiukkaskoko <- "PM2.5" 

		# Ykkösellä kerrotaan, jotta tulossarakkeen nimeksi saadaan Result jolloin se orbindautuu nätisti.
		out <- orbind(varastopäästö * 1, hihnapäästö * 1) 
		out <- orbind(out, työkonepäästö * 1)
		out <- orbind(out, pintamaapäästö * 1)

		# Muut indeksit poistetaan paitsi Iter, Hiukkaskoko, Prosessi, hiukkaspäästöSource

		removecols <- c(
			"varastoaerokerroinResult", # varastopäästö
			"varastoaerokerroinSource",
			"varastokasteluvähenemäResult",
			"varastokasteluvähenemäSource",
			"varastopäästöSource",
			"varastopäästöResult",
			"Source",
			"hihnapäästökerroinResult", # hihnapäästö
			"hihnapäästökerroinSource",
			"hihnaläpipääsykerroinSource",
			"hihnaläpipääsykerroinResult",
			"hihnapäästöSource",
			"työkonekulutusResult", # työkonepäästö
			"työkonekulutusSource", 
			"työkonepäästökerroinResult",
			"työkonepäästökerroinSource",
			"työkonepäästöSource",
			"Lähde", # pintamaapäästö # Lähde täytyy jointata jo ovariablessa, muuten tulee moninkertainen päästö.
			"pintamaaparametritSource",
			"pintamaa.kResult",
			"pintamaa.kSource",
			"pintamaa.aResult",
			"pintamaa.aSource",
			"pintamaa.bResult",
			"pintamaa.bSource",
			"pintamaapäästökerroinResult",
			"pintamaapäästökerroinRawSource",
			"pintamaapäästökerroinSource",
			"pintamaapäästöSource", 
			"Kosteus",
			"hihnapäästöResult",
			"Työkone", 
			"Altiste", 
			"työkonepäästöResult",
			"pintamaapäästöResult",
			"hiukkaspäästöSource"
		)
		out <- out[ , !colnames(out) %in% removecols]

		return(out)
	}
)

hiukkaspäästö <- EvalOutput(hiukkaspäästö)
colnames(hiukkaspäästö@output)
if("hiukkaspäästö" %in% tulosteet) {
	cat("Hiukkaspäästö (prosessit eriteltynä)\n")
	oprint(summary(hiukkaspäästö), digits = 5)
	ograph(hiukkaspäästö, x = "Prosessi", fill = "Hiukkaskoko")
	ograph(hiukkaspäästö, x = "Hiukkaskoko", fill = "Kaivoksen.koko")
}

# Seuraava koukero tehdään, jotta hiukkaspäästön sarakkeita ja rivejä saadaan tiivistettyä niin, että marginal pysyy johdonmukaisena.

temp <- hiukkaspäästö

hiukkaspäästö <- Ovariable("hiukkaspäästö", dependencies = data.frame(Name = "temp"), formula = 
	function(...) {

		temp <- aggregate(temp@output["hiukkaspäästöResult"], temp@output[c("Hiukkaskoko", "Iter")], sum)
		temp <- dropall(temp)

		return(temp)
	}
)
hiukkaspäästö <- EvalOutput(hiukkaspäästö)

####### Lopputuloksen printtaus

if("hiukkaspäästö" %in% tulosteet) {
	cat("Pienhiukkaspäästö yhteensä\n")
	oprint(summary(hiukkaspäästö), digits = 5)
}

if("hiukkaslaskeuma" %in% tulosteet) {

	hiukkaslaskeuma <- EvalOutput(hiukkaslaskeuma)

	oprint(summary(hiukkaslaskeuma), digits = 5)
	ograph(hiukkaslaskeuma, x = "etäisyysluokka", fill = "Hiukkaskoko", other = scale_y_log10())
}

hiukkaspäästö@output <- dropall(hiukkaspäästö@output[hiukkaspäästö@output$Hiukkaskoko == "PM2.5" , ])

hiukkaspitoisuus <- new("ovariable", name = "hiukkaspitoisuus", 
	dependencies = data.frame(Name = c("hiukkaspäästö", "LO", "LA")),
	formula = function(...) {

		out <- GIS.Concentration.matrix(hiukkaspäästö, LO, LA)

		return(out)
	}
)

if("hiukkasterveysvaikutus" %in% tulosteet) {
	hiukkasterveysvaikutus <- EvalOutput(hiukkasterveysvaikutus)

	oprint(summary(hiukkaspitoisuus), digits = 5)
	ograph(hiukkaspitoisuus, x = "Hiukkaskoko")
	oprint(summary(hiukkasaltistus), digits = 5)
	oprint(summary(hiukkasterveysvaikutus), digits = 5)
	ograph(hiukkasterveyvaikutus, x = "Hiukkaskoko")
}

Muita koodeja

+ Näytä koodi - Piilota koodi

library(OpasnetUtils)

#Pöly- ja hiukkaspäästöt

dependencies <- data.frame(
	Name = c(
		"Toiminta",
		"Sijainti",
		"Pölypäästö.rakentaminen",
		"Pölypäästö.pintamaa",
		"Pölypäästö.tarvekivi",
		"Pölypäästö.louhinta",
		"Pölypäästö.murskaus",
		"Pölypäästö.kuljetus",
		"Pölypäästö.hihnakuljetus",
		"Pölypäästö.pudotus",
		"Pölypäästö.jauhatus",
		"Pölypäästö.varastointi",
		"Pölypäästö.sivukivi",
		"Pölypäästö.rikastushiekka",
		"pölypäästö.kaivannaisjäte",
		"Polypäästö.työkoneet",
		"Pölypäästö.energiantuotanto"
	),
	Ident = c(
		"Op_fi3129/alustus", # Kohdekohtaisen Minera-arvioinnin esimerkkisivu
		"Op_fi3129/alustus", # Kohdekohtaisen Minera-arvioinnin esimerkkisivu
		"Op_fi3534/alustus", # Rakentamisvaiheen pölypäästöt
		"Op_fi3351/alustus", # Pintamaan pointon päästöt
		"Op_fi3496/alustus", # Tarvekiven murskauksen päästöt
		"Op_fi3352/alustus", # Louhinnan päästöt
		"Op_fi2806/alustus", # Metallimalmin murskausprosessin pölypäästöt
		"Op_fi2920/alustus", # Kuljetuksen päästöt
		"Op_fi2825/alustus", # Metallimalmin hihnakuljetuksen pölypäästöt
		"Op_fi3489/alustus", # Louheen lastaus ja pudotus
		"Op_fi3543/alustus", # Loppuraportti jauhatus
		"Op_fi3492/alustus", # Materiaalin varastointi
		"Op_fi3474/alustus", # Sivukivialueen päästöt
		"Op_fi3485/alustus", # Rikastushiekka-alueiden päästöt
		"Op_fi3538/alustus", # Kaivannaisjätteiden varastointi
		"Op_fi3186/alustus", # Työkoneiden päästöt
		"Op_fi3532/alustus" # Energiantuotanto
	)
)

# Muut päästöt

dependencies <- data.frame(
	Name = c(
		"Toiminta",
		"Sijainti",
		"Typpipäästö",
		"Tärinä"
	),
	Ident = c(
		"Op_fi3129/alustus", # Kohdekohtaisen Minera-arvioinnin esimerkkisivu
		"Op_fi3129/alustus", # Kohdekohtaisen Minera-arvioinnin esimerkkisivu
		"Op_fi3440/alustus", # Typpipäästöt kaivosalueelta
		"Op_fi3473/alustus" # Kaivostöiden aiheuttama tärinä
	)
)

# Pitoisuus ympäristössä

dependencies <- data.frame(
	Name = c(
		"Kulkeutuminen.vesi",
		"Sedimentti",
		"Maaperä"
	),
	Ident = c(
		"Op_fi3437/alustus", # Veden ja aineiden kulkueutuminen
		"Op_fi3448/alustus", # Sedimenttien metallipitoisuuksien arviointi
		"Op_fi2982/alustus" # Kaivostoiminnan haitta-aineet maaperässä
	)
)

# Altistuminen

dependencies <- data.frame(
	Name = c(
		"Altistuminen.nisäkkäät",
		"Altistuminen.lierot",
		"Altistuminen.kasvit",
		"Altistuminen.väestö",
		"Altistuminen.säteily",
		"Altistuminen.ravinto",
	),
	Ident = c(
		"Op_fi3471/alustus", # Nisäkkäiden ja lintujen altistuminen metalleille
		"Op_fi3476/alustus", # Maaselkärangattomien altistuminen metalleille
		"Op_fi3470/alustus", # Kasvien altistuminen metalleille
		"Op_fi2808/alustus", # Väestön kohdekohtaisen ympäristöperäinen haitta-ainealtistuminen arviointi
		"Op_fi3462/alustus", # Säteily
		"Op_fi3506/alustus", # Ravinnon haitta-ainepitoisuuden arviointi
	)
)

# Viitearvot

dependencies <- data.frame(
	Name = c(
		"Viitearvot",
	),
	Ident = c(
		"Op_fi3373/alustus", # Ympäristöterveydelliset viite- ja raja-arvot
	)
)

# Vaikutus

dependencies <- data.frame(
	Name = c(
		"Vaikutus.terveys",
		"Vaikutus.vesiekosysteemi",
		"Vaikutus.maaekosysteemi",
		"Vaikutus.sedimentti"
	),
	Ident = c(
		"Op_fi3379/alustus", # Terveysriskin kuvaus
		"Op_fi3547/alustus", # Loppuraportti osa1 Vesistöjen ekologinen riskinarviointi
		"Op_fi3454/alustus", # Loppuraportti osa1 Maaperän ekologinen riskinarviointi
		"Op_fi3546/alustus", # Loppuraportti osa1 Sedimenttien ekologinen riskinarviointi

Katso myös

**Minera-malli: Ohjeistusta kaivostoiminnan ympäristö- ja terveysriskien arviointiin.**
Osa linkeistä vie ohjeistuksiin eri vaikutusarvioinnin osien tekemisestä, osa taas **valmiisiin laskentamalleihin** (lihavoitu).
Kaivostoiminta	Kohdekohtaisen arvioinnin esimerkkisivu · Rikastus · Kaivosprosessit
Pölyn ja hiukkasten päästöt	Pöly (ohje) · Lähteet · Pintamaan poisto! · Tarvekivi ! · Louhinta ! · Murskaus · Lastaus ja pudotus · Kuljetuksen pakokaasupäästöt! · Kuljetuksen pölypäästöt! · Työkoneet · Hihnakuljetus · Energiantuotanto · Polttomoottorit! · Sähköntuotanto ! · Boilerit ! · Varastointi · Kaivannaisjäte · Sivukivi · Rikastushiekka
Muut päästöt	Haju · Kaasut · Typpi · Säteily! · Tärinä · Jätevesi · Varastoinnin vesipäästö · Mallinnusohjelmat · Rikastuskemikaalipäästöt · Melu
Pitoisuus ympäristössä	Pohjavesi · Pintavesi · Kulkeutuminen vedessä! · Sedimentit · Sedimentit (mittaukset) · Sedimentit (huokosvedet) · Maaperä! · Maaperän terveysriskinarvio
	Ihmiset	Ympäristö ja ekologia
Altistuminen	Altistumisen arviointi	Nisäkkäät ja linnut · Kasvit! · Maaselkärangattomat! · Ravinto!
Vaikutus	Terveysriskinarvioinnin rakenne · Riskinarviointiohjeet: · Pohjavesi · Pintavesi · Pöly · Kaasumaiset ilman epäpuhtaudet · Maaperä · Tärinä · Haju · Säteily! · Maaperän terveysriski · Kaasut · Melu · Pienhiukkasvaikutukset! · Terveysriskin kuvaus	Vesistöt · Maaperä · Sedimentti · Ekologinen riskinarviointi: · Ekologisten vaikutusten arviointi · Kohdekohtaisen mallin vaiheet · Alustus · Kohdetutkimukset · Vaikutusten arviointi · Mittauksiin perustuva arvio · Luonnehdinta
Integroitu riskinarvio	Integroitu riskinarvio · Viitearvoja

**Muita Minera-projektin tuotoksia**
Minera-mallin sovelluksia	· Luikonlahden tapaustutkimus · Luikonlahden sienitutkimusraportti
Muut	· Metallimalmikaivostoiminnan parhaat ympäristökäytännöt · Minera-hanke · MINERA Loppuseminaari · Kauppila T, Makkonen S, Komulainen H, Tuomisto JT: Metallikaivosalueiden ympäristöriskinarviointiosaamisen kehittäminen: MINERA-hankkeen loppuraportti. · Lehdistötiedote 15.4.2013 · Kohdekohtainen esimerkki · Lyhenteet ja määritelmät · Loppuraportti kokonaismalli · Kaivostoiminnan ympäristöterveysriskien arviointi (suojattu sivu) · Mallinnusohjelmat päästöjen arvioinnissa · Viitearvot · Talvivaaran kaivoksen terveysvaikutukset · Loppuraportti · Raportti · Yaran tapaustutkimus
Muita kaivostoimintaan liittyvää	· Vesijalanjälki · Hyvä kaivos pohjoisessa · Yhteiskuntatieteellinen kaivostutkimus Itä-Suomen yliopistossa · Teemasivu:Kaivostoiminnan vaikutusarviointi

Viitteet

Aiheeseen liittyviä tiedostoja

Minera-malli

Sisällys

Tapauskohtaiset lähtötiedot

Päätökset

Laskenta

Muita koodeja

Katso myös

Viitteet

Aiheeseen liittyviä tiedostoja

Navigointivalikko