bessel.c
Go to the documentation of this file.
00001 #include <math.h>
00002 #include "eus.h"
00003 
00004 extern double jn(), yn();
00005 
00006 pointer BESSEL(ctx,n,argv)
00007 int n;
00008 pointer argv[];
00009 { int i=ckintval(argv[0]);
00010   numunion nu;
00011   float f = ckfltval(argv[1]);
00012   ckarg(2);
00013   f=jn(i,f);
00014   return(makeflt(f));}
00015 
00016 bessel(ctx,n,argv,env)
00017 context *ctx;
00018 int n;
00019 pointer argv[], *env;
00020 { defun(ctx, "BESSEL", argv[0], BESSEL);}


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Mar 9 2017 04:57:49