function comet(x, y, p) if nargin == 0, x = -pi:pi/200:pi; y = tan(sin(x))-sin(tan(x)); p = 0.1; else if nargin…
finite+element 源代码
汇集 finite+element 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
function H = hessian(f,x,varargin) % PURPOSE: Computes finite difference Hessian % -----------------------------------------------…
function H = fdhess(f,x,varargin) % PURPOSE: Computes finite difference Hessian % ------------------------------------------------…
function fjac = fdjac(f,x,varargin) % PURPOSE: Computes two-sided finite difference Jacobian % -----------------------------------…
function a = gause(n,b) % 计算高斯型隶属函数 % if nargin < 1 | nargin > 2 % 检查输入矢量的个数只能为1或2个... error('…
/* Config file for Clipper running Clix, system V. 3.2 clone */ /* #defines that need visibility everywhere. */ #define FALSE …
% CREWES finite difference seismic modelling % Acoustic finite difference modelling toolbox % % Sample scripts % HIGHV_WEDGE .…
// BZ_HAVE_IEEE_MATH #ifndef _ALL_SOURCE #define _ALL_SOURCE #endif #ifndef _XOPEN_SOURCE #define _XOPEN_SOURCE #endif…
function comet(x, y, p) if nargin == 0, x = -pi:pi/200:pi; y = tan(sin(x))-sin(tan(x)); p = 0.1; else if nargin…
clear all x0 = [10; 10; 10]; tolf = 1.e-10; tolx = 1.e-10; maxit = 100; % Newton's method [x, ithist, iflag…