Vdot   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/contrib/gsl.xtm

Implementation

(bind-func Vdot
  (lambda (v1 v2)
    (let ((size:size_t (tref v1 0))
    (i:size_t 0)
    (tot 0.0)
    (v3 (Vmul v1 v2)))
      (dotimes (i size)
  (set! tot (+ tot (gsl_vector_get v3 i))))
      tot)))


Back to Index

Similar Entries