Ero sivun ”Metallimalmin murskausprosessin pölypäästöt” versioiden välillä
Siirry navigaatioon
Siirry hakuun
(→Perustelut: alustava rakenneuudistus kahdella taululla) |
(koodi korjattu) |
||
Rivi 10: | Rivi 10: | ||
'''Esimerkkilaskenta | '''Esimerkkilaskenta | ||
<rcode variables="name:M|description:Kuinka monta tonnia malmia murskataan tunnissa?|default:100| | <rcode variables=" | ||
name:A|description:Montako tuntia prosessia ajetaan päivässä?|default:8| | 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:A|description:Montako tuntia prosessia ajetaan päivässä?|default:8| | ||
name:kosteus|description:Onko malmi kuivaa vai kosteaa (rajana 1.5 % kosteutta)?|type:selection|options:'Kuiva';Kuiva;'Kostea';Kostea|default:'Kostea'| | name:prosessi|description:Mitä murskausprosesseja on käytössä?|type:checkbox| | ||
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' | 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' | |||
"> | "> | ||
Rivi 22: | Rivi 43: | ||
cat("Valmistellaan laskentaa.\n") | cat("Valmistellaan laskentaa.\n") | ||
objects.get(" | objects.get("JFsVjt3pUFH8kWuv") | ||
temp <- EvalOutput(MetMalMurskPol) | temp <- EvalOutput(MetMalMurskPol) | ||
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 | print(temp) | ||
print(xtable(as.data.frame(as.table(tapply(temp@output$MetMalMurskPolResult, temp@output | print(xtable(as.data.frame(as.table(tapply(temp@output$MetMalMurskPolResult, temp@output[c("Hiukkaskoko", "Iter")], sum)))), type = 'html') | ||
</rcode> | </rcode> | ||
Rivi 68: | Rivi 89: | ||
Kotelointi, kangassuodattimet|0.17 | Kotelointi, kangassuodattimet|0.17 | ||
suljettu tai maanalainen|0 | suljettu tai maanalainen|0 | ||
Sähköstaattinen suodatus|0. | Sähköstaattinen suodatus|0.08 - 0.13 | ||
</t2b> | </t2b> | ||
=== Kaava === | === Kaava === | ||
'''Varsinainen | '''Varsinainen metodi | ||
Oletusajo JFsVjt3pUFH8kWuv [http://fi.opasnet.org/fi_wiki/index.php/Special:R-tools?id=JFsVjt3pUFH8kWuv] | |||
<rcode name="answer"> | <rcode name="answer" label="Alusta metodi"> | ||
################# pölypäästö: funktio pölypäästön laskemiseen | ################# pölypäästö: funktio pölypäästön laskemiseen | ||
Rivi 88: | Rivi 110: | ||
library(xtable) | library(xtable) | ||
MetMalMurskPol <- new("ovariable", | |||
name = "MetMalMurskPol", | |||
) | dependencies = data.frame( | ||
Name = c("M", "A", "prosessi", "kosteus", "vaimennus") | |||
), | |||
formula = function(dependencies, N = 100, ...) { | |||
ComputeDependencies(dependencies, ...) | |||
päästökerroin <- opbase.data("Op_fi2806.paastokerroin") # Haetaan päästökerrointiedot | |||
temp <- data.frame(Kosteus = c("Kuiva", "Kostea"), Kosteus2 = "*") | |||
temp <- merge(päästökerroin, temp, by.x = "Kosteus", by.y = "Kosteus2")[, -1] # Korvataan villikortit oikeilla arvoilla | |||
päästökerroin <- rbind(päästökerroin[päästökerroin$Kosteus != "*", ], temp) | |||
# Rajataan käyttäjän määrittämiin prosesseihin. | |||
päästökerroin <- EvalOutput(new("ovariable", name = "päästökerroin", data = päästökerroin), N = N) | |||
prosessit <- (new("ovariable", | |||
name = "prosessit", | |||
data = data.frame(Kosteus = kosteus, Prosessi = prosessi, prosessitResult = 1) | |||
)) | |||
prosessit <- EvalOutput(prosessit, N = N) | |||
# Läpipääsykerroin haetaan | |||
data <- opbase.data("Op_fi2806.lapipaasykerroin") | |||
data <- data[data$Prosessi %in% vaimennus, ] | |||
läpipääsykerroin <- EvalOutput(new("ovariable", | |||
name = "läpipääsykerroin", | |||
data = data | |||
)) | |||
läpipääsykerroin@output <- as.data.frame(as.table(tapply( | |||
läpipääsykerroin@output$läpipääsykerroinResult, | |||
läpipääsykerroin@output["Iter"], prod | |||
))) | |||
colnames(läpipääsykerroin@output) <- c("Iter", "läpipääsykerroinResult") | |||
out <- päästökerroin * M * A * prosessit * läpipääsykerroin # Varsinainen laskentakaava | |||
return(out) | |||
} | |||
) | ) | ||
objects.put(MetMalMurskPol) | objects.put(MetMalMurskPol) | ||
cat(" | cat("Metodi alustettu. Ota ajosivun linkin avain talteen myöhempää käyttöä varten.\n") | ||
</rcode> | </rcode> | ||
Versio 5. joulukuuta 2012 kello 21.25
Edistymisluokitus |
---|
Opasnetissa lukuisat sivut ovat työn alla eri vaiheissa. Niiden tietosisältöön pitää siis suhtautua harkiten. Tämän sivun sisällön edistyminen on arvioitu:
|
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
Esimerkkilaskenta
Perustelut
Lähtötietoja
Obs | Kosteus | Hiukkaskoko | Prosessi | Arvo |
---|---|---|---|---|
1 | Kuiva | TSP | Esi/karkea murskaus | 0.2 |
2 | Kuiva | TSP | Välimurskaus | 0.6 |
3 | Kuiva | TSP | Hienomurskaus | 1.4 |
4 | Kuiva | TSP | Materiaalin siirto ja kuljetus | 0.06 |
5 | Kostea | TSP | Esi/karkea murskaus | 0.01 |
6 | Kostea | TSP | Välimurskaus | 0.03 |
7 | Kostea | TSP | Hienomurskaus | 0.03 |
8 | Kostea | TSP | Materiaalin siirto ja kuljetus | 0.005 |
9 | * | TSP | Märkäseulonta | 0 |
10 | * | TSP | Kuivaseulonta ilman avulla | 14.4 |
11 | * | TSP | Kuivaseulonta ilman ilmapuhallusta | 1.2 |
12 | * | TSP | Kuivaus | 9.8 |
13 | Kuiva | PM10 | Esi/karkea murskaus | 0.02 |
14 | Kuiva | PM10 | Välimurskaus | 0 - 0.6 |
15 | Kuiva | PM10 | Hienomurskaus | 0.08 |
16 | Kuiva | PM10 | Materiaalin siirto ja kuljetus | 0.03 |
17 | Kostea | PM10 | Esi/karkea murskaus | 0.004 |
18 | Kostea | PM10 | Välimurskaus | 0.012 |
19 | Kostea | PM10 | Hienomurskaus | 0.01 |
20 | Kostea | PM10 | Materiaalin siirto ja kuljetus | 0.002 |
21 | * | PM10 | Märkäseulonta | 0 |
22 | * | PM10 | Kuivaseulonta ilman avulla | 13 |
23 | * | PM10 | Kuivaseulonta ilman ilmapuhallusta | 0.16 |
24 | * | PM10 | Kuivaus | 5.9 |
Obs | Prosessi | Tulos |
---|---|---|
1 | Tuulensuojamuuri | 0.7 |
2 | Materiaalin kastelu | 0.5 |
3 | Kotelointi, sykloni | 0.35 |
4 | Kotelointi, harjaus | 0.25 |
5 | Kotelointi, kangassuodattimet | 0.17 |
6 | suljettu tai maanalainen | 0 |
7 | Sähköstaattinen suodatus | 0.08 - 0.13 |
Kaava
Varsinainen metodi Oletusajo JFsVjt3pUFH8kWuv [1]
- 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>