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,NULL);}