Ero sivun ”Metallimalmin hihnakuljetuksen pölypäästöt” versioiden välillä
(→R-koodi: Includet poistettu, laskentafunktio kopioitu sivulle) |
(→R-koodi: Vanha koodi toimii, mutta kun siitä tehdään ovariable niin jotain menee pieleen) |
||
Rivi 47: | Rivi 47: | ||
library(xtable) | library(xtable) | ||
riippuvuudet <- data.frame( | |||
Name = c("M", "A", "prosessi", "kosteus", "vaimennus") | |||
) | |||
funktio <- function(dependencies, ...) { | |||
pölypäästö <- function(M, A, prosessi, kosteus, vaimennus){ | |||
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 = 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) | |||
} | } | ||
} | |||
#out <- pölypäästö(M, A, prosessi, kosteus, vaimennus) | |||
#out$Result <- out$Result*hihnoja | |||
MetMalHihPol <- new("ovariable", | |||
name = "MetMalHihPol", | |||
dependencies = riippuvuudet, | |||
formula = funktio | |||
) | |||
temp <- EvalOutput(MetMalHihPol) | |||
print(xtable(temp@output), type = 'html') | |||
objects.put(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 ", M * A, " tonnia päivässä.\n", sep="")) | ||
print(xtable(out), type = 'html') | print(xtable(out), type = 'html') | ||
print(xtable(as.data.frame(as.table(tapply(out$Result, out$Hiukkaskoko, sum)))), type = 'html') | print(xtable(as.data.frame(as.table(tapply(out$Result, out$Hiukkaskoko, sum)))), type = 'html') | ||
</rcode> | </rcode> |
Versio 19. heinäkuuta 2012 kello 08.10
Moderaattori:Marjo (katso kaikki)
Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
Lisää dataa
|
Kysymys
Miten lasketaan metallimalmin hihnakuljetuksen pölypäästöt?
Vastaus
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
<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
Viitteet
Aiheeseen liittyviä tiedostoja
<mfanonymousfilelist></mfanonymousfilelist>