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);}
f
double yn()
Definition: eus.h:524
pointer BESSEL(ctx, int n, argv)
Definition: bessel.c:6
GLfloat n[6][3]
Definition: cube.c:15
defun("ADR_TO_STRING", mod, ADR_TO_STRING)
ckarg(2)
float ckfltval()
bessel(context *ctx, int n, argv, *env)
Definition: bessel.c:16
Definition: eus.h:428
double jn()
Definition: eus.h:381
#define NULL
Definition: transargv.c:8
pointer makeflt()


euslisp
Author(s): Toshihiro Matsui
autogenerated on Mon Feb 28 2022 22:18:27