/src/lib/numeric/complex_math.e

 1-- This file is part of a Liberty Eiffel library.
 2-- See the full copyright at the end.
 3--
 4deferred class COMPLEX_MATH[A_PRECISION->FLOAT]
 5
 6feature {ANY} --
 7   complex (a_real, an_imaginary: A_PRECISION): COMPLEX_GENERAL[A_PRECISION]
 8      do
 9         Result.set(a_real,an_imaginary)
10      end
11
12feature {ANY} -- Complex constants:
13   i: COMPLEX_GENERAL[A_PRECISION]
14         -- complex i
15      local
16         a_number: A_PRECISION
17      do
18         Result.set(a_number.zero, a_number.one)
19      end
20
21end -- class COMPLEX_MATH
22--
23-- Copyright (C) 2011-2017: Paolo Redaelli
24--
25-- Permission is hereby granted, free of charge, to any person obtaining a copy
26-- of this software and associated documentation files (the "Software"), to deal
27-- in the Software without restriction, including without limitation the rights
28-- to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
29-- copies of the Software, and to permit persons to whom the Software is
30-- furnished to do so, subject to the following conditions:
31--
32-- The above copyright notice and this permission notice shall be included in
33-- all copies or substantial portions of the Software.
34--
35-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
36-- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
37-- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
38-- AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
39-- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
40-- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
41-- THE SOFTWARE.