~steve-sk2/mingw-w64/oneiric

« back to all changes in this revision

Viewing changes to mingw-w64-crt/complex/csinhf.c

  • Committer: Bazaar Package Importer
  • Author(s): Stephen Kitt
  • Date: 2010-11-18 00:04:46 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20101118000446-xe24b423su55onyl
Tags: 1.0+20101003-1
* New maintainer. (Closes: #594371.)
* New upstream snapshot:
  - Includes getopt.h. (Closes: #569914.)
* Build g++ for Win64. (Closes: #600451.)
* Standards-Version 3.9.1 (new packaging).
* Include patch from
  http://mingw-w64.svn.sourceforge.net/viewvc/mingw-w64?view=revision&revision=3715
  as suggested by Rafaël Carré.

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
/**
2
 
 * This file has no copyright assigned and is placed in the Public Domain.
3
 
 * This file is part of the w64 mingw-runtime package.
4
 
 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
5
 
 */
6
 
/*
7
 
   Contributed by Danny Smith
8
 
   2004-12-24
9
 
*/
10
 
 
11
 
 
12
 
#include <math.h>
13
 
#include <complex.h>
14
 
 
15
 
/* csinh (x + I * y) = sinh (x) * cos (y)
16
 
    + I * (cosh (x) * sin (y)) */ 
17
 
 
18
 
 
19
 
float complex csinhf (float complex Z)
20
 
{
21
 
  float complex Res;
22
 
  __real__ Res = sinhf (__real__ Z) * cosf (__imag__ Z);
23
 
  __imag__ Res = coshf (__real__ Z) * sinf (__imag__ Z);
24
 
  return Res;
25
 
}
 
1
/**
 
2
 * This file has no copyright assigned and is placed in the Public Domain.
 
3
 * This file is part of the w64 mingw-runtime package.
 
4
 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
 
5
 */
 
6
/*
 
7
   Contributed by Danny Smith
 
8
   2004-12-24
 
9
*/
 
10
 
 
11
 
 
12
#include <math.h>
 
13
#include <complex.h>
 
14
 
 
15
/* csinh (x + I * y) = sinh (x) * cos (y)
 
16
    + I * (cosh (x) * sin (y)) */ 
 
17
 
 
18
 
 
19
float complex csinhf (float complex Z)
 
20
{
 
21
  float complex Res;
 
22
  __real__ Res = sinhf (__real__ Z) * cosf (__imag__ Z);
 
23
  __imag__ Res = coshf (__real__ Z) * sinf (__imag__ Z);
 
24
  return Res;
 
25
}