Ero sivun ”Joensuun keskustan liikennemalli J1” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(→‎Kaava: visualisointi lisätty)
Rivi 201: Rivi 201:
# Maaritellaan ensin kokonaisliikennemaarat eri suuntiin:
# Maaritellaan ensin kokonaisliikennemaarat eri suuntiin:
#
#
kokonaisliikennemaara_suunta2 <- c(sum(as.numeric(risteykset2[[2]])),sum(as.numeric(risteykset2[[3]])),
kokonaisliikennemaara_suunta2 <- c(sum(as.numeric(risteykset2[[2]])),sum(as.numeric(risteykset2[[3]])),sum(as.numeric(risteykset2[[4]])),sum(as.numeric(risteykset2[[5]])))
sum(as.numeric(risteykset2[[4]])),sum(as.numeric(risteykset2[[5]])))
#
#
# Verrataan tata vanhaan kokonaisliikennemaara_suunta -muuttujaan
# Verrataan tata vanhaan kokonaisliikennemaara_suunta -muuttujaan
Rivi 285: Rivi 284:
hinta.pk <- 0
hinta.pk <- 0


# Lasketaan erotukset BAU-skenaarioon verrattuna
#
ero.paastot.co2 <- (paastot.co2.2 - paastot.co2)/1000
ero.hinta.pk <- (hinta.pk2 - hinta.pk)/1000
# Ero sairaspaivien lukumaarassa vuodessa 1000 henkea kohden vuodessa
spv.ero.henkilo <- (spv.ero.lapsi + spv.ero.aikuinen)*1000


# Esitetaan tulokset skenaario kerrallaan:
# Esitetaan tulokset skenaario kerrallaan:
Rivi 295: Rivi 300:
print("SKENAARIO: KAYTTAJAN TEKEMA LIIKENNESUUNNITELMA")
print("SKENAARIO: KAYTTAJAN TEKEMA LIIKENNESUUNNITELMA")
print("Kokonaisliikennemaara (autoa/vrk)"); kokonaisliikennemaara2; print("Liikennesuorite (km/vrk)"); liikennesuorite2
print("Kokonaisliikennemaara (autoa/vrk)"); kokonaisliikennemaara2; print("Liikennesuorite (km/vrk)"); liikennesuorite2
print("Pienhiukkaspaastojen aiheuttama ylimaaraiset sairauspaivat aikuiselle (lkm/v)"); spv.ero.aikuinen
print("Pienhiukkaspaastojen aiheuttama ylimaaraiset sairauspaivat tuhatta henkea kohden (lkm/v)"); spv.ero.henkilo
print("Pienhiukkaspaastojen aiheuttama ylimaaraiset sairauspaivat lasta kohden (lkm/v)"); spv.ero.lapsi
print("Hiilidioksidijalanjalki (1000 kg/v)"); ero.paastot.co2
print("Hiilidioksidijalanjalki (kg/v)"); paastot.co2.2
print("Hinta-arvio toteutuksesta (k€)"); ero.hinta.pk
print("Hinta-arvio toteutuksesta ()"); hinta.pk2
 
 
plotResults <- c(ero.hinta.pk,ero.paastot.co2,spv.ero.henkilo)
plotResults_num <- as.numeric(plotResults < 0)
colorbar <- c("blue","blue","blue")
colorbar[which(plotResults_num == 1)] <- "red"
barplot(plotResults, col=colorbar)


</rcode>
</rcode>

Versio 14. lokakuuta 2011 kello 11.31




Rajaus

Liikennemalli J1 on yksinkertaistettu version Helsingin seudun joukkoliikennemallista. Malli J1 on rajattu Joensuun ydinkeskustaan 9*13-korttelin hilaan. Mallia J1 käytetään osana 29.9.2011 Joensuussa järjestettävää Eracedu-koulutustapahtumaa.

Mallia päivitetään, sitä voi kokeilla oletusarvoin klikkaamalla otsikon 'Kaava' alta löytyvää 'Aja koodi' -näppäintä.

Määritelmä

Data

Mitä muutoksia haluaisit tehdä Joensuun liikennejärjestelyihin? Katso karttaa ja vastaa kysymyksiin.

Alkupisteen x-koordinaatti:

Alkuposteen y-koordinaatti:

Loppupisteen x-koordinaatti:

Loppupisteen y-koordinaatti:

Mitä haluat lisätä tälle välille?:

Voit antaa omalle suunnitelmallesi nimen, jolloin yksittäiset ehdotukset käsitellään kokonaisuutena. Suunnitelman nimi?:

+ Näytä koodi

Kausaliteetti

  • Ylävirtamuuttujia ei ole.

Yksikkö

Muuttujan tulokset on ilmaistu useissa yksiköissä (liikennesuorite, CO2-päästöt, pienhiukkaspäästöt, DALYt)

Kaava

+ Näytä koodi

Tulokset

Näytä tähänastiset ehdotukset

+ Näytä koodi


Katso myös


Viitteet


Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>