Back to index

radiance  4R0+20100331
Functions | Variables
biggerlib.c File Reference
#include <stdio.h>
#include <math.h>
#include "calcomp.h"

Go to the source code of this file.

Functions

double argument (int)
static double l_j0 (char *)
static double l_j1 (char *)
static double l_jn (char *)
static double l_y0 (char *)
static double l_y1 (char *)
static double l_yn (char *)
static double l_erf (char *)
static double l_erfc (char *)
void biggerlib ()

Variables

static const char RCSid [] = "$Id: biggerlib.c,v 3.5 2003/08/04 22:37:53 greg Exp $"

Function Documentation

double argument ( int  )

Definition at line 192 of file calfunc.c.

{
    register ACTIVATION  *actp = curact;
    register EPNODE  *ep = NULL;
    double  aval;

    if (actp == NULL || --n < 0) {
       eputs("Bad call to argument!\n");
       quit(1);
    }
                                          /* already computed? */
    if (n < AFLAGSIZ && 1L<<n & actp->an)
       return(actp->ap[n]);

    if (actp->fun == NULL || (ep = ekid(actp->fun, n+1)) == NULL) {
       eputs(actp->name);
       eputs(": too few arguments\n");
       quit(1);
    }
    curact = actp->prev;                  /* pop environment */
    aval = evalue(ep);                           /* compute argument */
    curact = actp;                        /* push back environment */
    if (n < ALISTSIZ) {                          /* save value */
       actp->ap[n] = aval;
       actp->an |= 1L<<n;
    }
    return(aval);
}

Here is the caller graph for this function:

void biggerlib ( void  )

Definition at line 22 of file biggerlib.c.

{
                            /* the Bessel functions */
    funset("j0", 1, ':', l_j0);
    funset("j1", 1, ':', l_j1);
    funset("jn", 2, ':', l_jn);
    funset("y0", 1, ':', l_y0);
    funset("y1", 1, ':', l_y1);
    funset("yn", 2, ':', l_yn);
    funset("erf", 1, ':', l_erf);
    funset("erfc", 1, ':', l_erfc);
}

Here is the call graph for this function:

Here is the caller graph for this function:

static double l_erf ( char *  nm) [static]

Definition at line 79 of file biggerlib.c.

{
    extern double  erf();

    return(erf(argument(1)));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static double l_erfc ( char *  nm)

Definition at line 88 of file biggerlib.c.

{
    extern double  erfc();

    return(erfc(argument(1)));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static double l_j0 ( char *  nm) [static]

Definition at line 37 of file biggerlib.c.

{
    return(j0(argument(1)));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static double l_j1 ( char *  nm)

Definition at line 44 of file biggerlib.c.

{
    return(j1(argument(1)));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static double l_jn ( char *  nm)

Definition at line 51 of file biggerlib.c.

{
    return(jn((int)(argument(1)+.5), argument(2)));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static double l_y0 ( char *  nm) [static]

Definition at line 58 of file biggerlib.c.

{
    return(y0(argument(1)));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static double l_y1 ( char *  nm)

Definition at line 65 of file biggerlib.c.

{
    return(y1(argument(1)));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static double l_yn ( char *  nm)

Definition at line 72 of file biggerlib.c.

{
    return(yn((int)(argument(1)+.5), argument(2)));
}

Here is the call graph for this function:

Here is the caller graph for this function:


Variable Documentation

const char RCSid[] = "$Id: biggerlib.c,v 3.5 2003/08/04 22:37:53 greg Exp $" [static]

Definition at line 2 of file biggerlib.c.