程序有点问题？？？？？？？帮帮忙

潇湘夜雨123456

function [f,f0] = ThrSample1(x,y,y_1,y_n,x0)
9 d' h0 z) \9 V: `8 P/ o%求已知数据点的第一类三次样条差值多项式及其插值点处的值
1 ?( S1 i# k) n+ |" K% n: b! @%已知数据点的x坐标向量：x
%已知数据点的y坐标向量：y
%左端点的一阶导数：y_1
; }) \% B4 `: E1 `5 S, X/ t; K/ y%右端点的一阶导数：y_n
%插值点的x坐标：x0
2 x; N' m9 O1 s& q( f* x%求得的三次样条差值多项式：f
6 u/ C. w" l. ?8 s" v%求得的x0处的插值：f0
7 }  U( ~$ v. L; E. H' w+ U3 Ksyms t
  m" ~. w6 {6 V* r8 R" cf = 0.0000;
$ B1 [9 I* w1 }# k7 J1 gf0 = 0.0000;
if(length(x)==length(y))
    n = length(x);
else
    disp('x和y的维数不相等！');
- A, H$ ?( i$ F- Q) G: `- a. B    return;
# s1 C6 ~) X8 p) E$ g( @5 K+ pend              %维数检查
% B2 v# E# f9 [3 v; ?* d" y6 cfor i=1:n
3 R4 m5 ?& X% ?5 v) U    if(x(i)<=x0)&&(x(i+1)>=x0)
- G) }( o+ _2 Y6 o! ~6 j; p" Q        ihdex = i;
        break;
" R0 o9 C9 F/ C2 ^9 H/ B9 Y    end
end              %找到x0所在区间
A = diag(2*ones(1,n));   %求解m的系数矩阵
* _) m* u+ Q- Y+ I/ g$ {u = zeros(n-2,1);
1 Y* q( |7 X) @' c4 Y: Qlamda = zeros(n-1,1);
! ?. d$ Y6 @$ l3 h' |; V. ~7 Rc = zeros(n,1);
for i = 2:n-1
    u(i-1) = (x(i)-x(x-1))/(x(i+1)-x(i-1));
    lamda(i) = (x(i+1)-x(i))/(x(i+1)-x(i-1));
    c(i) = 3*lamda(i)*(y(i)-y(i-1))/(x(i)-x(i-1))+3*u(i-1)*(y(i+1)-y(i))/(x(i+1)-x(i));
/ C& p+ k+ O% A( t- y A(i,i+1) = u(i-1);
A(i,i-1) = lamda(i);   %构造系数矩阵及向量c
end
& E" N% H9 I. Z6 U" z4 gc(1) = 2*y_1;
c(n) = 2*y_n;
m = followup(A,c);   %用追赶法求解方程组
. i# @* E. ?" m3 c% yh = x(index+1) - x(index);  %x0所在区间长度
f = y(index)*(2*(t-x(index))+h)*(t-x(index+1))^2/h/h/h+...
3 w# g3 {1 E2 d9 }$ T    y(index+1)*(2*(x(index+1)-t)+h)*(t-x(index))^2/h/h/h+...
, a- J8 w' d1 D- S" I9 N    m(index)*(t-x(index))*(x(index+1)-t)^2/h/h-...
    m(index+1)*(x(index+1)-t)*(t-x(index))^2/h/h; %x0所在区间的插值函数
f0 = abs(f,'t',x0)  %x0处的插值
: ^% D* `4 c( E   
   
& e9 h, L1 v, C/ d) P
2 j; O5 `' J. ?