You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
koffice/kspread/kspread_functions_trig.cc

195 lines
5.4 KiB

/* This file is part of the KDE project
Copyright (C) 1998-2002 The KSpread Team
www.koffice.org/kspread
Copyright (C) 2005 Tomas Mecir <mecirt@gmail.com>
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public License
along with this library; see the file COPYING.LIB. If not, write to
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301, USA.
*/
// built-in trigonometric functions
#include "functions.h"
#include "valuecalc.h"
using namespace KSpread;
// prototypes (sort alphabetically)
Value func_acos (valVector args, ValueCalc *calc, FuncExtra *);
Value func_acosh (valVector args, ValueCalc *calc, FuncExtra *);
Value func_acot (valVector args, ValueCalc *calc, FuncExtra *);
Value func_asinh (valVector args, ValueCalc *calc, FuncExtra *);
Value func_asin (valVector args, ValueCalc *calc, FuncExtra *);
Value func_atan (valVector args, ValueCalc *calc, FuncExtra *);
Value func_atan2 (valVector args, ValueCalc *calc, FuncExtra *);
Value func_atanh (valVector args, ValueCalc *calc, FuncExtra *);
Value func_cos (valVector args, ValueCalc *calc, FuncExtra *);
Value func_cosh (valVector args, ValueCalc *calc, FuncExtra *);
Value func_degrees (valVector args, ValueCalc *calc, FuncExtra *);
Value func_radians (valVector args, ValueCalc *calc, FuncExtra *);
Value func_sin (valVector args, ValueCalc *calc, FuncExtra *);
Value func_sinh (valVector args, ValueCalc *calc, FuncExtra *);
Value func_tan (valVector args, ValueCalc *calc, FuncExtra *);
Value func_tanh (valVector args, ValueCalc *calc, FuncExtra *);
Value func_pi (valVector args, ValueCalc *calc, FuncExtra *);
// registers all trigonometric functions
void RegisterTrigFunctions()
{
FunctionRepository* repo = FunctionRepository::self();
Function *f;
f = new Function ("ACOS", func_acos);
repo->add (f);
f = new Function ("ACOSH", func_acosh);
repo->add (f);
f = new Function ("ACOT", func_acot);
repo->add (f);
f = new Function ("ASIN", func_asin);
repo->add (f);
f = new Function ("ASINH", func_asinh);
repo->add (f);
f = new Function ("ATAN", func_atan);
repo->add (f);
f = new Function ("ATAN2", func_atan2);
f->setParamCount (2);
repo->add (f);
f = new Function ("ATANH", func_atanh);
repo->add (f);
f = new Function ("COS", func_cos);
repo->add (f);
f = new Function ("COSH", func_cosh);
repo->add (f);
f = new Function ("DEGREES",func_degrees);
repo->add (f);
f = new Function ("RADIANS",func_radians);
repo->add (f);
f = new Function ("SIN", func_sin);
repo->add (f);
f = new Function ("SINH", func_sinh);
repo->add (f);
f = new Function ("TAN", func_tan);
repo->add (f);
f = new Function ("TANH", func_tanh);
repo->add (f);
f = new Function ("PI", func_pi);
f->setParamCount (0);
repo->add (f);
}
// Function: sin
Value func_sin (valVector args, ValueCalc *calc, FuncExtra *)
{
return calc->sin (args[0]);
}
// Function: cos
Value func_cos (valVector args, ValueCalc *calc, FuncExtra *)
{
return calc->cos (args[0]);
}
// Function: tan
Value func_tan (valVector args, ValueCalc *calc, FuncExtra *)
{
return calc->tg (args[0]);
}
// Function: atan
Value func_atan (valVector args, ValueCalc *calc, FuncExtra *)
{
return calc->atg (args[0]);
}
// Function: asin
Value func_asin (valVector args, ValueCalc *calc, FuncExtra *)
{
return calc->asin (args[0]);
}
// Function: acos
Value func_acos (valVector args, ValueCalc *calc, FuncExtra *)
{
return calc->acos (args[0]);
}
Value func_acot (valVector args, ValueCalc *calc, FuncExtra *)
{
// PI/2 - atg (val)
return calc->sub (calc->div (calc->pi(), 2), calc->atg (args[0]));
}
// Function: asinh
Value func_asinh (valVector args, ValueCalc *calc, FuncExtra *)
{
return calc->asinh (args[0]);
}
// Function: acosh
Value func_acosh (valVector args, ValueCalc *calc, FuncExtra *)
{
return calc->acosh (args[0]);
}
// Function: atanh
Value func_atanh (valVector args, ValueCalc *calc, FuncExtra *)
{
return calc->atgh (args[0]);
}
// Function: tanh
Value func_tanh (valVector args, ValueCalc *calc, FuncExtra *)
{
return calc->tgh (args[0]);
}
// Function: sinh
Value func_sinh (valVector args, ValueCalc *calc, FuncExtra *)
{
return calc->sinh (args[0]);
}
// Function: cosh
Value func_cosh (valVector args, ValueCalc *calc, FuncExtra *)
{
return calc->cosh (args[0]);
}
// Function: DEGREES
Value func_degrees (valVector args, ValueCalc *calc, FuncExtra *)
{
// val * 180 / pi
return calc->div (calc->mul (args[0], 180.0), calc->pi());
}
// Function: RADIANS
Value func_radians (valVector args, ValueCalc *calc, FuncExtra *)
{
// val * pi / 180
return calc->mul (calc->div (args[0], 180.0), calc->pi());
}
// Function: PI
Value func_pi (valVector, ValueCalc *calc, FuncExtra *)
{
return calc->pi();
}
// Function: atan2
Value func_atan2 (valVector args, ValueCalc *calc, FuncExtra *)
{
return calc->atan2 (args[1], args[0]);
}