代码搜索:tridiagonal
找到约 218 项符合「tridiagonal」的源代码
代码结果 218
www.eeworm.com/read/367160/9777281
f cptt01.f
SUBROUTINE CPTT01( N, D, E, DF, EF, WORK, RESID )
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
* November 2006
*
*
www.eeworm.com/read/367160/9777646
f dptt01.f
SUBROUTINE DPTT01( N, D, E, DF, EF, WORK, RESID )
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
* November 2006
*
*
www.eeworm.com/read/367160/9777849
f sptt01.f
SUBROUTINE SPTT01( N, D, E, DF, EF, WORK, RESID )
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
* November 2006
*
*
www.eeworm.com/read/367160/9779009
f dstect.f
SUBROUTINE DSTECT( N, A, B, SHIFT, NUM )
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
* November 2006
*
* .. Sc
www.eeworm.com/read/367160/9779246
f sstect.f
SUBROUTINE SSTECT( N, A, B, SHIFT, NUM )
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
* November 2006
*
* .. Sc
www.eeworm.com/read/429279/8813601
h trfd.h
// -*-c++-*-
// LAPACK++ (V. 1.1)
// (C) 1992-1996 All Rights Reserved.
#ifndef _LA_TRIDIAG_FACT_DOUBLE_H_
#define _LA_TRIDIAG_FACT_DOUBLE_H_
/** @file
@brief LU factorization of a tri
www.eeworm.com/read/427511/8938467
m tridisolve.m
function x = tridisolve(a,b,c,d)
% TRIDISOLVE Solve tridiagonal system of equations.
% x = TRIDISOLVE(a,b,c,d) solves the system of linear equations
% b(1)*x(1) + c(1)*x(2) = d(1),
%
www.eeworm.com/read/427511/8938489
m splinetx.m
function v = splinetx(x,y,u)
%SPLINETX Textbook spline function.
% v = splinetx(x,y,u) finds the piecewise cubic interpolatory
% spline S(x), with S(x(j)) = y(j), and returns v(k) = S(u(k)).
%
www.eeworm.com/read/372507/9507246
cpp tridiag.cpp
// test tridiagonal matrix class
#include
#include "tridiag.h"
void main(void)
{
TridiagonalMatrix X(20);
X.Store(22,1,1).Store(44,5,5).Store(0,8,5).Store(55,7,8);
www.eeworm.com/read/365788/9847032
txt 5-求解三实对角线方程组-p66.txt
#公式见P67
# real tridiagonal equation solver
subroutine rtris(n,endl,a,b,c,endr,d,q,e,f)
real q(n),d(n),f(n),e(n),a,b,c,den,endl,endr
e(1)=-a/endl; f(1)=d(1)/endl
do i=2,n-1
{
den=b+c*e(i-1)