用matlab写出赛德尔迭代法程序，通过调用gaussseid子函数实现。

赛德尔迭代法（Gauss-Seidel Iteration Method）是一种逐次逼近解的方法，用于解线性方程组。下面是用MATLAB编写赛德尔迭代法程序，通过调用gaussseid子函数实现的示例代码：

function [x, iter] = seidel(A, b, x0, tol, max_iter)
% A为系数矩阵，b为常数向量，x0为初值，tol为容差，max_iter为最大迭代次数
% x为求解的解向量，iter为实际迭代次数

n = length(b);
x = x0;
iter = 0;
while iter < max_iter
    x_old = x;
    for i = 1:n
        x(i) = (b(i) - A(i,1:i-1)*x(1:i-1) - A(i,i+1:n)*x_old(i+1:n)) / A(i,i);
    end
    if norm(x - x_old) < tol
        break;
    end
    iter = iter + 1;
end
end

调用该函数的示例代码如下：

A = [10 -1 2; -1 11 -1; 2 -1 10];  % 系数矩阵
b = [6; 25; -11];  % 常数向量
x0 = zeros(size(b));  % 初值
tol = 1e-6;  % 容差
max_iter = 100;  % 最大迭代次数

[x, iter] = seidel(A, b, x0, tol, max_iter);
disp('解向量x为：')
disp(x)
disp(['实际迭代次数为：', num2str(iter)])

注意，在调用seidel函数之前，需要在MATLAB中定义好gaussseid子函数，用于计算在每次迭代中的x(i)。