Ero sivun ”Tieliikennepäästöt” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(→‎Vastaus: rcode)
pEi muokkausyhteenvetoa
 
(8 välissä olevaa versiota 2 käyttäjän tekeminä ei näytetä)
Rivi 1: Rivi 1:
{{muuttuja|moderator=}}
{{metodi|moderator=Heta}}
[[Luokka:Sisältää R-koodia]]


==Kysymys==
==Kysymys==
Miten lasketaan tieliikenteen päästöt?


==Vastaus==
==Vastaus==


<t2b index="Väline,Polttoaine,Ajo,Kuormitusaste,Yksikkö,Päästö" locations="CO2,PM,Description" unit="useita">
Kopioi tämä koodi haluamaasi arviointiin. Voit myös muokata koodia niin, että et haekaan tieliikennepäästöt-[[ovariable]]a suoraan Fetch2-funktiolla, vaan laitat vastaavat tiedot alavirrassa olevan ovariablen dependencies-taulukkoon.
Henkilöauto|Bensiini|Katuajo||g/km||0.003|
 
Henkilöauto|Diesel|Katuajo||g/km||0.29|
Oletusajon avain: 0194s0uuucjxq8Wi
Puoliperävaunuyhdistelmä||Katuajo|Kaikki|g/km||0.20|
<rcode
Puoliperävaunuyhdistelmä||Maantieajo|70% kuorma|g/km|1014||
variables="
Täysperävaunuyhdistelmä||Katuajo|Tyhjä|g/km||0.21|
name:suorite|description:Ajosuorite (ajo-km tai ton-km)|type:default|default:100
Täysperävaunuyhdistelmä||Katuajo|70% kuorma|g/km||0.21|
"
Täysperävaunuyhdistelmä||Katuajo|Täysi|g/km||0.22|
>
Täysperävaunuyhdistelmä||Maantieajo|70% kuorma|g/km|1198||
library(OpasnetUtils)
Juna|Sähkö|||g/tkm|9.3|0.0026|
 
Juna|Diesel|||g/tkm|35|0.012|
objects.latest("Op_fi3192", "alustus")
Pieni jakelukuorma-auto||||g/km|350||
tieliikennepäästöt
Suuri jakelukuorma-auto||||g/km|583||
 
tieliikennepäästöt <- EvalOutput(tieliikennepäästöt, N = 1)
 
oprint(tieliikennepäästöt@output)
 
</rcode>
 
==Perustelut==
 
===Syötteet===
 
<t2b index="Ajoneuvo,Polttoaine,Ajo,Kuormitusaste,Unit,Saaste" locations="CO2,PM,Description" unit="useita">
Henkilöauto|Bensiini|Katuajo||g /km||0.003|
Henkilöauto|Diesel|Katuajo||g /km||0.29|
Puoliperävaunuyhdistelmä|Diesel|Katuajo|Kaikki|g /km||0.20|
Puoliperävaunuyhdistelmä|Diesel|Maantieajo|70% kuorma|g /km|1014||
Täysperävaunuyhdistelmä|Diesel|Katuajo|Tyhjä|g /km||0.21|
Täysperävaunuyhdistelmä|Diesel|Katuajo|70% kuorma|g /km||0.21|
Täysperävaunuyhdistelmä|Diesel|Katuajo|Täysi|g /km||0.22|
Täysperävaunuyhdistelmä|Diesel|Maantieajo|70% kuorma|g /km|1198||
Sähköjuna|Sähkö|||g /ton-km|9.3|0.0026|
Dieseljuna|Diesel|||g /ton-km|35|0.012|
Pieni jakelukuorma-auto|Diesel|||g /km|350||
Suuri jakelukuorma-auto|Diesel|||g /km|583||
</t2b>
</t2b>


<rcode name="answer">
===Laskenta===
 
<rcode name="alustus" label="Alusta metodi">


################# pölypäästö: funktio pölypäästön laskemiseen
################# tieliikennepäästöt: funktio tieliikennepäästön laskemiseen
## KHM= k * M * A *C1*C2...*Cn
## suorite = ajoneuvojen kulkemat ajokilometrit. Junien osalta ilmoitetaan tonnikilometrit.
## KHM = kokonaishiukkasmäärä joka lopulta muuttuu päästöksi (g/vrk)
## k1-3 = prosessikohtainen hiukkaspäästökerroin eri kosteuspitoisuudessa (g/ton)
## M = syötteen määrä/tunti (ton/h)
## A = työtunnit vuorokaudessa (h/d)
## C1-Cn = pölypäästöjen vähentämisen tehokkuuskertoimet kullekin käytetylle menetelmälle


library(OpasnetUtils)
library(OpasnetUtils)
Rivi 34: Rivi 57:


riippuvuudet <- data.frame(
riippuvuudet <- data.frame(
Name = c("ajokilometrit")
Name = c("suorite")
)
)


funktio <- function(dependencies, ...) {
funktio <- function(dependencies, ...) {
ComputeDependencies(dependencies, ...)
data <- op_baseGetData("opasnet_base", "Op_fi3192") # Haetaan päästökerrointiedot
data <- op_baseGetData("opasnet_base", "Op_fi3192") # Haetaan päästökerrointiedot
data <- tidy(data) # Siistitään data
data <- tidy(data) # Siistitään data
päästökerroin <- new("ovariable",
name = "päästökerroin",
data = data
)


#out <- data[data$Suure == "Päästökerroin", c("Kosteus", "Hiukkaskoko", "Prosessi", "Result")] # Valitaan päästökerroinrivit
päästökerroin <- EvalOutput(päästökerroin, ...)
#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 <- data*ajokilometrit # Varsinainen laskentakaava
out <- suorite * päästökerroin # Varsinainen laskentakaava
out <- dropall(out) # Tiputetaan turhat levelit
return(out)
return(out)
}
}
Rivi 66: Rivi 82:
)
)


objects.put(tieliikennepäästöt)
objects.store(tieliikennepäästöt)
cat("Muuttuja alustettu. Ota ajosivun linkin avain talteen myöhempää käyttöä varten.\n")
cat("Muuttuja tieliikennepäästöt alustettu.\n")
</rcode>
</rcode>


==Perustelut==


*bensiinikäyttöinen henkilöauto keskimäärin, 0.003 gPM/km, katuajo<ref>[http://lipasto.vtt.fi/yksikkopaastot/henkiloliikenne/tieliikenne/henkiloautot/habens.htm Lipasto]</ref>
*bensiinikäyttöinen henkilöauto keskimäärin, 0.003 gPM/km, katuajo<ref>[http://lipasto.vtt.fi/yksikkopaastot/henkiloliikenne/tieliikenne/henkiloautot/habens.htm Lipasto]</ref>

Nykyinen versio 22. elokuuta 2013 kello 11.32


Kysymys

Miten lasketaan tieliikenteen päästöt?

Vastaus

Kopioi tämä koodi haluamaasi arviointiin. Voit myös muokata koodia niin, että et haekaan tieliikennepäästöt-ovariablea suoraan Fetch2-funktiolla, vaan laitat vastaavat tiedot alavirrassa olevan ovariablen dependencies-taulukkoon.

Oletusajon avain: 0194s0uuucjxq8Wi

Ajosuorite (ajo-km tai ton-km):

+ Näytä koodi

Perustelut

Syötteet

Ero sivun ”Tieliikennepäästöt” versioiden välillä(useita)
ObsAjoneuvoPolttoaineAjoKuormitusasteUnitCO2PMDescription
1HenkilöautoBensiiniKatuajog /km0.003
2HenkilöautoDieselKatuajog /km0.29
3PuoliperävaunuyhdistelmäDieselKatuajoKaikkig /km0.20
4PuoliperävaunuyhdistelmäDieselMaantieajo70% kuormag /km1014
5TäysperävaunuyhdistelmäDieselKatuajoTyhjäg /km0.21
6TäysperävaunuyhdistelmäDieselKatuajo70% kuormag /km0.21
7TäysperävaunuyhdistelmäDieselKatuajoTäysig /km0.22
8TäysperävaunuyhdistelmäDieselMaantieajo70% kuormag /km1198
9SähköjunaSähkög /ton-km9.30.0026
10DieseljunaDieselg /ton-km350.012
11Pieni jakelukuorma-autoDieselg /km350
12Suuri jakelukuorma-autoDieselg /km583

Laskenta

+ Näytä koodi


  • bensiinikäyttöinen henkilöauto keskimäärin, 0.003 gPM/km, katuajo[1]
  • dieselkäyttöinen henkilöauto keskimäärin, 0.029 gPM/km, katuajo[2]
  • puoliperävaunuyhdistelmä, 0,20 gPM/km, katuajo, kaikki kuormat[3]
  • täysperävaunuyhdistelmä, 0,21 gPM/km, katuajo, tyhjä ja 70%:n kuorma
  • täysperävaunuyhdistelmä, 0,22 gPM/km katuajo, täysi kuorma (40 t)[4]
  • sähköjuna keskimäärin, 0,0026 gPM/tkm
  • dieseljuna keskimäärin, 0,012 gPM/tkm[5]
  • Pieni jakelukuorma-auto 6 t, 350 gCO2/km
  • Suuri jakelukuorma-auto 15 t, 583 gCO2/km
  • Puoliperävaunuyhdistelmä, 1014 gCO2/km maantieajo, 70 %:n kuorma
  • Täysperävaunuyhdistelmät, 1198 gCO2/km maantieajo, 70 %:n kuorma
  • Sähköjunakuljetukset keskimäärin 9,3 gCO2/tkm
  • Dieseljunakuljetukset keskimäärin 35 gCO2/tkm[6]

Katso myös

Viitteet

  1. ↑ Lipasto
  2. ↑ Lipasto
  3. ↑ Lipasto
  4. ↑ Lipasto
  5. ↑ Lipasto
  6. ↑ Ilmastolaskuri
Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Tieliikennepäästöt&oldid=19658”