[Octave-cvsupdate] SF.net SVN: octave:[7320] trunk/octave-forge/extra/quaternion_oo

[<par...@us...>]

Revision: 7320
          http://octave.svn.sourceforge.net/octave/?rev=7320&view=rev
Author:   paramaniac
Date:     2010-05-18 05:30:37 +0000 (Tue, 18 May 2010)

Log Message:
-----------
quaternion_oo: add size functions

Modified Paths:
--------------
    trunk/octave-forge/extra/quaternion_oo/INDEX
    trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/inv.m
    trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/mpower.m
    trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/power.m

Added Paths:
-----------
    trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/columns.m
    trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/rows.m
    trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/size.m

Modified: trunk/octave-forge/extra/quaternion_oo/INDEX
===================================================================
--- trunk/octave-forge/extra/quaternion_oo/INDEX	2010-05-18 04:49:43 UTC (rev 7319)
+++ trunk/octave-forge/extra/quaternion_oo/INDEX	2010-05-18 05:30:37 UTC (rev 7320)
@@ -4,6 +4,9 @@
   @quaternion/conj
   @quaternion/diag
   @quaternion/ispure
+  @quaternion/rows
+  @quaternion/columns
+  @quaternion/size
 Overloaded and Arithmetic Operators
   @quaternion/plus
   @quaternion/minus

Added: trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/columns.m
===================================================================
--- trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/columns.m	                        (rev 0)
+++ trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/columns.m	2010-05-18 05:30:37 UTC (rev 7320)
@@ -0,0 +1,9 @@
+function c = columns (a)
+
+  if (nargin != 1)
+    print_usage ();
+  endif
+
+  c = columns (a.w);
+
+endfunction
\ No newline at end of file

Modified: trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/inv.m
===================================================================
--- trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/inv.m	2010-05-18 04:49:43 UTC (rev 7319)
+++ trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/inv.m	2010-05-18 05:30:37 UTC (rev 7320)
@@ -33,6 +33,8 @@
     error ("quaternion: inv: implemented for scalar quaternions only");
   endif
 
+  ## TODO: quaternion arrays
+
   norm2 = a.w*a.w + a.x*a.x + a.y*a.y + a.z*a.z;
 
   a.w = a.w / norm2;

Modified: trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/mpower.m
===================================================================
--- trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/mpower.m	2010-05-18 04:49:43 UTC (rev 7319)
+++ trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/mpower.m	2010-05-18 05:30:37 UTC (rev 7320)
@@ -6,4 +6,7 @@
     error ("quaternion: mpower: case not implemeted");
   endif
 
+  ## TODO: - q1 ^ q2
+  ##       - arrays
+
 endfunction
\ No newline at end of file

Modified: trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/power.m
===================================================================
--- trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/power.m	2010-05-18 04:49:43 UTC (rev 7319)
+++ trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/power.m	2010-05-18 05:30:37 UTC (rev 7320)
@@ -6,4 +6,7 @@
     error ("quaternion: power: case not implemeted");
   endif
 
+  ## TODO: - q1 .^ q2
+  ##       - arrays
+
 endfunction
\ No newline at end of file

Added: trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/rows.m
===================================================================
--- trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/rows.m	                        (rev 0)
+++ trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/rows.m	2010-05-18 05:30:37 UTC (rev 7320)
@@ -0,0 +1,9 @@
+function r = rows (a)
+
+  if (nargin != 1)
+    print_usage ();
+  endif
+
+  r = rows (a.w);
+
+endfunction
\ No newline at end of file

Added: trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/size.m
===================================================================
--- trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/size.m	                        (rev 0)
+++ trunk/octave-forge/extra/quaternion_oo/inst/@quaternion/size.m	2010-05-18 05:30:37 UTC (rev 7320)
@@ -0,0 +1,12 @@
+function s = size (a, b = ":")
+
+  if (nargin > 2)
+    print_usage ();
+  endif
+
+  s = size (a.w)(b).';
+
+  ## TODO: - catch case nargout == 2
+  ##       - return 1 if b > numel (s)
+
+endfunction
\ No newline at end of file


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.