oxtox {scuba} | R Documentation |
Computes pulmonary oxygen toxicity dose for a given dive profile and breathing gas (air or nitrox).
oxtox(d, progressive=FALSE)
d |
The dive profile. An object of class "dive" .
|
progressive |
Logical flag. If FALSE , the total oxygen toxicity from the
dive is calculated. If TRUE , the cumulative oxygen toxicity
at each time point during the dive is calculated.
|
Computes the total dose of pulmonary oxygen toxicity from the given dive profile, by
integral of ((ppO2 - 0.5)/0.5)^0.83 dt
The maximum tolerable dose per day is usually reckoned as 1500 OTU. Allowing 650 OTU for recompression therapy implies a working maximum of 850 OTU per day.
If progressive=FALSE
, a single numeric value,
the total pulmonary oxygen toxicity dose in OTU.
If progressive=TRUE
, a numeric vector containing the
cumulative pulmonary oxygen toxicity dose in OTU at each
time point during the dive. The corresponding time points can be
extracted by times.dive
.
Not applicable to altitude dives. Not applicable to gas mixtures other than nitrox (oxygen-nitrogen mixtures).
Adrian Baddeley adrian@maths.uwa.edu.au http://www.maths.uwa.edu.au/~adrian/
Bookspan, J. (1995) Diving physiology in plain English. Undersea and Hyperbaric Medicine Society, Kensington, Maryland (USA). ISBN 0-930406-13-3.
Brubakk, A.O. and Neuman, T.S. (eds.) (2003) Bennett and Elliott's Physiology and Medicine of Diving. 5th Edition. Saunders. ISBN 0-7020-2571-2
Buehlmann, A.A., Voellm, E.B. and Nussberger, P. (2002) Tauchmedizin. 5e Auflage. Springer-Verlag.
Wienke, B.R. (1994) Basic diving physics and applications. Best Publishing Co.
# Nitrox II (36% oxygen) at 30 metres for 27 minutes d <- dive(nitrox(0.36), c(30,27)) oxtox(d) # Same as above, followed by safety stop on 100% oxygen d <- dive(nitrox(0.36), c(30,27),5, nitrox(1), c(5,5)) oxtox(d)