Ero sivun ”Metallimalmin hihnakuljetuksen pölypäästöt” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
p (→‎R-koodi: pieni paikkaus)
(→‎R-koodi: Valmis koodi (?))
Rivi 33: Rivi 33:


'''Esimerkkilaskenta
'''Esimerkkilaskenta
{{kommentti|#:|Vanha koodi ilmeisesti toimii, mutta kun siitä tekee ovariablen niin jotain menee pieleen..|--[[Käyttäjä:Mori|Mori]] 19. heinäkuuta 2012 kello 11:13 (EEST)}}


<rcode variables="
<rcode variables="
Rivi 54: Rivi 52:


funktio <- function(dependencies, ...) {
funktio <- function(dependencies, ...) {
pölypäästö <- function(M, A, prosessi, kosteus, vaimennus){
data <- op_baseGetData("opasnet_base", "Op_fi2825") # Haetaan päästökerrointiedot
data <- op_baseGetData("opasnet_base", "Op_fi2825") # Haetaan päästökerrointiedot
data <- tidy(data) # Siistitään data
data <- tidy(data) # Siistitään data


out <- data[data$Suure == "Päästökerroin", c("Kosteus", "Hiukkaskoko", "Prosessi", "Result")] # Valitaan päästökerroinrivit
out <- data[data$Suure == "Päästökerroin", c("Kosteus", "Hiukkaskoko", "Prosessi", "Result")] # Valitaan päästökerroinrivit
temp <- data.frame(Kosteus = c("Kuiva", "Kostea"), Kosteus2 = "*")
temp <- data.frame(Kosteus = c("Kuiva", "Kostea"), Kosteus2 = "*")
temp <- merge(out, temp, by.x = "Kosteus", by.y = "Kosteus2")[, -1] # Korvataan villikortit oikeilla arvoilla
temp <- merge(out, temp, by.x = "Kosteus", by.y = "Kosteus2")[, -1] # Korvataan villikortit oikeilla arvoilla
out <- rbind(out[out$Kosteus != "*", ], temp)
out <- rbind(out[out$Kosteus != "*", ], temp)
out <- merge(out, data.frame(Kosteus = kosteus, Prosessi = prosessi)) # Rajataan käyttäjän määrittämiin prosesseihin.
out <- merge(out, data.frame(Kosteus = kosteus, Prosessi = prosessi)) # Rajataan käyttäjän määrittämiin prosesseihin.


if(class(vaimennus)!="list") {
if(class(vaimennus)!="list") {
vaimennus <- list(vaimennus)
vaimennus <- list(vaimennus)
}
}
vaim <- 1
vaim <- 1
for(i in 1:length(vaimennus)) {
for(i in 1:length(vaimennus)) {
vaim[i] <- exp(sum(log(as.numeric(data[data$Suure == "Läpipääsykerroin" & data$Prosessi %in% vaimennus[[i]], "Result"]))))
vaim[i] <- exp(sum(log(as.numeric(data[data$Suure == "Läpipääsykerroin" & data$Prosessi %in% vaimennus[[i]], "Result"]))))
}
}


out$Result <- as.numeric(out$Result) * M * A * vaim # Varsinainen laskentakaava
out$Result <- as.numeric(out$Result) * M * A * vaim # Varsinainen laskentakaava
out <- dropall(out) # Tiputetaan turhat levelit
out <- dropall(out) # Tiputetaan turhat levelit
return(out)
return(out)
}
}
}


Rivi 88: Rivi 84:
objects.put(MetMalHihPol)
objects.put(MetMalHihPol)
temp <- EvalOutput(MetMalHihPol)
temp <- EvalOutput(MetMalHihPol)
print(xtable(temp@output), type = 'html')


cat(paste("Pölypäästöt (kg/d) prosessista, kun prosessoidaan ", M * A, " tonnia päivässä.\n", sep=""))
cat(paste("Pölypäästöt (kg/d) prosessista, kun prosessoidaan ", M * A, " tonnia päivässä.\n", sep=""))
out <- temp@output
print(xtable(out), type = 'html')
print(xtable(out), type = 'html')
print(xtable(as.data.frame(as.table(tapply(out$Result, out$Hiukkaskoko, sum)))), type = 'html')
print(xtable(as.data.frame(as.table(tapply(out$MetMalHihPolResult, out$Hiukkaskoko, sum)))), type = 'html')
</rcode>
</rcode>



Versio 20. heinäkuuta 2012 kello 10.03




Kysymys

Miten lasketaan metallimalmin hihnakuljetuksen pölypäästöt?

Vastaus

Ero sivun ”Metallimalmin hihnakuljetuksen pölypäästöt” versioiden välillä(kg/ton, -)
ObsSuureYksikköKosteusHiukkaskokoProsessiArvo
1Päästökerroinkg/tonKuivaPM10Hihnalle lastaaminen ja hihnan vaihto 0.00055
2Päästökerroinkg/tonKuivaPM2.5Hihnalle lastaaminen ja hihnan vaihto 0
3Päästökerroinkg/tonKosteaTSPHihnalle lastaaminen ja hihnan vaihto 0.00007
4Päästökerroinkg/tonKosteaPM10Hihnalle lastaaminen ja hihnan vaihto 0.000023
5Päästökerroinkg/tonKosteaPM2.5Hihnalle lastaaminen ja hihnan vaihto 0.0000065
6Päästökerroinkg/tonKuivaTSPHihnalta ajoneuvoon lastaaminen 0
7Päästökerroinkg/tonKuivaPM10Hihnalta ajoneuvoon lastaaminen 0.00055
8Päästökerroinkg/tonKuivaPM2.5Hihnalta ajoneuvoon lastaaminen 0
9Päästökerroinkg/tonKosteaPM2.5Hihnalta ajoneuvoon lastaaminen 0
10Läpipääsykerroin-**Tuulensuojamuuri0.7
11Läpipääsykerroin-**Materiaalin kastelu0.5
12Läpipääsykerroin-**Hihnan kotelointi, sykloni0.35
13Läpipääsykerroin-**Hihnan kotelointi, harjaus0.25
14Läpipääsykerroin-**Hihnan kotelointi, kangassuodattimet0.17
15Läpipääsykerroin-**suljettu tai maanalainen0
16Läpipääsykerroin-**Sähköstaattinen suodatus0.13 - 0.08

Huom! materiaalin kastelun vähennys on käytössä myös kostealle materiaalille. Tällä tarkoitetaan jatkuvaa kastelua, jolloin materiaali ei pääse kuivamaan missään vaiheessa. Tämä pätee myös murskauksen osalta.

Huom2! Päästökerroin nollat tarkoittavat, ettei tietoa ole käytössä. Kunhan epävarmuusjakaumat saadaan toimimaan, voidaan antaa jakauma.

R-koodi

Esimerkkilaskenta

Kuinka monta tonnia syötettä kulkee kuljettimen läpi tunnissa?:

Montako tuntia prosessia ajetaan päivässä?:

Mikä kuljetusprosessi on käytössä?:

Montako lastausta prosessiin kuuluu?:

Onko malmi kuivaa vai kosteaa (rajana 1.5 % kosteutta)?:

Mitkä päästönvaimennusprosessit ovat käytössä?:
Tuulensuojamuuri
Materiaalin kastelu
Hihnan kotelointi, sykloni
Hihnan kotelointi, harjaus
Hihnan kotelointi, kangassuodattimet
Suljettu tai maanalainen
Sähköstaattinen suodatus

+ Näytä koodi


<math> Paasto = M * A * p_k * \Pi_j v_j </math>

jossa
Paasto = prosessin tuottama pölypäästö
M = aktiviteetin määrä tunnissa,
A = työtuntien määrä,
p = päästökerroin prosessille malmin kosteudella k,
v = vaimennuskerroin vaimennusprosessille j.

Perustelut

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

<mfanonymousfilelist></mfanonymousfilelist>