add numerical recipes library
This commit is contained in:
13
lib/nr/k_and_r/recipes/ellf.c
Normal file
13
lib/nr/k_and_r/recipes/ellf.c
Normal file
@@ -0,0 +1,13 @@
|
||||
|
||||
#include <math.h>
|
||||
#include "nrutil.h"
|
||||
|
||||
float ellf(phi,ak)
|
||||
float ak,phi;
|
||||
{
|
||||
float rf();
|
||||
float s;
|
||||
|
||||
s=sin(phi);
|
||||
return s*rf(SQR(cos(phi)),(1.0-s*ak)*(1.0+s*ak),1.0);
|
||||
}
|
||||
Reference in New Issue
Block a user