%---------------------------------------------------------------------------%
% Copyright (C) 1997-1998,2001 The University of Melbourne.
% This file may only be copied under the terms of the GNU Library General
% Public License - see the file COPYING.LIB in the Mercury distribution.
%---------------------------------------------------------------------------%
%
% File: float_imag.m.
% Main author: fjh.
% Stability: medium.
%
% This module provides binary operators on (float, imag).
%
% See also:
%	complex.m, imag.m, float.m, imag_float.m.
%
%---------------------------------------------------------------------------%

:- module complex_numbers:float_imag.
:- interface.
:- import_module float, complex_numbers:imag, complex_numbers:complex.

	% addition
:- func float + imag = complex.
:- mode in    + in   = uo  is det.

	% subtraction
:- func float - imag = complex.
:- mode in    - in   = uo  is det.

	% multiplication
:- func float * imag = imag.
:- mode in    * in   = uo  is det.

	% division
:- func float / imag = imag.
:- mode in    / in   = uo  is det.

%---------------------------------------------------------------------------%

:- implementation.

XR + im(YI) = cmplx(0.0 + XR, 0.0 + YI).
XR - im(YI) = cmplx(0.0 + XR, 0.0 - YI).
XR * im(YI) = im(XR * YI).
XR / im(YI) = im(0.0 - XR / YI).

%---------------------------------------------------------------------------%
%---------------------------------------------------------------------------%