Celestin Apprentice 4/Apprentice-Release4.iso/Languages/RLaB 1.18c/toolbox/angle.r

Text File | 1994-02-21 | 139 b | 10 lines | [TEXT/ttxt]

//
// Caclulate phase angle of a complex value.
// angle = atan2(imag,real)
//

angle = function(a)
{
  return atan2(imag(a), real(a));
};