From: <par...@us...> - 2011-11-13 13:43:49
|
Revision: 9075 http://octave.svn.sourceforge.net/octave/?rev=9075&view=rev Author: paramaniac Date: 2011-11-13 13:43:25 +0000 (Sun, 13 Nov 2011) Log Message: ----------- quaternion-oo: add norm Modified Paths: -------------- trunk/octave-forge/extra/quaternion_oo/INDEX Added Paths: ----------- trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/norm.m Modified: trunk/octave-forge/extra/quaternion_oo/INDEX =================================================================== --- trunk/octave-forge/extra/quaternion_oo/INDEX 2011-11-13 13:32:36 UTC (rev 9074) +++ trunk/octave-forge/extra/quaternion_oo/INDEX 2011-11-13 13:43:25 UTC (rev 9075) @@ -9,6 +9,7 @@ @quaternion/columns @quaternion/size @quaternion/unit + @quaternion/norm Overloaded and Arithmetic Operators @quaternion/plus @quaternion/minus Added: trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/norm.m =================================================================== --- trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/norm.m (rev 0) +++ trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/norm.m 2011-11-13 13:43:25 UTC (rev 9075) @@ -0,0 +1,39 @@ +## Copyright (C) 2011 Lukas F. Reichlin +## +## This program is free software: you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation, either version 3 of the License, or +## (at your option) any later version. +## +## This program is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with this program. If not, see <http://www.gnu.org/licenses/>. + +## -*- texinfo -*- +## @deftypefn {Function File} {@var{n} =} norm (@var{q}) +## Norm of a quaternion. +## @end deftypefn + +## Author: Lukas Reichlin <luk...@gm...> +## Created: November 2011 +## Version: 0.1 + + +function n = norm (a) + + if (nargin != 1) + print_usage (); + endif + + if (! isscalar (a.w)) + warning ("norm: use ""abs"" to calculate the lengths of quaternion arrays"); + error ("norm: only the 2-norm of scalar quaternions is implemented until now"); + endif + + n = abs (a); + +endfunction This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |