Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/gcd.cc @ 14854:5ae9f0f77635

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Use Octave coding conventions for coddling parenthis is DLD-FUNCTIONS directory * __fltk_uigetfile__.cc, __glpk__.cc, __init_fltk__.cc, __magick_read__.cc, besselj.cc, bsxfun.cc, ccolamd.cc, cellfun.cc, chol.cc, colamd.cc, daspk.cc, dasrt.cc, dassl.cc, dmperm.cc, fft.cc, filter.cc, find.cc, gcd.cc, kron.cc, lsode.cc, lu.cc, luinc.cc, quad.cc, quadcc.cc, rand.cc, regexp.cc, schur.cc, str2double.cc, symbfact.cc, symrcm.cc, tril.cc, urlwrite.cc: Use Octave coding conventions for coddling parenthis is DLD-FUNCTIONS directory.
author Rik <octave@nomad.inbox5.com>
date Mon, 09 Jul 2012 13:01:49 -0700
parents 60e5cf354d80
children
comparison
equal deleted inserted replaced
14853:72b8b39e12be 14854:5ae9f0f77635
74 74
75 template <typename FP> 75 template <typename FP>
76 static std::complex<FP> 76 static std::complex<FP>
77 simple_gcd (const std::complex<FP>& a, const std::complex<FP>& b) 77 simple_gcd (const std::complex<FP>& a, const std::complex<FP>& b)
78 { 78 {
79 if (! xisinteger (a.real ()) || ! xisinteger(a.imag ()) 79 if (! xisinteger (a.real ()) || ! xisinteger (a.imag ())
80 || ! xisinteger (b.real ()) || ! xisinteger(b.imag ())) 80 || ! xisinteger (b.real ()) || ! xisinteger (b.imag ()))
81 (*current_liboctave_error_handler) 81 (*current_liboctave_error_handler)
82 ("gcd: all complex parts must be integers"); 82 ("gcd: all complex parts must be integers");
83 83
84 std::complex<FP> aa = a; 84 std::complex<FP> aa = a;
85 std::complex<FP> bb = b; 85 std::complex<FP> bb = b;
154 template <typename FP> 154 template <typename FP>
155 static std::complex<FP> 155 static std::complex<FP>
156 extended_gcd (const std::complex<FP>& a, const std::complex<FP>& b, 156 extended_gcd (const std::complex<FP>& a, const std::complex<FP>& b,
157 std::complex<FP>& x, std::complex<FP>& y) 157 std::complex<FP>& x, std::complex<FP>& y)
158 { 158 {
159 if (! xisinteger (a.real ()) || ! xisinteger(a.imag ()) 159 if (! xisinteger (a.real ()) || ! xisinteger (a.imag ())
160 || ! xisinteger (b.real ()) || ! xisinteger(b.imag ())) 160 || ! xisinteger (b.real ()) || ! xisinteger (b.imag ()))
161 (*current_liboctave_error_handler) 161 (*current_liboctave_error_handler)
162 ("gcd: all complex parts must be integers"); 162 ("gcd: all complex parts must be integers");
163 163
164 std::complex<FP> aa = a, bb = b; 164 std::complex<FP> aa = a, bb = b;
165 bool swapped = false; 165 bool swapped = false;