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

Versio 10. lokakuuta 2012 kello 17.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.

[show] Tämä sivu on tietokide alatyypiltään arviointi. Sivutunniste: Op_fi3129
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi3129}}

Pääviesti

Kysymys:

Kirjoita tähän arvioinnin peruskysymys lyhyesti.

Vastaus:

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

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ä.

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.

*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 %

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.

Tarkistuslista

**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

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.

Ero sivun ”Kohdekohtaisen Minera-arvioinnin esimerkkisivu” versioiden välillä(-)
Obs	Parametri	Lyhenne	Unit	Result	Description
1	Kaivoksen nimi	nimi	-	Luikonlahden kaivos
2	Pääasiallinen tuote	tuote	-
3	Sijainti, pituuspiiri	LO	°	28.707962
4	Sijainti, leveyspiiri	LA	°	62.938017
5	Louhintamäärä	louhinta	ton /a	10000000
6	Tuotanto	tuotanto	ton /a	40
7	Käytössä olevat murskausprosessit	prosessi	-	Esi/karkea murskaus, Välimurskaus, Hienomurskaus
8	Malmin kosteus	kosteus	-	Kostea	Onko malmi kuivaa vai kosteaa (rajana 1.5 % kosteutta)?
9	Päästönvaimennusprosessit	vaimennus	-	Tuulensuojamuuri, Materiaalin kastelu	Mitkä päästönvaimennusprosessit ovat käytössä?

⇤#: Luvut ovat keksittyja ja niitä tulee käyttää vain havainnolistustarkoituksessa. --Jouni Tuomisto 10. lokakuuta 2012 kello 20.40 (EEST)

--#: Tähän pitäisi rakentaa lista tyypillisesti tarvittavista tiedoista. --Jouni Tuomisto 20. elokuuta 2012 kello 17.42 (EEST)

Laskenta

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

+ Näytä koodi - Piilota koodi

library(OpasnetUtils)
library(OpasnetUtilsExt)
library(xtable)
library(ggplot2)
library(rgdal)
library(maptools)
library(RColorBrewer)
library(classInt)
library(raster)


par(mfrow=c(6,1), mar=c(3,1,0,1), cex=1.5)

colorstrip <- function(colors, labels)
{
count <- length(colors)
m <- matrix(1:count, count, 1)
image(m, col=colors, ylab="", axes=FALSE)
axis(1,approx(c(0, 1), n=length(labels))$y, labels)
}


data <- tidy(op_baseGetData("opasnet_base", "Op_fi3129"))

for(i in 1:nrow(data)) {
	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)
}

cat("Louhintaprosessi ", louhinta, " (ton per a) synnyttää pienhiukkaspääston kohdassa LO ", LO, ", LA ", LA, "\n")

M <- louhinta / 365
A <- 1

objects.get("8EV2qsAPaXuk7ELI")
MetMalMurskPol <- EvalOutput(MetMalMurskPol)

cat("Hiukkaspäästo:\n")
print(xtable(MetMalMurskPol@output), type = 'html')

riippuvuudet <- data.frame(Name = "MetMalMurskPol")

kaava <- function(dependencies, ...) {
	temp <- MetMalMurskPol@output[MetMalMurskPol@output$Hiukkaskoko == "PM10" , ]
	temp <- as.data.frame(as.table(tapply(temp["MetMalMurskPolResult"], temp["MetMalMurskPolSource"], sum)))
	colnames(temp)[colnames(temp) == "Freq"] <- "PäästöPM2.5Result"
	return(temp)
}

Päästö.PM2.5 <- new(
	"ovariable", 
	name = "PäästöPM2.5",
	dependencies = riippuvuudet,
	formula = kaava
)

# Ovariablet

## Pitoisuudet

riippuvuudet1 <- data.frame(
	Name = c("Päästö.PM2.5", "LO", "LA")
)

funktio1 <- function(dependencies, ...) {
	ComputeDependencies(dependencies, ...)
	temp <- GIS.Concentration.matrix(Päästö.PM2.5, LO, LA, ...)
	return(temp)
}

Pitoisuus <- new(
	"ovariable", 
	name = "Pitoisuus",
	formula = funktio1, 
	dependencies = riippuvuudet1
)

temp <- EvalOutput(Pitoisuus, N = 1)

temp2 <- gsub("\\(", "", temp@output$LObin)
temp2 <- gsub("\\]", "", temp2)
temp2 <- strsplit(temp2, ",")

temp3 <- c()

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


temp2 <- gsub("\\(", "", temp@output$LAbin)
temp2 <- gsub("\\]", "", temp2)

temp2 <- strsplit(temp2, ",")

temp3 <- c()

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

#print(temp)

data <- data.frame(LO=temp@output$LO, LA=temp@output$LA, concentration=temp@output$PitoisuusResult)

truncated = c()
for(i in 1:nrow(data)){
 if (data$concentration[i] > 1)
 {
  truncated[i] <- 1
 } 
 else
 {
  truncated[i] <- data$concentration[i]
 }
}

data$truncated_concentration <- truncated


# Plot the data
coordinates(data)=c("LO","LA")
proj4string(data)<-("+init=epsg:4326")
epsg4326String <- CRS("+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs")
shp<-spTransform(data,epsg4326String)

#Create blank raster
rast<-raster()

#Set raster extent to that of point data
extent(rast)<-extent(shp)

#Choose number of columns and rows
ncol(rast) <- 42
nrow(rast) <- 40

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

#Rasterize point data
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)
colors <- rev(rainbow(length(steps), start=0, end=0.50))

colorstrip(colors, steps)

#Plot data
google.show_raster_on_maps(rast2, col=colors, style="height:500px;")

#Plot a ggplot graph

ggplot(temp@output, aes(LO, LA, fill = PitoisuusResult)) + geom_tile() +
  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

funktio = function(dependencies, ...){
	ComputeDependencies(dependencies, ...)

	input <- tidy(op_baseGetData("opasnet_base", "Op_fi1234"), objname = "Arviointi") # Vaihda tekstin Op_fi1234 paikalle oman arviointisi sivutunniste.

	# Tähän muu tarpeellinen laskenta.

        return(out@output)
		
}

Arviointi <- new("ovariable",
	name         = "Arviointi",
	dependencies = riippuvuudet,
        formula      = funktio
)


temp <- EvalOutput(Arviointi)

print(xtable(temp@output),type = "html")

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")

Metallikaivoksen terveysriskit

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