●EXCEL・VBA質問スレ Part2●

●EXCEL・VBA質問スレ ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

862:デフォルトの名無しさん
 07/09/03 22:43:49 
'This routines must be defined by the programmer 
' Sub FuncVecJac(ByRef X() As Double, _ 
'         ByRef FVec() As Double, _ 
'         ByRef FJac() As Double, _ 
'         ByRef IFlag As Long) 
 
 
'Routines 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
'The subroutine minimizes the sum of squares  of  M nonlinear finctions  of 
'N  arguments  with  Levenberg-Marquardt  algorithm  using  Jacobian    and 
'information about function values. 
' 
'Programmer  should  redefine  FuncVecJac  subroutine  which  takes array X 
'(argument)  whose  index  ranges  from  1 to N as an input and if variable 
'IFlag is equal to: 
'    * 1, returns vector of function values in array FVec (in elements from 
'      1 to M), not changing FJac. 
'    * 2,  returns  Jacobian  in  array FJac (in elements [1..M,1..N]), not 
'      changing FVec. 
'The subroutine can change the IFlag parameter by setting it into a negative 
'number. It will terminate program. 
' 
'Programmer  can  also  redefine  LevenbergMarquardtNewIteration subroutine 
'which is called on each new step.   Current  point  X  is  passed into the 
'subroutine.   It  is  reasonable  to  redefine  the  subroutine for better 
'debugging, for example, to visualize the solution process. 
' 
'The AdditionalLevenbergMarquardtStoppingCriterion could  be  redefined  to 
'modify stopping conditions.

次ページ