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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
p (typoja)
 
(8 välissä olevaa versiota 4 käyttäjän tekeminä ei näytetä)
Rivi 1: Rivi 1:
{{muuttuja|moderator=smxb}}
{{muuttuja|moderator=smxb}}
[[Luokka:Sisältää R-koodia]]


== Rajaus ==
== Rajaus ==
Rivi 11: Rivi 12:


=== Data ===
=== Data ===
{{vastusta|#: |Laskenta ei toimi, koska obs-sarake on poistettu tietokantataulusta. Koodin päivittämiseksi pitäisi tehdä:
* Palauttaa obs tai luoda vastaava uusi indeksi, esim. Ehdotus (myös vanhoihin syötteisiin!).
* Tarkistaa, että koodeissa on oikea series_id: 3636.
* Analyysikoodi on kirjoitettu hyödyntämättä ovariableja. Pitäisikö se miettiä kokonaan uusiksi?
* Lopussa oleva terveysvaikutuslaskenta pitäisi toteuttaa uusimman [[:op_en:HIA|HIA]]-laskennan mukaisesti.
* Olisiko tässä helpompi hyödyntää location-parametria käyttöliitymässä?
|--[[Käyttäjä:Jouni|Jouni Tuomisto]] 7. lokakuuta 2013 kello 09.07 (EEST)}}


Mitä muutoksia haluaisit tehdä Joensuun liikennejärjestelyihin? Katso karttaa ja vastaa kysymyksiin.
Mitä muutoksia haluaisit tehdä Joensuun liikennejärjestelyihin? Katso karttaa ja vastaa kysymyksiin.
Rivi 23: Rivi 32:
|name:suunnitelma|description:Voit antaa omalle suunnitelmallesi nimen, jolloin yksittäiset ehdotukset käsitellään kokonaisuutena (eli kaikki samannimiset suunnitelmat yhdistetään yhdeksi kokonaissuunnitelmaksi). Voit myöhemmin palata mihin tahansa tietokannasta löytyvään suunnitelmaan ja simuloida sen tunnusluvut kirjoittamalla sen nimen alla olevaan kenttään ja painamalla 'Aja koodi'-näppäintä. Vastaavasti uusi liikennesuunnitelma talletetaan tietokantaan kirjoittamalla suunnitelmasi nimi alla olevaan kenttään heittomerkkien väliin ja valitsemalla yllä olevista valikoista liikenneratkaisusi koordinaatit ja tietyyppi.|default:'suunnitelma Joensuu 3'
|name:suunnitelma|description:Voit antaa omalle suunnitelmallesi nimen, jolloin yksittäiset ehdotukset käsitellään kokonaisuutena (eli kaikki samannimiset suunnitelmat yhdistetään yhdeksi kokonaissuunnitelmaksi). Voit myöhemmin palata mihin tahansa tietokannasta löytyvään suunnitelmaan ja simuloida sen tunnusluvut kirjoittamalla sen nimen alla olevaan kenttään ja painamalla 'Aja koodi'-näppäintä. Vastaavasti uusi liikennesuunnitelma talletetaan tietokantaan kirjoittamalla suunnitelmasi nimi alla olevaan kenttään heittomerkkien väliin ja valitsemalla yllä olevista valikoista liikenneratkaisusi koordinaatit ja tietyyppi.|default:'suunnitelma Joensuu 3'
">
">
library(OpasnetBaseUtils)
library(OpasnetUtils)
Obs <- max(op_baseGetData("opasnet_base", "Op_fi2681", series_id = 2960)[,"obs"])+1
oprint(opbase.data("Op_fi2681", series_id = 3636))
Obs <- max(opbase.data("Op_fi2681", series_id = 3636)[,"obs"])+1
data <- data.frame(
data <- data.frame(
     obs = rep(Obs, 6),
     obs = rep(Obs, 6),
Rivi 30: Rivi 40:
     Result = c(mistä.x, mistä.y, mihin.x, mihin.y, lisäys, suunnitelma))
     Result = c(mistä.x, mistä.y, mihin.x, mihin.y, lisäys, suunnitelma))


opbase.upload(dsn = "opasnet_base_write", input = data, ident = "Op_fi2681", acttype = 5, who = wiki_username, unit = "-")
opbase.upload(input = data, ident = "Op_fi2681", acttype = 5, who = wiki_username, unit = "-")


cat("Kiitos ehdotuksestasi!")
cat("Kiitos ehdotuksestasi!")
Rivi 43: Rivi 53:
Muuttujan tulokset on ilmaistu useissa yksiköissä (liikennesuorite, CO2-päästöt, pienhiukkaspäästöt, DALYt)
Muuttujan tulokset on ilmaistu useissa yksiköissä (liikennesuorite, CO2-päästöt, pienhiukkaspäästöt, DALYt)


=== Kaava ===
=== Liikenneskenaarion vaikutukset nykytilanteeseen (BAU) verrattuna ===


<rcode graphics="1">
<rcode graphics="1">
 
library(xtable)
# Luetaan liikennemaarat Opasnet Base-tietokannasta, muuttujasta Op_fi2681:
# Luetaan liikennemaarat Opasnet Base-tietokannasta, muuttujasta Op_fi2681:
#
#
library(OpasnetBaseUtils)
library(OpasnetUtils)
risteykset <- op_baseGetData("opasnet_base", "Op_fi2681", series_id = 2953)
risteykset <- opbase.data("Op_fi2681", series_id = 2953) # TARKISTA SERIES!!!
#
#
# Muutetaan tekstitulokset numeroiksi. Jostain syystä Länteen tallentui tekstinä.
# Muutetaan tekstitulokset numeroiksi. Jostain syystä Länteen tallentui tekstinä.
Rivi 183: Rivi 193:
# suunnitelma Joensuu 5 (vrt. samaan polkuun kun siirtokerroin 0.1 (Pyörätie )-> 1.0 (Kävelykatu) (suunnitelma Joensuu 6))
# suunnitelma Joensuu 5 (vrt. samaan polkuun kun siirtokerroin 0.1 (Pyörätie )-> 1.0 (Kävelykatu) (suunnitelma Joensuu 6))
#polku <- c("A7","B7","C7","D7","E7","F7","G7","H7","I7","I6","I5","I4","I3","I2","I1")
#polku <- c("A7","B7","C7","D7","E7","F7","G7","H7","I7","I6","I5","I4","I3","I2","I1")
#
# suunnitelma Joensuu 7
#polku <- c("L1","L2","L3","L4","L5","L6","L7","A1","B1","C1","D1","D2","D3","D4")
#
# suunnitelma Joensuu 8
#polku <- c("H1","H2","H3","H4","H5","H6","H7","H8","H9","L1","L2","L3","L4","L5","L6","L7","A1","B1","C1")




Rivi 256: Rivi 272:
if(liikennesuunnitelmalista[[1]] == "Pyörätie") siirtokerroin <- 0.1;
if(liikennesuunnitelmalista[[1]] == "Pyörätie") siirtokerroin <- 0.1;
if(liikennesuunnitelmalista[[1]] == "Kävelykatu") siirtokerroin <- 1.0;
if(liikennesuunnitelmalista[[1]] == "Kävelykatu") siirtokerroin <- 1.0;
#
# STAND ALONE-koodissa ylla olevat 2 rivia on kommentoitava pois ja KORVATTAVA RIVILLA
#siirtokerroin <- 0.1 # Pyörätie
#siirtokerroin <- 1.0 # Kävelykatu
#
jaettava <- siirtokerroin*num_polun_liikennemaara;
jaettava <- siirtokerroin*num_polun_liikennemaara;


Rivi 409: Rivi 430:
# Esitetaan tulokset skenaario kerrallaan:
# Esitetaan tulokset skenaario kerrallaan:
#
#
print("SKENAARIO: BAU (= NYKYTILANNE)"); print("Kokonaisliikennemaarä (autoa/vrk)"); kokonaisliikennemaara; print("Liikennesuorite (km/vrk)"); liikennesuorite; print("Hiilidioksidijalanjälki (1000 kg/v)"); paastot.co2/1000
#print("SKENAARIO: BAU (= NYKYTILANNE)"); print("Kokonaisliikennemaarä (autoa/vrk)"); kokonaisliikennemaara; print("Liikennesuorite (km/vrk)"); liikennesuorite; print("Hiilidioksidijalanjälki (1000 kg/v)"); paastot.co2/1000
 
tuloste <- data.frame(Suure = c("Skenaario", "Kokonaisliikennemäärä", "Liikennesuorite", "Hiilidioksidijalanjälki"), Yksikkö = c("", "autoa/vrk", "km/vrk", "1000 kg/v"), Arvo = c("Nykytilanne (BAU)", kokonaisliikennemaara, liikennesuorite, paastot.co2/1000))
print(xtable(tuloste), type='html')
#
#
print("SKENAARIO: KÄYTTÄJÄN TEKEMÄ LIIKENNESUUNNITELMA (risteykset lueteltu alla)"); polku; print("Kokonaisliikennemäärä (autoa/vrk)"); kokonaisliikennemaara2; print("Liikennesuorite (km/vrk)"); liikennesuorite2; print("MUUTOS pienhiukkaspäästöjen aiheuttamien sairauspäivien lukumäärässä tuhatta henkeä kohden (lkm/v)"); spv.ero.henkilo; print("MUUTOS hiilidioksidijalanjäljessä (1000 kg/v)"); ero.paastot.co2; print("Hinta-arvio toteutuksesta (1000 €)"); ero.hinta.pk
#print("SKENAARIO: KÄYTTÄJÄN TEKEMÄ LIIKENNESUUNNITELMA (risteykset lueteltu alla)"); polku; print("Kokonaisliikennemäärä (autoa/vrk)"); kokonaisliikennemaara2; print("Liikennesuorite (km/vrk)"); liikennesuorite2; print("Hinta-arvio toteutuksesta (1000 €) = Raha"); ero.hinta.pk; print("MUUTOS hiilidioksidijalanjäljessä (1000 kg/v) = Luonto"); ero.paastot.co2; print("MUUTOS pienhiukkaspäästöjen aiheuttamien sairauspäivien lukumäärässä tuhatta herk. henkeä kohden (lkm/v) = Terveys"); spv.ero.henkilo
 
tuloste <- data.frame(Suure = c("Skenaario", "Polku", "Kokonaisliikennemäärä", "Liikennesuorite", "Hinta-arvio toteutuksesta = Raha", "MUUTOS hiilidioksidijalanjäljessä = Luonto", "MUUTOS pienhiukkaspäästöjen aiheuttamien sairauspäivien lukumäärässä tuhatta herk. henkeä kohden = Terveys"), Yksikkö = c("", "", "autoa/vrk", "km/vrk", "1000 €", "1000 kg/v", "lkm/v"), Arvo = c("KÄYTTÄJÄN TEKEMÄ LIIKENNESUUNNITELMA", paste(polku, collapse = ", "), kokonaisliikennemaara2, liikennesuorite2, ero.hinta.pk, ero.paastot.co2, spv.ero.henkilo))
print(xtable(tuloste), type = 'html')


#
#
plotResults <- c(ero.hinta.pk,ero.paastot.co2,spv.ero.henkilo)
plotResults <- c(ero.hinta.pk,ero.paastot.co2,spv.ero.henkilo)
plotResults_num <- as.numeric(plotResults < 0)
plotResults_num <- as.numeric(plotResults < 0)
colorbar <- c("blue","blue","blue")
colorbar <- c("red","red","red")
colorbar[which(plotResults_num == 1)] <- "red"
colorbar[which(plotResults_num == 1)] <- "green"
barplot(plotResults, col=colorbar, names.arg=c("Kustannus (1000 euroa)","Ero CO2-päästö vs BAU","Ero sairaspäivissä/(1000 henk. v) vs BAU"))
barplot(plotResults, col=colorbar, names.arg=c("Raha","Luonto","Terveys"), cex.axis=1.7, cex.names=1.7)
 
#barplot(plotResults, col=colorbar, names.arg=c("Kustannus (1000 euroa)","Ero CO2-päästö vs BAU (1000 kg/v)","Ero sairaspäivissä/(1000 henk. v) vs BAU"))


</rcode>
</rcode>


== Tulokset ==
== Tulokset ==
Rivi 428: Rivi 456:


<rcode>
<rcode>
library(OpasnetBaseUtils)
library(OpasnetUtils)
library(xtable)
library(xtable)
data <- op_baseGetData("opasnet_base", "Op_fi2681")[, -c(1,4)]
data <- opbase.data("Op_fi2681")[, -c(1,4)]
data <- reshape(data, timevar = "Parameter", idvar = "obs", direction = "wide")
data <- reshape(data, timevar = "Parameter", idvar = "obs", direction = "wide")
colnames(data) <- c("obs", "lisäys", "mihin.x", "mihin.y", "mistä.x", "mistä.y", "suunnitelma")
colnames(data) <- c("obs", "lisäys", "mihin.x", "mihin.y", "mistä.x", "mistä.y", "suunnitelma")
Rivi 439: Rivi 467:
== Katso myös ==
== Katso myös ==


* [[Osallistuva_kaupunkisuunnittelu_-_Eracedu_2011]]
* [[Helsingin seudun liikennemalli]]
* [[Helsingin seudun liikennemalli]]
* [[Osallistuva kaupunkisuunnittelu Joensuussa]]
* [[Joensuun keskustan liikennemalli J1]]
* [http://www.viddler.com/explore/otavanopisto/videos/312/ Video liikennemallin ja liikennepelin esittelystä] (Otavan opiston paja 8.9.2011)
* [http://www.viddler.com/explore/otavanopisto/videos/312/ Video liikennemallin ja liikennepelin esittelystä] (Otavan opiston paja 8.9.2011)


Rivi 454: Rivi 481:
{{mfiles}}
{{mfiles}}


[[kuva:VipuvoimaaEU rgb1.jpg]]
{{eracedu}}
[[kuva:Eakr logo fi.png]]

Nykyinen versio 7. lokakuuta 2013 kello 06.07


Rajaus

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

Mallia voi kokeilla klikkaamalla otsikon 'Kaava' alta löytyvää 'Aja koodi' -näppäintä. Oman liikenneratkaisusi voit syöttää sisään vastaamalla kysymyksiin otsikon 'Data' alla. Jo syötetyt liikennesuunnitelmat otsikon 'Näytä tähänastiset ehdotukset' alla olevaa 'Aja koodi'-näppäintä painamalla


Määritelmä

Data

#: Laskenta ei toimi, koska obs-sarake on poistettu tietokantataulusta. Koodin päivittämiseksi pitäisi tehdä:

  • Palauttaa obs tai luoda vastaava uusi indeksi, esim. Ehdotus (myös vanhoihin syötteisiin!).
  • Tarkistaa, että koodeissa on oikea series_id: 3636.
  • Analyysikoodi on kirjoitettu hyödyntämättä ovariableja. Pitäisikö se miettiä kokonaan uusiksi?
  • Lopussa oleva terveysvaikutuslaskenta pitäisi toteuttaa uusimman HIA-laskennan mukaisesti.
  • Olisiko tässä helpompi hyödyntää location-parametria käyttöliitymässä?

--Jouni Tuomisto 7. lokakuuta 2013 kello 09.07 (EEST)

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

Joensuun keskusta
Joensuun keskusta

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 (eli kaikki samannimiset suunnitelmat yhdistetään yhdeksi kokonaissuunnitelmaksi). Voit myöhemmin palata mihin tahansa tietokannasta löytyvään suunnitelmaan ja simuloida sen tunnusluvut kirjoittamalla sen nimen alla olevaan kenttään ja painamalla 'Aja koodi'-näppäintä. Vastaavasti uusi liikennesuunnitelma talletetaan tietokantaan kirjoittamalla suunnitelmasi nimi alla olevaan kenttään heittomerkkien väliin ja valitsemalla yllä olevista valikoista liikenneratkaisusi koordinaatit ja tietyyppi.:

+ 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)

Liikenneskenaarion vaikutukset nykytilanteeseen (BAU) verrattuna

+ Näytä koodi

Tulokset

Näytä tähänastiset ehdotukset

+ Näytä koodi


Katso myös


Viitteet


Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>