Hi, Thank you for that info. I didn't realize you can have multidimensional float-vectors, nor knew how to go about that. This helps. Jim ________________________________ From: cmdist-boun...@ccrma.stanford.edu <cmdist-boun...@ccrma.stanford.edu> on behalf of cmdist-requ...@ccrma.stanford.edu <cmdist-requ...@ccrma.stanford.edu> Sent: Thursday, September 7, 2023 9:00 AM To: cmdist@ccrma.Stanford.EDU <cmdist@ccrma.Stanford.EDU> Subject: Cmdist Digest, Vol 184, Issue 1
Send Cmdist mailing list submissions to cmdist@ccrma.stanford.edu To subscribe or unsubscribe via the World Wide Web, visit https://cm-mail.stanford.edu/mailman/listinfo/cmdist or, via email, send a message with subject or body 'help' to cmdist-requ...@ccrma.stanford.edu You can reach the person managing the list at cmdist-ow...@ccrma.stanford.edu When replying, please edit your Subject line so it is more specific than "Re: Contents of Cmdist digest..." Today's Topics: 1. cons value for float vector (James Hearon) ---------------------------------------------------------------------- Message: 1 Date: Thu, 7 Sep 2023 17:47:11 +0000 From: James Hearon <j_hea...@hotmail.com> To: "cmdist@ccrma.Stanford.EDU" <cmdist@ccrma.Stanford.EDU> Subject: [CM] cons value for float vector Message-ID: <byapr10mb2536562c85954cf25c290386e5...@byapr10mb2536.namprd10.prod.outlook.com> Content-Type: text/plain; charset="iso-8859-1" Hi, I'm having a difficult time trying to create two columns of data (or three or four etc.) in a float vector. A list works fine, but the vector gives an error that the data is a pair but should be a real. I could use make-env for this probably, but seems like I should be able to get the vector to cooperate. I'm wondering what I'm misunderstanding or if there's a better way to think of this such as individual vectors then zip them together? Thanks, Jim ;float vector XXX (let* ((fsize 10) (im (make-float-vector fsize)) (x 1) (y 1.0) ) (do ((k 0 (+ k 1))) ((>= k fsize)) (set! (im k) (cons x y)) ;XXX is a pair but should be a real? ;(float-vector-set! im k (cons x y)) (format #t "~% ~A ~A" k (im k) ) (set! x (1+ x)) (set! y (1+ y)) )) ;list OK (let* ((fsize 10) (mylist (make-list fsize)) (x 1) (y 1.0) ) (do ((k 0 (+ k 1))) ((>= k fsize)) (set! (list-ref mylist k) (cons x y)) (format #t "~% ~A ~A" k (list-ref mylist k)) (set! x (1+ x)) (set! y (1+ y)) )) -------------- next part -------------- An HTML attachment was scrubbed... URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20230907/2168650d/attachment-0001.html> ------------------------------ _______________________________________________ Cmdist mailing list Cmdist@ccrma.stanford.edu https://cm-mail.stanford.edu/mailman/listinfo/cmdist End of Cmdist Digest, Vol 184, Issue 1 **************************************
_______________________________________________ Cmdist mailing list Cmdist@ccrma.stanford.edu https://cm-mail.stanford.edu/mailman/listinfo/cmdist