把这段代码封装为一个函数

好的，以下是修改后的代码，实现将上述操作封装为一个函数：

function B = deleteRows(A, B)
% A为要比较的矩阵，B为要进行操作的矩阵
    % 获取矩阵A的行数和列数
    [mA, nA] = size(A);

    % 获取矩阵B的行数和列数
    [mB, nB] = size(B);

    % 遍历矩阵A的每一行
    for i = 1:mA
        % 获取当前行的向量
        rowA = A(i,:);

        % 在矩阵B中查找是否存在与当前行相同的向量
        index = find(all(B == rowA, 2));

        % 如果存在，则删除相同的这一行
        if ~isempty(index)
            B(index,:) = [];
        end
    end
end

可以将上述代码保存为一个.m文件，并在其他程序中调用该函数来实现相应的操作。例如：

% 定义矩阵A和矩阵B
A = [1 2 3; 4 5 6; 7 8 9];
B = [4 5 6; 10 11 12; 7 8 9];

% 调用deleteRows函数来删除相同的行
B = deleteRows(A, B);

% 输出删除后的矩阵B
disp(B);

需要注意的是，在调用函数时，需要传入要比较的矩阵A和要进行操作的矩阵B。