(use srfi-4-utils)

(define xx1 (f64vector-repmat (f64vector 1 2 3) (list 1 3) (list 3 1)))
(print "xx1 = " xx1)
(define xx2 (f64vector-repmat xx1 (list 3 3) (list 1 1 3)))
(print "xx2 = " xx2) 
(print (f64vector-meshgrid (f64vector 1 2 3 5) (f64vector 5 6 7 8) (f64vector 9 10 11 12)))