Kaydet (Commit) b884c2e0 authored tarafından Regina Henschel's avatar Regina Henschel Kaydeden (comit) Eike Rathke

resolved fdo#60078 correctly calculate IMCSCH and IMSECH

For the transformation used see
http://de.wikipedia.org/wiki/Sekans_Hyperbolicus_und_Kosekans_Hyperbolicus#Komplexes_Argument
(German only)

Change-Id: If502b7333308069d7fcbe09e954b26ce8b7268b6
üst 78776388
...@@ -2075,8 +2075,8 @@ void Complex::Sech(void) THROWDEF_RTE_IAE ...@@ -2075,8 +2075,8 @@ void Complex::Sech(void) THROWDEF_RTE_IAE
THROW_IAE; THROW_IAE;
double fScale =1.0 / ( cosh( 2.0 * r ) + cos( 2.0 * i )); double fScale =1.0 / ( cosh( 2.0 * r ) + cos( 2.0 * i ));
double r_; double r_;
r_ = 2.0 * cosh( 2.0 * r ) * cos( i ) * fScale; r_ = 2.0 * cosh( r ) * cos( i ) * fScale;
i = - (2.0 * sinh( 2.0 * r ) * sin( i ) * fScale ); i = - (2.0 * sinh( r ) * sin( i ) * fScale );
r = r_ ; r = r_ ;
} }
else else
...@@ -2096,8 +2096,8 @@ void Complex::Csch(void) THROWDEF_RTE_IAE ...@@ -2096,8 +2096,8 @@ void Complex::Csch(void) THROWDEF_RTE_IAE
THROW_IAE; THROW_IAE;
double fScale =1.0 / ( cosh( 2.0 * r ) - cos( 2.0 * i )); double fScale =1.0 / ( cosh( 2.0 * r ) - cos( 2.0 * i ));
double r_; double r_;
r_ = 2.0 * sinh( 2.0 * r ) * cos( i ) * fScale; r_ = 2.0 * sinh( r ) * cos( i ) * fScale;
i = - ( 2.0 * cosh( 2.0 * r ) * sin( i ) * fScale ); i = - ( 2.0 * cosh( r ) * sin( i ) * fScale );
r = r_ ; r = r_ ;
} }
else else
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment