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

Versio 14. elokuuta 2012 kello 07.54

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi2825
Moderaattori:Marjo (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi2825}} Huom! Käytät vanhoja parametreja (todennäköisesti stub). Käytä mieluummin parametria edistyminen = Raakile.

Kysymys

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

Vastaus

Ero sivun ”Metallimalmin hihnakuljetuksen pölypäästöt” versioiden välillä(kg/ton, -)
Obs	Suure	Yksikkö	Kosteus	Hiukkaskoko	Prosessi	Arvo
1	Päästökerroin	kg /ton	Kuiva	PM10	Hihnalle lastaaminen ja hihnan vaihto	0.00055
2	Päästökerroin	kg /ton	Kuiva	PM2.5	Hihnalle lastaaminen ja hihnan vaihto	0
3	Päästökerroin	kg /ton	Kostea	TSP	Hihnalle lastaaminen ja hihnan vaihto	0.00007
4	Päästökerroin	kg /ton	Kostea	PM10	Hihnalle lastaaminen ja hihnan vaihto	0.000023
5	Päästökerroin	kg /ton	Kostea	PM2.5	Hihnalle lastaaminen ja hihnan vaihto	0.0000065
6	Päästökerroin	kg /ton	Kuiva	TSP	Hihnalta ajoneuvoon lastaaminen	0
7	Päästökerroin	kg /ton	Kuiva	PM10	Hihnalta ajoneuvoon lastaaminen	0.00055
8	Päästökerroin	kg /ton	Kuiva	PM2.5	Hihnalta ajoneuvoon lastaaminen	0
9	Päästökerroin	kg /ton	Kostea	PM2.5	Hihnalta ajoneuvoon lastaaminen	0
10	Läpipääsykerroin	-	*	*	Tuulensuojamuuri	0.7
11	Läpipääsykerroin	-	*	*	Materiaalin kastelu	0.5
12	Läpipääsykerroin	-	*	*	Hihnan kotelointi, sykloni	0.35
13	Läpipääsykerroin	-	*	*	Hihnan kotelointi, harjaus	0.25
14	Läpipääsykerroin	-	*	*	Hihnan kotelointi, kangassuodattimet	0.17
15	Läpipääsykerroin	-	*	*	suljettu tai maanalainen	0
16	Läpipääsykerroin	-	*	*	Sähköstaattinen suodatus	0.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

+ Näytä koodi - Piilota koodi

cat("Valmistellaan laskentaa.\n")

library(OpasnetUtils)
library(xtable)

riippuvuudet <- data.frame(
	Name = c("HiHM", "HiHA", "HiHprosessi", "HiHkosteus", "HiHvaimennus")
)

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

	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 <- merge(out, temp, by.x = "Kosteus", by.y = "Kosteus2")[, -1] # Korvataan villikortit oikeilla arvoilla
	out <- rbind(out[out$Kosteus != "*", ], temp)
	out <- merge(out, data.frame(Kosteus = HiHkosteus, Prosessi = HiHprosessi)) # Rajataan käyttäjän määrittämiin prosesseihin.

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

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

#out <- pölypäästö(M, A, prosessi, kosteus, vaimennus)
#out$Result <- out$Result*hihnoja

MetMalHihPol <- new("ovariable",
	name = "MetMalHihPol",
	dependencies = riippuvuudet,
	formula = funktio
)
objects.put(MetMalHihPol)
temp <- EvalOutput(MetMalHihPol)

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

<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

Päästölähteet: Hihnakuljetus (suojattu sivu)
Hihnakuljetus (suojattu sivu)

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

@@ Rivi 35: / Rivi 35: @@
 <rcode variables="
-name:M|description:Kuinka monta tonnia syötettä kulkee kuljettimen läpi tunnissa?|default:100|
+name:HiHM|description:Kuinka monta tonnia syötettä kulkee kuljettimen läpi tunnissa?|default:100|
-name:A|description:Montako tuntia prosessia ajetaan päivässä?|default:8|
+name:HiHA|description:Montako tuntia prosessia ajetaan päivässä?|default:8|
-name:prosessi|description:Mikä kuljetusprosessi on käytössä?|type:selection|options:'Hihnalle lastaaminen ja hihnan vaihto';Hihnalle lastaaminen ja hihnan vaihto;'Hihnalta ajoneuvoon lastaaminen';Hihnalta ajoneuvoon lastaaminen|default:'Hihnalle lastaaminen ja hihnan vaihto'|
+name:HiHprosessi|description:Mikä kuljetusprosessi on käytössä?|type:selection|options:'Hihnalle lastaaminen ja hihnan vaihto';Hihnalle lastaaminen ja hihnan vaihto;'Hihnalta ajoneuvoon lastaaminen';Hihnalta ajoneuvoon lastaaminen|default:'Hihnalle lastaaminen ja hihnan vaihto'|
-name:hihnoja|description:Montako lastausta prosessiin kuuluu?|default:1|
+name:HiHhihnoja|description:Montako lastausta prosessiin kuuluu?|default:1|
-name:kosteus|description:Onko malmi kuivaa vai kosteaa (rajana 1.5 % kosteutta)?|type:selection|options:'Kuiva';Kuiva;'Kostea';Kostea|default:'Kostea'|
+name:HiHkosteus|description:Onko malmi kuivaa vai kosteaa (rajana 1.5 % kosteutta)?|type:selection|options:'Kuiva';Kuiva;'Kostea';Kostea|default:'Kostea'|
-name:vaimennus|description:Mitkä päästönvaimennusprosessit ovat käytössä?|type:checkbox|options:'Tuulensuojamuuri';Tuulensuojamuuri;'Materiaalin kastelu';Materiaalin kastelu;'Hihnan kotelointi, sykloni';Hihnan kotelointi, sykloni;'Hihnan kotelointi, harjaus';Hihnan kotelointi, harjaus;'Hihnan kotelointi, kangassuodattimet';Hihnan kotelointi, kangassuodattimet;'Suljettu tai maanalainen';Suljettu tai maanalainen;'Sähköstaattinen suodatus';Sähköstaattinen suodatus|default:'Tuulensuojamuuri';'Materiaalin kastelu'
+name:HiHvaimennus|description:Mitkä päästönvaimennusprosessit ovat käytössä?|type:checkbox|options:'Tuulensuojamuuri';Tuulensuojamuuri;'Materiaalin kastelu';Materiaalin kastelu;'Hihnan kotelointi, sykloni';Hihnan kotelointi, sykloni;'Hihnan kotelointi, harjaus';Hihnan kotelointi, harjaus;'Hihnan kotelointi, kangassuodattimet';Hihnan kotelointi, kangassuodattimet;'Suljettu tai maanalainen';Suljettu tai maanalainen;'Sähköstaattinen suodatus';Sähköstaattinen suodatus|default:'Tuulensuojamuuri';'Materiaalin kastelu'
 ">
 cat("Valmistellaan laskentaa.\n")
@@ Rivi 48: / Rivi 48: @@
 riippuvuudet <- data.frame(
-	Name = c("M", "A", "prosessi", "kosteus", "vaimennus")
+	Name = c("HiHM", "HiHA", "HiHprosessi", "HiHkosteus", "HiHvaimennus")
 )
@@ Rivi 59: / Rivi 59: @@
 	temp <- merge(out, temp, by.x = "Kosteus", by.y = "Kosteus2")[, -1] # Korvataan villikortit oikeilla arvoilla
 	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 = HiHkosteus, Prosessi = HiHprosessi)) # Rajataan käyttäjän määrittämiin prosesseihin.
-	if(class(vaimennus)!="list") {
+	if(class(HiHvaimennus)!="list") {
-		vaimennus <- list(vaimennus)
+		HiHvaimennus <- list(HiHvaimennus)
 	}
 	vaim <- 1
-	for(i in 1:length(vaimennus)) {
+	for(i in 1:length(HiHvaimennus)) {
-		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% HiHvaimennus[[i]], "Result"]))))
 	}
-	out$Result <- as.numeric(out$Result) * M * A * vaim # Varsinainen laskentakaava
+	out$Result <- as.numeric(out$Result) * HiHM * HiHA * vaim # Varsinainen laskentakaava
 	out <- dropall(out) # Tiputetaan turhat levelit
 	return(out)
@@ Rivi 85: / Rivi 85: @@
 temp <- EvalOutput(MetMalHihPol)
-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 ", HiHM * HiHA, " tonnia päivässä.\n", sep=""))
 out <- temp@output
 print(xtable(out), type = 'html')