recob.fun 490 B

1234567891011121314151617181920
  1. #import std
  2. #import nat
  3. #import plo
  4. #import flo
  5. #import ren
  6. #import tbl
  7. #output dot'tex' table3
  8. recob =
  9. ~&H\recommended_observers vwrap2+ -+
  10. //~& <
  11. <'code'>^: <>,
  12. <'coordinates'>^: <<'$x$'>^: <>,<'$y$'>^: <>,<'$z$'>^: <>>,
  13. <'angle (deg.)'>^: <<'$\theta$'>^: <>,<'$\phi$'>^: <>>>,
  14. ~&K7+ * :^/('\verb|'--+ --'|'+ ~&l) ~&r; ^T/~& -+
  15. printf/*'%0.0f'+ div\*pi+ times/*180.+ <.math..atan2+ ~&thPhX,math..atan2^/~&tth math..hypot+ ~&hthPX>,
  16. minus\*0.5+-+-