Marsyas  0.6.0-alpha
Defines | Typedefs | Enumerations | Functions
/usr/src/RPM/BUILD/marsyas-0.6.0/src/marsyas/basis.h File Reference
#include <stdlib.h>
#include <stdio.h>
#include <math.h>
#include <float.h>
#include <string.h>

Go to the source code of this file.

Defines

#define ABS(X)   (((X) >= ZERO) ? (X) : -(X)) /* Absolute value of X */
#define ACOS(x)   (REAL)acos((double)(x))
#define ATAN(x)   (REAL)atan((double)(x))
#define BASIS   2 /* Basis of number representation */
#define COS(x)   (REAL)cos((double)(x))
#define COSH(x)   (REAL)cosh((double)(x))
#define EIGHT   (REAL)8.0
#define EPSQUAD   epsquad() /* square of MACH_EPS */
#define EPSROOT   epsroot() /* square root of MACH_EPS */
#define EXP(x)   (REAL)exp((double)(x))
#define EXP_1   exp_1() /* e = 2.71... */
#define FABS(x)   (REAL)fabs((double)(x)) /* declare names of basic */
#define FIVE   (REAL)5.0
#define FORMAT_126LF   "% 12.6" LZP "f " /* Format 12.6f for REAL */
#define FORMAT_2010LF   "% 20.10" LZP "f " /* Format 20.10f for REAL */
#define FORMAT_2016LE   "% 20.16" LZP "e " /* Format 20.16e for REAL */
#define FORMAT_2016LF   "% 20.16" LZP "f " /* Format 20.16f for REAL */
#define FORMAT_IN   "%lg" /* Input format for REAL */
#define FORMAT_LE   "% " LZP "e " /* Format e for REAL */
#define FORMAT_LF   "% " LZP "f " /* Format l for REAL */
#define FOUR   (REAL)4.0
#define HALF   (REAL)0.5
#define LOG(x)   (REAL)log((double)(x))
#define LZP   "" /* length prefix for formatted */
#define LZS   "l" /* length prefix for formatted */
#define MACH_EPS   mach_eps() /* machine constant .................*/
#define max_basis(a, b)   (((a) > (b)) ? (a) : (b))
#define MAX_EXP   1023 /* adjust here !!!! .................*/
#define MAXROOT   maxroot() /* square root of the largest */
#define min_basis(a, b)   (((a) < (b)) ? (a) : (b))
#define NINE   (REAL)9.0
#define ONE   (REAL)1.0 /* floating point numbers */
#define PI   pi() /* pi = 3.14... */
#define POSMAX   1e100 /* adjust here !!!! .................*/
#define POSMIN   posmin()
#define POW(x, y)
#define sign(x, y)
#define SIGN(X, Y)
#define SIN(x)   (REAL)sin((double)(x))
#define SIX   (REAL)6.0
#define SQR(X)   ((X) * (X)) /* square of X */
#define SQRT(x)   (REAL)sqrt((double)(x)) /* three precisions */
#define SWAP(typ, a, b)
#define TEN   (REAL)10.0
#define THREE   (REAL)3.0
#define TWO   (REAL)2.0
#define ZERO   (REAL)0.0 /* declare names for recurring */

Typedefs

typedef REAL abl_mat1 [4][2]
typedef REAL abl_mat2 [6][2]
typedef void(* ableitfnk )(REAL x, REAL c[], REAL *d)
typedef REAL(* ansatzfnk )(int i, REAL x)
typedef REAL(* approxfnk )(REAL c[], REAL x)
typedef REAL(* dglfnk )(REAL x, REAL y)
typedef void(* dglsysfnk )(REAL x, REAL y[], REAL f[])
typedef int(* FNFCT )(int, REAL[], REAL[])
typedef int(* JACOFCT )(int, REAL[], REAL *[])
typedef long double LONG_REAL
typedef REAL mat4x4 [4][4]
typedef double REAL
typedef REAL(* REALFCT )(REAL)
typedef void(* rndbedfnk )(REAL ya[], REAL yb[], REAL r[])

Enumerations

enum  boolean { FALSE, TRUE }
enum  fehler_t { KEIN_FEHLER, WARNUNG, UNBEKANNT, FATAL }

Functions

int basis (void)
REAL comabs (REAL ar, REAL ai)
int comdiv (REAL ar, REAL ai, REAL br, REAL bi, REAL *cr, REAL *ci)
void copy_vector (REAL ziel[], REAL quelle[], int n)
void CopyMat (int m, int n, REAL *source[], REAL *dest[])
void CopyVec (int n, REAL source[], REAL dest[])
REAL epsquad (void)
REAL epsroot (void)
REAL exp_1 (void)
void fehler_melden (char text[], int fehlernummer, char dateiname[], int zeilennummer)
void getline (char kette[], int limit)
REAL horner (int n, REAL a[], REAL x)
int intervall (int n, REAL xwert, REAL x[])
void LogError (char *s, int rc, char *file, int line)
REAL mach_eps (void)
REAL maxroot (void)
REAL norm_max (REAL vektor[], int n)
REAL pi (void)
REAL posmin (void)
void quadsolv (REAL ar, REAL ai, REAL br, REAL bi, REAL cr, REAL ci, REAL *tr, REAL *ti)
void readln (void)
int ReadMat (FILE *fp, int m, int n, REAL *a[])
int ReadMat1 (FILE *fp, int m, int n, REAL *a[])
int ReadVec (FILE *fp, int n, REAL x[])
int ReadVec1 (FILE *fp, int n, REAL x[])
void SetMat (int m, int n, REAL *a[], REAL val)
void SetVec (int n, REAL x[], REAL val)
REAL skalprod (REAL v[], REAL w[], int n)
REAL sqr (REAL x)
long double sqrtlong (long double x)
int umleiten (int argc, char *argv[])
int WriteEnd (FILE *fp)
int WriteHead (FILE *fp, char *s)
int WriteMat (FILE *fp, int m, int n, REAL *mat[])
int WriteMat1 (FILE *fp, int m, int n, REAL *mat[])
int WriteVec (FILE *fp, int n, REAL x[])
int WriteVec1 (FILE *fp, int n, REAL x[])

Define Documentation

#define ABS (   X)    (((X) >= ZERO) ? (X) : -(X)) /* Absolute value of X */

Definition at line 454 of file basis.h.

#define ACOS (   x)    (REAL)acos((double)(x))

Definition at line 433 of file basis.h.

#define ATAN (   x)    (REAL)atan((double)(x))

Definition at line 431 of file basis.h.

#define BASIS   2 /* Basis of number representation */

Definition at line 330 of file basis.h.

#define COS (   x)    (REAL)cos((double)(x))

Definition at line 425 of file basis.h.

#define COSH (   x)    (REAL)cosh((double)(x))

Definition at line 435 of file basis.h.

#define EIGHT   (REAL)8.0

Definition at line 360 of file basis.h.

#define EPSQUAD   epsquad() /* square of MACH_EPS */

Definition at line 334 of file basis.h.

#define EPSROOT   epsroot() /* square root of MACH_EPS */

Definition at line 332 of file basis.h.

#define EXP (   x)    (REAL)exp((double)(x))

Definition at line 427 of file basis.h.

#define EXP_1   exp_1() /* e = 2.71... */

Definition at line 343 of file basis.h.

#define FABS (   x)    (REAL)fabs((double)(x)) /* declare names of basic */

Definition at line 413 of file basis.h.

#define FIVE   (REAL)5.0

Definition at line 356 of file basis.h.

#define FORMAT_126LF   "% 12.6" LZP "f " /* Format 12.6f for REAL */

Definition at line 467 of file basis.h.

#define FORMAT_2010LF   "% 20.10" LZP "f " /* Format 20.10f for REAL */

Definition at line 469 of file basis.h.

#define FORMAT_2016LE   "% 20.16" LZP "e " /* Format 20.16e for REAL */

Definition at line 475 of file basis.h.

#define FORMAT_2016LF   "% 20.16" LZP "f " /* Format 20.16f for REAL */

Definition at line 471 of file basis.h.

#define FORMAT_IN   "%lg" /* Input format for REAL */

Definition at line 463 of file basis.h.

#define FORMAT_LE   "% " LZP "e " /* Format e for REAL */

Definition at line 473 of file basis.h.

#define FORMAT_LF   "% " LZP "f " /* Format l for REAL */

Definition at line 465 of file basis.h.

#define FOUR   (REAL)4.0

Definition at line 354 of file basis.h.

#define HALF   (REAL)0.5

Definition at line 366 of file basis.h.

#define LOG (   x)    (REAL)log((double)(x))

Definition at line 429 of file basis.h.

#define LZP   "" /* length prefix for formatted */

Definition at line 233 of file basis.h.

#define LZS   "l" /* length prefix for formatted */

Definition at line 230 of file basis.h.

#define MACH_EPS   mach_eps() /* machine constant .................*/

Definition at line 196 of file basis.h.

#define max_basis (   a,
 
)    (((a) > (b)) ? (a) : (b))

Definition at line 447 of file basis.h.

#define MAX_EXP   1023 /* adjust here !!!! .................*/

Definition at line 203 of file basis.h.

#define MAXROOT   maxroot() /* square root of the largest */

Definition at line 336 of file basis.h.

#define min_basis (   a,
 
)    (((a) < (b)) ? (a) : (b))

Definition at line 445 of file basis.h.

#define NINE   (REAL)9.0

Definition at line 362 of file basis.h.

#define ONE   (REAL)1.0 /* floating point numbers */

Definition at line 348 of file basis.h.

#define PI   pi() /* pi = 3.14... */

Definition at line 340 of file basis.h.

#define POSMAX   1e100 /* adjust here !!!! .................*/

Definition at line 210 of file basis.h.

#define POSMIN   posmin()

Definition at line 227 of file basis.h.

#define POW (   x,
 
)
Value:
(REAL)pow((double)(x), \
/*.IX{POW}*/                              \
                             (double)(y))

Definition at line 420 of file basis.h.

#define sign (   x,
 
)
Value:
(((y) < ZERO) ? -FABS(x) :     /* |x| times     */  \
/*.IX{sign}*/                                                          \
                                    FABS(x))      /* sign of y     */

Definition at line 442 of file basis.h.

#define SIGN (   X,
 
)
Value:
/*.IX{SIGN}*/     \
             (((Y) < ZERO) ? -ABS(X) : ABS(X))    /* sign of Y times  */

Definition at line 456 of file basis.h.

#define SIN (   x)    (REAL)sin((double)(x))

Definition at line 423 of file basis.h.

#define SIX   (REAL)6.0

Definition at line 358 of file basis.h.

#define SQR (   X)    ((X) * (X)) /* square of X */

Definition at line 460 of file basis.h.

#define SQRT (   x)    (REAL)sqrt((double)(x)) /* three precisions */

Definition at line 418 of file basis.h.

#define SWAP (   typ,
  a,
 
)
Value:
/* swap two objects of   */ \
/*.IX{SWAP}*/                                                          \
  { typ temp; temp = a; a = b; b = temp; } /* arbitrary type        */

Definition at line 449 of file basis.h.

#define TEN   (REAL)10.0

Definition at line 364 of file basis.h.

#define THREE   (REAL)3.0

Definition at line 352 of file basis.h.

#define TWO   (REAL)2.0

Definition at line 350 of file basis.h.

#define ZERO   (REAL)0.0 /* declare names for recurring */

Definition at line 346 of file basis.h.


Typedef Documentation

typedef REAL abl_mat1[4][2]

Definition at line 292 of file basis.h.

typedef REAL abl_mat2[6][2]

Definition at line 294 of file basis.h.

typedef void(* ableitfnk)(REAL x, REAL c[], REAL *d)

Definition at line 263 of file basis.h.

typedef REAL(* ansatzfnk)(int i, REAL x)

Definition at line 259 of file basis.h.

typedef REAL(* approxfnk)(REAL c[], REAL x)

Definition at line 261 of file basis.h.

typedef REAL(* dglfnk)(REAL x, REAL y)

Definition at line 268 of file basis.h.

typedef void(* dglsysfnk)(REAL x, REAL y[], REAL f[])

Definition at line 274 of file basis.h.

typedef int(* FNFCT)(int, REAL[], REAL[])

Definition at line 308 of file basis.h.

typedef int(* JACOFCT)(int, REAL[], REAL *[])

Definition at line 312 of file basis.h.

typedef long double LONG_REAL

Definition at line 189 of file basis.h.

typedef REAL mat4x4[4][4]

Definition at line 297 of file basis.h.

typedef double REAL

Definition at line 186 of file basis.h.

typedef REAL(* REALFCT)(REAL)

Definition at line 304 of file basis.h.

typedef void(* rndbedfnk)(REAL ya[], REAL yb[], REAL r[])

Definition at line 279 of file basis.h.


Enumeration Type Documentation

enum boolean
Enumerator:
FALSE 
TRUE 

Definition at line 251 of file basis.h.

enum fehler_t
Enumerator:
KEIN_FEHLER 
WARNUNG 
UNBEKANNT 
FATAL 

Definition at line 285 of file basis.h.


Function Documentation

int basis ( void  )
REAL comabs ( REAL  ar,
REAL  ai 
)

Definition at line 334 of file basis.cpp.

int comdiv ( REAL  ar,
REAL  ai,
REAL  br,
REAL  bi,
REAL cr,
REAL ci 
)

Definition at line 371 of file basis.cpp.

void copy_vector ( REAL  ziel[],
REAL  quelle[],
int  n 
)

Definition at line 48 of file basis.cpp.

void CopyMat ( int  m,
int  n,
REAL source[],
REAL dest[] 
)

Definition at line 181 of file basis.cpp.

void CopyVec ( int  n,
REAL  source[],
REAL  dest[] 
)
REAL epsquad ( void  )

Definition at line 722 of file basis.cpp.

REAL epsroot ( void  )

Definition at line 701 of file basis.cpp.

REAL exp_1 ( void  )
void fehler_melden ( char  text[],
int  fehlernummer,
char  dateiname[],
int  zeilennummer 
)
void getline ( char  kette[],
int  limit 
)
REAL horner ( int  n,
REAL  a[],
REAL  x 
)
int intervall ( int  n,
REAL  xwert,
REAL  x[] 
)
void LogError ( char *  s,
int  rc,
char *  file,
int  line 
)

Definition at line 666 of file basis.cpp.

REAL mach_eps ( void  )
REAL maxroot ( void  )

Definition at line 214 of file basis.cpp.

REAL norm_max ( REAL  vektor[],
int  n 
)

Definition at line 24 of file basis.cpp.

REAL pi ( void  )

Definition at line 177 of file basis.cpp.

REAL posmin ( void  )
void quadsolv ( REAL  ar,
REAL  ai,
REAL  br,
REAL  bi,
REAL  cr,
REAL  ci,
REAL tr,
REAL ti 
)

Definition at line 245 of file basis.cpp.

void readln ( void  )
int ReadMat ( FILE *  fp,
int  m,
int  n,
REAL a[] 
)

Definition at line 429 of file basis.cpp.

int ReadMat1 ( FILE *  fp,
int  m,
int  n,
REAL a[] 
)

Definition at line 467 of file basis.cpp.

int ReadVec ( FILE *  fp,
int  n,
REAL  x[] 
)

Definition at line 72 of file basis.cpp.

int ReadVec1 ( FILE *  fp,
int  n,
REAL  x[] 
)

Definition at line 93 of file basis.cpp.

void SetMat ( int  m,
int  n,
REAL a[],
REAL  val 
)

Definition at line 541 of file basis.cpp.

void SetVec ( int  n,
REAL  x[],
REAL  val 
)

Definition at line 107 of file basis.cpp.

REAL skalprod ( REAL  v[],
REAL  w[],
int  n 
)
REAL sqr ( REAL  x)

Definition at line 11 of file basis.cpp.

long double sqrtlong ( long double  x)
int umleiten ( int  argc,
char *  argv[] 
)
int WriteEnd ( FILE *  fp)

Definition at line 630 of file basis.cpp.

int WriteHead ( FILE *  fp,
char *  s 
)

Definition at line 574 of file basis.cpp.

int WriteMat ( FILE *  fp,
int  m,
int  n,
REAL mat[] 
)

Definition at line 482 of file basis.cpp.

int WriteMat1 ( FILE *  fp,
int  m,
int  n,
REAL mat[] 
)

Definition at line 522 of file basis.cpp.

int WriteVec ( FILE *  fp,
int  n,
REAL  x[] 
)

Definition at line 115 of file basis.cpp.

int WriteVec1 ( FILE *  fp,
int  n,
REAL  x[] 
)

Definition at line 146 of file basis.cpp.