tanh_valarray.pass.cpp
1.37 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
//===----------------------------------------------------------------------===//
//
// 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;
}