mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-27 07:14:20 +00:00
1bac7f91fe
Estimated hours taken: 1 Branches: main, release Cleanups for the complex numbers library. extras/complex_numbers/*.m: extras/complex_numbers/samples/fft.m: extras/complex_numbers/tests/complex_test.m: Convert these modules to four-space indentation. Conform to our current coding standard.
74 lines
2.1 KiB
Mathematica
74 lines
2.1 KiB
Mathematica
%-----------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
%-----------------------------------------------------------------------------%
|
|
% Copyright (C) 1997-1998, 2001, 2004-2006 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: complex_float.m.
|
|
% Main author: fjh.
|
|
% Stability: medium.
|
|
|
|
% This module provides binary operators on (complex, float).
|
|
%
|
|
% See also: complex, float, complex_float.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- module complex_numbers.complex_float.
|
|
:- interface.
|
|
|
|
:- import_module complex_numbers.complex.
|
|
|
|
:- import_module float.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
% Addition.
|
|
%
|
|
:- func complex + float = complex.
|
|
:- mode in + in = uo is det.
|
|
|
|
% Subtraction.
|
|
%
|
|
:- func complex - float = complex.
|
|
:- mode in - in = uo is det.
|
|
|
|
% Multiplication.
|
|
%
|
|
:- func complex * float = complex.
|
|
:- mode in * in = uo is det.
|
|
|
|
% Division.
|
|
%
|
|
:- func complex / float = complex.
|
|
:- mode in / in = uo is det.
|
|
|
|
% Exponentiation.
|
|
%
|
|
:- func pow(complex, float) = complex.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module math.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
cmplx(XR, XI) + YR = cmplx(XR + YR, + XI).
|
|
cmplx(XR, XI) - YR = cmplx(XR - YR, + XI).
|
|
cmplx(XR, XI) * YR = cmplx(XR * YR, XI * YR).
|
|
cmplx(XR, XI) / YR = cmplx(XR / YR, XI / YR).
|
|
|
|
pow(Z0, P) = Z :-
|
|
complex_to_polar(Z0, L0, Th0),
|
|
L = math.pow(L0, P),
|
|
Th = Th0 * P,
|
|
Z = polar_to_complex(L, Th).
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|