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
zshch.f
Go to the documentation of this file.
1
SUBROUTINE
zshch
(ZR, ZI, CSHR, CSHI, CCHR, CCHI)
2
C***BEGIN PROLOGUE ZSHCH
3
C***REFER TO ZBESK,ZBESH
4
C
5
C ZSHCH 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 ZSHCH
10
C
11
DOUBLE PRECISION
CCHI, CCHR, CH, CN, CSHI, CSHR, SH, SN, ZI, ZR,
12
* dcosh, dsinh
13
sh = dsinh(zr)
14
ch = dcosh(zr)
15
sn = dsin(zi)
16
cn = dcos(zi)
17
cshr = sh*cn
18
cshi = ch*sn
19
cchr = ch*cn
20
cchi = sh*sn
21
RETURN
22
END
zshch
subroutine zshch(ZR, ZI, CSHR, CSHI, CCHR, CCHI)
Definition:
zshch.f:1
Generated on Thu Jun 4 2015 23:30:23 for GNU Octave by
1.8.8