NAME

Tissue - Models a Tissue for decompression calculations

SYNOPSIS

use Deco::Tissue;
my $tissue = new Deco::Tissue( halftime => 5, m0 => 1.52);

DESCRIPTION

This module can be used to mimick the behaviour of a theoretical body tissue when Scuba Diving with air or nitrox. It will model a hypothetical body tissue in a Haldanian fashion. The 2 parameters that determine the tissue behaviour are the halftime T (in minutes) and the surfacing maximum Tissue tension M0 ( in bar ).

METHODS

$tissue->info()

Returns a string with information about initial settings and current state of the tissue

$tissue->nodeco_time( gas => 'n2' );

Calculates the time left in minutes before a tissue has reached the critical surface tension. In that case you can no longer return directly to the surface but will need to stop at a certain depth first.

$tissue->safe_depth( gas => 'n2' );

Returns the safe depth in meters to which you can ascend without exceeding one of the critical tissue tensions. These values are positive or 0. A value of 0 means you can surface without having any deco stops.

$tissue->M( depth => $depth );

Get the M-value for the specified depth. The M-value for sea-level is the famous M0. At depth you are allowed to have a greater tissue tension, which scales linearly with the depth.

$tissue->k( );

Returns the k-parameter (kind of the reverse of the tissue halftime)

$tissue->otu;

Returns the Oxygen Toxicity Units acquired during the dive sofar.

$tissue->calculate_otu;

Update the OTU value. You have to call this function after every time / depth change. It will add the found value to the internal otu counter and return the total value.

$tissue->gas( 'n2' => 34, '02' => 0.66 );

Set the fractions or percentages of the gases used. Supported gases are 'n2', 'o2' and 'he'. You can either enter percentages or fractions. Note that you are responsible for adding up the gases correctly to 100%.

EXPORT

None by default.

SEE ALSO

In the docs directory you will find an extensive treatment of decompression theory in the file Deco.pdf. A lot of it has been copied from the www.deepocean.net website.

AUTHOR

Jaap Voets, <narked@xperience-automatisering.nl>

COPYRIGHT AND LICENSE

Copyright (C) 2006 by Jaap Voets

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.7 or, at your option, any later version of Perl 5 you may have available.