Difference between revisions of "Energy balance"

Revision as of 20:12, 15 February 2013

⇤# : Don't put arguments on the same line as a subheading. Check the subheadings, you have some that are not used in methods. --Jouni 22:46, 12 February 2013 (EET) there is info about,in the following sub headings,pupose,bouderies,procedure,management, ,input

Question

--# : The question is clear --Sam0911 15:54, 10 February 2013 (EET)

How to calculate energy balances?

Purpose

where is the purpose?

Boundaries

no info about bouderies?

Procedure

Management

Rationale

Input

Output

Data

Calculations

⇤# : What are other energy sources,i wish it should be specific,how about air transport,does it included in the energy balance calculation? --Sam0911 16:29, 10 February 2013 (EET)===Rationale===

Use a table where different fuel types are columns and different stocks, energy production processes, or consumption types are rows called Energy accounts (Ene.account for short). See also an example File:Energy supply in Europe.xls. All Ene.accounts and fuel types used are listed on Energy consumption classes.

Energy balance can be considered as double-entry bookkeeping. The production and conversion are typically credit (i.e., where the energy comes from), while consumption is debit (i.e., where the energy is used). In a typical case, both credit and debit are marked positive on the energy balance sheet. However, there are activities that convert one fuel to another, so that the energy is moved from one column to another. In this case, credit (the source) is marked negative and debit (the target) is marked positive. This is because the production and conversion rows together should reflect how much energy is actually available for final consumption. In other words, the sum of production and conversion rows should equal the sum of the consumption rows in every column.

Because production + conversion = consumption, also production = consumption - conversion. These equations are used to derive the supply that is needed to fulfil the demand.

--# : it seems the formula is ok,the code also runs --Sam0911 16:33, 10 February 2013 (EET)=== Formula ===

Default run key: qffJP3u5RpFw1GuL

library(OpasnetUtils)
library(xtable)

# These three are city-specific: Matrix_page, Additions, Solutions.

Matrix_page <- "Op_en5469" # This is the page with the matrix content.

Additions <- data.frame( # These are additional contents to the matrix, in addition to Matrix_page.
	Equation = "Fraction CHP renewable",
	Col = "CHP peat",
	ETMResult = Frac_CHP_renew,
	ETMDescription = "Actual number given by user."
)

Solutions <- c(rep(0, 18), # These are the solutions (right sides) of the equations.
	Ind_process_heat,
	Cons_Home_electricity,
	Cons_Ind_electricity,
	Cons_Commerce_electricity,
	Cons_Municip_electricity,
	Cons_Home_heat,
	Cons_Ind_heat,
	Cons_Commerce_heat,
	Cons_Municip_heat
)

dependencies <- data.frame(Name = c(
	"Matrix_page",
	"Additions",
	"Solutions"
), Key = "")

formula <- function(dependencies, intermediates = FALSE, ...) {

	ComputeDependencies(dependencies, ...)

	## Define the energy transformation matrix ETM.

	# Get the data from Opasnet Base.

	ETM <- tidy(op_baseGetData("opasnet_base", Matrix_page), objname = "ETM", direction = "wide")

	# Add user-defined data to it.

	ETM <- rbind(ETM, Additions)

	# Reshape the table to make a matrix, and replace NA with 0.

	ETM <- reshape(ETM, timevar = "Col", idvar = "Equation", v.names = "ETMResult", direction = "wide")
	colnames(ETM) <- gsub("ETMResult.", "", colnames(ETM))

	if(intermediates) {print(xtable(ETM), type = 'html')} # Show the matrix with explanations.

	ETM <- as.matrix(ETM[, !colnames(ETM) %in% c("Equation", "ETMDescription")])

	for(i in 1:ncol(ETM)) {
		ETM[is.na(ETM[, i]), i] <- 0
	}

	# Define the outputs for equations (for most equations, it is a zero sum game).

	out <- solve(ETM, Solutions) # Solve the matrix.
	out <- data.frame(Energy.class = colnames(ETM), Result = out)

	return(out)
}

energy.balance <- new("ovariable",
	name = "energy.balance",
	dependencies = dependencies,
	formula = formula
)

temp <- EvalOutput(energy.balance)
print(xtable(temp@output), type = 'html')

objects.put(energy.balance)

cat("Object energy.balance saved. Write down the key of the model run page for further use.\n")

The model first creates the matrix (and shows it to the user if the user has defined intermediates = TRUE), and then it fills all empty cells with 0 and solves it by using the input values the user has given via the user interface. (The user interface can later be replaced by another model.) All the current input values are final consumptions. The example interface and values are based on the Kuopio data, but they are not stored as a part of the ovariable.

--# : good to have a reference to compare --Sam0911 16:12, 10 February 2013 (EET)==See also==

• media:Health impacts of energy production.ppt (a lecture that also contains explanation of an energy balance using matrices)
• Energy balance in Kuopio Describes the production and consumption of energy in Kuopio.
• Energy balance in Stuttgart Describes the production and consumption of energy in Stuttgart.
• Energy balance in Suzhou Describes the production and consumption of energy in Suzhou.
• A previous method to calculate energy balances. Includes also other pages:
  • Energy transformations Describes the inputs and outputs of energy processes. Shows, which other things change when some input or output is changed.
  • Market allocation factor
• File:Energy supply in Europe.xls
• Climate change policies in Kuopio Indicates, which items change when a policy changes.
• Energiatase
• Kasvihuonekaasupäästöt/Kuopio
• Päätösanalyysia_ja_riskinhallintaa.ppt
• Urgenche
• http://www.energia.fi/sites/default/files/polttoaine-energian_maarittaminen_taselaskennan_avulla.pdf
• Uusiutuvan energian riskit selvitetään
• Urgenche: Mesap Planet energy model

Related files

<mfanonymousfilelist></mfanonymousfilelist>