123 lines
3.4 KiB
C++
123 lines
3.4 KiB
C++
#ifndef __COMPLEX_CC
|
||
#define __COMPLEX_CC
|
||
#pragma option push -b -a8 -pc -Vx- -Ve- -w-inl -w-aus -w-sig
|
||
|
||
/***************************************************************************
|
||
*
|
||
* complex - Declaration for the Standard Library complex class
|
||
*
|
||
***************************************************************************
|
||
*
|
||
* Copyright (c) 1994-1999 Rogue Wave Software, Inc. All Rights Reserved.
|
||
*
|
||
* This computer software is owned by Rogue Wave Software, Inc. and is
|
||
* protected by U.S. copyright laws and other laws and by international
|
||
* treaties. This computer software is furnished by Rogue Wave Software,
|
||
* Inc. pursuant to a written license agreement and may be used, copied,
|
||
* transmitted, and stored only in accordance with the terms of such
|
||
* license and with the inclusion of the above copyright notice. This
|
||
* computer software or any other copies thereof may not be provided or
|
||
* otherwise made available to any other person.
|
||
*
|
||
* U.S. Government Restricted Rights. This computer software is provided
|
||
* with Restricted Rights. Use, duplication, or disclosure by the
|
||
* Government is subject to restrictions as set forth in subparagraph (c)
|
||
* (1) (ii) of The Rights in Technical Data and Computer Software clause
|
||
* at DFARS 252.227-7013 or subparagraphs (c) (1) and (2) of the
|
||
* Commercial Computer Software – Restricted Rights at 48 CFR 52.227-19,
|
||
* as applicable. Manufacturer is Rogue Wave Software, Inc., 5500
|
||
* Flatiron Parkway, Boulder, Colorado 80301 USA.
|
||
*
|
||
**************************************************************************/
|
||
|
||
#include <stdcomp.h>
|
||
|
||
#ifdef _RW_STD_IOSTREAM
|
||
#include <sstream>
|
||
#endif
|
||
|
||
#ifndef _RWSTD_NO_NAMESPACE
|
||
namespace std {
|
||
#endif
|
||
|
||
template <class T>
|
||
complex<T> log10 (const complex<T>& a)
|
||
{
|
||
#ifndef _RWSTD_MULTI_THREAD
|
||
static
|
||
#endif
|
||
const T log10e = _RWSTD_C_SCOPE_LOG10(_RWSTD_C_SCOPE_EXP(T(1)));
|
||
return log10e * log(a);
|
||
}
|
||
|
||
#ifdef _RW_STD_IOSTREAM
|
||
template <class T,class charT, class traits>
|
||
basic_istream<charT, traits >&
|
||
_RWSTDExportTemplate operator>> (basic_istream<charT, traits >& is,complex<T>& x)
|
||
#else
|
||
template <class T>
|
||
istream& _RWSTDExportTemplate operator>> (istream& is, complex<T>& x)
|
||
#endif
|
||
{
|
||
//
|
||
// operator >> reads a complex number x in the form
|
||
// u
|
||
// (u)
|
||
// (u, v)
|
||
//
|
||
T u = 0, v = 0;
|
||
char c;
|
||
|
||
is >> c;
|
||
if (c == '(')
|
||
{
|
||
is >> u >> c;
|
||
if (c == ',') { is >> v >> c;}
|
||
if (c != ')' )
|
||
{
|
||
#ifdef _RW_STD_IOSTREAM
|
||
is.setstate(ios::failbit);
|
||
#else
|
||
is.clear(ios::failbit);
|
||
#endif
|
||
}
|
||
}
|
||
else
|
||
{
|
||
is.putback(c);
|
||
is >> u;
|
||
}
|
||
|
||
if (is)
|
||
x = complex<T>(u,v);
|
||
|
||
return is;
|
||
}
|
||
|
||
#ifdef _RW_STD_IOSTREAM
|
||
#include <sstream>
|
||
template <class T,class charT,class traits>
|
||
basic_ostream<charT,traits >& _RWSTDExportTemplate operator<< (basic_ostream<charT, traits >& os,const complex<T>& x)
|
||
{
|
||
basic_ostringstream<charT, traits, allocator<charT> > s;
|
||
s.flags(os.flags());
|
||
s.imbue(os.getloc());
|
||
s.precision(os.precision());
|
||
s << '(' << x.real() << "," << x.imag() << ')';
|
||
return os << s.str();
|
||
}
|
||
#else
|
||
template <class T>
|
||
ostream& _RWSTDExportTemplate operator<< (ostream& os, const complex<T>& x)
|
||
{
|
||
os << '(' << x.real() << "," << x.imag() << ')';
|
||
return os;
|
||
}
|
||
#endif
|
||
#ifndef _RWSTD_NO_NAMESPACE
|
||
}
|
||
#endif
|
||
|
||
#pragma option pop
|
||
#endif /* __COMPLEX_CC */
|