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; …
function r=oumiga(a) n=length(a); x1=zeros(n,1); D=zeros(n,n); L=zeros(n,n); U=zeros(n,n); for i=1:n for j=1:n …
function [x,st]=jac(a,b,n,x1) D=zeros(n,n); L=zeros(n,n); U=zeros(n,n); for i=1:n for j=1:n if j==i …
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 r=oumiga(a) n=length(a); x1=zeros(n,1); D=zeros(n,n); L=zeros(n,n); U=zeros(n,n); for i=1:n for j=1:n …
function [x,st]=jac(a,b,n,x1) D=zeros(n,n); L=zeros(n,n); U=zeros(n,n); for i=1:n for j=1:n if j==i …
#include #define ACC 40.0 #define BIGNO 1.0e10 #define BIGNI 1.0e-10 float bessj(n,x) float x; int n; { float bessj0()…