E. 補間 (B-スプライン補間)

関数
Sub	Banfac (N As Long, Kl As Long, Ku As Long, Ab() As Double, Info As Long)
	連立一次方程式の係数行列(帯行列)のLU分解 (Bint4およびBintkの補助ルーチン)
Sub	Banslv (N As Long, Kl As Long, Ku As Long, Ab() As Double, B() As Double, Info As Long)
	LU分解済の連立一次方程式の解 (Bint4およびBintkの補助ルーチン)
Sub	Bint4 (X() As Double, Y() As Double, Ndata As Long, Ibcl As Long, Ibcr As Long, Fbcl As Double, Fbcr As Double, Kntopt As Long, T() As Double, Bcoef() As Double, N As Long, K As Long, Info As Long)
	3次B-スプライン補間
Sub	Bintk (X() As Double, Y() As Double, T() As Double, N As Long, K As Long, Bcoef() As Double, Q() As Double, Info As Long)
	k次B-スプライン補間
Sub	Bspldr (T() As Double, A() As Double, N As Long, K As Long, Nderiv As Long, Ad() As Double, Info As Long)
	B-スプライン係数より差分商を構成(Bsplevによる微分値の計算用)
Sub	Bsplev (T() As Double, Ad() As Double, N As Long, K As Long, Nderiv As Long, X As Double, Inev As Long, Svalue() As Double, Info As Long)
	B-スプライン関数値および微分値
Sub	Bsplpp (T() As Double, A() As Double, N As Long, K As Long, C() As Double, Xi() As Double, Lxi As Long, Info As Long)
	B-形式のB-スプラインからPP(区分多項式)形式への変換
Sub	Bsplvd (T() As Double, K As Long, Nderiv As Long, X As Double, Ileft As Long, Vnikx() As Double, Info As Long)
	B-スプライン基底関数値および微分値
Sub	Bsplvn (T() As Double, Jhigh As Long, K As Long, Index As Long, X As Double, Ileft As Long, Vnikx() As Double, Info As Long)
	B-スプライン基底関数値
Function	Bvalue (T() As Double, A() As Double, N As Long, K As Long, Ideriv As Long, X As Double, Inbv As Long, Info As Long) As Double
	B-形式のB-スプライン関数値または微分値
Sub	Interv (Xt() As Double, Lxt As Long, X As Double, Ilo As Long, Ileft As Long, Info As Long)
	Ileftを求める (BsplvdおよびBsplvnの入力用)
Function	Ppvalu (C() As Double, Xi() As Double, Lxi As Long, K As Long, Ideriv As Long, X As Double, Inppv As Long, Info As Long) As Double
	PP(区分多項式)形式のB-スプライン関数値または微分値

詳解

E. 補間 (B-スプライン補間) プログラムを表示しています.