From jivestgarden at common-lisp.net Tue Feb 23 19:10:41 2010 From: jivestgarden at common-lisp.net (=?UTF-8?Q?J=C3=B8rn_Inge_Vestg=C3=A5rden?=) Date: Tue, 23 Feb 2010 14:10:41 -0500 Subject: [lisplab-cvs] r129 - branches tags trunk Message-ID: Author: jivestgarden Date: Tue Feb 23 14:10:40 2010 New Revision: 129 Log: Ready to new layout Added: branches/ tags/ trunk/ From jivestgarden at common-lisp.net Tue Feb 23 19:18:41 2010 From: jivestgarden at common-lisp.net (=?UTF-8?Q?J=C3=B8rn_Inge_Vestg=C3=A5rden?=) Date: Tue, 23 Feb 2010 14:18:41 -0500 Subject: [lisplab-cvs] r130 - doc shared src trunk trunk/doc trunk/shared trunk/src Message-ID: Author: jivestgarden Date: Tue Feb 23 14:18:41 2010 New Revision: 130 Log: moved all to trunk Added: trunk/LICENSE - copied unchanged from r128, /LICENSE trunk/README - copied unchanged from r128, /README trunk/TODO - copied unchanged from r128, /TODO trunk/doc/ - copied from r128, /doc/ trunk/example.lisp - copied unchanged from r128, /example.lisp trunk/lisplab.asd - copied unchanged from r128, /lisplab.asd trunk/package.lisp - copied unchanged from r128, /package.lisp trunk/shared/ - copied from r128, /shared/ trunk/src/ - copied from r128, /src/ trunk/start.lisp - copied unchanged from r128, /start.lisp Removed: LICENSE README TODO doc/ example.lisp lisplab.asd package.lisp shared/ src/ start.lisp From jivestgarden at common-lisp.net Tue Feb 23 19:19:28 2010 From: jivestgarden at common-lisp.net (=?UTF-8?Q?J=C3=B8rn_Inge_Vestg=C3=A5rden?=) Date: Tue, 23 Feb 2010 14:19:28 -0500 Subject: [lisplab-cvs] r131 - trunk Message-ID: Author: jivestgarden Date: Tue Feb 23 14:19:28 2010 New Revision: 131 Log: forgot this one Added: trunk/Makefile - copied unchanged from r128, /Makefile Removed: Makefile From jivestgarden at common-lisp.net Tue Feb 23 19:43:24 2010 From: jivestgarden at common-lisp.net (=?UTF-8?Q?J=C3=B8rn_Inge_Vestg=C3=A5rden?=) Date: Tue, 23 Feb 2010 14:43:24 -0500 Subject: [lisplab-cvs] r132 - in trunk: . src/core src/matrix Message-ID: Author: jivestgarden Date: Tue Feb 23 14:43:24 2010 New Revision: 132 Log: added sgn function Modified: trunk/package.lisp trunk/src/core/level0-functions.lisp trunk/src/core/level0-interface.lisp trunk/src/matrix/level2-function.lisp trunk/src/matrix/level2-matrix-dge.lisp trunk/src/matrix/store-ordinary-functions.lisp Modified: trunk/package.lisp ============================================================================== --- trunk/package.lisp (original) +++ trunk/package.lisp Tue Feb 23 14:43:24 2010 @@ -74,6 +74,7 @@ ".MAX" ".MIN" ".ABS" + ".SGN" ".IM" ".RE" ".CONJ" Modified: trunk/src/core/level0-functions.lisp ============================================================================== --- trunk/src/core/level0-functions.lisp (original) +++ trunk/src/core/level0-functions.lisp Tue Feb 23 14:43:24 2010 @@ -62,6 +62,9 @@ (./ (.ln x) (.ln base)) (.ln x))) +(defmethod .sgn ((a number)) + (signum a)) + (defmethod .abs ((a number)) (abs a)) Modified: trunk/src/core/level0-interface.lisp ============================================================================== --- trunk/src/core/level0-interface.lisp (original) +++ trunk/src/core/level0-interface.lisp Tue Feb 23 14:43:24 2010 @@ -60,6 +60,9 @@ (defgeneric .min (a b) (:documentation "Generialized min.")) +(defgeneric .sgn (a) + (:documentation "Generialized signum.")) + (defgeneric .abs (a) (:documentation "Generialized abs.")) Modified: trunk/src/matrix/level2-function.lisp ============================================================================== --- trunk/src/matrix/level2-function.lisp (original) +++ trunk/src/matrix/level2-function.lisp Tue Feb 23 14:43:24 2010 @@ -1,5 +1,5 @@ ;;; Lisplab, level2-generic.lisp -;;; Level2, non-specialized methods for function iteration. +;;; Level2, non-specialized methods for functions. ;;; Copyright (C) 2009 Joern Inge Vestgaarden ;;; @@ -31,7 +31,7 @@ .asin .acos .atan .sinh .cosh .tanh .asinh .acosh .atanh - .re .im .abs + .re .im .abs .sgn .exp .ln .sqr .sqrt .conj )) (defmacro expand-each-element-ordinary-functions () Modified: trunk/src/matrix/level2-matrix-dge.lisp ============================================================================== --- trunk/src/matrix/level2-matrix-dge.lisp (original) +++ trunk/src/matrix/level2-matrix-dge.lisp Tue Feb 23 14:43:24 2010 @@ -240,7 +240,8 @@ #+nil (.conj . conjugate_dfa) #+nil (.re . realpart_dfa) #+nil (.im . imagpart_dfa) - (.abs . abs_dfa-to-dfa))) + (.abs . abs_dfa-to-dfa) + (.sgn . signum_dfa-to-dfa))) (defmacro defmethod-dfa-to-dfa (name underlying-function) (let ((a (gensym "a")) Modified: trunk/src/matrix/store-ordinary-functions.lisp ============================================================================== --- trunk/src/matrix/store-ordinary-functions.lisp (original) +++ trunk/src/matrix/store-ordinary-functions.lisp Tue Feb 23 14:43:24 2010 @@ -60,7 +60,8 @@ (sqrt . sqrt_dfa-to-dfa) (exp . exp_dfa-to-dfa) (log . log_dfa-to-dfa) - (abs . abs_dfa-to-dfa))) + (abs . abs_dfa-to-dfa) + (signum . signum_dfa-to-dfa))) ;; the iterative version #+lisplab-iterative (defmacro defun-dfa-to-dfa-iterative (name op) From jivestgarden at common-lisp.net Tue Feb 23 19:58:51 2010 From: jivestgarden at common-lisp.net (=?UTF-8?Q?J=C3=B8rn_Inge_Vestg=C3=A5rden?=) Date: Tue, 23 Feb 2010 14:58:51 -0500 Subject: [lisplab-cvs] r133 - in trunk: . src/matrix Message-ID: Author: jivestgarden Date: Tue Feb 23 14:58:50 2010 New Revision: 133 Log: mreverse function Modified: trunk/package.lisp trunk/src/matrix/level2-generic.lisp trunk/src/matrix/level2-interface.lisp trunk/src/matrix/level2-matrix-dge.lisp Modified: trunk/package.lisp ============================================================================== --- trunk/package.lisp (original) +++ trunk/package.lisp Tue Feb 23 14:58:50 2010 @@ -196,6 +196,7 @@ "SUB-MATRIX" ; To level3 ? "CIRC-SHIFT" "PAD-SHIFT" + "MREVERSE" ;; Matrix level 3 ;; IO Modified: trunk/src/matrix/level2-generic.lisp ============================================================================== --- trunk/src/matrix/level2-generic.lisp (original) +++ trunk/src/matrix/level2-generic.lisp Tue Feb 23 14:58:50 2010 @@ -215,6 +215,14 @@ (mref A (- i dr) (- j dc))))) B)) +(defmethod mreverse ((A matrix-base)) + (let ((B (mcreate A)) + (len (size A))) + (dotimes (i len) + (setf (vref B (- len i 1)) + (vref A i))) + B)) + (defmethod export-list ((m matrix-base)) (let ((res nil)) (dotimes (i (size m)) Modified: trunk/src/matrix/level2-interface.lisp ============================================================================== --- trunk/src/matrix/level2-interface.lisp (original) +++ trunk/src/matrix/level2-interface.lisp Tue Feb 23 14:58:50 2010 @@ -139,3 +139,5 @@ (defgeneric pad-shift (m shifts &optional value) (:documentation "Shifts the matrix and pads results")) +(defgeneric mreverse (m) + (:documentation "Reverts elements of matrix or vector. Similar to cl:reverse")) \ No newline at end of file Modified: trunk/src/matrix/level2-matrix-dge.lisp ============================================================================== --- trunk/src/matrix/level2-matrix-dge.lisp (original) +++ trunk/src/matrix/level2-matrix-dge.lisp Tue Feb 23 14:58:50 2010 @@ -32,6 +32,13 @@ :store (copy-seq store) :dim (dim matrix)))) +(defmethod mreverse ((matrix matrix-base-dge)) + (let ((store (matrix-store matrix))) + (declare (type type-blas-store store)) + (make-instance (class-name (class-of matrix)) + :store (reverse store) + :dim (dim matrix)))) + (defmethod copy-contents ((a matrix-base-dge) (b matrix-base-dge) &optional (converter nil)) (let ((store-a (matrix-store a)) (store-b (matrix-store b)))