1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
/*
* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
* Copyright (C) INRIA
*
* This file must be used under the terms of the CeCILL.
* This source file is licensed as described in the file COPYING, which
* you should have received as part of this distribution. The terms
* are also available at
* http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
*
*/
/*--------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------*/
enum {NOT_A_KNOT, NATURAL, CLAMPED, PERIODIC, FAST, FAST_PERIODIC,
MONOTONE, BY_ZERO, C0, LINEAR, BY_NAN, UNDEFINED
};
/*--------------------------------------------------------------------------*/
typedef struct
{
char *str_type;
int type;
} TableType;
/*--------------------------------------------------------------------------*/
typedef struct realhypermat
{
int dimsize; /* number of dimensions of the hyper matrix */
int size; /* total number of elements : size = dims[0]x... x dims[dimsize-1] */
int *dims; /* number of elements in each dimension */
double *R; /* points to the elements */
} RealHyperMat;
/*--------------------------------------------------------------------------*/
extern int get_rhs_scalar_string(int num, int *length, int **tabchar);
#define GetRhsScalarString(num,n,t) if (!get_rhs_scalar_string(num,n,t)) { return 0;}
/*--------------------------------------------------------------------------*/
extern int get_rhs_real_hmat(int num, RealHyperMat *H);
#define GetRhsRealHMat(pos,H) if (!get_rhs_real_hmat(pos,H)) { return 0;}
/*--------------------------------------------------------------------------*/
/**
* TODO : comment
* @param x
* @param n
* @return
*/
int good_order(double x[], int n);
/**
* TODO : comment
* @param Tab
* @param dim_table
* @param scistr
* @param strlength
* @return
*/
int get_type(TableType *Tab, int dim_table, int *scistr, int strlength);
|
