You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
56 lines
1.4 KiB
C++
56 lines
1.4 KiB
C++
//===----------------------------------------------------------------------===//
|
|
//
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
// <valarray>
|
|
|
|
// template<class T> class valarray;
|
|
|
|
// template<class T>
|
|
// valarray<T>
|
|
// tanh(const valarray<T>& x);
|
|
|
|
#include <valarray>
|
|
#include <cassert>
|
|
#include <sstream>
|
|
#include <cstddef>
|
|
|
|
#include "test_macros.h"
|
|
|
|
bool is_about(double x, double y, int p)
|
|
{
|
|
std::ostringstream o;
|
|
o.precision(p);
|
|
scientific(o);
|
|
o << x;
|
|
std::string a = o.str();
|
|
o.str("");
|
|
o << y;
|
|
return a == o.str();
|
|
}
|
|
|
|
int main(int, char**)
|
|
{
|
|
{
|
|
typedef double T;
|
|
T a1[] = {-.9, -.5, 0., .5, .75};
|
|
T a3[] = {-7.1629787019902447e-01,
|
|
-4.6211715726000974e-01,
|
|
0.0000000000000000e+00,
|
|
4.6211715726000974e-01,
|
|
6.3514895238728730e-01};
|
|
const unsigned N = sizeof(a1)/sizeof(a1[0]);
|
|
std::valarray<T> v1(a1, N);
|
|
std::valarray<T> v3 = tanh(v1);
|
|
assert(v3.size() == v1.size());
|
|
for (std::size_t i = 0; i < v3.size(); ++i)
|
|
assert(is_about(v3[i], a3[i], 10));
|
|
}
|
|
|
|
return 0;
|
|
}
|