| author | Francesco Abbate <francesco.bbt@gmail.com> | 2011年11月09日 12:48:57 +0100 |
|---|---|---|
| committer | Francesco Abbate <francesco.bbt@gmail.com> | 2011年11月09日 12:48:57 +0100 |
| commit | 83d2b733c281b8e041e3301f996ca04d16bfc09b (patch) | |
| tree | 44431e65cd6f7cd5e503896d868ead8adcba7673 /matrix.lua | |
| parent | 64d1aa5a940826b6c62db79549fa77878508ff07 (diff) | |
| download | gsl-shell-83d2b733c281b8e041e3301f996ca04d16bfc09b.tar.gz | |
| -rw-r--r-- | matrix.lua | 6 |
diff --git a/matrix.lua b/matrix.lua index 9c8e6215..75e1d19b 100644 --- a/matrix.lua +++ b/matrix.lua @@ -538,6 +538,12 @@ local complex_mt = { __mul = generic_mul, __div = generic_div, + __eq = function(a, b) + local ar, ai = cartesian(a) + local br, bi = cartesian(b) + return (ar == br) and (ai == bi) + end, + __pow = function(z,n) if is_real(n) then return gsl.gsl_complex_pow_real (z, n) |