Ero sivun ”Kohdekohtaisen Minera-arvioinnin esimerkkisivu” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(päivitetty vastaamaan nykyistä Minera-mallia)
Rivi 8: Rivi 8:
|vastaus = ''Kirjoita tähän arvioinnin keskeinen tulos ja päätelmät lyhyesti.
|vastaus = ''Kirjoita tähän arvioinnin keskeinen tulos ja päätelmät lyhyesti.
}}
}}
<googlemap version="0.9" lat="63.12345" lon="27.12345" width="500" scale="yes">
 
<googlemap version="0.9" lat="62.928986" lon="28.706245" width="500" scale="yes">
(L) 62.937734, 28.712769
Luikonlahden rikastamo
</googlemap>
</googlemap>


:'' Tämä sivu sisältää tyhjän kohdekohtaisen arvioinnin. Voit kopioida tämän sivun kokonaisuudessaan uudelle sivulle, jonka perustat [[Minera]]-mallin avulla tehtävän kaivoksen terveys- ja ympäristövaikutusten arvioinnin tekemistä varten. Kursivoidut tekstit ovat sivun tekijälle annettuja ohjeita, jotka voit poistaa sisällön tieltä. Sivulla on esimerkkitaulukoita, jotka sisältävät joko kuvitteellista dataa tai Luikonlahden tapaustutkimukseen liittyvää dataa. Ne ovat vain esimerkkinä rakenteesta, ja tarkoitus on korvata ne todellisella, tapauskohtaisella tiedolla.


:'' Tämä sivu sisältää tyhjän kohdekohtaisen arvioinnin. Voit kopioida tämän sivun kokonaisuudessaan uudelle sivulle, jonka perustat [[Minera]]-mallin avulla tehtävän kaivoksen terveys- ja ympäristövaikutusten arvioinnin tekemistä varten. Kursivoidut tekstit ovat sivun tekijälle annettuja ohjeita, jotka voit poistaa sisällön tieltä.
:''Kursivoidut tekstit ovat ohjeita sivun muokkaajalle, ja ne on tarkoitus poistaa, kun sivu kypsyy todellisen tapaustutkimuksen kuvaukseksi.
 


==Rajaus==
==Rajaus==
Rivi 27: Rivi 30:
===Päätökset ja skenaariot===
===Päätökset ja skenaariot===


:''Päätökset ja vaihtoehdot, joita halutaan tarkastella ja vertailla. Tässä kuvataan myös erilaiset skenaariot eli "entä jos" -tyyppiset tarkastelut, joissa tarkastellaan määriteltyä tilannetta riippumatta siitä, onko tilanne oikeasti kuvatunlainen. Katso rakenteen selitys sivulta [[Päätös]].
:''Päätökset ja vaihtoehdot, joita halutaan tarkastella ja vertailla. Tässä kuvataan myös erilaiset skenaariot eli "entä jos" -tyyppiset tarkastelut, joissa tarkastellaan määriteltyä tilannetta riippumatta siitä, onko tilanne oikeasti kuvatunlainen. Katso rakenteen selitys sivulta [[Päätös]] ja yksityiskohtaisemmin englanniksi sivulta [[:op_en:Decision|Decision]]. Huomaa, että otsikoiden täytyy olla esimerkin mukaiset, koska taulukkoa käytetään suoraan laskennassa (joka joiltakin osin toimii valitettavasti englanniksi).
 
{| {{prettytable}}
|+ ''Päätös- ja skenaariotaulun rakenne. Korvaa esimerkkisisältö tapaskohtaisilla tiedoilla.
!Päättäjä!! Päätös !! Vaihtoehto !! Muuttuja !! Solu !! Muutos !! Arvo !! Kuvaus
|----
| Kaivos
| Puhdistimen asennus
| Asennetaan
| Päästökerroin
| Saaste = PM2.5
| Kerro
| 0.3
| Vähentää päästöstä 70 %
|}


<t2b name="Päätökset" index="Decision,Option,Variable,Cell,Change" obs="Result" desc="Kuvaus" unit="-">
Kaivoksen.koko|BAU|työkonekulutus|Työkone:Nosturit|Identity|1|BAU eli business as usual on toiminnan oletusarvo
Kaivoksen.koko|Suurempi kaivos|työkonekulutus|Työkone:Nosturit|Multiply|2|Cell-sarake kerto, miltä osin Variable-sarakkeessa mainitun osamallin tietoja muutetaan
Kaivoksen.koko|BAU|varastopinta.ala||Identity|1|Identity säilyttää oletusarvon
Kaivoksen.koko|Suurempi kaivos|varastopinta.ala||Multiply|2|Multiply kertoo oletusarvon annetulla luvulla
Kaivoksen.koko|BAU|hihnanopeus||Identity|1|Cell-sarake voidaan jättää tyhjäksi, jos muutos koskee kaikkia arvoja
Kaivoksen.koko|Suurempi kaivos|hihnanopeus||Replace|250|Replace korvaa oletusarvon annetulla arvolla
</t2b>


==Vastaus==
==Vastaus==
Rivi 57: Rivi 54:


:''Kaikki se tieto, jota tarvitaan lukijaa vakuuttumaan siitä, että tulokset ja päätelmät ovat uskottavia ja hyväksyttäviä esitettyjen kysymysten ja käyttötarpeen suhteen.
:''Kaikki se tieto, jota tarvitaan lukijaa vakuuttumaan siitä, että tulokset ja päätelmät ovat uskottavia ja hyväksyttäviä esitettyjen kysymysten ja käyttötarpeen suhteen.
===Tarkistuslista===
{| {{prettytable}}
|+ '''Tarkista, että kaikki tämän listan asiat on käyty läpi ennen kuin julistat arvioinnin valmiiksi.
! Asia !!Ohjesivu!! Kohdekohtaiset tiedot!! Kuka hoitaa !! Valmistuttava pvm!!Hoidettu?!!Kuvaus
|----
| Kuvaa melupäästöt ||[[Melupäästöjen arviointi]]|| [[#Melupäästöt]] || Projektivastaava || 31.12.2012 ||{{ei}}||
|}


===Arvioinnin muut sivut===
===Arvioinnin muut sivut===
Rivi 71: Rivi 59:
:''Linkit tämän arvioinnin mahdollisiin muihin, tapauskohtaisiin sivuihin sekä yleisiin metodisivuihin.
:''Linkit tämän arvioinnin mahdollisiin muihin, tapauskohtaisiin sivuihin sekä yleisiin metodisivuihin.


===Kaivostoiminnan aktiviteetit===
* [[Luikonlahden rikastamon lähiympäristön tila]]
 
Kuvaa kohteena olevan kaivoksen eri aktiviteetit alla olevassa taulussa. Eri rivit ovat tyypillisiä tietoja. Poista ja monista rivejä ja muokkaa tietoja tarpeen mukaan.
 
<t2b name="Toiminta" index="Toiminta,Sijainti,Observation" locations="Unit,Result,Description" unit = "-">
Pintamaan poisto|Louhos|ton /a|100|
Louhinta|Louhos|ton /a|100|
Murskaus|Louhos|ton /a|100|
Kuljetus|Louhos|ton /a|100|
Lastaus ja pudotus|Louhos|ton /a|100|
Varastointi|Rikastushiekka-alue|ha|100|
</t2b>
 
Syötä tähän tauluun tieto siitä, mikä on kunkin sijainnin pituus- ja leveyspiiri. Näitä tietoja käytetään sijoittamaan päästöt kartalle.
 
<t2b name="Sijainti" index="Sijainti,Observation" locations="LA,LO" unit="°">
Louhos|62.000000|27.000000
Rikastushiekka-alue|62.000000|27.000000
</t2b>


===Kohdekohtaiset tiedot===
===Kohdekohtaiset tiedot===
Rivi 95: Rivi 65:
:''Lisää tähän kohdekohtaisia tietoja, joita tarvitaan laskennassa. Korvaa esimerkkisisältö tapauskohtaisilla tiedoilla. Voit poistaa ja lisätä rivejä tarpeen mukaan.
:''Lisää tähän kohdekohtaisia tietoja, joita tarvitaan laskennassa. Korvaa esimerkkisisältö tapauskohtaisilla tiedoilla. Voit poistaa ja lisätä rivejä tarpeen mukaan.


<t2b index="Parametri,Observation" locations="Lyhenne,Unit,Result,Description" unit="-">
<t2b name="Lähtötiedot" index="Muuttuja,Kuvaus" obs="Arvo" unit="-">
Kaivoksen nimi|nimi|-|Luikonlahden kaivos|
varastokastelu|Varastointialueen kastelu (mm /d)|0
Pääasiallinen tuote|tuote|-||
varastopinta.ala|Varastointialueen pinta-ala (ha)|1
Sijainti, pituuspiiri|LO|°|28.707962|
varastosilttipitoisuus|Varastoitavan maamassan silttipitoisuus (%)|30
Sijainti, leveyspiiri|LA|°|62.938017|
hihnanopeus|Hihnakuljetettavan materiaalin nopeus (ton /h)|100
Louhintamäärä|louhinta|ton /a|10000000|
hihna.aika|Hihnakuljetuksen käyttö vuodessa (h /a)|2400
Tuotanto|tuotanto|ton /a|40|
hihnaprosessi|Prosessin tyyppi|Hihnalle lastaaminen ja hihnan vaihto
Käytössä olevat murskausprosessit|prosessi|-|Esi/karkea murskaus, Välimurskaus, Hienomurskaus|
hihnoja|Hihnojen lukumäärä (#)|1
Malmin kosteus|kosteus|-|Kostea|Onko malmi kuivaa vai kosteaa (rajana 1.5 % kosteutta)?
hihnakosteus|Hihnalla kuljettavan materiaalin kosteus|Kostea
Päästönvaimennusprosessit|vaimennus|-|Tuulensuojamuuri, Materiaalin kastelu|Mitkä päästönvaimennusprosessit ovat käytössä?
hihnavaimennus|Hihnakuljetuksen vaimennusprosessit|Tuulensuojamuuri,Materiaalin kastelu
pintamaasilttipitoisuus|Materiaalin silttipitoisuus (%)|20
pintamaakosteusprosentti|Materiaalin kosteusprosentti (%)|1
pintamaatyötunnit|Käytetyt työtunnit (h /a)|100
työkone|Käytetty työkone|Nosturit
työkonekulutusRaw|Polttoaineen kulutus (l /a)|10
ruutu|Laskeumamallin ruudun koko (km)|0.5
peitto|Laskeumamallin kattaman alueen säde (km)|15
LO|Kaivoksen sijainti (pituuspiiri)|28
LA|Kaivoksen sijainti (leveyspiiri)|61
</t2b>
</t2b>


{{vastusta|#: |Luvut ovat keksittyja ja niitä tulee käyttää vain havainnolistustarkoituksessa.|--[[Käyttäjä:Jouni|Jouni Tuomisto]] 10. lokakuuta 2012 kello 20.40 (EEST)}}
<t2b name="Malmin pitoisuudet" index="Altiste" obs="Arvo" unit="mg /kg">
Ni|100
Cu|1
Zn|1
Co|1
Pb|1
As|1
U|1
S|1000
</t2b>


{{kommentti|#:|Tähän pitäisi rakentaa lista tyypillisesti tarvittavista tiedoista.|--[[Käyttäjä:Jouni|Jouni Tuomisto]] 20. elokuuta 2012 kello 17.42 (EEST)}}


===Laskenta===
===Laskenta===
Rivi 115: Rivi 102:
:''Laskentakaavat ja syöttökentät, joiden avulla tuloksia voidaan laskea ja mallittaa.
:''Laskentakaavat ja syöttökentät, joiden avulla tuloksia voidaan laskea ja mallittaa.


<rcode
<rcode graphics="1" include="
        graphics=1
page:OpasnetUtils/Ograph|name:answer|
label="Aja laskentamalli"
page:OpasnetUtils/Aggregate|name:answer"  
variables="
variables="
name:tulokset|
name:tulosteet|description:Mitkä välitulokset haluat nähdä?|
description:Tuotettavat tulokset|
type:checkbox|options:
type:checkbox|
'lähtötiedot';Tapauskohtaiset lähtötiedot;
options:
'varastointi';Varastoinnin päästöt;
1;Toiminta;
'hihnakuljetus';Hihnakuljetuksen päästöt;
2;Päästöt;
'työkoneet';Työkoneiden päästöt;
3;Pitoisuudet lähiympäristössä;
'pintamaa';Pintamaan poiston päästöt;
4;Ihmisten altistuminen;
'hiukkaspäästö';Hiukkasten kokonaispäästö;
5;Terveysvaikutukset;
'hiukkaslaskeuma';Hiukkaslaskeuma;
6;Ekologiset vaikutukset;
'altistuminen';Ihmisten altistuminen maa- ja vesipitoisuuksille;
7;Olennaiset raja- ja viitearvot;
'nisäkäsaltistus';Nisäkkäiden ja lintujen altistuminen;
8;Arvioinnissa käytetyt olennaiset lähtötiedot|
'hiukkasterveysvaikutus';Hiukkaspitoisuus ja terveysvaikutus (laskee yli 10 min)|
default:1;2;5
default:'hiukkaspäästö';'hiukkaslaskeuma'|
"
name:N|description:Montako iteraatiota ajetaan?|default:50
>
">
library(OpasnetUtils)
library(OpasnetUtils)
library(OpasnetUtilsExt)
library(ggplot2)
library(ggplot2)
library(rgdal)
library(maptools)
library(RColorBrewer)
library(classInt)
library(raster)


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


par(mfrow=c(6,1), mar=c(3,1,0,1), cex=1.5)
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
objects.latest("Op_fi3744", "alustus") ### Minera-malli: hiukkaspäästöDetail, hiukkaspäästö, hiukkaspitoisuus


colorstrip <- function(colors, labels)
objects.latest('Op_fi2808','alustus') # Väestön kohdekohtainen ympäristöperäisen haitta-ainealtistumisen arviointi.
{
objects.latest('Op_fi3378','alustus') # Haitta-aineiden imeytyminen iholta elimistöön.
count <- length(colors)
objects.latest('Op_fi3377','alustus') # Haitta-aineiden taustasaanti.
m <- matrix(1:count, count, 1)
objects.latest('Op_fi3373','alustus') # Ympäristöterveydelliset viite- ja raja-arvot.
image(m, col=colors, ylab="", axes=FALSE)
objects.latest('Op_fi3379','alustus') # Terveysriskin kuvaus.
axis(1,approx(c(0, 1), n=length(labels))$y, labels)
}


objects.latest("Op_fi3471", "alustus") ### Nisäkkäiden ja lintujen altistuminen metalleille


data <- tidy(opbase.data("Op_fi3129"))
########## Hae tapauskohtaiset parametrit


for(i in 1:nrow(data)) {
objects.latest('Op_fi3372','alustus') # Luikonlahden rikastamon lähiympäristön tila. Arviointikohtaiset pitoisuustiedot
temp <- as.character(data$Result[i])
if(!data$Unit[i] %in% c("-", "Teksti", "Lista")) {temp <- as.numeric(temp)}
if(data$Unit[i] == "-") {temp <- strsplit(temp, ",")[[1]]}
assign(as.character(data$Lyhenne[i]), temp)
}


#print("Valitut prosessit:")
hiukkaspäästöCols <- c("hiukkaspäästöDetailSource", "Prosessi")
print(prosessi)
#print("Kosteus:")
print(kosteus)
#print("Vaimennus:")
print(vaimennus)


cat("Louhintaprosessi ", louhinta, " (ton per a) synnyttää pienhiukkaspääston kohdassa LO ", LO, ", LA ", LA, "\n")
parametrit <- opbase.data("Op_fi3744.lahtotiedot")


M <- louhinta / 365
for(i in 1:nrow(parametrit)) {
A <- 1
data <- as.character(parametrit$Result[i])
data <- ifelse(is.na(as.numeric(data)), data, as.numeric(data))
data <- data.frame(Temp = data) # , A = "a")
colnames(data)[colnames(data) == "Temp"] <- paste(as.character(parametrit$Muuttuja[[i]]), "Result", sep ="")
temp <- Ovariable(
name = as.character(parametrit$Muuttuja[i]),
data = data
)
assign(as.character(parametrit$Muuttuja[i]), temp)
}


#objects.get("8EV2qsAPaXuk7ELI")
########### Muokataan tapauskohtaisia parametreja
#MetMalMurskPol <- EvalOutput(MetMalMurskPol)


#cat("Hiukkaspäästo:\n")
hihnaprosessi <- as.character(hihnaprosessi@data$hihnaprosessiResult)
#print(xtable(MetMalMurskPol@output), type = 'html')
hihnakosteus <- as.character(hihnakosteus@data$hihnakosteusResult)
 
hihnavaimennus <- strsplit(as.character(hihnavaimennus@data$hihnavaimennusResult), split = ",")[[1]]
 
ruutu <- ruutu@data$ruutuResult
PäästöPM2.5 <- Ovariable(  
peitto <- peitto@data$peittoResult
name = "PäästöPM2.5",
dependencies = data.frame(
työkonekulutus <- Ovariable(
Name = "MetMalMurskPol",
name='työkonekulutus',  
Ident= "Op_fi2806/alustus"
data = data.frame(
),
Työkone = työkone@data$työkoneResult,  
formula = function(dependencies, ...) {
työkonekulutusResult = työkonekulutusRaw@data$työkonekulutusRawResult
ComputeDependencies(dependencies, ...)
)
temp <- MetMalMurskPol@output[MetMalMurskPol@output$Hiukkaskoko == "PM10" , ]
temp <- as.data.frame(as.table(tapply(temp$MetMalMurskPolResult, temp[c("MetMalMurskPolSource")], sum)))
colnames(temp)[colnames(temp) == "Freq"] <- "PäästöPM2.5Result"
return(temp)
}
)
)


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


## Pitoisuudet
päätökset <- opbase.data("Op_fi3744.paatokset")
päätökset$Result <- as.numeric(as.character(päätökset$Result))


DecisionTableParser(päätökset)


Pitoisuus <- Ovariable(
############## Tulosten laskenta (paitsi laskeuma ja pitoisuus, jotka ovat raskaita)
name = "Pitoisuus",
formula = function(dependencies, ...) {
ComputeDependencies(dependencies, ...)
temp <- GIS.Concentration.matrix(PäästöPM2.5, LO, LA, ...)
return(temp)
},
dependencies = data.frame(
Name = c("PäästöPM2.5", "LO", "LA"),
Ident = c(NA, NA, NA)
)
)


#verbose = TRUE
hiukkaspäästöDetail <- EvalOutput(hiukkaspäästöDetail, N = N)
#oprint(PäästöPM2.5)


hiukkaspäästöDetail@output <- fillna(hiukkaspäästöDetail@output, 3) # Päätöksen fillna pitäisi tehdä automaattiseksi.
hiukkaspäästö <- EvalOutput(hiukkaspäästö, N = N)


temp <- EvalOutput(Pitoisuus, N = 1)
##Verrataan ympäristön haitta-ainepitoisuuksia terveysperusteisiin viitearvoihin


temp2 <- gsub("\\(", "", temp@output$LObin)
ympäristöpitoisuus.viitearvovertailu <- EvalOutput(ympäristöpitoisuus.viitearvovertailu)
temp2 <- gsub("\\]", "", temp2)
temp2 <- strsplit(temp2, ",")


temp3 <- c()
##Verrataan päivittäistä kokonaisaltistumista pitkäaikaisaltistumisen viitearvoihin


for(i in 1:length(temp2)){
kokonaisaltistuminen.HQ <- EvalOutput(kokonaisaltistuminen.HQ )
  a <- as.numeric(temp2[[i]][1])
b <- as.numeric(temp2[[i]][2])
temp3[i] <- ((a + b) / 2)
}
temp@output$LO <- temp3


##Muokataan altistumisvertailun tulostaulu tulostettavaan muotoon


temp2 <- gsub("\\(", "", temp@output$LAbin)
kokonaisaltistuminen.HQ@output$kokonaisaltistuminen.HQSource <- NULL
temp2 <- gsub("\\]", "", temp2)
kokonaisaltistuminen.HQ@output <- reshape(
kokonaisaltistuminen.HQ@output,
timevar = "Ikä",
idvar = c("Altiste", "Altistumistaso", "Altistumislähde", "Reitti"),  
direction = "wide"
)
colnames(kokonaisaltistuminen.HQ@output) <- gsub("kokonaisaltistuminen.HQResult.", "", colnames(kokonaisaltistuminen.HQ@output))


temp2 <- strsplit(temp2, ",")
################ Tulosten printtaaminen


temp3 <- c()
if('lähtötiedot' %in% tulosteet) {
cat("Tapauskohtaiset lähtötiedot:\n")
oprint(parametrit)
cat("Tapauskohtaiset päätösvaihtoehdot:\n")
oprint(päätökset)


for(i in 1:length(temp2)){
cat("Mallin oletusarvoja:\n sadepäiviä (d /a): ", sadepäiviä,
a <- as.numeric(temp2[[i]][1])
"\n osuus tuulista (h /h): ", osuus.tuulista,
b <- as.numeric(temp2[[i]][2])
"\n osuus lumista (h /h): ", osuus.lumista,
temp3[i] <- ((a + b) / 2)
"\n")
}
}
temp@output$LA <- temp3


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


data <- data.frame(LO=temp@output$LO, LA=temp@output$LA, concentration=temp@output$PitoisuusResult)
if("hihnakuljetus" %in% tulosteet) {
cat("Pölypäästöt hihnakuljetuksesta (ton /a)\n")
ograph(hihnapäästö, x = "Hiukkaskoko")
oprint(summary(hihnapäästö), digits = 5)
}


truncated = c()
if("työkoneet" %in% tulosteet) {
for(i in 1:nrow(data)){
cat("Työkoneiden päästöt\n")
if (data$concentration[i] > 1)
oprint(summary(työkonepäästö))
{
ograph(työkonepäästö, x = "Altiste")
  truncated[i] <- 1
}
else
{
  truncated[i] <- data$concentration[i]
}
}
}


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


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


# Plot the data
cat("Pienhiukkaspäästö yhteensä\n")
coordinates(data)=c("LO","LA")
oprint(summary(hiukkaspäästö), digits = 5)
proj4string(data)<-("+init=epsg:4326")
}
epsg4326String <- CRS("+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs")
shp<-spTransform(data,epsg4326String)


#Create blank raster
if("hiukkaslaskeuma" %in% tulosteet) {
rast<-raster()


#Set raster extent to that of point data
hiukkaslaskeuma <- EvalOutput(hiukkaslaskeuma, N = N)
extent(rast)<-extent(shp)


#Choose number of columns and rows
# oprint(summary(hiukkaslaskeuma), digits = 5)
ncol(rast) <- 41
ograph(hiukkaslaskeuma, x = "etäisyysluokka", fill = "Hiukkaskoko", other = scale_y_log10())
nrow(rast) <- 41
}


#cat("<span style='font-size: 1.2em;font-weight:bold;'>PM2.5</span>\n")
if("altistuminen" %in% tulosteet) {


#Rasterize point data
cat("Haitta-aineen ympäristöpitoisuus suhteutettuna terveysperusteiseen viitearvoo. Viitearvo ylittyy kun suhdeluku > 1.\n")
rast2<-rasterize(shp, rast, shp$truncated_concentration, fun=mean)


steps <- c(0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1)
oprint(ympäristöpitoisuus.viitearvovertailu@output, digits = 5) # [ympäristöpitoisuus.viitearvovertailu@output$Altiste == altiste, ],digits=5)
colors <- rev(rainbow(length(steps), start=0, end=0.50))


colorstrip(colors, steps)
cat("Ympäristöperäiselle haitta-aineen kokonaisaltistukselle laskettu vaaraosamäärä (hazard quotient, HQ). Viitearvo ylitty kun HQ > 1.\n")


#Plot data
oprint(kokonaisaltistuminen.HQ@output, digits = 5) # [kokonaisaltistuminen.HQ@output$Altiste == altiste, ],digits=5)
google.show_raster_on_maps(rast2, col=colors, style="height:500px;")
}
ls()
if("nisäkäsaltistus" %in% tulosteet) {
altistus <- EvalOutput(altistus)


#Plot a ggplot graph
oprint(pitoisuus)


ggplot(temp@output, aes(LO, LA, fill = PitoisuusResult)) + geom_tile() +
ograph(altistus, x = "Laji", fill = "Altiste")
  xlab("Longitude (degrees)") + ylab("Latitude (degrees)") +
  opts(title = "Outdoor PM concentration due to the emission") +
  scale_fill_gradient(limits = c(0, 1), low = "cyan", high = "red") +
  scale_x_continuous(expand = c(0,0)) +
  scale_y_continuous(expand = c(0,0))


##############################################33
ograph(lajikohtainen.saanti, x = "Laji", fill = "Matriisi")


funktio = function(dependencies, ...){
ograph(saanti, x = "Laji", fill = "Matriisi")
ComputeDependencies(dependencies, ...)
}


input <- tidy(op_baseGetData("opasnet_base", "Op_fi1234"), objname = "Arviointi") # Vaihda tekstin Op_fi1234 paikalle oman arviointisi sivutunniste.
if("hiukkasterveysvaikutus" %in% tulosteet) {
hiukkasterveysvaikutus <- EvalOutput(hiukkasterveysvaikutus, N = N)


# Tähän muu tarpeellinen laskenta.
oprint(summary(hiukkaspitoisuus), digits = 5)
 
ograph(hiukkaspitoisuus, x = "Hiukkaskoko")
        return(out@output)
oprint(summary(hiukkasaltistus), digits = 5)
oprint(summary(hiukkasterveysvaikutus), digits = 5)
ograph(hiukkasterveyvaikutus, x = "Hiukkaskoko")
}
}
#Arviointi <- Ovariable(
# name        = "Arviointi",
# dependencies = riippuvuudet,
#        formula      = funktio
#)
#temp <- EvalOutput(Arviointi)
#oprint(temp)
#objects.put(Arviointi) # Poista tämä ja seuraava rivi, jos et halua käyttää tuloksia jatkolaskennassa.
#cat("Muuttuja alustettu. Kopioi sivun osoitteen avain talteen käyttöä varten.\n")


</rcode>
</rcode>


[[Metallikaivoksen terveysriskit]]


==Katso myös==
==Katso myös==

Versio 16. huhtikuuta 2013 kello 07.40

Edistymisluokitus
Opasnetissa lukuisat sivut ovat työn alla eri vaiheissa. Niiden tietosisältöön pitää siis suhtautua harkiten. Tämän sivun sisällön edistyminen on arvioitu:
Tämä sivu on luonnos
Sivun olennainen sisältö ja rakenne on jo hahmottunut, mutta kuitenkin isoja sisältöpuutteita on edelleen.


Pääviesti
Kysymys:

Kirjoita tähän arvioinnin peruskysymys lyhyesti.

Vastaus:

Kirjoita tähän arvioinnin keskeinen tulos ja päätelmät lyhyesti.


<googlemap version="0.9" lat="62.928986" lon="28.706245" width="500" scale="yes"> (L) 62.937734, 28.712769 Luikonlahden rikastamo </googlemap>

Tämä sivu sisältää tyhjän kohdekohtaisen arvioinnin. Voit kopioida tämän sivun kokonaisuudessaan uudelle sivulle, jonka perustat Minera-mallin avulla tehtävän kaivoksen terveys- ja ympäristövaikutusten arvioinnin tekemistä varten. Kursivoidut tekstit ovat sivun tekijälle annettuja ohjeita, jotka voit poistaa sisällön tieltä. Sivulla on esimerkkitaulukoita, jotka sisältävät joko kuvitteellista dataa tai Luikonlahden tapaustutkimukseen liittyvää dataa. Ne ovat vain esimerkkinä rakenteesta, ja tarkoitus on korvata ne todellisella, tapauskohtaisella tiedolla.
Kursivoidut tekstit ovat ohjeita sivun muokkaajalle, ja ne on tarkoitus poistaa, kun sivu kypsyy todellisen tapaustutkimuksen kuvaukseksi.

Rajaus

Kysymys

Mikä tai mitkä ovat olennaisia tutkimuskysymyksiä kaivoksen terveys- ja ympäristövaikutuksen arvioimiseksi? Listaa tähän tärkeimmät sinun tapaustasi koskevat kysymykset, joihin sidosryhmät haluavat vastauksia.

Rajat

Maantieteelliset, ajalliset, hallinnolliset ja muut rajaukset, joiden puitteissa arvioinnin tarkastelu pysyy.

Päätökset ja skenaariot

Päätökset ja vaihtoehdot, joita halutaan tarkastella ja vertailla. Tässä kuvataan myös erilaiset skenaariot eli "entä jos" -tyyppiset tarkastelut, joissa tarkastellaan määriteltyä tilannetta riippumatta siitä, onko tilanne oikeasti kuvatunlainen. Katso rakenteen selitys sivulta Päätös ja yksityiskohtaisemmin englanniksi sivulta Decision. Huomaa, että otsikoiden täytyy olla esimerkin mukaiset, koska taulukkoa käytetään suoraan laskennassa (joka joiltakin osin toimii valitettavasti englanniksi).
Päätökset(-)
ObsDecisionOptionVariableCellChangeResultKuvaus
1Kaivoksen.kokoBAUtyökonekulutusTyökone:NosturitIdentity1BAU eli business as usual on toiminnan oletusarvo
2Kaivoksen.kokoSuurempi kaivostyökonekulutusTyökone:NosturitMultiply2Cell-sarake kerto, miltä osin Variable-sarakkeessa mainitun osamallin tietoja muutetaan
3Kaivoksen.kokoBAUvarastopinta.alaIdentity1Identity säilyttää oletusarvon
4Kaivoksen.kokoSuurempi kaivosvarastopinta.alaMultiply2Multiply kertoo oletusarvon annetulla luvulla
5Kaivoksen.kokoBAUhihnanopeusIdentity1Cell-sarake voidaan jättää tyhjäksi, jos muutos koskee kaikkia arvoja
6Kaivoksen.kokoSuurempi kaivoshihnanopeusReplace250Replace korvaa oletusarvon annetulla arvolla

Vastaus

Tulokset

Vastaukset kohdassa Kysymys esitettyihin kysymyksiin.

Päätelmät

Tulosten perusteella tehtävät päätelmät siitä, mitä pitäisi tehdä.

Perustelut

Kaikki se tieto, jota tarvitaan lukijaa vakuuttumaan siitä, että tulokset ja päätelmät ovat uskottavia ja hyväksyttäviä esitettyjen kysymysten ja käyttötarpeen suhteen.

Arvioinnin muut sivut

Linkit tämän arvioinnin mahdollisiin muihin, tapauskohtaisiin sivuihin sekä yleisiin metodisivuihin.

Kohdekohtaiset tiedot

Lisää tähän kohdekohtaisia tietoja, joita tarvitaan laskennassa. Korvaa esimerkkisisältö tapauskohtaisilla tiedoilla. Voit poistaa ja lisätä rivejä tarpeen mukaan.
Lähtötiedot(-)
ObsMuuttujaKuvausArvo
1varastokasteluVarastointialueen kastelu (mm /d)0
2varastopinta.alaVarastointialueen pinta-ala (ha)1
3varastosilttipitoisuusVarastoitavan maamassan silttipitoisuus (%)30
4hihnanopeusHihnakuljetettavan materiaalin nopeus (ton /h)100
5hihna.aikaHihnakuljetuksen käyttö vuodessa (h /a)2400
6hihnaprosessiProsessin tyyppiHihnalle lastaaminen ja hihnan vaihto
7hihnojaHihnojen lukumäärä (#)1
8hihnakosteusHihnalla kuljettavan materiaalin kosteusKostea
9hihnavaimennusHihnakuljetuksen vaimennusprosessitTuulensuojamuuri,Materiaalin kastelu
10pintamaasilttipitoisuusMateriaalin silttipitoisuus (%)20
11pintamaakosteusprosenttiMateriaalin kosteusprosentti (%)1
12pintamaatyötunnitKäytetyt työtunnit (h /a)100
13työkoneKäytetty työkoneNosturit
14työkonekulutusRawPolttoaineen kulutus (l /a)10
15ruutuLaskeumamallin ruudun koko (km)0.5
16peittoLaskeumamallin kattaman alueen säde (km)15
17LOKaivoksen sijainti (pituuspiiri)28
18LAKaivoksen sijainti (leveyspiiri)61
Malmin pitoisuudet(mg /kg)
ObsAltisteArvo
1Ni100
2Cu1
3Zn1
4Co1
5Pb1
6As1
7U1
8S1000


Laskenta

Laskentakaavat ja syöttökentät, joiden avulla tuloksia voidaan laskea ja mallittaa.

Mitkä välitulokset haluat nähdä?:
Tapauskohtaiset lähtötiedot
Varastoinnin päästöt
Hihnakuljetuksen päästöt
Työkoneiden päästöt
Pintamaan poiston päästöt
Hiukkasten kokonaispäästö
Hiukkaslaskeuma
Ihmisten altistuminen maa- ja vesipitoisuuksille
Nisäkkäiden ja lintujen altistuminen
Hiukkaspitoisuus ja terveysvaikutus (laskee yli 10 min)

Montako iteraatiota ajetaan?:

+ Näytä koodi


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


Avainsanat

Kohdekohtainen riskinarviointi, kaivos, terveysvaikutus, ympäristövaikutus.

Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Kohdekohtaisen_Minera-arvioinnin_esimerkkisivu&oldid=18968”