BJ-EPM240 源代码

clear all; bj=[116.46,39.92,0]; zhzh=[113.7,34.5,0]; wch=[114.32,30.35,0]; chsh=[112.92,28.33,0]; gzh=[113.25,23.13,0]; %选取北…

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 …

FUNCTION bessj(n,x) INTEGER n,IACC REAL bessj,x,BIGNO,BIGNI PARAMETER (IACC=40,BIGNO=1.e10,BIGNI=1.e-10) !USES bessj0,bessj1 …

FUNCTION bessj(n,x) INTEGER n,IACC REAL bessj,x,BIGNO,BIGNI PARAMETER (IACC=40,BIGNO=1.e10,BIGNI=1.e-10) !USES bessj0,bessj1 …

#include void main(void) { printf(" ab c\t de\rf\tg\n"); printf("h\ti\bj k\n"); }

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…