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

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

Revision: 7314
          http://octave.svn.sourceforge.net/octave/?rev=7314&view=rev
Author:   paramaniac
Date:     2010-05-16 20:24:28 +0000 (Sun, 16 May 2010)

Log Message:
-----------
quaternion_oo: add files

Added Paths:
-----------
    trunk/octave-forge/extra/quaternion_oo/inst/qi.m
    trunk/octave-forge/extra/quaternion_oo/inst/qj.m
    trunk/octave-forge/extra/quaternion_oo/inst/qk.m

Added: trunk/octave-forge/extra/quaternion_oo/inst/qi.m
===================================================================
--- trunk/octave-forge/extra/quaternion_oo/inst/qi.m	                        (rev 0)
+++ trunk/octave-forge/extra/quaternion_oo/inst/qi.m	2010-05-16 20:24:28 UTC (rev 7314)
@@ -0,0 +1,9 @@
+function q = qi
+
+  if (nargin != 0)
+    print_usage ();
+  endif
+
+  q = quaternion (0, 1, 0, 0);
+
+endfunction
\ No newline at end of file

Added: trunk/octave-forge/extra/quaternion_oo/inst/qj.m
===================================================================
--- trunk/octave-forge/extra/quaternion_oo/inst/qj.m	                        (rev 0)
+++ trunk/octave-forge/extra/quaternion_oo/inst/qj.m	2010-05-16 20:24:28 UTC (rev 7314)
@@ -0,0 +1,9 @@
+function q = qj
+
+  if (nargin != 0)
+    print_usage ();
+  endif
+
+  q = quaternion (0, 0, 1, 0);
+
+endfunction
\ No newline at end of file

Added: trunk/octave-forge/extra/quaternion_oo/inst/qk.m
===================================================================
--- trunk/octave-forge/extra/quaternion_oo/inst/qk.m	                        (rev 0)
+++ trunk/octave-forge/extra/quaternion_oo/inst/qk.m	2010-05-16 20:24:28 UTC (rev 7314)
@@ -0,0 +1,9 @@
+function q = qk
+
+  if (nargin != 0)
+    print_usage ();
+  endif
+
+  q = quaternion (0, 0, 0, 1);
+
+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.