qpms/vecprint.c

   1 #include <assert.h>
   2 #include "vectors.h"
   3 #include "complex.h"
   4 #include <stdio.h>
   5
   6 void print_csphvec(csphvec_t v)
   7 {
   8   printf("(%g+%gj)r̂ + (%g+%gj)θ̂ + (%g+%gj)φ̂",
   9       creal(v.rc), cimag(v.rc),
  10       creal(v.thetac), cimag(v.thetac),
  11       creal(v.phic), cimag(v.phic)
  12       );
  13 }
  14
  15
  16 void print_cart3(cart3_t v)
  17 {
  18   printf("%gx̂ + %gŷ + %gẑ", v.x, v.y, v.z);
  19 }
  20
  21 void print_ccart3(ccart3_t v)
  22 {
  23   printf("(%g+%gj)x̂ + (%g+%gj)ŷ + (%g+%gj)ẑ",
  24       creal(v.x), cimag(v.x),
  25       creal(v.y), cimag(v.y),
  26       creal(v.z), cimag(v.z)
  27       );
  28 }
  29
  30 void print_sph(sph_t r)
  31 {
  32   printf("(r=%g, θ=%g, φ=%g)", r.r, r.theta, r.phi);
  33 }