Tieliikennepäästöt

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi3192
Moderaattori:Heta (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi3192}}

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

+ Näytä koodi - Piilota koodi

library(OpasnetUtils)

objects.latest("Op_fi3192", "alustus")
tieliikennepäästöt

tieliikennepäästöt <- EvalOutput(tieliikennepäästöt, N = 1)

oprint(tieliikennepäästöt@output)

Perustelut

Syötteet

Ero sivun ”Tieliikennepäästöt” versioiden välillä(useita)
Obs	Ajoneuvo	Polttoaine	Ajo	Kuormitusaste	Unit	CO2	PM
1	Henkilöauto	Bensiini	Katuajo		g /km		0.003
2	Henkilöauto	Diesel	Katuajo		g /km		0.29
3	Puoliperävaunuyhdistelmä	Diesel	Katuajo	Kaikki	g /km		0.20
4	Puoliperävaunuyhdistelmä	Diesel	Maantieajo	70% kuorma	g /km	1014
5	Täysperävaunuyhdistelmä	Diesel	Katuajo	Tyhjä	g /km		0.21
6	Täysperävaunuyhdistelmä	Diesel	Katuajo	70% kuorma	g /km		0.21
7	Täysperävaunuyhdistelmä	Diesel	Katuajo	Täysi	g /km		0.22
8	Täysperävaunuyhdistelmä	Diesel	Maantieajo	70% kuorma	g /km	1198
9	Sähköjuna	Sähkö			g /ton-km	9.3	0.0026
10	Dieseljuna	Diesel			g /ton-km	35	0.012
11	Pieni jakelukuorma-auto	Diesel			g /km	350
12	Suuri jakelukuorma-auto	Diesel			g /km	583

Laskenta

+ Näytä koodi - Piilota koodi


################# tieliikennepäästöt: funktio tieliikennepäästön laskemiseen
## suorite = ajoneuvojen kulkemat ajokilometrit. Junien osalta ilmoitetaan tonnikilometrit.

library(OpasnetUtils)
library(xtable)

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

funktio <- function(dependencies, ...) {
	ComputeDependencies(dependencies, ...)

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

	päästökerroin <- EvalOutput(päästökerroin, ...)

	out <- suorite * päästökerroin # Varsinainen laskentakaava
	return(out)
}

tieliikennepäästöt <- new("ovariable",
	name = "tieliikennepäästöt",
	dependencies = riippuvuudet,
	formula = funktio
)

objects.store(tieliikennepäästöt)
cat("Muuttuja tieliikennepäästöt alustettu.\n")

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

[1]

[2]

[3]

[4]

[5]

[6]