LibreOffice Module sc (master)  1
opinlinefun_math.hxx
Go to the documentation of this file.
1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 /*
3  * This file is part of the LibreOffice project.
4  *
5  * This Source Code Form is subject to the terms of the Mozilla Public
6  * License, v. 2.0. If a copy of the MPL was not distributed with this
7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8  */
9 
10 #ifndef INCLUDED_SC_SOURCE_CORE_OPENCL_OPINLINEFUN_MATH_HXX
11 #define INCLUDED_SC_SOURCE_CORE_OPENCL_OPINLINEFUN_MATH_HXX
12 
13 std::string Math_Intg_Str=
14 "\ndouble Intg(double n)\n\
15 {\n\
16  if(trunc(n)==n )\n\
17  return n;\n\
18  else if(n<0)\n\
19  return trunc(n)-1;\n\
20  else\n\
21  return trunc(n)+1;\n\
22 }\n";
23 
24 std::string bikDecl = "double bik(double n,double k);\n";
25 std::string bik =
26 "double bik(double n,double k)\n"
27 "{\n"
28 " double nVal1 = n;\n"
29 " double nVal2 = k;\n"
30 " n = n - 1;\n"
31 " k = k - 1;\n"
32 " while (k > 0)\n"
33 " {\n"
34 " nVal1 = nVal1 * n;\n"
35 " nVal2 = nVal2 * k;\n"
36 " k = k - 1;\n"
37 " n = n - 1;\n"
38 " }\n"
39 " return (nVal1 / nVal2);\n"
40 "}\n";
41 
42 std::string local_cothDecl = "double local_coth(double n);\n";
43 std::string local_coth =
44 "double local_coth(double n)\n"
45 "{\n"
46 " double a = exp(n);\n"
47 " double b = exp(-n);\n"
48 " double nVal = (a + b) / (a - b);\n"
49 " return nVal;\n"
50 "}\n";
51 
52 std::string local_coshDecl = "double local_cosh(double n);\n";
53 std::string local_cosh =
54 "double local_cosh(double n)\n"
55 "{\n"
56 " double nVal = (exp(n) + exp(-n)) / 2;\n"
57 " return nVal;\n"
58 "}\n";
59 std::string atan2Decl = "double arctan2(double y, double x);\n";
60 std::string atan2Content =
61 "double arctan2(double y, double x)\n"
62 "{\n"
63 " if(y==0.0)\n"
64 " return 0.0;\n"
65 " double a,num,den,tmpPi;\n"
66 " int flag;\n"
67 " tmpPi = 0;\n"
68 " if (fabs(x) >= fabs(y))\n"
69 " {\n"
70 " num = y;\n"
71 " den = x;\n"
72 " flag = 1;\n"
73 " if (x < 0.0)\n"
74 " tmpPi = M_PI;\n"
75 " }\n"
76 " if(fabs(x) < fabs(y))\n"
77 " {\n"
78 " num = x;\n"
79 " den = y;\n"
80 " flag = -1;\n"
81 " tmpPi = M_PI_2;\n"
82 " }\n"
83 " a = atan(num/den);\n"
84 " a = flag==1?a:-a;\n"
85 " a = a + (y >= 0.0 ? tmpPi : -tmpPi);\n"
86 " return a;\n"
87 "}\n";
88 
89 #endif // INCLUDED_SC_SOURCE_CORE_OPENCL_OPINLINEFUN_MATH_HXX
90 
91 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
std::string Math_Intg_Str
std::string local_coth
std::string atan2Content
std::string bik
std::string local_cosh
std::string atan2Decl
std::string local_cothDecl
std::string bikDecl
std::string local_coshDecl