Metallimalmin murskausprosessin pölypäästöt

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

Kysymys

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

Vastaus

Esimerkkilaskenta

Kuinka monta tonnia malmia murskataan tunnissa?: Montako tuntia prosessia ajetaan päivässä?: Mitä murskausprosesseja on käytössä?: Esi/karkea murskaus Välimurskaus Hienomurskaus Materiaalin siirto ja kuljetus Märkäseulonta Kuivaseulonta ilman avulla Kuivaseulonta ilman ilmapuhallusta Kuivaus Onko malmi kuivaa vai kosteaa (rajana 1.5 % kosteutta)?: Kuiva Kostea 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- Piilota koodi ################# pölypäästö: funktio pölypäästön laskemiseen ## KHM= k * M * A *C1*C2...*Cn ## KHM = kokonaishiukkasmäärä joka lopulta muuttuu päästöksi (g/vrk) ## k1-3 = prosessikohtainen hiukkaspäästökerroin eri kosteuspitoisuudessa (g/ton) ## M = syötteen määrä/tunti (ton/h) ## A = työtunnit vuorokaudessa (h/d) ## C1-Cn = pölypäästöjen vähentämisen tehokkuuskertoimet kullekin käytetylle menetelmälle library(OpasnetUtils) library(xtable) cat("Valmistellaan laskentaa.\n") riippuvuudet <- data.frame( Name = c("M", "A", "prosessi", "kosteus", "vaimennus") ) funktio <- function(dependencies, ...) { data <- op_baseGetData("opasnet_base", "Op_fi2806") # 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 = kosteus, Prosessi = prosessi)) # Rajataan käyttäjän määrittämiin prosesseihin. if(class(vaimennus)!="list") { vaimennus <- list(vaimennus) } vaim <- 1 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"])))) } out$Result <- as.numeric(out$Result) * M * A * vaim # Varsinainen laskentakaava out <- dropall(out) # Tiputetaan turhat levelit return(out) } MetMalMurskPol <- new("ovariable", name = "MetMalMurskPol", dependencies = riippuvuudet, formula = funktio ) objects.put(MetMalMurskPol) temp <- EvalOutput(MetMalMurskPol) cat(paste("Pölypäästöt (kg/d) prosessista, kun prosessoidaan ", M * A, " tonnia päivässä.\n", sep="")) print(xtable(temp@output), type = 'html') print(xtable(as.data.frame(as.table(tapply(temp@output$ MetMalMurskPolResult, temp@output$Hiukkaskoko, sum)))), type = 'html')

Perustelut

Lähtötietoja

Ero sivun ”Metallimalmin murskausprosessin pölypäästöt” versioiden välillä(useita)

Obs	Suure	Yksikkö	Kosteus	Hiukkaskoko	Prosessi	Arvo
1	Päästökerroin	kg/ton	Kuiva	TSP	Esi/karkea murskaus	0.2
2	Päästökerroin	kg/ton	Kuiva	TSP	Välimurskaus	0.6
3	Päästökerroin	kg/ton	Kuiva	TSP	Hienomurskaus	1.4
4	Päästökerroin	kg/ton	Kuiva	TSP	Materiaalin siirto ja kuljetus	0.06
5	Päästökerroin	kg/ton	Kostea	TSP	Esi/karkea murskaus	0.01
6	Päästökerroin	kg/ton	Kostea	TSP	Välimurskaus	0.03
7	Päästökerroin	kg/ton	Kostea	TSP	Hienomurskaus	0.03
8	Päästökerroin	kg/ton	Kostea	TSP	Materiaalin siirto ja kuljetus	0.005
9	Päästökerroin	kg/ton	*	TSP	Märkäseulonta	0
10	Päästökerroin	kg/ton	*	TSP	Kuivaseulonta ilman avulla	14.4
11	Päästökerroin	kg/ton	*	TSP	Kuivaseulonta ilman ilmapuhallusta	1.2
12	Päästökerroin	kg/ton	*	TSP	Kuivaus	9.8
13	Päästökerroin	kg/ton	Kuiva	PM10	Esi/karkea murskaus	0.02
14	Päästökerroin	kg/ton	Kuiva	PM10	Välimurskaus	0 - 0.6
15	Päästökerroin	kg/ton	Kuiva	PM10	Hienomurskaus	0.08
16	Päästökerroin	kg/ton	Kuiva	PM10	Materiaalin siirto ja kuljetus	0.03
17	Päästökerroin	kg/ton	Kostea	PM10	Esi/karkea murskaus	0.004
18	Päästökerroin	kg/ton	Kostea	PM10	Välimurskaus	0.012
19	Päästökerroin	kg/ton	Kostea	PM10	Hienomurskaus	0.01
20	Päästökerroin	kg/ton	Kostea	PM10	Materiaalin siirto ja kuljetus	0.002
21	Päästökerroin	kg/ton	*	PM10	Märkäseulonta	0
22	Päästökerroin	kg/ton	*	PM10	Kuivaseulonta ilman avulla	13
23	Päästökerroin	kg/ton	*	PM10	Kuivaseulonta ilman ilmapuhallusta	0.16
24	Päästökerroin	kg/ton	*	PM10	Kuivaus	5.9
25	Läpipääsykerroin	-	*	*	Tuulensuojamuuri	0.7
26	Läpipääsykerroin	-	*	*	Materiaalin kastelu	0.5
27	Läpipääsykerroin	-	*	*	Kotelointi, sykloni	0.35
28	Läpipääsykerroin	-	*	*	Kotelointi, harjaus	0.25
29	Läpipääsykerroin	-	*	*	Kotelointi, kangassuodattimet	0.17
30	Läpipääsykerroin	-	*	*	suljettu tai maanalainen	0
31	Läpipääsykerroin	-	*	*	Sähköstaattinen suodatus	0.13 - 0.08

Kaava

Varsinainen funktio

+ Näytä koodi- Piilota koodi ################# pölypäästö: funktio pölypäästön laskemiseen ## KHM= k * M * A *C1*C2...*Cn ## KHM = kokonaishiukkasmäärä joka lopulta muuttuu päästöksi (g/vrk) ## k1-3 = prosessikohtainen hiukkaspäästökerroin eri kosteuspitoisuudessa (g/ton) ## M = syötteen määrä/tunti (ton/h) ## A = työtunnit vuorokaudessa (h/d) ## C1-Cn = pölypäästöjen vähentämisen tehokkuuskertoimet kullekin käytetylle menetelmälle library(OpasnetUtils) library(xtable) riippuvuudet <- data.frame( Name = c("M", "A", "prosessi", "kosteus", "vaimennus") ) funktio <- function(dependencies, ...) { data <- op_baseGetData("opasnet_base", "Op_fi2806") # 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 = kosteus, Prosessi = prosessi)) # Rajataan käyttäjän määrittämiin prosesseihin. if(class(vaimennus)!="list") { vaimennus <- list(vaimennus) } vaim <- 1 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"])))) } out$Result <- as.numeric(out$Result) * M * A * vaim # Varsinainen laskentakaava out <- dropall(out) # Tiputetaan turhat levelit return(out) } MetMalMurskPol <- new("ovariable", name = "MetMalMurskPol", dependencies = riippuvuudet, formula = funktio ) objects.put(MetMalMurskPol) cat("Muuttuja alustettu. Ota ajosivun linkin avain talteen myöhempää käyttöä varten.\n")

• Täsmälliset perustelut löytyvät ERAC-wikistä: Metallimalmin murskausprosessin päästökertoimet (suojattu sivu)

Katso myös

• Samasta asiasta on myös toinen, vanhempi sivu joka pitäisi yhdistää tähän ja poistaa: Metallimalmin murskausprosessin kokonais- (TSP) ja hengittyvien hiukkasten (PM10) päästökertoimet.

• Metallimalmin murskausprosessin päästökertoimet

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

Avainsanat

Kaivosteollisuus, mineraali

Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>