Buildings in Basel: Difference between revisions

Revision as of 10:23, 20 February 2015

This page is a knowledge crystal of subtype variable. The page identifier is Op_en7044
Moderator:Jouni (see all)

Upload data {{#opasnet_base_link:Op_en7044}}

Question

What is the building stock in Basel?

Answer

Rationale

Detailed data can be found from heande:Buildings in Basel. This data is aggregated to the postal code level. The table uses Swiss Land Survey coordinates CH1903. [1] [2] Use this code in the ova2spat function:

proj4string = "+init=epsg:21781"

Locations of postal codes(epsg:21781)
Obs	Postal code	X	Y
1	4001	611296.55	267316.04
2	4051	611004.37	267137.18
3	4052	612735.06	266596.60
4	4053	611695.00	265635.41
5	4054	609694.31	266598.91
6	4055	609798.12	267812.13
7	4056	610271.78	268500.37
8	4057	611580.35	268976.81
9	4058	612781.70	268225.32
10	4059	611615.85	264689.04
11	4125	615721.84	269737.40
12	4126	617160.01	268852.20

Calculations

Initiation

This code creates ovariables that are needed to run the Building model and its ovariables buildings and heatingEnergy.

+ Show code - Hide code

library(OpasnetUtils)

# [[Buildings in Basel]], building stock, locations by postal codes (in A Swiss coordinate system)
stockBuildings <- Ovariable("stockBuildings", ddata = "Op_en7044.postal_code_areas")
colnames(stockBuildings@data)[colnames(stockBuildings@data) == "Eventyear"] <- "Time"
stockBuildings@data$Renovation <- "None"
stockBuildings@data$Efficiency <- "New"

# Construction rate is assumed to be 2 % /a from the year 2010 building stock.

changeBuildings <- stockBuildings
changeBuildings@name <- "changeBuildings"
colnames(changeBuildings@data)[colnames(changeBuildings@data) == "stockBuildingsResult"] <- "changeBuildingsResult"
changeBuildings@data$changeBuildingsResult <- changeBuildings@data$changeBuildingsResult * 0.02
changeBuildings@data$Time <- NULL
changeBuildings@data <- merge(changeBuildings@data, data.frame(Time = 2015 + 0:7 * 5))

# Geolocations of the buildings for emission calculations.
emissionLocations <- Ovariable("emissionLocations", ddata = "Op_en7044.locations_of_postal_codes")
colnames(emissionLocations@data)[colnames(emissionLocations@data) == "emissionLocationsResult"] <- "Y"
emissionLocations@data$emissionLocationsResult <- 1

emissionLocations <- Ovariable("emissionLocations", ddata = "Op_en3435", subset = "Emission locations") 

####### DEFINE DUMMIES FOR MODEL PROPERTIES THAT ARE NOT NEEDED FOR BASEL

changeBuildings <- 0
obstime <- data.frame(Startyear = 2010)
heating_before <- TRUE # Should heatingShares be calculated before renovate and timepoints (or after)? 
efficiency_before <- TRUE # Should efficiencyShares be calculated before renovate and timepoints (or after)?
efficiencyShares 	<- Ovariable("efficiencies", data = data.frame(Efficiency = "New", Result = 1)) # Current efficiencies
heatingShares 		<- 1 # Heating types of current buildings. Exists as part of buildingStock
heatingSharesNew 	<- 0 # Heating types of the buildings in the future
renovationRate		<- 0 # Percentage of renovations per year
renovationShares 	<- 0 # Fraction of renovation type when renovation is done. Renovations not considered.

# Ovariables energyUse and savingPotential must be taken from [[Energy use of buildings]].
# obsyear, # Years for which observations are calculated. Must be given in an assessment.

openv.setN(0)



if(FALSE) {
objects.store(
	buildingStock, # Current building stock
	buildingTypes, # A dummy variable to combine two different indices: Building and Building2
	construction, # Construction rate in the future
	efficiencies, # Energy efficiencies of current buildings
	efficienciesNew, # Energy efficiencies in the future
	emissionLocations, # Locations of buildings
	eventyear, # A dummy variable to combine time periods to numerical time axis.
	heatingShares, # Heating types of current buildings
	heatingSharesNew, # Heating types of the buildings in the future
	renovation, # Percentage of renovations per year
	renovationShares # Fraction of renovation type when renovation is done.
)

cat("Objects
	buildingStock, # Current building stock
	buildingTypes, # A dummy variable to combine two different indices: Building and Building2
	construction, # Construction rate in the future
	efficiencies, # Energy efficiencies of current buildings
	efficienciesNew, # Energy efficiencies in the future
	emissionLocations, # Locations of buildings
	eventyear, # A dummy variable to combine time periods to numerical time axis.
	heatingShares, # Heating types of current buildings
	heatingSharesNew, # Heating types of the buildings in the future
	renovation, # Percentage of renovations per year
	renovationShares # Fraction of renovation type when renovation is done.
stored.\n")
}

Emission locations

Where and how do the emissions of heating take place?

Emission locations(-)
Obs	Heating	Emission site	Emission height	Dummy
1	District	4056	High	4056 is the postal code of the heat and power plant IWB, Hagenaustrasse 40/70 4056 Basel.
2	Long-distance heating	4056	High
3	Electricity	4056	High
4	Geothermal	4056	High
5	Centrifuge, hydro-extractor	4056	High
6	Heating oil	At site of consumption	Ground
7	Wood	At site of consumption	Ground
8	Gas	At site of consumption	Ground
9	Coal	At site of consumption	Ground
10	Solar heater/ collector	At site of consumption	Ground
11	No energy source	At site of consumption	Ground
12	Other sources	At site of consumption	Ground

Model