summaryrefslogtreecommitdiff
path: root/src/type/testDoubleComplex.c
blob: 4dbefe4f17d08d9ba479c45c1d9cf732659b52fe (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
/*
**  -*- C -*-
**
** main.c
** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
**
** Started on  Thu Nov 30 16:59:04 2006 jofret
** Last update Fri Mar 23 14:39:45 2007 jofret
**
** Copyright INRIA 2006
*/

#include <stdio.h>
#include <assert.h>
#include "doubleComplex.h"

int main(int argc, char **argv) {
  /* z = -3 + 25*%i */
  doubleComplex z = DoubleComplex(-3,25);
  printf("Partie reelle = %f\n", zreals(z));
  assert(zreals(z) == (double)-3);
  printf("Partie imaginaire = %f\n", zimags(z));
  assert(zimags(z) == (double)25);

  /* z = -3.123456 + 25.123456*%i */
  z = DoubleComplex(-3.123456,25.123456);
  printf("Partie reelle = %f\n", zreals(z));
  assert(zreals(z) == (double)-3.123456);
  printf("Partie imaginaire = %f\n", zimags(z));
  assert(zimags(z) == (double)25.123456);


  return 0;
}