bessel.c
Go to the documentation of this file.
1 #include <math.h>
2 #include "eus.h"
3 
4 extern double jn(), yn();
5 
6 pointer BESSEL(ctx,n,argv)
7 int n;
8 pointer argv[];
9 { int i=ckintval(argv[0]);
10  numunion nu;
11  float f = ckfltval(argv[1]);
12  ckarg(2);
13  f=jn(i,f);
14  return(makeflt(f));}
15 
16 bessel(ctx,n,argv,env)
17 context *ctx;
18 int n;
19 pointer argv[], *env;
20 { defun(ctx, "BESSEL", argv[0], BESSEL,NULL);}
numunion
Definition: eus.h:428
defun
defun("ADR_TO_STRING", mod, ADR_TO_STRING)
context
Definition: eus.h:524
BESSEL
pointer BESSEL(ctx, int n, argv)
Definition: bessel.c:6
ckfltval
float ckfltval()
eus.h
NULL
#define NULL
Definition: transargv.c:8
makeflt
pointer makeflt()
f
f
cell
Definition: eus.h:381
jn
double jn()
bessel
bessel(context *ctx, int n, argv, *env)
Definition: bessel.c:16
yn
double yn()
n
GLfloat n[6][3]
Definition: cube.c:15
ckarg
ckarg(2)

euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Jun 15 2023 02:06:42