Commit 15ddfa86 authored by Michael Meeks's avatar Michael Meeks

Include the headers to get the correct answer,

looks like all engineering functions now work.
parent da383d54
......@@ -3,6 +3,7 @@
* src/fn-eng.c (gnumeric_besseli): Implemented.
(gnumeric_besselk): Implemented.
(eng_functions_init): Add relevant inits.
Include mathfunc.h
1999-07-30 Morten Welinder <terra@diku.dk>
......
......@@ -22,7 +22,7 @@ Jody:
Jay:
* Implemented BESSELI, BESSELK
* Implemented BESSELI, BESSELK completing the engineering functions.
--------------------------------------------------------------------------
......
......@@ -3,6 +3,7 @@
* src/fn-eng.c (gnumeric_besseli): Implemented.
(gnumeric_besselk): Implemented.
(eng_functions_init): Add relevant inits.
Include mathfunc.h
1999-07-30 Morten Welinder <terra@diku.dk>
......
......@@ -14,6 +14,7 @@
#include "gnumeric.h"
#include "utils.h"
#include "func.h"
#include "mathfunc.h"
#if 0
/* help template */
......@@ -383,10 +384,10 @@ gnumeric_besseli (FunctionEvalInfo *ei, Value **argv)
x = value_get_as_float (argv[0]); /* value to evaluate I_n at. */
order = value_get_as_float (argv[1]); /* the order */
if (order<0)
if (order < 0)
return value_new_error (&ei->pos, gnumeric_err_NUM);
result = bessel_i(x, order, 1.0);
result = bessel_i (x, order, 1.0);
return value_new_float (result);
}
......@@ -419,10 +420,10 @@ gnumeric_besselk (FunctionEvalInfo *ei, Value **argv)
x = value_get_as_float (argv[0]); /* value to evaluate K_n at. */
order = value_get_as_float (argv[1]); /* the order */
if (order<0)
if (order < 0)
return value_new_error (&ei->pos, gnumeric_err_NUM);
result = bessel_k(x, order, 1.0);
result = bessel_k (x, order, 1.0);
return value_new_float (result);
}
......
......@@ -14,6 +14,7 @@
#include "gnumeric.h"
#include "utils.h"
#include "func.h"
#include "mathfunc.h"
#if 0
/* help template */
......@@ -383,10 +384,10 @@ gnumeric_besseli (FunctionEvalInfo *ei, Value **argv)
x = value_get_as_float (argv[0]); /* value to evaluate I_n at. */
order = value_get_as_float (argv[1]); /* the order */
if (order<0)
if (order < 0)
return value_new_error (&ei->pos, gnumeric_err_NUM);
result = bessel_i(x, order, 1.0);
result = bessel_i (x, order, 1.0);
return value_new_float (result);
}
......@@ -419,10 +420,10 @@ gnumeric_besselk (FunctionEvalInfo *ei, Value **argv)
x = value_get_as_float (argv[0]); /* value to evaluate K_n at. */
order = value_get_as_float (argv[1]); /* the order */
if (order<0)
if (order < 0)
return value_new_error (&ei->pos, gnumeric_err_NUM);
result = bessel_k(x, order, 1.0);
result = bessel_k (x, order, 1.0);
return value_new_float (result);
}
......
......@@ -14,6 +14,7 @@
#include "gnumeric.h"
#include "utils.h"
#include "func.h"
#include "mathfunc.h"
#if 0
/* help template */
......@@ -383,10 +384,10 @@ gnumeric_besseli (FunctionEvalInfo *ei, Value **argv)
x = value_get_as_float (argv[0]); /* value to evaluate I_n at. */
order = value_get_as_float (argv[1]); /* the order */
if (order<0)
if (order < 0)
return value_new_error (&ei->pos, gnumeric_err_NUM);
result = bessel_i(x, order, 1.0);
result = bessel_i (x, order, 1.0);
return value_new_float (result);
}
......@@ -419,10 +420,10 @@ gnumeric_besselk (FunctionEvalInfo *ei, Value **argv)
x = value_get_as_float (argv[0]); /* value to evaluate K_n at. */
order = value_get_as_float (argv[1]); /* the order */
if (order<0)
if (order < 0)
return value_new_error (&ei->pos, gnumeric_err_NUM);
result = bessel_k(x, order, 1.0);
result = bessel_k (x, order, 1.0);
return value_new_float (result);
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment