with-units-init.scm 2.7 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. (assign-operation 'type u:type with-units?)
  2. (assign-operation 'arity u:arity with-units?)
  3. (assign-operation 'zero-like u:zero-like with-units?)
  4. (assign-operation 'one-like u:one-like with-units?)
  5. (assign-operation 'zero? u:zero? with-units?)
  6. (assign-operation 'negate u:negate with-units?)
  7. (assign-operation 'invert u:invert with-units?)
  8. (assign-operation 'sqrt u:sqrt with-units?)
  9. (assign-operation '= u:= with-units? with-units?)
  10. (assign-operation '< u:< with-units? with-units?)
  11. (assign-operation '<= u:<= with-units? with-units?)
  12. (assign-operation '> u:> with-units? with-units?)
  13. (assign-operation '>= u:>= with-units? with-units?)
  14. (assign-operation '+ u:+ with-units? not-differential-or-compound?)
  15. (assign-operation '+ u:+ not-differential-or-compound? with-units?)
  16. (assign-operation '- u:- with-units? not-differential-or-compound?)
  17. (assign-operation '- u:- not-differential-or-compound? with-units?)
  18. (assign-operation '* u:* with-units? not-differential-or-compound?)
  19. (assign-operation '* u:* not-differential-or-compound? with-units?)
  20. (assign-operation '* u:*u with-units? units?)
  21. (assign-operation '* u:u* units? with-units?)
  22. (assign-operation '* u:t*u not-d-c-u? units?)
  23. (assign-operation '* u:u*t units? not-d-c-u?)
  24. (assign-operation '/ u:/ with-units? not-differential-or-compound?)
  25. (assign-operation '/ u:/ not-differential-or-compound? with-units?)
  26. (assign-operation '/ u:/u with-units? units?)
  27. (assign-operation '/ u:u/ units? with-units?)
  28. (assign-operation '/ u:t/u not-d-c-u? units?)
  29. (assign-operation '/ u:u/t units? not-d-c-u?)
  30. (assign-operation 'expt u:expt with-units? not-differential-or-compound?)
  31. (assign-operation 'make-rectangular u:make-rectangular with-units? with-units?)
  32. (assign-operation 'make-polar u:make-polar with-units? any?)
  33. (assign-operation 'real-part u:real-part with-units?)
  34. (assign-operation 'imag-part u:imag-part with-units?)
  35. (assign-operation 'magnitude u:magnitude with-units?)
  36. (assign-operation 'angle u:angle with-units?)
  37. (assign-operation 'conjugate u:conjugate with-units?)
  38. (assign-operation 'atan2 u:atan2 with-units? with-units?)