Hamilton-Jacobi 源代码

function [y,n]=jacobi(A,b,x0,eps) if nargin==3 eps=1.0e-6; elseif nargin=eps x0=y; y=B*x0+f; n=n+1; end

// rabin.cpp - written and placed in the public domain by Wei Dai #include "pch.h" #include "rabin.h" #include "nbtheory.h" …

@cindex Jacobi elliptic functions @cindex elliptic functions (Jacobi) The Jacobian Elliptic functions are defined in Abramowit…

function [x,n]=jacobi(A,b,x0,eps,varargin) if nargin==3 eps= 1.0e-6; M = 200; elseif nargin=eps x0=x; x=B*…

// rabin.cpp - written and placed in the public domain by Wei Dai #include "pch.h" #include "rabin.h" #include "nbtheory.h" …

function X=jacobi(A,B,P,delta, max1) % Input - A is an N x N nonsingular matrix % - B is an N x 1 matrix % - P is …

// rabin.cpp - written and placed in the public domain by Wei Dai #include "pch.h" #include "rabin.h" #include "nbtheory.h" …

Private Sub Command1_Click() 'PROGRAM D8R1 'Driver for routine JACOBI NP = 3 Dim D(3), V(3, 3), R(3) Dim …

// rabin.cpp - written and placed in the public domain by Wei Dai #include "pch.h" #include "rabin.h" #include "nbtheory.h" …

function [x, error, iter, flag] = jacobi(A, x, b, max_it, tol) % -- Iterative template routine -- % Univ. of Tennessee and …