matlisp-users

[Matlisp-users] (SETF (MATRIX-REF ...) ... ) problem?

[Michael A. K. <ma...@ll...>]

When using MATRIX-REF to set sub-matrixes of type COMPLEX-MATRIX  from 
type COMPLEX-MATRIX I get an error.

Type REAL-MATRIX from REAL-MATRIX is okay.

Type COMPLEX-MATRIX from REAL-MATRIX is okay.

The following code segment shows this.  I'm using 
matlisp-2.0beta-2003-10-14.tar.gz under FreeBSD 4.9.
I suspect the problem is in REF.LISP but haven't tracked it down.  Can 
anyone help?

tnx

mike

(setf *a* (m:zeros 5 2)
       *b* (m:ones  5 2)
       *c* (m:make-complex-matrix 5 2)
       *d* (m:m+ *b* (m:m* (sqrt -1) *b*)))

;; With reals all is well
(m:matrix-ref *a* (m:seq 0 4) 0)
(setf (m:matrix-ref *a* (m:seq 0 4) 0) (m:matrix-ref *b* (m:seq 0 4) 0))

;; With complex set from real all is well
(setf (m:matrix-ref *c* (m:seq 0 4) 1) (m:matrix-ref *b* (m:seq 0 4) 0))

;; With complex set from complex ... error
(m:matrix-ref *c* (m:seq 0 4) 0)
(setf (m:matrix-ref *c* (m:seq 0 4) 0) (m:matrix-ref *d* (m:seq 0 4) 0))

Re: [Matlisp-users] (SETF (MATRIX-REF ...) ... ) problem?

[Raymond T. <ray...@er...>]

>>>>> "Michael" == Michael A Koerber <ma...@ll...> writes:

    Michael> The following code segment shows this.  I'm using
    Michael> matlisp-2.0beta-2003-10-14.tar.gz under FreeBSD 4.9.
    Michael> I suspect the problem is in REF.LISP but haven't tracked it down.  Can
    Michael> anyone help?

What error do you get?  When I try this, I get

* (setf (m:matrix-ref *c* (m:seq 0 4) 0) (m:matrix-ref *d* (m:seq 0 4) 0))

No matching method for the generic function
#<STANDARD-GENERIC-FUNCTION MATLISP:NUMBER-OF-ELEMENTS (1) {400FDCC9}>, when
called with arguments (0).
   [Condition of type PCL::NO-APPLICABLE-METHOD-ERROR]

I think when I refactored set-complex-from-complex-matrix-slice, I
messed up.  I'll look into it.

Ray

Re: [Matlisp-users] (SETF (MATRIX-REF ...) ... ) problem?

[Raymond T. <ray...@er...>]

>>>>> "Michael" == Michael A Koerber <ma...@ll...> writes:

    Michael> When using MATRIX-REF to set sub-matrixes of type COMPLEX-MATRIX  from
    Michael> type COMPLEX-MATRIX I get an error.

Found the bug and checked in the fix.  You can probably just get the
new ref.lisp, if you don't want a new cvs version.

Sorry about that!

Ray

Re: [Matlisp-users] (SETF (MATRIX-REF ...) ... ) problem?

[Michael A. K. <ma...@ll...>]

Ray,

   tnx for the quick response!

mike
-- 
---------------------
Dr Michael A. Koerber
x3250