GNU Octave
4.0.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
Main Page
Namespaces
Classes
Files
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Properties
Friends
Macros
Pages
liboctave
cruft
amos
cshch.f
Go to the documentation of this file.
1
SUBROUTINE
cshch
(Z, CSH, CCH)
2
C***BEGIN PROLOGUE CSHCH
3
C***REFER TO CBESK,CBESH
4
C
5
C CSHCH COMPUTES THE COMPLEX HYPERBOLIC FUNCTIONS CSH=SINH(X+I*Y)
6
C AND CCH=COSH(X+I*Y), WHERE I**2=-1.
7
C
8
C***ROUTINES CALLED (NONE)
9
C***END PROLOGUE CSHCH
10
COMPLEX
CCH, CSH, Z
11
REAL
CCHI, CCHR, CH, CN, CSHI, CSHR, SH, SN, X, Y, COSH, SINH
12
x =
REAL
(z)
13
y = aimag(z)
14
sh = sinh(x)
15
ch = cosh(x)
16
sn =
sin
(y)
17
cn =
cos
(y)
18
cshr = sh*cn
19
cshi = ch*sn
20
csh =
cmplx
(cshr,cshi)
21
cchr = ch*cn
22
cchi = sh*sn
23
cch =
cmplx
(cchr,cchi)
24
RETURN
25
END
cmplx
double complex cmplx
Definition:
Faddeeva.cc:226
octave_value::sin
octave_value sin(void) const
Definition:
ov.h:1198
octave_value::cos
octave_value cos(void) const
Definition:
ov.h:1170
cshch
subroutine cshch(Z, CSH, CCH)
Definition:
cshch.f:1
Generated on Thu Jun 4 2015 23:30:23 for GNU Octave by
1.8.8