165
|
1 // **************************************************************
|
|
2 // OSTC - diving computer code
|
|
3 // Copyright (C) 2008 HeinrichsWeikamp GbR
|
|
4 //
|
|
5 // This program is free software: you can redistribute it and/or modify
|
|
6 // it under the terms of the GNU General Public License as published by
|
|
7 // the Free Software Foundation, either version 3 of the License, or
|
|
8 // (at your option) any later version.
|
|
9 //
|
|
10 // This program is distributed in the hope that it will be useful,
|
|
11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
13 // GNU General Public License for more details.
|
|
14 //
|
|
15 // You should have received a copy of the GNU General Public License
|
|
16 // along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
17 //
|
|
18 // HISTORY
|
197
|
19 // 2011-01-20: jDG Cleanup addressing.
|
|
20 // 2011-02-13: jDG Correct some typos.
|
165
|
21 //
|
|
22 // **************************************************************
|
|
23
|
|
24 rom const float buhlmann_a[32] =
|
197
|
25 { // Data ZH-L16C, from Bühlmann Tauchmedizin 2002, option 1a (4mn)
|
165
|
26 //---a for N2 ----------------------------------------------------------------
|
197
|
27 1.2599,
|
|
28 1.0000,
|
|
29 0.8618,
|
|
30 0.7562,
|
|
31 0.6200,
|
|
32 0.5043,
|
|
33 0.4410,
|
|
34 0.4000,
|
|
35 0.3750,
|
|
36 0.3500,
|
|
37 0.3295,
|
|
38 0.3065,
|
|
39 0.2835,
|
|
40 0.2610,
|
|
41 0.2480,
|
|
42 0.2327,
|
165
|
43 //---- a of He ---------------------------------------------------------------
|
197
|
44 1.7424,
|
|
45 1.3830,
|
|
46 1.1919,
|
|
47 1.0458,
|
|
48 .9220,
|
|
49 .8205,
|
|
50 .7305,
|
|
51 .6502,
|
|
52 .5950,
|
|
53 .5545,
|
|
54 .5333,
|
|
55 .5189,
|
|
56 .5181,
|
|
57 .5176,
|
|
58 .5172,
|
|
59 .5119
|
165
|
60 };
|
|
61
|
|
62 rom const float buhlmann_b[] =
|
|
63 {
|
|
64 //---- b for N2 --------------------------------------------------------------
|
197
|
65 0.5050,
|
|
66 0.6514,
|
165
|
67 0.7222,
|
|
68 0.7825,
|
|
69 0.8126,
|
|
70 0.8434,
|
|
71 0.8693,
|
|
72 0.8910,
|
|
73 0.9092,
|
|
74 0.9222,
|
|
75 0.9319,
|
|
76 0.9403,
|
|
77 0.9477,
|
|
78 0.9544,
|
|
79 0.9602,
|
|
80 0.9653,
|
|
81 //---- b for He --------------------------------------------------------------
|
|
82 0.4245,
|
|
83 0.5747,
|
|
84 0.6527,
|
|
85 0.7223,
|
|
86 0.7582,
|
|
87 0.7957,
|
|
88 0.8279,
|
|
89 0.8553,
|
|
90 0.8757,
|
|
91 0.8903,
|
|
92 0.8997,
|
|
93 0.9073,
|
|
94 0.9122,
|
|
95 0.9171,
|
|
96 0.9217,
|
|
97 0.9267
|
|
98 };
|
|
99
|
|
100 rom const float buhlmann_ht[] =
|
|
101 {
|
|
102 //---- N2 --------------------------------------------------------------------
|
197
|
103 4, // Compartiment half-life, in minute, for nitrogen.
|
165
|
104 8,
|
|
105 12,
|
|
106 18,
|
|
107 27,
|
|
108 39,
|
|
109 55,
|
|
110 77,
|
|
111 109,
|
|
112 146,
|
|
113 187,
|
|
114 239,
|
|
115 305,
|
|
116 390,
|
|
117 498,
|
|
118 635,
|
|
119 //---- He --------------------------------------------------------------------
|
|
120 1.51, // Compartiment half-life, in minute, for helium.
|
|
121 3.02,
|
|
122 4.72,
|
|
123 6.99,
|
|
124 10.21,
|
|
125 14.48,
|
|
126 20.53,
|
|
127 29.11,
|
|
128 41.20,
|
|
129 55.19,
|
|
130 70.69,
|
|
131 90.34,
|
|
132 115.29,
|
|
133 147.42,
|
|
134 188.24,
|
|
135 240.03
|
|
136 };
|
|
137
|
|
138 rom const float e2secs[] =
|
|
139 {
|
|
140 //---- N2 --------------------------------------------------------------------
|
197
|
141 5.75958E-03, // und zwar 1 - 2^(-1/(30sec*HT))
|
|
142 2.88395E-03,
|
|
143 1.92356E-03,
|
|
144 1.28278E-03,
|
|
145 8.55371E-04,
|
|
146 5.92258E-04,
|
|
147 4.20001E-04,
|
|
148 3.00019E-04,
|
|
149 2.11949E-04,
|
|
150 1.58240E-04,
|
|
151 1.23548E-04,
|
|
152 9.66686E-05,
|
|
153 7.57509E-05,
|
|
154 5.92416E-05,
|
|
155 4.63943E-05,
|
|
156 3.63850E-05,
|
165
|
157 //---- He --------------------------------------------------------------------
|
197
|
158 1.51848E-02,
|
|
159 7.62144E-03,
|
|
160 4.88315E-03,
|
|
161 3.29997E-03,
|
|
162 2.26041E-03,
|
|
163 1.59437E-03,
|
|
164 1.12479E-03,
|
|
165 7.93395E-04,
|
|
166 5.60641E-04,
|
|
167 4.18555E-04,
|
|
168 3.26795E-04,
|
|
169 2.55722E-04,
|
|
170 2.00387E-04,
|
|
171 1.56716E-04,
|
|
172 1.22734E-04,
|
|
173 9.62538E-05
|
165
|
174 };
|
|
175
|
|
176 rom const float e1min[] =
|
|
177 {
|
|
178 //---- N2 --------------------------------------------------------------------
|
197
|
179 1.59104E-01, // Integration constant for 1 minute,
|
|
180 8.29960E-02, // Ie. 1- 2^(-1/HT)
|
|
181 5.61257E-02,
|
|
182 3.77762E-02,
|
|
183 2.53454E-02,
|
|
184 1.76160E-02,
|
|
185 1.25236E-02,
|
|
186 8.96152E-03,
|
|
187 6.33897E-03,
|
|
188 4.73633E-03,
|
|
189 3.69981E-03,
|
|
190 2.89600E-03,
|
|
191 2.27003E-03,
|
|
192 1.77572E-03,
|
|
193 1.39089E-03,
|
|
194 1.09097E-03,
|
165
|
195 //---- e 1min He -------------------------------------------------------------
|
197
|
196 3.68109E-01,
|
|
197 2.05084E-01,
|
|
198 1.36579E-01,
|
|
199 9.44046E-02,
|
|
200 6.56359E-02,
|
|
201 4.67416E-02,
|
|
202 3.31991E-02,
|
|
203 2.35301E-02,
|
|
204 1.66832E-02,
|
|
205 1.24808E-02,
|
|
206 9.75753E-03,
|
|
207 7.64329E-03,
|
|
208 5.99417E-03,
|
|
209 4.69082E-03,
|
|
210 3.67548E-03,
|
|
211 2.88359E-03
|
165
|
212 };
|
|
213
|
|
214 rom const float e10min[] =
|
|
215 {
|
|
216 //---- N2 --------------------------------------------------------------------
|
|
217 // Die 10 min Werte in float Notation:
|
|
218 // und zwar 1 - 2^(-10/ht)
|
197
|
219 8.23223E-01, // 1 - 2^(-10/4.0)
|
|
220 5.79552E-01,
|
|
221 4.38769E-01,
|
|
222 3.19605E-01,
|
|
223 2.26416E-01,
|
|
224 1.62832E-01,
|
|
225 1.18409E-01,
|
|
226 8.60863E-02,
|
|
227 6.16117E-02,
|
|
228 4.63665E-02,
|
|
229 3.63881E-02,
|
|
230 2.85855E-02,
|
|
231 2.24698E-02,
|
|
232 1.76160E-02,
|
|
233 1.38222E-02,
|
|
234 1.08563E-02,
|
165
|
235 //---- He --------------------------------------------------------------------
|
197
|
236 9.89851E-01,
|
|
237 8.99258E-01,
|
|
238 7.69737E-01,
|
|
239 6.29027E-01,
|
|
240 4.92821E-01,
|
|
241 3.80407E-01,
|
|
242 2.86538E-01,
|
|
243 2.11886E-01,
|
|
244 1.54849E-01,
|
|
245 1.18026E-01,
|
|
246 9.34005E-02,
|
|
247 7.38569E-02,
|
|
248 5.83504E-02,
|
|
249 4.59303E-02,
|
|
250 3.61528E-02,
|
|
251 2.84646E-02
|
165
|
252 };
|
|
253
|