mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-25 06:14:18 +00:00
d23f11ac33
Estimated hours taken: 0.75 Use sub-modules to package up the modules in extras/complex_numbers into a single module. extras/complex_numbers/complex_lib.m: extras/complex_numbers/complex_numbers.m: Rename complex_lib.m as complex_numbers.m, and modify it to use sub-modules. extras/complex_numbers/*.m: extras/complex_numbers/tests/complex_test.m: extras/complex_numbers/samples/fft.m: Add `complex_numbers:' to all of the `:- module' and `:- import_module' declarations. extras/complex_numbers/Mmakefile: extras/complex_numbers/tests/Mmakefile: extras/complex_numbers/samples/Mmakefile: Modify to reflect the renaming from `complex_lib' to `complex_numbers'.
79 lines
2.4 KiB
Mathematica
79 lines
2.4 KiB
Mathematica
% A test case for arithmetic on complex, imag, and float.
|
|
|
|
:- module complex_test.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(state::di, state::uo) is det.
|
|
|
|
:- implementation.
|
|
:- import_module float.
|
|
:- import_module complex_numbers.
|
|
:- import_module complex_numbers:complex, complex_numbers:imag.
|
|
:- import_module complex_numbers:complex_imag, complex_numbers:imag_complex.
|
|
:- import_module complex_numbers:float_imag, complex_numbers:imag_float.
|
|
|
|
main -->
|
|
print("tests of (complex op complex)"), nl,
|
|
{ X = 3.0 + 4.0 * i},
|
|
print("X = "), print(X), nl,
|
|
print("X + X = "), print(X + X), nl,
|
|
print("X - X = "), print(X - X), nl,
|
|
print("X * X = "), print(X * X), nl,
|
|
print("X / X = "), print(X / X), nl,
|
|
{ Y = - 5.0 + 6.0 * i},
|
|
print("Y = "), print(Y), nl,
|
|
print("Y + Y = "), print(Y + Y), nl,
|
|
print("Y - Y = "), print(Y - Y), nl,
|
|
print("Y * Y = "), print(Y * Y), nl,
|
|
print("Y / Y = "), print(Y / Y), nl,
|
|
print("X + Y = "), print(X + Y), nl,
|
|
print("X - Y = "), print(X - Y), nl,
|
|
print("X * Y = "), print(X * Y), nl,
|
|
print("X / Y = "), print(X / Y), nl,
|
|
nl,
|
|
|
|
print("tests of (imag op imag)"), nl,
|
|
{ Z = 4.0 * i},
|
|
print("Z = "), print(Z), nl,
|
|
print("Z + Z = "), print(Z + Z), nl,
|
|
print("Z - Z = "), print(Z - Z), nl,
|
|
print("Z * Z = "), print(Z * Z), nl,
|
|
print("Z / Z = "), print(Z / Z), nl,
|
|
nl,
|
|
|
|
print("tests of (float op imag)"), nl,
|
|
print("5.0 + Z = "), print(5.0 + Z), nl,
|
|
print("5.0 - Z = "), print(5.0 - Z), nl,
|
|
print("5.0 * Z = "), print(5.0 * Z), nl,
|
|
print("5.0 / Z = "), print(5.0 / Z), nl,
|
|
nl,
|
|
|
|
print("tests of (imag op float)"), nl,
|
|
print("Z + 5.0 = "), print(Z + 5.0), nl,
|
|
print("Z - 5.0 = "), print(Z - 5.0), nl,
|
|
print("Z * 5.0 = "), print(Z * 5.0), nl,
|
|
print("Z / 5.0 = "), print(Z / 5.0), nl,
|
|
nl,
|
|
|
|
print("tests of (complex op imag)"), nl,
|
|
print("X + Z = "), print(X + Z), nl,
|
|
print("X - Z = "), print(X - Z), nl,
|
|
print("X * Z = "), print(X * Z), nl,
|
|
print("X / Z = "), print(X / Z), nl,
|
|
print("Y + Z = "), print(Y + Z), nl,
|
|
print("Y - Z = "), print(Y - Z), nl,
|
|
print("Y * Z = "), print(Y * Z), nl,
|
|
print("Y / Z = "), print(Y / Z), nl,
|
|
nl,
|
|
|
|
print("tests of (imag op complex)"), nl,
|
|
print("Z + X = "), print(Z + X), nl,
|
|
print("Z - X = "), print(Z - X), nl,
|
|
print("Z * X = "), print(Z * X), nl,
|
|
print("Z / X = "), print(Z / X), nl,
|
|
print("Z + Y = "), print(Z + Y), nl,
|
|
print("Z - Y = "), print(Z - Y), nl,
|
|
print("Z * Y = "), print(Z * Y), nl,
|
|
print("Z / Y = "), print(Z / Y), nl.
|