Mercurial > octave-nkf
view test/octave.test/arith/sqrt-2.m @ 4477:87c2e107f811
[project @ 2003-07-30 17:26:32 by jwe]
author | jwe |
---|---|
date | Wed, 30 Jul 2003 17:26:32 +0000 |
parents | 7bade0cc3d46 |
children |
line wrap: on
line source
t1 = exp (0.5 * log (i)); t2 = exp (0.5 * log (1-i)); all (all (abs (sqrt ([4, -4; i, 1-i]) - [2, 2i; t1, t2]) < sqrt (eps)))