double bessj(int n, double x) { int iacc,j,m; double temp,bigno,bigni,ax,tox,bj,bjp,bjm,besj,jsum,sum; iacc = 40; b…
BJ-EPM240 源代码
汇集 BJ-EPM240 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
#include #include #include #include #include #include #include int sgn(double x) { int temp; if(x>0) temp=1; …
#include #include #include #include #include #include #include int sgn(double x) { int temp; if(x>0)temp=1; …
double bessj(int n, double x) { int iacc,j,m; double temp,bigno,bigni,ax,tox,bj,bjp,bjm,besj,jsum,sum; iacc = 40; b…
double bessj(int n, double x) { int iacc,j,m; double temp,bigno,bigni,ax,tox,bj,bjp,bjm,besj,jsum,sum; iacc = 40; b…
Function BESSJ(N:Integer; X:Real):Real; var BJ,BJM,BJP,SUM,TOX,ANS:Real; J,JSUM,M:Integer; const IACC = 40; BIGNO =…
double bessj(int n, double x) { int iacc,j,m; double temp,bigno,bigni,ax,tox,bj,bjp,bjm,besj,jsum,sum; iacc = 40; b…
#include #include #include "nr.h" using namespace std; DP NR::bessj(const int n, const DP x) { const DP ACC=160.0; co…
#include #define ACC 40.0 #define BIGNO 1.0e10 #define BIGNI 1.0e-10 float bessj(int n, float x) { float bessj0(float x); floa…
#include #include #include "nr.h" using namespace std; DP NR::bessj(const int n, const DP x) { const DP ACC=160.0; co…