CprintR   xtlang


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

Implementation

;; print rectangular
(bind-func CprintR
  (lambda (num:gsl_complex*)
    (if (< (Cimag num) 0.0)
  (printf "(%f - i%f)\n" (Creal num) (fabs (Cimag num)))
  (printf "(%f + i%f)\n" (Creal num) (Cimag num)))))


Back to Index