Ero sivun ”Metallimalmin hihnakuljetuksen pölypäästöt” versioiden välillä
Siirry navigaatioon
Siirry hakuun
Rivi 29: | Rivi 29: | ||
===R-koodi=== | ===R-koodi=== | ||
<rcode name="answer" include="page:OpasnetBaseUtils|name:generic" label="Turha ajaa, yksinään ei tee mitään"> | <rcode name="answer" include="page:OpasnetBaseUtils|name:generic|page:Metallimalmin_murskausprosessin_pölypäästöt|name=answer" label="Turha ajaa, yksinään ei tee mitään"> | ||
################# pölypäästö: funktio pölypäästön laskemiseen | ################# pölypäästö: funktio pölypäästön laskemiseen | ||
Rivi 38: | Rivi 38: | ||
## A = työtunnit vuorokaudessa (h/d) | ## A = työtunnit vuorokaudessa (h/d) | ||
## 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 | ||
page <- " | page <- "Op_fi2825" | ||
pölypäästö <- function(page, M, A, murskaus, kosteus, vaimennus){ | #pölypäästö <- function(page, M, A, murskaus, kosteus, vaimennus){ | ||
data <- op_baseGetData("opasnet_base", page) # Haetaan päästökerrointiedot | data <- op_baseGetData("opasnet_base", page) # Haetaan päästökerrointiedot | ||
data <- tidy(data) # Siistitään data | data <- tidy(data) # Siistitään data | ||
Rivi 57: | Rivi 57: | ||
out$Result <- as.numeric(out$Result) * M * A * vaim # Varsinainen laskentakaava | out$Result <- as.numeric(out$Result) * M * A * vaim # Varsinainen laskentakaava | ||
out <- dropall(out) # Tiputetaan turhat levelit | out <- dropall(out) # Tiputetaan turhat levelit | ||
return(out) | #return(out) | ||
} | #} | ||
</rcode> | </rcode> | ||
Rivi 66: | Rivi 67: | ||
variables=" | variables=" | ||
name:M|description:Kuinka monta tonnia syötettä kulkee kuljettimen läpi tunnissa?|default:100| | name:M|description:Kuinka monta tonnia syötettä kulkee kuljettimen läpi tunnissa?|default:100| | ||
name: | name:prosessi|description:Mitä kuljetusprosesseja on käytössä?|type:checkbox|options:'Hihnalle lastaaminen ja hihnan vaihto';Hihnalle lastaaminen ja hihnan vaihto;'Hihnalta ajoneuvoon lastaaminen';Hihnalta ajoneuvoon lastaaminen| | ||
name:kosteus|description:Onko malmi kuivaa vai kosteaa (rajana 1.5 % kosteutta)?|type:selection|options:'Kuiva';Kuiva;'Kostea';Kostea|default | 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' | |||
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: | |||
"> | "> | ||
cat("Valmistellaan laskentaa.\n") | cat("Valmistellaan laskentaa.\n") | ||
Rivi 76: | Rivi 75: | ||
library(OpasnetBaseUtils) | library(OpasnetBaseUtils) | ||
library(xtable) | library(xtable) | ||
A <- 24 | A <- 24 | ||
page <- " | page <- "Op_fi2825" | ||
out <- pölypäästö(page, M, A, | 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="")) | cat(paste("Pölypäästöt (kg/d) prosessista, kun prosessoidaan ", M * A, " tonnia päivässä.\n", sep="")) | ||
Rivi 91: | Rivi 84: | ||
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> | ||
<math> | <math> | ||
\ | \Sigma_i ( M_i * A_i * p_{i,k} * \Pi_j v_{i,j}) | ||
</math> | </math> | ||
jossa | |||
i = prosessien lista, | |||
M = aktiviteetin määrä tunnissa, | |||
A = työtuntien määrä, | |||
p = päästökerroin prosessille i malmin kosteudella k, | |||
v = vaimennuskerroin vaimennusprosessille j. | |||
==Perustelut== | ==Perustelut== |
Versio 16. tammikuuta 2012 kello 15.09
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 | ND |
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 | ND |
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 | ND |
9 | Läpipääsykerroin | - | * | * | Tuulensuojamuuri | 0.7 |
10 | Läpipääsykerroin | - | * | * | Materiaalin kastelu | 0.5 |
11 | Läpipääsykerroin | - | * | * | Hihnan kotelointi, sykloni | 0.35 |
12 | Läpipääsykerroin | - | * | * | Hihnan kotelointi, harjaus | 0.25 |
13 | Läpipääsykerroin | - | * | * | Hihnan kotelointi, kangassuodattimet | 0.17 |
14 | Läpipääsykerroin | - | * | * | suljettu tai maanalainen | 0 |
15 | 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.
R-koodi
Esimerkkilaskenta
<math> \Sigma_i ( M_i * A_i * p_{i,k} * \Pi_j v_{i,j}) </math>
jossa i = prosessien lista, M = aktiviteetin määrä tunnissa, A = työtuntien määrä, p = päästökerroin prosessille i 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>