mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-17 18:33:58 +00:00
d465fa53cb
Discussion of these changes can be found on the Mercury developers
mailing list archives from June 2018.
COPYING.LIB:
Add a special linking exception to the LGPL.
*:
Update references to COPYING.LIB.
Clean up some minor errors that have accumulated in copyright
messages.
62 lines
1.8 KiB
Mathematica
62 lines
1.8 KiB
Mathematica
%-----------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
%-----------------------------------------------------------------------------%
|
|
% Copyright (C) 1997-1998, 2001, 2004-2006 The University of Melbourne.
|
|
% Copyright (C) 2018 The Mercury team.
|
|
% This file is distributed under the terms specified in COPYING.LIB.
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
% 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 complex_numbers.complex.
|
|
:- import_module complex_numbers.imag.
|
|
|
|
:- import_module float.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
% 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).
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|