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.
1145 lines
32 KiB
1145 lines
32 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 math functions
|
|
|
|
#include <kdebug.h>
|
|
#include <klocale.h>
|
|
|
|
#include "functions.h"
|
|
#include "valuecalc.h"
|
|
#include "valueconverter.h"
|
|
|
|
// these two are needed for SUBTOTAL:
|
|
#include "kspread_cell.h"
|
|
#include "kspread_sheet.h"
|
|
|
|
// needed for RANDBINOM and so
|
|
#include <math.h>
|
|
|
|
using namespace KSpread;
|
|
|
|
// RANDBINOM and RANDNEGBINOM won't support arbitrary precision
|
|
|
|
// prototypes
|
|
Value func_abs (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_ceil (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_ceiling (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_count (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_counta (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_countblank (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_countif (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_cur (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_div (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_eps (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_even (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_exp (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_fact (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_factdouble (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_fib (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_floor (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_gcd (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_int (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_inv (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_kproduct (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_lcm (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_ln (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_log2 (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_log10 (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_logn (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_max (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_maxa (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_mdeterm (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_min (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_mina (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_mmult (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_mod (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_mround (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_mult (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_multinomial (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_odd (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_pow (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_quotient (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_product (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_rand (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_randbetween (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_randbernoulli (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_randbinom (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_randexp (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_randnegbinom (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_randnorm (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_randpoisson (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_rootn (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_round (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_rounddown (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_roundup (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_sign (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_sqrt (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_sqrtpi (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_subtotal (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_sum (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_suma (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_sumif (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_sumsq (valVector args, ValueCalc *calc, FuncExtra *);
|
|
Value func_trunc (valVector args, ValueCalc *calc, FuncExtra *);
|
|
|
|
|
|
// Value func_multipleOP (valVector args, ValueCalc *calc, FuncExtra *);
|
|
|
|
// registers all math functions
|
|
void RegisterMathFunctions()
|
|
{
|
|
FunctionRepository* repo = FunctionRepository::self();
|
|
Function *f;
|
|
|
|
/*
|
|
f = new Function ("MULTIPLEOPERATIONS", func_multipleOP);
|
|
repo->add (f);
|
|
*/
|
|
|
|
// functions that don't take array parameters
|
|
f = new Function ("ABS", func_abs);
|
|
repo->add (f);
|
|
f = new Function ("CEIL", func_ceil);
|
|
repo->add (f);
|
|
f = new Function ("CEILING", func_ceiling);
|
|
f->setParamCount (1, 2);
|
|
repo->add (f);
|
|
f = new Function ("CUR", func_cur);
|
|
repo->add (f);
|
|
f = new Function ("EPS", func_eps);
|
|
f->setParamCount (0);
|
|
repo->add (f);
|
|
f = new Function ("EVEN", func_even);
|
|
repo->add (f);
|
|
f = new Function ("EXP", func_exp);
|
|
repo->add (f);
|
|
f = new Function ("FACT", func_fact);
|
|
repo->add (f);
|
|
f = new Function ("FACTDOUBLE", func_factdouble);
|
|
repo->add (f);
|
|
f = new Function ("FIB", func_fib); // KSpread-specific, like Quattro-Pro's FIB
|
|
repo->add (f);
|
|
f = new Function ("FLOOR", func_floor);
|
|
repo->add (f);
|
|
f = new Function ("INT", func_int);
|
|
repo->add (f);
|
|
f = new Function ("INV", func_inv);
|
|
repo->add (f);
|
|
f = new Function ("LN", func_ln);
|
|
repo->add (f);
|
|
f = new Function ("LOG", func_log10);
|
|
repo->add (f);
|
|
f = new Function ("LOG2", func_log2);
|
|
repo->add (f);
|
|
f = new Function ("LOG10", func_log10); // same as LOG
|
|
repo->add (f);
|
|
f = new Function ("LOGN", func_logn);
|
|
f->setParamCount (2);
|
|
repo->add (f);
|
|
f = new Function ("MOD", func_mod);
|
|
f->setParamCount (2);
|
|
repo->add (f);
|
|
f = new Function ("MROUND", func_mround);
|
|
f->setParamCount (2);
|
|
repo->add (f);
|
|
f = new Function ("MULTINOMIAL", func_multinomial);
|
|
f->setParamCount (1, -1);
|
|
repo->add (f);
|
|
f = new Function ("ODD", func_odd);
|
|
repo->add (f);
|
|
f = new Function ("POW", func_pow);
|
|
f->setParamCount (2);
|
|
repo->add (f);
|
|
f = new Function ("POWER", func_pow);
|
|
f->setParamCount (2);
|
|
repo->add (f);
|
|
f = new Function ("TQUOTIENT", func_quotient);
|
|
f->setParamCount (2);
|
|
repo->add (f);
|
|
f = new Function ("RAND", func_rand);
|
|
f->setParamCount (0);
|
|
repo->add (f);
|
|
f = new Function ("RANDBERNOULLI", func_randbernoulli);
|
|
repo->add (f);
|
|
f = new Function ("RANDBETWEEN", func_randbetween);
|
|
f->setParamCount (2);
|
|
repo->add (f);
|
|
f = new Function ("RANDBINOM", func_randbinom);
|
|
f->setParamCount (2);
|
|
repo->add (f);
|
|
f = new Function ("RANDEXP", func_randexp);
|
|
repo->add (f);
|
|
f = new Function ("RANDNEGBINOM", func_randnegbinom);
|
|
f->setParamCount (2);
|
|
repo->add (f);
|
|
f = new Function ("RANDNORM", func_randnorm);
|
|
f->setParamCount (2);
|
|
repo->add (f);
|
|
f = new Function ("RANDPOISSON", func_randpoisson);
|
|
repo->add (f);
|
|
f = new Function ("ROOTN", func_rootn);
|
|
f->setParamCount (2);
|
|
repo->add (f);
|
|
f = new Function ("ROUND", func_round);
|
|
f->setParamCount (1, 2);
|
|
repo->add (f);
|
|
f = new Function ("ROUNDDOWN", func_rounddown);
|
|
f->setParamCount (1, 2);
|
|
repo->add (f);
|
|
f = new Function ("ROUNDUP", func_roundup);
|
|
f->setParamCount (1, 2);
|
|
repo->add (f);
|
|
f = new Function ("SIGN", func_sign);
|
|
repo->add (f);
|
|
f = new Function ("SQRT", func_sqrt);
|
|
repo->add (f);
|
|
f = new Function ("SQRTPI", func_sqrtpi);
|
|
repo->add (f);
|
|
f = new Function ("TRUNC", func_trunc);
|
|
f->setParamCount (1, 2);
|
|
repo->add (f);
|
|
|
|
// functions that operate over arrays
|
|
f = new Function ("COUNT", func_count);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("COUNTA", func_counta);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("COUNTBLANK", func_countblank);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("COUNTIF", func_countif);
|
|
f->setParamCount (2);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("DIV", func_div);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("G_PRODUCT", func_kproduct); // Gnumeric compatibility
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("GCD", func_gcd);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("KPRODUCT", func_kproduct);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("LCM", func_lcm);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("MAX", func_max);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("MAXA", func_maxa);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("MDETERM", func_mdeterm);
|
|
f->setParamCount (1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("MIN", func_min);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("MINA", func_mina);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("MMULT", func_mmult);
|
|
f->setParamCount (2);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("MULTIPLY", func_product); // same as PRODUCT
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("PRODUCT", func_product);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("SUM", func_sum);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("SUMA", func_suma);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("SUBTOTAL", func_subtotal);
|
|
f->setParamCount (2);
|
|
f->setAcceptArray ();
|
|
f->setNeedsExtra (true);
|
|
repo->add (f);
|
|
f = new Function ("SUMIF", func_sumif);
|
|
f->setParamCount (2, 3);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
f = new Function ("SUMSQ", func_sumsq);
|
|
f->setParamCount (1, -1);
|
|
f->setAcceptArray ();
|
|
repo->add (f);
|
|
}
|
|
|
|
// Function: SQRT
|
|
Value func_sqrt (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->sqrt (args[0]);
|
|
}
|
|
|
|
// Function: SQRTPI
|
|
Value func_sqrtpi (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
// sqrt (val * PI)
|
|
return calc->sqrt (calc->mul (args[0], calc->pi()));
|
|
}
|
|
|
|
// Function: ROOTN
|
|
Value func_rootn (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->pow (args[0], calc->div (1, args[1]));
|
|
}
|
|
|
|
// Function: CUR
|
|
Value func_cur (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->pow (args[0], 1.0/3.0);
|
|
}
|
|
|
|
// Function: ABS
|
|
Value func_abs (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->abs (args[0]);
|
|
}
|
|
|
|
// Function: exp
|
|
Value func_exp (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->exp (args[0]);
|
|
}
|
|
|
|
// Function: ceil
|
|
Value func_ceil (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->roundUp (args[0], 0);
|
|
}
|
|
|
|
// Function: ceiling
|
|
Value func_ceiling (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value number = args[0];
|
|
Value res;
|
|
if (args.count() == 2)
|
|
res = args[1];
|
|
else
|
|
res = calc->gequal (number, 0.0) ? 1.0 : -1.0;
|
|
|
|
if (calc->isZero(res))
|
|
return Value::errorDIV0();
|
|
|
|
Value d = calc->div (number, res);
|
|
if (calc->greater (0, d))
|
|
return Value::errorVALUE();
|
|
|
|
Value rud = calc->roundDown (d);
|
|
if (calc->approxEqual (rud, d))
|
|
d = calc->mul (rud, res);
|
|
else
|
|
d = calc->mul (calc->roundUp (d), res);
|
|
|
|
return d;
|
|
}
|
|
|
|
// Function: floor
|
|
Value func_floor (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->roundDown (args[0], 0);
|
|
}
|
|
|
|
// Function: ln
|
|
Value func_ln (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->ln (args[0]);
|
|
}
|
|
|
|
// Function: LOGn
|
|
Value func_logn (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->log (args[0], args[1]);
|
|
}
|
|
|
|
// Function: LOG2
|
|
Value func_log2 (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->log (args[0], 2.0);
|
|
}
|
|
|
|
// Function: LOG10
|
|
Value func_log10 (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->log (args[0]);
|
|
}
|
|
|
|
// Function: sum
|
|
Value func_sum (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->sum (args, false);
|
|
}
|
|
|
|
// Function: suma
|
|
Value func_suma (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->sum (args, true);
|
|
}
|
|
|
|
Value func_sumif (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value checkRange = args[0];
|
|
TQString condition = calc->conv()->asString (args[1]).asString();
|
|
Value sumRange = checkRange;
|
|
if (args.count() == 3)
|
|
sumRange = args[2];
|
|
|
|
Condition cond;
|
|
calc->getCond (cond, condition);
|
|
|
|
return calc->sumIf (sumRange, checkRange, cond);
|
|
}
|
|
|
|
// Function: product
|
|
Value func_product (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->product (args, 0.0);
|
|
}
|
|
|
|
// Function: kproduct
|
|
Value func_kproduct (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->product (args, 1.0);
|
|
}
|
|
|
|
// Function: DIV
|
|
Value func_div (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value val = args[0];
|
|
for (unsigned int i = 1; i < args.count(); ++i)
|
|
{
|
|
val = calc->div (val, args[i]);
|
|
if (val.isError())
|
|
return val;
|
|
}
|
|
return val;
|
|
}
|
|
|
|
// Function: SUMSQ
|
|
Value func_sumsq (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value res;
|
|
calc->arrayWalk (args, res, calc->awFunc ("sumsq"), 0);
|
|
return res;
|
|
}
|
|
|
|
// Function: MAX
|
|
Value func_max (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value m = calc->max (args, false);
|
|
return m.isEmpty() ? Value(0.0) : m;
|
|
}
|
|
|
|
// Function: MAXA
|
|
Value func_maxa (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value m = calc->max (args);
|
|
return m.isEmpty() ? Value(0.0) : m;
|
|
}
|
|
|
|
// Function: MIN
|
|
Value func_min (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value m = calc->min (args, false);
|
|
return m.isEmpty() ? Value(0.0) : m;
|
|
}
|
|
|
|
// Function: MINA
|
|
Value func_mina (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value m = calc->min (args);
|
|
return m.isEmpty() ? Value(0.0) : m;
|
|
}
|
|
|
|
// Function: INT
|
|
Value func_int (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->conv()->asInteger (args[0]);
|
|
}
|
|
|
|
// Function: TQUOTIENT
|
|
Value func_quotient (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
if (calc->isZero (args[1]))
|
|
return Value::errorDIV0();
|
|
return calc->conv()->asInteger (calc->div (args[0], args[1]));
|
|
}
|
|
|
|
|
|
// Function: eps
|
|
Value func_eps (valVector, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->eps ();
|
|
}
|
|
|
|
Value func_randexp (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
// -1 * d * log (random)
|
|
return calc->mul (calc->mul (args[0], -1), calc->random());
|
|
}
|
|
|
|
Value func_randbinom (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
// this function will not support arbitrary precision
|
|
|
|
double d = calc->conv()->asFloat (args[0]).asFloat();
|
|
int tr = calc->conv()->asInteger (args[1]).asInteger();
|
|
|
|
if ( d < 0 || d > 1 )
|
|
return Value::errorVALUE();
|
|
|
|
if ( tr < 0 )
|
|
return Value::errorVALUE();
|
|
|
|
// taken from gnumeric
|
|
double x = pow(1 - d, tr);
|
|
double r = (double) rand() / ( RAND_MAX + 1.0 );
|
|
double t = x;
|
|
int i = 0;
|
|
|
|
while (r > t)
|
|
{
|
|
x *= (((tr - i) * d) / ((1 + i) * (1 - d)));
|
|
i++;
|
|
t += x;
|
|
}
|
|
|
|
return Value (i);
|
|
}
|
|
|
|
Value func_randnegbinom (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
// this function will not support arbitrary precision
|
|
|
|
double d = calc->conv()->asFloat (args[0]).asFloat();
|
|
int f = calc->conv()->asInteger (args[1]).asInteger();
|
|
|
|
if ( d < 0 || d > 1 )
|
|
return Value::errorVALUE();
|
|
|
|
if ( f < 0 )
|
|
return Value::errorVALUE();
|
|
|
|
|
|
// taken from Gnumeric
|
|
double x = pow(d, f);
|
|
double r = (double) rand() / ( RAND_MAX + 1.0 );
|
|
double t = x;
|
|
int i = 0;
|
|
|
|
while (r > t)
|
|
{
|
|
x *= ( ( ( f + i ) * ( 1 - d ) ) / (1 + i) ) ;
|
|
i++;
|
|
t += x;
|
|
}
|
|
|
|
return Value (i);
|
|
}
|
|
|
|
Value func_randbernoulli (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value rnd = calc->random ();
|
|
return Value (calc->greater (rnd, args[0]) ? 1.0 : 0.0);
|
|
}
|
|
|
|
Value func_randnorm (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value mu = args[0];
|
|
Value sigma = args[1];
|
|
|
|
//using polar form of the Box-Muller transformation
|
|
//refer to http://www.taygeta.com/random/gaussian.html for more info
|
|
|
|
Value x1, x2, w;
|
|
do {
|
|
// x1,x2 = 2 * random() - 1
|
|
x1 = calc->random (2.0);
|
|
x2 = calc->random (2.0);
|
|
x1 = calc->sub (x1, 1);
|
|
x1 = calc->sub (x2, 1);
|
|
w = calc->add (calc->sqr(x1), calc->sqr (x2));
|
|
} while (calc->gequal (w, 1.0)); // w >= 1.0
|
|
|
|
//sqrt ((-2.0 * log (w)) / w) :
|
|
w = calc->sqrt (calc->div (calc->mul (-2.0, calc->ln (w)), w));
|
|
Value res = calc->mul (x1, w);
|
|
|
|
res = calc->add (calc->mul (res, sigma), mu); // res*sigma + mu
|
|
return res;
|
|
}
|
|
|
|
Value func_randpoisson (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
if (calc->lower (args[0], 0))
|
|
return Value::errorVALUE();
|
|
|
|
// taken from Gnumeric...
|
|
Value x = calc->exp (calc->mul (-1, args[0])); // e^(-A)
|
|
Value r = calc->random ();
|
|
Value t = x;
|
|
int i = 0;
|
|
|
|
while (calc->greater (r, t)) { // r > t
|
|
x = calc->mul (x, calc->div (args[0], i + 1)); // x *= (A/(i+1))
|
|
t = calc->add (t, x); //t += x
|
|
i++;
|
|
}
|
|
|
|
return Value (i);
|
|
}
|
|
|
|
// Function: rand
|
|
Value func_rand (valVector, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->random ();
|
|
}
|
|
|
|
// Function: RANDBETWEEN
|
|
Value func_randbetween (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value v1 = args[0];
|
|
Value v2 = args[1];
|
|
if (calc->greater (v2, v1)) {
|
|
v1 = args[1];
|
|
v2 = args[0];
|
|
}
|
|
return calc->add (v1, calc->random (calc->sub (v2, v1)));
|
|
}
|
|
|
|
// Function: POW
|
|
Value func_pow (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->pow (args[0], args[1]);
|
|
}
|
|
|
|
// Function: MOD
|
|
Value func_mod (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->mod (args[0], args[1]);
|
|
}
|
|
|
|
// Function: fact
|
|
Value func_fact (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->fact (args[0]);
|
|
}
|
|
|
|
// Function: FACTDOUBLE
|
|
Value func_factdouble (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->factDouble (args[0]);
|
|
}
|
|
|
|
// Function: MULTINOMIAL
|
|
Value func_multinomial (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
// (a+b+c)! / a!b!c! (any number of params possible)
|
|
Value num = 0, den = 1;
|
|
for (unsigned int i = 0; i < args.count(); ++i) {
|
|
num = calc->add (num, args[i]);
|
|
den = calc->mul (den, calc->fact (args[i]));
|
|
}
|
|
num = calc->fact (num);
|
|
return calc->div (num, den);
|
|
}
|
|
|
|
// Function: sign
|
|
Value func_sign (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return Value (calc->sign (args[0]));
|
|
}
|
|
|
|
// Function: INV
|
|
Value func_inv (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->mul (args[0], -1);
|
|
}
|
|
|
|
Value func_mround (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value d = args[0];
|
|
Value m = args[1];
|
|
|
|
// signs must be the same
|
|
if ((calc->greater (d, 0) && calc->lower (m, 0))
|
|
|| (calc->lower (d, 0) && calc->greater (m, 0)))
|
|
return Value::errorVALUE();
|
|
|
|
int sign = 1;
|
|
|
|
if (calc->lower (d, 0))
|
|
{
|
|
sign = -1;
|
|
d = calc->mul (d, -1);
|
|
m = calc->mul (m, -1);
|
|
}
|
|
|
|
// from gnumeric:
|
|
Value mod = calc->mod (d, m);
|
|
Value div = calc->sub (d, mod);
|
|
|
|
Value result = div;
|
|
if (calc->greater (mod, calc->div (m, 2))) // mod > m/2
|
|
result = calc->add (result, m); // result += m
|
|
result = calc->mul (result, sign); // add the sign
|
|
|
|
return result;
|
|
}
|
|
|
|
// Function: ROUNDDOWN
|
|
Value func_rounddown (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
if (args.count() == 2)
|
|
return calc->roundDown (args[0], args[1]);
|
|
return calc->roundDown (args[0], 0);
|
|
}
|
|
|
|
// Function: ROUNDUP
|
|
Value func_roundup (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
if (args.count() == 2)
|
|
return calc->roundUp (args[0], args[1]);
|
|
return calc->roundUp (args[0], 0);
|
|
}
|
|
|
|
// Function: ROUND
|
|
Value func_round (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
if (args.count() == 2)
|
|
return calc->round (args[0], args[1]);
|
|
return calc->round (args[0], 0);
|
|
}
|
|
|
|
// Function: EVEN
|
|
Value func_even (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
const Value value = calc->roundUp (args[0], 0);
|
|
return calc->isZero( calc->mod(value, 2) ) ? value : calc->add(value, 1);
|
|
}
|
|
|
|
// Function: ODD
|
|
Value func_odd (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
const Value value = calc->roundUp (args[0], 0);
|
|
return calc->isZero( calc->mod(value, 2) ) ? calc->add(value, 1) : value;
|
|
}
|
|
|
|
Value func_trunc (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
if (args.count() == 1)
|
|
return calc->roundDown (args[0]);
|
|
return calc->roundDown (args[0], args[1]);
|
|
}
|
|
|
|
// Function: COUNT
|
|
Value func_count (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->count (args, false);
|
|
}
|
|
|
|
// Function: COUNTA
|
|
Value func_counta (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
return calc->count (args);
|
|
}
|
|
|
|
// Function: COUNTBLANK
|
|
Value func_countblank (valVector args, ValueCalc *, FuncExtra *)
|
|
{
|
|
int cnt = 0;
|
|
for (unsigned int i = 0; i < args.count(); ++i)
|
|
if (args[i].isArray()) {
|
|
int rows = args[i].rows();
|
|
int cols = args[i].columns();
|
|
for (int r = 0; r < rows; ++r)
|
|
for (int c = 0; c < cols; ++c)
|
|
if (args[i].element (c, r).isEmpty())
|
|
cnt++;
|
|
} else
|
|
if (args[i].isEmpty())
|
|
cnt++;
|
|
return Value (cnt);
|
|
}
|
|
|
|
// Function: COUNTIF
|
|
Value func_countif (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value range = args[0];
|
|
TQString condition = calc->conv()->asString (args[1]).asString();
|
|
|
|
Condition cond;
|
|
calc->getCond (cond, condition);
|
|
|
|
return calc->countIf (range, cond);
|
|
}
|
|
|
|
// Function: FIB
|
|
Value func_fib (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
/*
|
|
Lucas' formula for the nth Fibonacci number F(n) is given by
|
|
|
|
((1+sqrt(5))/2)^n - ((1-sqrt(5))/2)^n
|
|
F(n) = ------------------------------------- .
|
|
sqrt(5)
|
|
|
|
*/
|
|
Value n = args[0];
|
|
Value s = calc->sqrt (5.0);
|
|
// u1 = ((1+sqrt(5))/2)^n
|
|
Value u1 = calc->pow (calc->div (calc->add (1, s), 2), n);
|
|
// u2 = ((1-sqrt(5))/2)^n
|
|
Value u2 = calc->pow (calc->div (calc->sub (1, s), 2), n);
|
|
|
|
Value result = calc->div (calc->sub (u1, u2), s);
|
|
return result;
|
|
}
|
|
|
|
static Value func_gcd_helper(const Value &val, ValueCalc *calc)
|
|
{
|
|
Value res = 0;
|
|
if (!val.isArray ())
|
|
return val;
|
|
for (unsigned int row = 0; row < val.rows(); ++row)
|
|
for (unsigned int col = 0; col < val.columns(); ++col)
|
|
{
|
|
Value v = val.element (col, row);
|
|
if (v.isArray ())
|
|
v = func_gcd_helper (v, calc);
|
|
res = calc->gcd (res, v);
|
|
}
|
|
return res;
|
|
}
|
|
|
|
// Function: GCD
|
|
Value func_gcd (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value result = 0;
|
|
for (unsigned int i = 0; i < args.count(); ++i)
|
|
if (args[i].isArray())
|
|
result = calc->gcd (result, func_gcd_helper (args[i], calc));
|
|
else
|
|
result = calc->gcd (result, args[i]);
|
|
return result;
|
|
}
|
|
|
|
static Value func_lcm_helper(const Value &val, ValueCalc *calc)
|
|
{
|
|
Value res = 0;
|
|
if (!val.isArray ())
|
|
return val;
|
|
for (unsigned int row = 0; row < val.rows(); ++row)
|
|
for (unsigned int col = 0; col < val.columns(); ++col)
|
|
{
|
|
Value v = val.element (col, row);
|
|
if (v.isArray ())
|
|
v = func_lcm_helper (v, calc);
|
|
res = calc->lcm (res, v);
|
|
}
|
|
return res;
|
|
}
|
|
|
|
// Function: lcm
|
|
Value func_lcm (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value result = 0;
|
|
for (unsigned int i = 0; i < args.count(); ++i)
|
|
if (args[i].isArray())
|
|
result = calc->lcm (result, func_lcm_helper (args[i], calc));
|
|
else
|
|
result = calc->lcm (result, args[i]);
|
|
return result;
|
|
}
|
|
|
|
Value determinant (ValueCalc *calc, Value matrix)
|
|
{
|
|
// this is a --- SLOOOW --- recursive function
|
|
// using this for something bigger than 10x10 or so = suicide :P
|
|
// but I'm too lazy to adjust gnumeric's code - remains as a TODO then
|
|
// as a note, gnumeric uses LUP decomposition to compute this
|
|
|
|
// take first row, generate smaller matrices, recursion, multiply
|
|
Value res = 0.0;
|
|
int n = matrix.columns();
|
|
if (n == 1) return matrix.element (0, 0);
|
|
if (n == 2) return calc->sub (
|
|
calc->mul (matrix.element (1,1), matrix.element (0,0)),
|
|
calc->mul (matrix.element (1,0), matrix.element (0,1)));
|
|
|
|
// n >= 3
|
|
for (int i = 0; i < n; ++i) {
|
|
Value smaller (n-1, n-1);
|
|
int col = 0;
|
|
for (int c = 0; c < n; ++c)
|
|
if (c != i) {
|
|
// copy column c to column col in new matrix
|
|
for (int r = 1; r < n; r++)
|
|
smaller.setElement (col, r-1, matrix.element (c, r));
|
|
col++;
|
|
}
|
|
Value minor = determinant (calc, smaller);
|
|
if (i % 2 == 1) minor = calc->mul (minor, -1);
|
|
res = calc->add (res, calc->mul (minor, matrix.element (i, 0)));
|
|
}
|
|
return res;
|
|
}
|
|
|
|
// Function: mdeterm
|
|
Value func_mdeterm (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value m = args[0];
|
|
unsigned r = m.rows ();
|
|
unsigned c = m.columns ();
|
|
if (r != c) // must be a square matrix
|
|
return Value::errorVALUE();
|
|
|
|
return determinant (calc, args[0]);
|
|
}
|
|
|
|
// Function: mmult
|
|
Value func_mmult (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
Value m1 = args[0];
|
|
Value m2 = args[1];
|
|
unsigned r1 = m1.rows ();
|
|
unsigned c1 = m1.columns ();
|
|
unsigned r2 = m2.rows ();
|
|
unsigned c2 = m2.columns ();
|
|
if (c1 != r2) // row/column counts must match
|
|
return Value::errorVALUE();
|
|
|
|
// create the resulting matrix
|
|
Value res (c2, r1);
|
|
|
|
// perform the multiplication - O(n^3) algorithm
|
|
for (uint row = 0; row < r1; ++row)
|
|
for (uint col = 0; col < c2; ++col) {
|
|
Value val = 0.0;
|
|
for (uint pos = 0; pos < c1; ++pos)
|
|
val = calc->add (val,
|
|
calc->mul (m1.element (pos, row), m2.element (col, pos)));
|
|
res.setElement (col, row, val);
|
|
}
|
|
return res;
|
|
}
|
|
|
|
// Function: SUBTOTAL
|
|
// This function requires access to the Sheet and so on, because
|
|
// it needs to check whether cells contain the SUBTOTAL formula or not ...
|
|
// Cells containing a SUBTOTAL formula must be ignored.
|
|
Value func_subtotal (valVector args, ValueCalc *calc, FuncExtra *e)
|
|
{
|
|
int function = calc->conv()->asInteger (args[0]).asInteger();
|
|
Value range = args[1];
|
|
int r1 = -1, c1 = -1, r2 = -1, c2 = -1;
|
|
if (e) {
|
|
r1 = e->ranges[1].row1;
|
|
c1 = e->ranges[1].col1;
|
|
r2 = e->ranges[1].row2;
|
|
c2 = e->ranges[1].col2;
|
|
}
|
|
|
|
// if we have a range, run through it, and put an empty value to the place
|
|
// of all occurences of the SUBTOTAL function
|
|
Value empty;
|
|
if ((r1 > 0) && (c1 > 0) && (r2 > 0) && (c2 > 0)) {
|
|
for (int r = r1; r <= r2; ++r)
|
|
for (int c = c1; c <= c2; ++c) {
|
|
Cell *cell = e->sheet->cellAt (c, r);
|
|
if (cell->isDefault())
|
|
continue;
|
|
if (cell->isFormula() && cell->text().tqfind ("SUBTOTAL", 0, false) != -1)
|
|
// cell contains the word SUBTOTAL - replace value with empty
|
|
range.setElement (c-c1, r-r1, empty);
|
|
}
|
|
}
|
|
|
|
// Good. Now we can execute the necessary function on the range.
|
|
Value res;
|
|
Function *f;
|
|
valVector a;
|
|
switch (function) {
|
|
case 1: // Average
|
|
res = calc->avg (range, false);
|
|
break;
|
|
case 2: // Count
|
|
res = calc->count (range, false);
|
|
break;
|
|
case 3: // CountA
|
|
res = calc->count (range);
|
|
break;
|
|
case 4: // MAX
|
|
res = calc->max (range, false);
|
|
break;
|
|
case 5: // Min
|
|
res = calc->min (range, false);
|
|
break;
|
|
case 6: // Product
|
|
res = calc->product (range, 0.0, false);
|
|
break;
|
|
case 7: // StDev
|
|
res = calc->stddev (range, false);
|
|
break;
|
|
case 8: // StDevP
|
|
res = calc->stddevP (range, false);
|
|
break;
|
|
case 9: // Sum
|
|
res = calc->sum (range, false);
|
|
break;
|
|
case 10: // Var
|
|
f = FunctionRepository::self()->function ("VAR");
|
|
if (!f) return Value::errorVALUE();
|
|
a.reserve (1);
|
|
a[0] = range;
|
|
res = f->exec (a, calc, 0);
|
|
break;
|
|
case 11: // VarP
|
|
f = FunctionRepository::self()->function ("VARP");
|
|
if (!f) return Value::errorVALUE();
|
|
a.reserve (1);
|
|
a[0] = range;
|
|
res = f->exec (a, calc, 0);
|
|
break;
|
|
default:
|
|
return Value::errorVALUE();
|
|
}
|
|
return res;
|
|
}
|
|
|
|
/*
|
|
Commented out.
|
|
Absolutely no idea what this thing is supposed to do.
|
|
To anyone who would enable this code: it still uses koscript calls - you need
|
|
to convert it to the new style prior to uncommenting.
|
|
|
|
// Function: MULTIPLEOPERATIONS
|
|
Value func_multipleOP (valVector args, ValueCalc *calc, FuncExtra *)
|
|
{
|
|
if (gCell)
|
|
{
|
|
context.setValue( new KSValue( ((Interpreter *) context.interpreter() )->cell()->value().asFloat() ) );
|
|
return true;
|
|
}
|
|
|
|
gCell = ((Interpreter *) context.interpreter() )->cell();
|
|
|
|
TQValueList<KSValue::Ptr>& args = context.value()->listValue();
|
|
TQValueList<KSValue::Ptr>& extra = context.extraData()->listValue();
|
|
|
|
if ( !KSUtil::checkArgumentsCount( context, 5, "MULTIPLEOPERATIONS", true ) )
|
|
{
|
|
gCell = 0;
|
|
return false;
|
|
}
|
|
|
|
// 0: cell must contain formula with double/int result
|
|
// 0, 1, 2, 3, 4: must contain integer/double
|
|
for (int i = 0; i < 5; ++i)
|
|
{
|
|
if ( !KSUtil::checkType( context, args[i], KSValue::DoubleType, true ) )
|
|
{
|
|
gCell = 0;
|
|
return false;
|
|
}
|
|
}
|
|
|
|
// ((Interpreter *) context.interpreter() )->document()->emitBeginOperation();
|
|
|
|
double oldCol = args[1]->doubleValue();
|
|
double oldRow = args[3]->doubleValue();
|
|
kdDebug() << "Old values: Col: " << oldCol << ", Row: " << oldRow << endl;
|
|
|
|
Cell * cell;
|
|
Sheet * sheet = ((Interpreter *) context.interpreter() )->sheet();
|
|
|
|
Point point( extra[1]->stringValue() );
|
|
Point point2( extra[3]->stringValue() );
|
|
Point point3( extra[0]->stringValue() );
|
|
|
|
if ( ( args[1]->doubleValue() != args[2]->doubleValue() )
|
|
|| ( args[3]->doubleValue() != args[4]->doubleValue() ) )
|
|
{
|
|
cell = sheet->cellAt( point.pos.x(), point.pos.y() );
|
|
cell->setValue( args[2]->doubleValue() );
|
|
kdDebug() << "Setting value " << args[2]->doubleValue() << " on cell " << point.pos.x()
|
|
<< ", " << point.pos.y() << endl;
|
|
|
|
cell = sheet->cellAt( point2.pos.x(), point.pos.y() );
|
|
cell->setValue( args[4]->doubleValue() );
|
|
kdDebug() << "Setting value " << args[4]->doubleValue() << " on cell " << point2.pos.x()
|
|
<< ", " << point2.pos.y() << endl;
|
|
}
|
|
|
|
Cell * cell1 = sheet->cellAt( point3.pos.x(), point3.pos.y() );
|
|
cell1->calc( false );
|
|
|
|
double d = cell1->value().asFloat();
|
|
kdDebug() << "Cell: " << point3.pos.x() << "; " << point3.pos.y() << " with value "
|
|
<< d << endl;
|
|
|
|
kdDebug() << "Resetting old values" << endl;
|
|
|
|
cell = sheet->cellAt( point.pos.x(), point.pos.y() );
|
|
cell->setValue( oldCol );
|
|
|
|
cell = sheet->cellAt( point2.pos.x(), point2.pos.y() );
|
|
cell->setValue( oldRow );
|
|
|
|
cell1->calc( false );
|
|
|
|
// ((Interpreter *) context.interpreter() )->document()->emitEndOperation();
|
|
|
|
context.setValue( new KSValue( (double) d ) );
|
|
|
|
gCell = 0;
|
|
return true;
|
|
}
|
|
|
|
*/
|