Complex_subtraction_bybuf   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/math.xtm

Implementation

(bind-func Complex_subtraction_bybuf
  (lambda (a:Complexf* b:Complexf* c:Complexf* len:i64)
    (if (evenp len)
        (let ((aa:/4,float/* (cast a))
              (bb:/4,float/* (cast b))
              (cc:/4,float/* (cast c))
              (k 0))
          (dotimes (k (/ len 2))
            (pset! cc k (- (pref-ptr aa k) (pref-ptr bb k)))
            void))
        (let ((i 0))
          (dotimes (i len)
            (tset! (pref-ptr c i) 0
                   (- (tref (pref-ptr a i) 0)
                      (tref (pref-ptr b i) 0)))
            (tset! (pref-ptr c i) 1
                   (- (tref (pref-ptr a i) 1)
                      (tref (pref-ptr b i) 1))))
          void))))


Back to Index

Similar Entries

  • Complex_addition_bybuf    xtlang
  • Complex_addition_bybuf    xtlang
  • Complex_bufferize    xtlang
  • Complex_bufferize    xtlang
  • Complex_bufferize    xtlang
  • Complex_bufferize    xtlang
  • Complex_conj    xtlang
  • Complex_conj    xtlang
  • Complex_division_bybuf    xtlang
  • Complex_division_bybuf    xtlang
  • Complex_mag    xtlang
  • Complex_mag    xtlang
  • Complex_multiplication_bybuf    xtlang
  • Complex_multiplication_bybuf    xtlang
  • Complex_multiplication_polar    xtlang
  • Complex_phase    xtlang
  • Complex_phase    xtlang
  • Complex_phase2    xtlang
  • Complex_subtraction_bybuf    xtlang
  • Complex_unbufferize    xtlang
  • Complex_unbufferize    xtlang
  • Complex_unbufferize    xtlang
  • Complex_unbufferize    xtlang
  • GSL_SET_COMPLEX    xtlang
  • complex?    scheme
  • impc:ir:complex-type?    scheme
  • impc:ti:complex-type?    scheme
  • impc:ti:complex-unify    scheme
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang
  • xtm_subtraction    xtlang