#!/usr/bin/env python def c8_atanh ( c ): #*****************************************************************************80 # ## C8_ATANH evaluates the inverse tangent of a C8. # # Discussion: # # Here we use the relationship: # # C8_ATANH ( Z ) = - i * C8_ATAN ( i * Z ). # # Licensing: # # This code is distributed under the GNU LGPL license. # # Modified: # # 12 February 2015 # # Author: # # John Burkardt # # Parameters: # # Input, complex C, the argument. # # Output, complex VALUE, the function value. # from c8_atan import c8_atan value = - 1j * c8_atan ( 1j * c ) return value def c8_atanh_test ( ): #*****************************************************************************80 # ## C8_ATANH_TEST tests C8_ATANH. # # Licensing: # # This code is distributed under the GNU LGPL license. # # Modified: # # 12 February 2015 # # Author: # # John Burkardt # import numpy as np from c8_tanh import c8_tanh from c8_uniform_01 import c8_uniform_01 print '' print 'C8_ATANH_TEST' print ' C8_ATANH computes the inverse hyperbolic tangent of a C8.' print '' print ' C1=C8_UNIFORM_01 C2=C8_ATANH(C1) C3=C8_TANH(C2)' print ' --------------------- --------------------- ---------------------' print '' seed = 123456789 for i in range ( 0, 10 ): c1, seed = c8_uniform_01 ( seed ) c2 = c8_atanh ( c1 ) c3 = c8_tanh ( c2 ); print ' (%12f,%12f) (%12f,%12f) (%12f,%12f)' \ % ( c1.real, c1.imag, c2.real, c2.imag, c3.real, c3.imag ) print '' print 'C8_ATANH_TEST:' print ' Normal end of execution.' return if ( __name__ == '__main__' ): from timestamp import timestamp timestamp ( ) c8_atanh_test ( ) timestamp ( )