interpolation.h File Reference

#include "machine.h"

Include dependency graph for interpolation.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Data Structures
struct	TableType
struct	realhypermat
Defines
#define	GetRhsScalarString(num, n, t)   if (!get_rhs_scalar_string(num,n,t)) { return 0;}
#define	GetRhsRealHMat(pos, H)   if (!get_rhs_real_hmat(pos,H)) { return 0;}
Typedefs
typedef realhypermat	RealHyperMat
Enumerations
enum	{   NOT_A_KNOT, NATURAL, CLAMPED, PERIODIC,   FAST, FAST_PERIODIC, MONOTONE, BY_ZERO,   C0, LINEAR, BY_NAN, UNDEFINED }
Functions
int	get_rhs_scalar_string (int num, int *length, int **tabchar)
int	get_rhs_real_hmat (int num, RealHyperMat *H)

---

Define Documentation

#define GetRhsRealHMat	(	pos,
		H		)	if (!get_rhs_real_hmat(pos,H)) { return 0;}

Definition at line 23 of file interpolation.h.

Referenced by intlinear_interpn(), and intsplin3d().

#define GetRhsScalarString	(	num,
		n,
		t		)	if (!get_rhs_scalar_string(num,n,t)) { return 0;}

Definition at line 20 of file interpolation.h.

Referenced by intinterp1(), intinterp2d(), intinterp3d(), intsplin(), and intsplin2d().

---

Typedef Documentation

typedef struct realhypermat RealHyperMat

---

Enumeration Type Documentation

anonymous enum

Enumerator:

NOT_A_KNOT
NATURAL
CLAMPED
PERIODIC
FAST
FAST_PERIODIC
MONOTONE
BY_ZERO
C0
LINEAR
BY_NAN
UNDEFINED

Definition at line 6 of file interpolation.h.

     {NOT_A_KNOT, NATURAL, CLAMPED, PERIODIC, FAST, FAST_PERIODIC, 
MONOTONE, BY_ZERO, C0, LINEAR, BY_NAN, UNDEFINED};

---

Function Documentation

int get_rhs_real_hmat	(	int	num,
		RealHyperMat *	H
	)

Definition at line 47 of file interpolation.c.

References C2F, err, H, iadr, il1, istk, Lstk, lw, Max, Nbvars, Rhs, sadr, stk, and Top.

{
  int il, il1, il2, il3,/* it, */lw;

  lw = num + Top - Rhs;
  il = iadr(*Lstk( lw )); 
  if ( *istk(il) < 0 )
    il = iadr(*istk(il+1));
          
  if ( *istk(il) != 17 )
    goto err;
  else if ( *istk(il+1) != 3 )  /* a hm mlist must have 3 fields */
    goto err;

  /*  get the pointers for the 3 fields */
  il1 = sadr(il+6);
  il2 = il1 + *istk(il+3) - 1;
  il3 = il1 + *istk(il+4) - 1;
  il1 = iadr(il1); il2 = iadr(il2); il3 = iadr(il3);

  /*  test if the first field is a matrix string with 3 components
   *  and that the first is "hm" (ie 17 22  in scilab char code)
   */
  if ( (*istk(il1) != 10)  |  ((*istk(il1+1))*(*istk(il1+2)) != 3)  )
    goto err;
  else if ( *istk(il1+5)-1 != 2 )  /* 1 str must have 2 chars */
    goto err;
  else if ( *istk(il1+8) != 17  || *istk(il1+9) != 22 )
    goto err;

  /*  get the 2d field */
  if ( (*istk(il2) != 8)  |  (*istk(il2+3) != 4) )
    goto err;
  H->dimsize = (*istk(il2+1))*(*istk(il2+2));
  H->dims = istk(il2+4);

  /*  get the 3d field */
  if ( !( *istk(il3) == 1 && *istk(il3+3)==0) )
    goto err;;

  H->size = (*istk(il3+1))*(*istk(il3+2));
  H->R = stk(sadr(il3+4));

  /* needed for Jpc stuff (putlhsvar) */
  Nbvars = Max(Nbvars,num);
  C2F(intersci).ntypes[num-1] = '$';
  C2F(intersci).iwhere[num-1] = *Lstk(lw);
  C2F(intersci).lad[num-1] = 0;  /* a voir ? */
  return 1;

 err:
  Scierror(999,"Argument %d is not a real hypermatrix\r\n", num);
  return 0;
}

int get_rhs_scalar_string	(	int	num,
		int *	length,
		int **	tabchar
	)

Definition at line 102 of file interpolation.c.

References C2F, iadr, istk, Lstk, lw, Max, Nbvars, Rhs, and Top.

{
  int il, lw;

  lw = num + Top - Rhs;
  il = iadr(*Lstk( lw )); 
  if ( *istk(il) < 0 )
    il = iadr(*istk(il+1));
          
  if ( ! ( *istk(il) == 10  &&  (*istk(il+1))*(*istk(il+2)) == 1 ) ) 
    {
      /* we look for a scalar string */
      Scierror(999,"Argument %d is not a scalar string\r\n", num);
      return 0;
    }
  *length = *istk(il+5)-1;
  *tabchar = istk(il+6);

  Nbvars = Max(Nbvars,num);
  C2F(intersci).ntypes[num-1] = '$';
  C2F(intersci).iwhere[num-1] = *Lstk(lw);
  C2F(intersci).lad[num-1] = 0;
  return 1;
}

---