Arithmetic/Complex: Difference between revisions

=={{header|Ada}}==

with Ada.Text_IO.Complex_IO;

C := Conjugate (C);

end Complex_Operations;

=={{header|ALGOL 68}}==

{{works with|C99}}

The more recent [[C99]] standard has built-in complex number primitive types, which can be declared with float, double, or long double precision. To use these types and their associated library functions, you must include the <complex.h> header. (Note: this is a ''different'' header than the <complex> templates that are defined by [[C++]].) [http://www.opengroup.org/onlinepubs/009695399/basedefs/complex.h.html] [http://publib.boulder.ibm.com/infocenter/pseries/v5r3/index.jsp?topic=/com.ibm.vacpp7a.doc/language/ref/clrc03complex_types.htm]

#include <complex.h>

printf("\n-a="); cprint(c); printf("\n");

}

{{works with|C89}}

User-defined type:

double real;

double imag;

printf("\n-a="); put(neg(a)); printf("\n");

}

=={{header|C++}}==

#include <iostream>

#include <complex>

std::cout << -a << std::endl;

}

=={{header|Common Lisp}}==

> (sqrt -1)

#C(0 -1/2)

> (complex 64 (/ 3 4))

=={{header|D}}==

Complex number is a D built-in type.

auto y = 3.14159+1.2i ; // cdouble

creal z ;

z = 1.0 / x ; writefln(z) ; // => 0.5+-0.5i

// negation

=={{header|Forth}}==

=={{header|Java}}==

public final double real;

public final double imag;

System.out.println(a.mult(b));

}

=={{header|Maple}}==

=={{header|OCaml}}==

The "Complex" module provides the functionality of complex numbers.

let print_complex z =

print_complex (mul a b);

print_complex (inv a);

=={{header|Pascal}}==

program showcomplex(output);

writeln

end.

=={{header|Perl}}==

The Math::Complex module provides the functionality of complex numbers.

$a = 1 + 1*i;

$c = $a * $b;

$c = 1 / $a;

=={{header|Pop11}}==

=={{header|Python}}==

b = 3.14159 + 1.25j

c = a * b

c = 1 / a

=={{header|Ruby}}==

a = Complex(1, 1)

c = a * b

c = 1.0 / a

=={{header|Scheme}}==

(define b (make-rectangular 3.14159 1.25))

(define c (* a b))

(define c (/ 1 a))