blob: 6dd28b12b557d39988d688acbe63c4f1b8f78902 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
/*
* Copyright (C) 2000, Imperial College
*
* This file is part of the Imperial College Exact Real Arithmetic Library.
* See the copyright notice included in the distribution for conditions
* of use.
*/
#include <stdio.h>
#include "real.h"
Real
cosh_R(Real x)
{
Real r;
r = exp_R(x);
return tensor_Int(r, r, 1, 0, 0, 1, 0, 1, 1, 0);
}
|
