Hiukkaslaskeuma

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi3791
Moderaattori:Jouni (katso kaikki) Sivun edistyminen: Luonnos. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi3791}}

Kysymys

Miten lasketaan hiukkaslaskeuma päästölähteen ympärille?

Vastaus

Päästön määrä (ton /a): Hilaruudun sivun pituus (km): Tarkasteltavan laskeuma-alueen reunan etäisyys päästölähteestä: + Näytä koodi- Piilota koodi library(OpasnetUtils) library(ggplot2) objects.latest("Op_fi3791", "alustus") # Hiukkaslaskeuma hiukkaspäästö <- Ovariable("hiukkaspäästö", data = data.frame(Result = hiukkaspäästö)) hiukkaslaskeuma <- EvalOutput(hiukkaslaskeuma) oprint(summary(hiukkaslaskeuma), digits = 5) ograph(hiukkaslaskeuma, x = "etäisyysluokka", fill = "Hiukkaskoko")

Perustelut

Laskeumanopeus eri hiukkaskokoluokille.

Ero sivun ”Hiukkaslaskeuma” versioiden välillä(1 /km)

Obs	Hiukkaskoko	Laskeumanopeus
1	TSP	0.2-0.8
2	PM10	0.06-0.4
3	PM2.5	0.02-0.15

• TSP: Hiukkaskoon alaraja 10 um
• PM10: Hiukkaskoon alaraja 2.5 um
• PM2.5: Ei hiukkaskoon alarajaa

Laskenta

+ Näytä koodi- Piilota koodi library(OpasnetUtils) # Laskeumanopeuden kerroin laskeumakerroin <- Ovariable(name = "laskeumakerroin", ddata = "Op_fi3791", getddata = FALSE) # Hiukkaslaskeumametodi hiukkaslaskeuma <- new("ovariable", name = "hiukkaslaskeuma", dependencies = data.frame(Name = c("laskeumakerroin", "hiukkaspäästö", "ruutu", "peitto")), formula = function(...) { # ruutukoko on yhden hilaruudun sivun pituus kilometreinä # peitto on tarkasteltavan laskeuma-alueen reunan etäisyys päästölähteestä kilometreinä. # Laskeuma etäisyyden funktiona etäisyys <- ( 0:(1.5 * peitto/ruutu)) * ruutu # Tarkastellaan ympyräaluetta peiton säteellä vai neliötä? # Hila, jonka puitteissa laskeumaa tarkastellaan hila <- data.frame( dx = rep((-peitto/ruutu):(peitto/ruutu) * ruutu, each = length((-peitto/ruutu):(peitto/ruutu))), dy = (-peitto/ruutu):(peitto/ruutu) * ruutu ) hila$etäisyys <- sqrt(hila$dx^2 + hila$dy^2) hila$etäisyysluokka <- cut(hila$etäisyys, breaks = etäisyys, right = FALSE, include.lowest = TRUE) # Luodaan data.frame jossa joka etäisyysluokalle oma rivi. Sisältää alku- ja loppuetäisyydet sekä ruutujen määrän. temp <- aggregate(hila["etäisyys"], hila["etäisyysluokka"], length) colnames(temp)[colnames(temp) == "etäisyys"] <- "alaResult" temp2 <- strsplit( gsub("[() //[]", "", temp$etäisyysluokka), split = ",") for( i in 1:nrow(temp)) { temp$etäisyys1Result[i] <- as.numeric(temp2[[i]][1]) temp$etäisyys2Result[i] <- as.numeric(temp2[[i]][2]) } etäisyys1 <- Ovariable("etäisyys1", data = temp[c("etäisyysluokka", "etäisyys1Result")]) etäisyys2 <- Ovariable("etäisyys2", data = temp[c("etäisyysluokka", "etäisyys2Result")]) ala <- Ovariable("ala", data = temp[c("etäisyysluokka", "alaResult")]) etäisyys1 <- EvalOutput(etäisyys1) etäisyys2 <- EvalOutput(etäisyys2) ala <- EvalOutput(ala) out <- (exp(-1 * laskeumakerroin * etäisyys1) - exp(-1 * laskeumakerroin * etäisyys2)) out <- out / (ala * ruutu ^2) * hiukkaspäästö # ton/km2 = g/m2 out@output$hiukkaslaskeumaUnit <- "g /m2 /a" return(out) } ) objects.store(laskeumakerroin, hiukkaslaskeuma) cat("Ovariablet laskeumakerroin, hiukkaslaskeuma tallennettu. Lisäksi tarvitaan hiukkaspäästö, ruutu ja peitto.\n")

Katso myös

• op_en:OpasnetUtils/GIS

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

Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>