Metallimalmin murskausprosessin pölypäästöt

Kysymys

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

Vastaus

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

pölypäästö <- function(page, M, A, prosessi, kosteus, vaimennus){
data <- op_baseGetData("opasnet_base", page) # 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)
}

Esimerkkilaskenta

+ Näytä koodi- Piilota koodi

cat("Valmistellaan laskentaa.\n")

library(OpasnetBaseUtils)
library(xtable)

A <- 24
page <- "Op_fi2806"
out <- pölypäästö(page, M, A, prosessi, kosteus, vaimennus)
cat(paste("Pölypäästöt (kg/d) prosessista, kun prosessoidaan ", M * A, " tonnia päivässä.\n", sep=""))

print(xtable(out), type = 'html')

print(xtable(as.data.frame(as.table(tapply(out$Result, out$Hiukkaskoko, sum)))), type = 'html')

Perustelut

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

Avainsanat

Kaivosteollisuus, mineraali

Viitteet

Aiheeseen liittyviä tiedostoja