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

潇湘夜雨123456

function [f,f0] = ThrSample1(x,y,y_1,y_n,x0)
9 `1 a' f$ {! O%求已知数据点的第一类三次样条差值多项式及其插值点处的值
( |3 F$ J+ H8 V, b%已知数据点的x坐标向量：x
# J( x9 G4 m) y$ T- @. q9 c%已知数据点的y坐标向量：y
%左端点的一阶导数：y_1
, c$ q$ |- y/ U%右端点的一阶导数：y_n
; K1 s# V. w5 L$ n) l%插值点的x坐标：x0
% P: G8 O  c9 a8 |& `6 e% B%求得的三次样条差值多项式：f
7 _+ m/ z* M. H4 `. Y& @3 y%求得的x0处的插值：f0
syms t
9 g) }, Z$ e7 S/ rf = 0.0000;
f0 = 0.0000;
if(length(x)==length(y))
    n = length(x);
! F3 I% s9 P0 P7 }( c, oelse
    disp('x和y的维数不相等！');
7 Y& d$ t" G8 k: G/ ^    return;
end              %维数检查
for i=1:n
# t$ }; a; [2 z6 S4 Z    if(x(i)<=x0)&&(x(i+1)>=x0)
5 d8 g6 _/ B- y+ c        ihdex = i;
/ ?6 I+ j9 k) |        break;
& g0 b+ z$ I, Y* a    end
5 d7 [+ l( Q/ X" W; @( y. zend              %找到x0所在区间
A = diag(2*ones(1,n));   %求解m的系数矩阵
u = zeros(n-2,1);
7 ^1 M9 f$ X% t5 B& Nlamda = zeros(n-1,1);
, ^3 a$ d4 t; N& ^c = zeros(n,1);
for i = 2:n-1
6 l% W' J$ _( [: j    u(i-1) = (x(i)-x(x-1))/(x(i+1)-x(i-1));
1 |4 A* W% ~( x: ]) e    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));
A(i,i+1) = u(i-1);
3 j; J7 e  h5 e* @7 p+ H A(i,i-1) = lamda(i);   %构造系数矩阵及向量c
+ b/ [7 z3 v/ l4 k7 mend
c(1) = 2*y_1;
c(n) = 2*y_n;
m = followup(A,c);   %用追赶法求解方程组
% j5 B$ m4 f) Y, a1 r2 G1 t& ?h = x(index+1) - x(index);  %x0所在区间长度
  q8 g2 b& r% w2 q8 B- k7 Sf = y(index)*(2*(t-x(index))+h)*(t-x(index+1))^2/h/h/h+...
    y(index+1)*(2*(x(index+1)-t)+h)*(t-x(index))^2/h/h/h+...
    m(index)*(t-x(index))*(x(index+1)-t)^2/h/h-...
! X+ S# U6 y8 b% ^  N- [# j9 T    m(index+1)*(x(index+1)-t)*(t-x(index))^2/h/h; %x0所在区间的插值函数
f0 = abs(f,'t',x0)  %x0处的插值
8 ~7 \) u/ F6 \7 r+ S0 ~: Q% `   
* M- b1 i+ K4 |' k   
# J+ S8 G8 F# `- R" J
0 x% n, L& C( @, Z