#include #include #include #include #include #include #include int sgn(double x) { int temp; if(x>0)temp=1; …
BJ-EPM240 源代码
汇集 BJ-EPM240 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
#include #include #include #include #include #include #include int sgn(double x) { int temp; if(x>0) temp=1; …
Function BESSJ(N:Integer; X:Real):Real; var BJ,BJM,BJP,SUM,TOX,ANS:Real; J,JSUM,M:Integer; const IACC = 40; BIGNO =…
unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics,unit1, Controls, Forms, Dialogs; procedure MMID(…
unit Unit2; interface uses Windows, Messages, SysUtils, Classes,unit1, Graphics, Controls, Forms, Dialogs; procedure RK4…
unit Unit2; interface uses Windows, Messages, SysUtils, Classes,unit1, Graphics, Controls, Forms, Dialogs; procedure RKD…
unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; Function BESSJ1(X:rea…
Function BESSJ(N:Integer; X:Real):Real; var BJ,BJM,BJP,SUM,TOX,ANS:Real; J,JSUM,M:Integer; const IACC = 40; BIGNO =…
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 …