Lähdekoodi sivulle Metallimalmin murskausprosessin pölypäästöt

{{metodi|moderator=Jouni|stub=Yes}}

==Kysymys==

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

==Vastaus==

<t2b index="Suure,Yksikkö,Kosteus,Hiukkaskoko,Prosessi" obs="Arvo" unit="useita">
Päästökerroin|kg/ton|Kuiva|TSP|Esi/karkea murskaus |0.2
Päästökerroin|kg/ton|Kuiva|TSP|Välimurskaus |0.6
Päästökerroin|kg/ton|Kuiva|TSP|Hienomurskaus |1.4
Päästökerroin|kg/ton|Kuiva|TSP|Materiaalin siirto ja kuljetus |0.06
Päästökerroin|kg/ton|Kostea|TSP|Esi/karkea murskaus |0.01
Päästökerroin|kg/ton|Kostea|TSP|Välimurskaus |0.03
Päästökerroin|kg/ton|Kostea|TSP|Hienomurskaus |0.03
Päästökerroin|kg/ton|Kostea|TSP|Materiaalin siirto ja kuljetus |0.005
Päästökerroin|kg/ton|*|TSP|Märkäseulonta |0
Päästökerroin|kg/ton|*|TSP|Kuivaseulonta ilman avulla |14.4
Päästökerroin|kg/ton|*|TSP|Kuivaseulonta ilman ilmapuhallusta |1.2
Päästökerroin|kg/ton|*|TSP|Kuivaus |9.8
Päästökerroin|kg/ton|Kuiva|PM10|Esi/karkea murskaus |0.02
Päästökerroin|kg/ton|Kuiva|PM10|Välimurskaus |0 - 0.6
Päästökerroin|kg/ton|Kuiva|PM10|Hienomurskaus |0.08
Päästökerroin|kg/ton|Kuiva|PM10|Materiaalin siirto ja kuljetus |0.03
Päästökerroin|kg/ton|Kostea|PM10|Esi/karkea murskaus |0.004
Päästökerroin|kg/ton|Kostea|PM10|Välimurskaus |0.012
Päästökerroin|kg/ton|Kostea|PM10|Hienomurskaus |0.01 
Päästökerroin|kg/ton|Kostea|PM10|Materiaalin siirto ja kuljetus |0.002
Päästökerroin|kg/ton|*|PM10|Märkäseulonta |0
Päästökerroin|kg/ton|*|PM10|Kuivaseulonta ilman avulla |13
Päästökerroin|kg/ton|*|PM10|Kuivaseulonta ilman ilmapuhallusta |0.16
Päästökerroin|kg/ton|*|PM10|Kuivaus |5.9
Läpipääsykerroin|-|*|*|Tuulensuojamuuri|0.7
Läpipääsykerroin|-|*|*|Materiaalin kastelu|0.5
Läpipääsykerroin|-|*|*|Kotelointi, sykloni|0.35
Läpipääsykerroin|-|*|*|Kotelointi, harjaus|0.25
Läpipääsykerroin|-|*|*|Kotelointi, kangassuodattimet|0.17
Läpipääsykerroin|-|*|*|suljettu tai maanalainen|0
Läpipääsykerroin|-|*|*|Sähköstaattinen suodatus|0.13 - 0.08 
</t2b>

=== Kaava ===

'''Varsinainen funktio

<rcode name="answer" include="page:OpasnetBaseUtils|name:generic" label="Turha ajaa, yksinään ei tee mitään">

################# 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)
}
</rcode>

'''Esimerkkilaskenta

<rcode include="page:OpasnetBaseUtils|name:generic|page:Metallimalmin_murskausprosessin_pölypäästöt|name:answer"
variables="
name:M|description:Kuinka monta tonnia malmia murskataan tunnissa?|default:100|
name:prosessi|description:Mitä murskausprosesseja on käytössä?|type:checkbox|options:'Esi/karkea murskaus';Esi/karkea murskaus;'Välimurskaus';Välimurskaus;'Hienomurskaus';Hienomurskaus;'Materiaalin siirto ja kuljetus';Materiaalin siirto ja kuljetus;'Märkäseulonta';Märkäseulonta;'Kuivaseulonta ilman avulla';Kuivaseulonta ilman avulla;'Kuivaseulonta ilman ilmapuhallusta';Kuivaseulonta ilman ilmapuhallusta;'Kuivaus';Kuivaus|default:'Esi/karkea murskaus';'Välimurskaus';'Hienomurskaus'|
name:kosteus|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'
">
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')
</rcode>

==Perustelut==

* Täsmälliset perustelut löytyvät ERAC-wikistä: [http://intra.eracnet.fi/main/index.php/Minera:Metallimalmin_murskausprosessin_p%C3%A4%C3%A4st%C3%B6kertoimet 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]].

{{Minera}}

==Avainsanat==

Kaivosteollisuus, mineraali

==Viitteet==

<references/>

==Aiheeseen liittyviä tiedostoja==

{{mfiles}}