Ero sivun ”Metallimalmin murskausprosessin pölypäästöt” versioiden välillä
Siirry navigaatioon
Siirry hakuun
p (→Katso myös) |
(→Kaava) |
||
Rivi 45: | Rivi 45: | ||
'''Varsinainen funktio | '''Varsinainen funktio | ||
<rcode name="answer | <rcode name="answer" > | ||
################# pölypäästö: funktio pölypäästön laskemiseen | ################# pölypäästö: funktio pölypäästön laskemiseen | ||
Rivi 55: | Rivi 55: | ||
## C1-Cn = pölypäästöjen vähentämisen tehokkuuskertoimet kullekin käytetylle menetelmälle | ## 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") | |||
) | |||
if(class(vaimennus)!="list") {vaimennus <- list(vaimennus)} | funktio <- function(dependencies, ...) { | ||
vaim <- 1 | pölypäästö <- function(M, A, prosessi, kosteus, vaimennus){ | ||
for(i in 1:length(vaimennus)) { | data <- op_baseGetData("opasnet_base", Op_fi2806) # Haetaan päästökerrointiedot | ||
vaim[i] <- exp(sum(log(as.numeric(data[data$Suure == "Läpipääsykerroin" & data$Prosessi %in% vaimennus[[i]], "Result"])))) | 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) | |||
</rcode> | </rcode> | ||
Versio 17. heinäkuuta 2012 kello 10.23
Moderaattori:Jouni (katso kaikki)
Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
Lisää dataa
|
Kysymys
Miten lasketaan metallimalmin murskausprosessin pölypäästöt?
Vastaus
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
Esimerkkilaskenta
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
<mfanonymousfilelist></mfanonymousfilelist>