add numerical recipes library
This commit is contained in:
13
lib/nr/cpp/recipes/elle.cpp
Normal file
13
lib/nr/cpp/recipes/elle.cpp
Normal file
@@ -0,0 +1,13 @@
|
||||
#include <cmath>
|
||||
#include "nr.h"
|
||||
using namespace std;
|
||||
|
||||
DP NR::elle(const DP phi, const DP ak)
|
||||
{
|
||||
DP cc,q,s;
|
||||
|
||||
s=sin(phi);
|
||||
cc=SQR(cos(phi));
|
||||
q=(1.0-s*ak)*(1.0+s*ak);
|
||||
return s*(rf(cc,q,1.0)-(SQR(s*ak))*rd(cc,q,1.0)/3.0);
|
||||
}
|
||||
Reference in New Issue
Block a user