calcHbExUnsteady
Function calculates the human body exergy consumPtion rate using unsteady state method based on a series of environmental variables.
calcHbExUnsteady(ta, tr, rh, vel, clo, met, tao, rho, frad = 0.7,
eps = 0.95, ic = 1.085, ht = 171, wt = 70, tcr = 37, tsk = 36, basMet = 58.2,
warmUp = 60, cdil = 100, sigmatr = 0.25, dateTime)
Returns a data.frame with the following columns. Exergy input
Exergy input through metabolism
Label warm/ cold for exergy input through metabolism
Exergy input through inhaled humid air
Label warm/ cold for exergy input through inhaled humid air
Exergy input through inhaled dry air
Label wet/ dry for exergy input through inhaled dry air
Exergy input through water lung
Label warm/ cold for exergy input through water lung
Exergy input through water lung
Label wet/ dry for exergy input through water lung
Exergy input through water from sweat
Label warm/ cold for exergy input through water from sweat
Exergy input through water from sweat
Label wet/ dry for exergy input through water from sweat
Exergy input through radiation
Label warm/ cold for exergy input through radiation
total exergy input
Exergy output
Exergy stored in core
Exergy stored in shell
Exergy output through exhaled humid air
Label warm/ cold for exergy output through exhaled humid air
Exergy output through exhaled dry air
Label wet/ dry for exergy output through exhaled dry air
Exergy output through water vapour from sweat
Label warm/ cold for exergy output through water vapour from sweat
Exergy output through water vapour from sweat
Label wet/ dry for exergy output through water vapour from sweat
Exergy output through radiation
Label warm/ cold for exergy output through radiation
Exergy output through convection
Label warm/ cold for exergy output through convection
total exergy output
Exergy balance
total exergy consumPtion
Additional values
Calculated skin temperature
Calculated core temperature
Calculated skin wettedness
a numeric value presenting air temperature in [degree C]
a numeric value presenting mean radiant temperature in [degree C]
a numeric value presenting relative humidity [%]
a numeric value presenting air velocity in [m/s]
a numeric value presenting clothing insulation level in [clo]
a numeric value presenting metabolic rate in [met]
a numeric vector presenting outdoor air temperature in [degree C]
numeric vector presenting outdoor relative humidity [%]
a numeric vector presenting the fraction of body exposed to radiation 0.7(for seating), 0.73(for standing) [-]
a numeric vector presenting emissivity [-]
a numeric vector presenting permeability of clothing: 1.084 (average permeability), 0.4 (low permeability)
a numeric vector presenting body height in [cm]
a numeric vector presenting body weight in [kg]
a numeric vector presenting initial value for core temperature in [degree C]
a numeric vector presenting initial value for skin temperature in [degree C]
a numeric vector presenting basal metabolic rate in [met]
a numeric vector presenting length of warm up period, i.e. number of times, loop is running for HBx calculation.
a numeric vector presenting value for cdil in 2-node model of Gagge
a numeric vector presenting value for cdil in 2-node model of Gagge.
a POsIxct vector of the times of measurement.
This function is based on a VBA code developed by masanori Shukuya. transformation of VBA-code and Excel procedures into R syntax by Marcel Schweiker.
This function requires vectors of data including the corresponding time stamp. In case the time between two measurements is more than a minute, intermediate values are interpolated.
Schweiker, Kolarik, Dovjak & Shukuya (2016) <doi:10.1016/j.enbuild.2016.01.002>
Shukuya (2015) Calculation of human body-core and skin-layer temperatures under unsteady-state conditions-for unsteady-state human-body exergy analysis-, internal report of exergy-research group, Tech. rep.
see also calcComfInd
## Define environmental parameters
ta <- seq(20,25,.1)
tr <- ta
rh <- rep(50, length(ta))
vel <- rep(.1, length(ta))
clo <- rep(.8, length(ta))
met <- rep(1.2, length(ta))
tao <- rep(5, length(ta))
rho <- rep(80, length(ta))
dateTime <- as.POSIXct(seq(0,by=60,length.out=length(ta)), origin="1970-01-01")
## Calculation of human body exergy consumPtion rate
calcHbExUnsteady(ta, tr, rh, vel, clo, met, tao, rho, dateTime = dateTime)$xconsu
Run the code above in your browser using DataLab