Ero sivun ”Metallimalmin murskausprosessin pölypäästöt” versioiden välillä

Opasnet Suomista
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("8EV2qsAPaXuk7ELI")
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(xtable(temp@output), type = 'html')
print(temp)
print(xtable(as.data.frame(as.table(tapply(temp@output$MetMalMurskPolResult, temp@output$Hiukkaskoko, sum)))), type = 'html')
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.13 - 0.08
Sähköstaattinen suodatus|0.08 - 0.13
</t2b>
</t2b>


=== Kaava ===
=== Kaava ===


'''Varsinainen funktio
'''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)


riippuvuudet <- data.frame(
MetMalMurskPol <- new("ovariable",
Name = c("M", "A", "prosessi", "kosteus", "vaimennus")
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)


funktio <- function(dependencies, ...) {
# Rajataan käyttäjän määrittämiin prosesseihin.
ComputeDependencies(dependencies, ...)
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)


päästökerroin <- opbase.data("Op_fi2806.paastokerroin") # Haetaan päästökerrointiedot
# Läpipääsykerroin haetaan
print(päästökerroin)
data <- opbase.data("Op_fi2806.lapipaasykerroin")
temp <- data.frame(Kosteus = c("Kuiva", "Kostea"), Kosteus2 = "*")
data <- data[data$Prosessi %in% vaimennus, ]
temp <- merge(päästökerroin, temp, by.x = "Kosteus", by.y = "Kosteus2")[, -1] # Korvataan villikortit oikeilla arvoilla
läpipääsykerroin <- EvalOutput(new("ovariable",  
päästökerroin <- rbind(päästökerroin[päästökerroin$Kosteus != "*", ], temp)
name = "läpipääsykerroin",  
# Rajataan käyttäjän määrittämiin prosesseihin.
data = data
päästökerroin <- merge(päästökerroin, data.frame(Kosteus = kosteus, Prosessi = prosessi))  
))


# Läpipääsykerroin haetaan
läpipääsykerroin@output <- as.data.frame(as.table(tapply(
läpipääsykerroin <- opbase.data("Op_fi2806.lapipaasykerroin")
läpipääsykerroin@output$läpipääsykerroinResult,
print(läpipääsykerroin)
läpipääsykerroin@output["Iter"], prod
if(class(vaimennus)!="list") {vaimennus <- list(vaimennus)}
)))
vaim <- 1
colnames(läpipääsykerroin@output) <- c("Iter", "läpipääsykerroinResult")
for(i in 1:length(vaimennus)) {
vaim[i] <- exp(sum(log(as.numeric(läpipääsykerroin[läpääsykerroin$Prosessi %in% vaimennus[[i]], "Result"]))))
}


out$Result <- as.numeric(päästökerroin$Result) * M * A * vaim # Varsinainen laskentakaava
out <- päästökerroin * M * A * prosessit * läpipääsykerroin # Varsinainen laskentakaava
out <- dropall(out) # Tiputetaan turhat levelit
return(out)
}


MetMalMurskPol <- new("ovariable",
return(out)
name = "MetMalMurskPol",
}
dependencies = riippuvuudet,
formula = funktio
)
)


objects.put(MetMalMurskPol)
objects.put(MetMalMurskPol)
cat("Muuttuja alustettu. Ota ajosivun linkin avain talteen myöhempää käyttöä varten.\n")
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:
Tämä sivu on täysluonnos
Sivu on kirjoitettu kertaalleen alusta loppuun eli kaikki olennaiset sisällöt ovat jo paikoillaan. Kuitenkaan sisältöjä ei ole vielä kunnolla tarkistettu, ja esimerkiksi tärkeitä viitteitä voi puuttua.




Kysymys

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

Vastaus

Esimerkkilaskenta

Kuinka monta tonnia malmia murskataan tunnissa?:

Montako tuntia prosessia ajetaan päivässä?:

Mitä murskausprosesseja on käytössä?:
Esi/karkea murskaus
Välimurskaus
Hienomurskaus
Materiaalin siirto ja kuljetus
Märkäseulonta
Kuivaseulonta ilman avulla
Kuivaseulonta ilman ilmapuhallusta
Kuivaus

Onko malmi kuivaa vai kosteaa (rajana 1.5 % kosteutta)?:

Mitkä päästönvaimennusprosessit ovat käytössä?:
Tuulensuojamuuri
Materiaalin kastelu
Hihnan kotelointi, sykloni
Hihnan kotelointi, harjaus
Hihnan kotelointi, kangassuodattimet
suljettu tai maanalainen
Sähköstaattinen suodatus

+ Näytä koodi

Perustelut

Lähtötietoja

päästökerroin(kg /ton)
ObsKosteusHiukkaskokoProsessiArvo
1KuivaTSPEsi/karkea murskaus0.2
2KuivaTSPVälimurskaus0.6
3KuivaTSPHienomurskaus1.4
4KuivaTSPMateriaalin siirto ja kuljetus0.06
5KosteaTSPEsi/karkea murskaus0.01
6KosteaTSPVälimurskaus0.03
7KosteaTSPHienomurskaus0.03
8KosteaTSPMateriaalin siirto ja kuljetus0.005
9*TSPMärkäseulonta0
10*TSPKuivaseulonta ilman avulla14.4
11*TSPKuivaseulonta ilman ilmapuhallusta1.2
12*TSPKuivaus9.8
13KuivaPM10Esi/karkea murskaus0.02
14KuivaPM10Välimurskaus0 - 0.6
15KuivaPM10Hienomurskaus0.08
16KuivaPM10Materiaalin siirto ja kuljetus0.03
17KosteaPM10Esi/karkea murskaus0.004
18KosteaPM10Välimurskaus0.012
19KosteaPM10Hienomurskaus0.01
20KosteaPM10Materiaalin siirto ja kuljetus0.002
21*PM10Märkäseulonta0
22*PM10Kuivaseulonta ilman avulla13
23*PM10Kuivaseulonta ilman ilmapuhallusta0.16
24*PM10Kuivaus5.9
läpipääsykerroin(-)
ObsProsessiTulos
1Tuulensuojamuuri0.7
2Materiaalin kastelu0.5
3Kotelointi, sykloni0.35
4Kotelointi, harjaus0.25
5Kotelointi, kangassuodattimet0.17
6suljettu tai maanalainen0
7Sähköstaattinen suodatus0.08 - 0.13

Kaava

Varsinainen metodi Oletusajo JFsVjt3pUFH8kWuv [1]

+ Näytä koodi


Katso myös

Minera-malli: Ohjeistusta kaivostoiminnan ympäristö- ja terveysriskien arviointiin.
Osa linkeistä vie ohjeistuksiin eri vaikutusarvioinnin osien tekemisestä, osa taas valmiisiin laskentamalleihin (lihavoitu).
Kaivostoiminta

Kohdekohtaisen arvioinnin esimerkkisivu · Rikastus · Kaivosprosessit

Pölyn ja hiukkasten päästöt

Pöly (ohje) · Lähteet · Pintamaan poisto! · Tarvekivi ! · Louhinta ! · Murskaus · Lastaus ja pudotus · Kuljetuksen pakokaasupäästöt! · Kuljetuksen pölypäästöt! · Työkoneet · Hihnakuljetus · Energiantuotanto · Polttomoottorit! · Sähköntuotanto ! · Boilerit ! · Varastointi · Kaivannaisjäte · Sivukivi · Rikastushiekka

Muut päästöt

Haju · Kaasut · Typpi · Säteily! · Tärinä · Jätevesi · Varastoinnin vesipäästö · Mallinnusohjelmat · Rikastuskemikaalipäästöt · Melu

Pitoisuus ympäristössä

Pohjavesi · Pintavesi · Kulkeutuminen vedessä! · Sedimentit · Sedimentit (mittaukset) · Sedimentit (huokosvedet) · Maaperä! · Maaperän terveysriskinarvio

Ihmiset Ympäristö ja ekologia
Altistuminen

Altistumisen arviointi

Nisäkkäät ja linnut · Kasvit! · Maaselkärangattomat! · Ravinto!

Vaikutus

Terveysriskinarvioinnin rakenne · Riskinarviointiohjeet: · Pohjavesi · Pintavesi · Pöly · Kaasumaiset ilman epäpuhtaudet · Maaperä · Tärinä · Haju · Säteily! · Maaperän terveysriski · Kaasut · Melu · Pienhiukkasvaikutukset! · Terveysriskin kuvaus

Vesistöt · Maaperä · Sedimentti · Ekologinen riskinarviointi: · Ekologisten vaikutusten arviointi · Kohdekohtaisen mallin vaiheet · Alustus · Kohdetutkimukset · Vaikutusten arviointi · Mittauksiin perustuva arvio · Luonnehdinta

Integroitu riskinarvio

Integroitu riskinarvio · Viitearvoja

Muita Minera-projektin tuotoksia
Minera-mallin sovelluksia

· Luikonlahden tapaustutkimus · Luikonlahden sienitutkimusraportti

Muut

· Metallimalmikaivostoiminnan parhaat ympäristökäytännöt · Minera-hanke · MINERA Loppuseminaari · Kauppila T, Makkonen S, Komulainen H, Tuomisto JT: Metallikaivosalueiden ympäristöriskinarviointiosaamisen kehittäminen: MINERA-hankkeen loppuraportti. · Lehdistötiedote 15.4.2013 · Kohdekohtainen esimerkki · Lyhenteet ja määritelmät · Loppuraportti kokonaismalli · Kaivostoiminnan ympäristöterveysriskien arviointi (suojattu sivu) · Mallinnusohjelmat päästöjen arvioinnissa · Viitearvot · Talvivaaran kaivoksen terveysvaikutukset · Loppuraportti · Raportti · Yaran tapaustutkimus

Muita kaivostoimintaan liittyvää

· Vesijalanjälki · Hyvä kaivos pohjoisessa · Yhteiskuntatieteellinen kaivostutkimus Itä-Suomen yliopistossa · Teemasivu:Kaivostoiminnan vaikutusarviointi


Avainsanat

Kaivosteollisuus, mineraali

Viitteet


Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>