@@ -85,14 +85,14 @@ tape( 'the function computes a complex inverse', function test( t ) {
8585 t . strictEqual ( real ( q ) , qre [ i ] , 'returns expected real component' ) ;
8686 } else {
8787 delta = absf ( real ( q ) - qre [ i ] ) ;
88- tol = EPS * absf ( qre [ i ] ) ;
88+ tol = 3 * EPS * absf ( qre [ i ] ) ;
8989 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. real: ' + real ( q ) + '. expected: ' + qre [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
9090 }
9191 if ( imag ( q ) === qim [ i ] ) {
9292 t . strictEqual ( imag ( q ) , qim [ i ] , 'returns expected imaginary component' ) ;
9393 } else {
9494 delta = absf ( imag ( q ) - qim [ i ] ) ;
95- tol = EPS * absf ( qim [ i ] ) ;
95+ tol = 3 * EPS * absf ( qim [ i ] ) ;
9696 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. imag: ' + imag ( q ) + '. expected: ' + qim [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
9797 }
9898 }
@@ -121,14 +121,14 @@ tape( 'the function computes a complex inverse (large negative imaginary compone
121121 t . strictEqual ( real ( q ) , qre [ i ] , 'returns expected real component' ) ;
122122 } else {
123123 delta = absf ( real ( q ) - qre [ i ] ) ;
124- tol = EPS * absf ( qre [ i ] ) ;
124+ tol = 3 * EPS * absf ( qre [ i ] ) ;
125125 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. real: ' + real ( q ) + '. expected: ' + qre [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
126126 }
127127 if ( imag ( q ) === qim [ i ] ) {
128128 t . strictEqual ( imag ( q ) , qim [ i ] , 'returns expected imaginary component' ) ;
129129 } else {
130130 delta = absf ( imag ( q ) - qim [ i ] ) ;
131- tol = EPS * absf ( qim [ i ] ) ;
131+ tol = 3 * EPS * absf ( qim [ i ] ) ;
132132 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. imag: ' + imag ( q ) + '. expected: ' + qim [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
133133 }
134134 }
@@ -157,14 +157,14 @@ tape( 'the function computes a complex inverse (large negative real components)'
157157 t . strictEqual ( real ( q ) , qre [ i ] , 'returns expected real component' ) ;
158158 } else {
159159 delta = absf ( real ( q ) - qre [ i ] ) ;
160- tol = EPS * absf ( qre [ i ] ) ;
160+ tol = 3 * EPS * absf ( qre [ i ] ) ;
161161 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. real: ' + real ( q ) + '. expected: ' + qre [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
162162 }
163163 if ( imag ( q ) === qim [ i ] ) {
164164 t . strictEqual ( imag ( q ) , qim [ i ] , 'returns expected imaginary component' ) ;
165165 } else {
166166 delta = absf ( imag ( q ) - qim [ i ] ) ;
167- tol = EPS * absf ( qim [ i ] ) ;
167+ tol = 3 * EPS * absf ( qim [ i ] ) ;
168168 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. imag: ' + imag ( q ) + '. expected: ' + qim [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
169169 }
170170 }
@@ -193,14 +193,14 @@ tape( 'the function computes a complex inverse (large positive imaginary compone
193193 t . strictEqual ( real ( q ) , qre [ i ] , 'returns expected real component' ) ;
194194 } else {
195195 delta = absf ( real ( q ) - qre [ i ] ) ;
196- tol = EPS * absf ( qre [ i ] ) ;
196+ tol = 3 * EPS * absf ( qre [ i ] ) ;
197197 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. real: ' + real ( q ) + '. expected: ' + qre [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
198198 }
199199 if ( imag ( q ) === qim [ i ] ) {
200200 t . strictEqual ( imag ( q ) , qim [ i ] , 'returns expected imaginary component' ) ;
201201 } else {
202202 delta = absf ( imag ( q ) - qim [ i ] ) ;
203- tol = EPS * absf ( qim [ i ] ) ;
203+ tol = 3 * EPS * absf ( qim [ i ] ) ;
204204 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. imag: ' + imag ( q ) + '. expected: ' + qim [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
205205 }
206206 }
@@ -229,14 +229,14 @@ tape( 'the function computes a complex inverse (large positive real components)'
229229 t . strictEqual ( real ( q ) , qre [ i ] , 'returns expected real component' ) ;
230230 } else {
231231 delta = absf ( real ( q ) - qre [ i ] ) ;
232- tol = EPS * absf ( qre [ i ] ) ;
232+ tol = 3 * EPS * absf ( qre [ i ] ) ;
233233 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. real: ' + real ( q ) + '. expected: ' + qre [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
234234 }
235235 if ( imag ( q ) === qim [ i ] ) {
236236 t . strictEqual ( imag ( q ) , qim [ i ] , 'returns expected imaginary component' ) ;
237237 } else {
238238 delta = absf ( imag ( q ) - qim [ i ] ) ;
239- tol = EPS * absf ( qim [ i ] ) ;
239+ tol = 3 * EPS * absf ( qim [ i ] ) ;
240240 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. imag: ' + imag ( q ) + '. expected: ' + qim [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
241241 }
242242 }
@@ -265,14 +265,14 @@ tape( 'the function computes a complex inverse (tiny negative imaginary componen
265265 t . strictEqual ( real ( q ) , qre [ i ] , 'returns expected real component' ) ;
266266 } else {
267267 delta = absf ( real ( q ) - qre [ i ] ) ;
268- tol = EPS * absf ( qre [ i ] ) ;
268+ tol = 3 * EPS * absf ( qre [ i ] ) ;
269269 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. real: ' + real ( q ) + '. expected: ' + qre [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
270270 }
271271 if ( imag ( q ) === qim [ i ] ) {
272272 t . strictEqual ( imag ( q ) , qim [ i ] , 'returns expected imaginary component' ) ;
273273 } else {
274274 delta = absf ( imag ( q ) - qim [ i ] ) ;
275- tol = EPS * absf ( qim [ i ] ) ;
275+ tol = 3 * EPS * absf ( qim [ i ] ) ;
276276 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. imag: ' + imag ( q ) + '. expected: ' + qim [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
277277 }
278278 }
@@ -301,14 +301,14 @@ tape( 'the function computes a complex inverse (tiny negative real components)',
301301 t . strictEqual ( real ( q ) , qre [ i ] , 'returns expected real component' ) ;
302302 } else {
303303 delta = absf ( real ( q ) - qre [ i ] ) ;
304- tol = EPS * absf ( qre [ i ] ) ;
304+ tol = 3 * EPS * absf ( qre [ i ] ) ;
305305 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. real: ' + real ( q ) + '. expected: ' + qre [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
306306 }
307307 if ( imag ( q ) === qim [ i ] ) {
308308 t . strictEqual ( imag ( q ) , qim [ i ] , 'returns expected imaginary component' ) ;
309309 } else {
310310 delta = absf ( imag ( q ) - qim [ i ] ) ;
311- tol = EPS * absf ( qim [ i ] ) ;
311+ tol = 3 * EPS * absf ( qim [ i ] ) ;
312312 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. imag: ' + imag ( q ) + '. expected: ' + qim [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
313313 }
314314 }
@@ -337,14 +337,14 @@ tape( 'the function computes a complex inverse (tiny positive imaginary componen
337337 t . strictEqual ( real ( q ) , qre [ i ] , 'returns expected real component' ) ;
338338 } else {
339339 delta = absf ( real ( q ) - qre [ i ] ) ;
340- tol = EPS * absf ( qre [ i ] ) ;
340+ tol = 3 * EPS * absf ( qre [ i ] ) ;
341341 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. real: ' + real ( q ) + '. expected: ' + qre [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
342342 }
343343 if ( imag ( q ) === qim [ i ] ) {
344344 t . strictEqual ( imag ( q ) , qim [ i ] , 'returns expected imaginary component' ) ;
345345 } else {
346346 delta = absf ( imag ( q ) - qim [ i ] ) ;
347- tol = EPS * absf ( qim [ i ] ) ;
347+ tol = 3 * EPS * absf ( qim [ i ] ) ;
348348 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. imag: ' + imag ( q ) + '. expected: ' + qim [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
349349 }
350350 }
@@ -373,14 +373,14 @@ tape( 'the function computes a complex inverse (tiny positive real components)',
373373 t . strictEqual ( real ( q ) , qre [ i ] , 'returns expected real component' ) ;
374374 } else {
375375 delta = absf ( real ( q ) - qre [ i ] ) ;
376- tol = EPS * absf ( qre [ i ] ) ;
376+ tol = 3 * EPS * absf ( qre [ i ] ) ;
377377 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. real: ' + real ( q ) + '. expected: ' + qre [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
378378 }
379379 if ( imag ( q ) === qim [ i ] ) {
380380 t . strictEqual ( imag ( q ) , qim [ i ] , 'returns expected imaginary component' ) ;
381381 } else {
382382 delta = absf ( imag ( q ) - qim [ i ] ) ;
383- tol = EPS * absf ( qim [ i ] ) ;
383+ tol = 3 * EPS * absf ( qim [ i ] ) ;
384384 t . ok ( delta <= tol , 'within tolerance. x: ' + re [ i ] + '+ ' + im [ i ] + 'i. imag: ' + imag ( q ) + '. expected: ' + qim [ i ] + '. delta: ' + delta + '. tol: ' + tol + '.' ) ;
385385 }
386386 }
0 commit comments