calcHbExUnsteady
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)
a numeric vector presenting air temperature in [degree C]
a numeric vector presenting mean radiant temperature in [degree C]
a numeric vector presenting air velocity in [m/s]
a numeric vector presenting relative humidity [%]
a numeric vector presenting clothing insulation level in [clo]
a numeric vector presenting metabolic rate in [met]
a numeric vector presenting outdoor air temperature in [degree C]
a 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
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 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
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, M., Kolarik, J., Dovjak, M. and Shukuya, M. Unsteady-state human-body exergy consumption rate and its relation to subjective assessment of dynamic thermal environments, Energy and Buildings , 2016, 116, 164 - 180
Shukuya, M. 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., KIT/TCU, 2015.
see also calcComfInd
, calcHbExSteady
# NOT RUN {
## 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