sum1.m

本光盘为许国根编著《化学化工中的数学方法及MATLAB实现》的配套光盘

function [y,d]=sum1(x)
[r,c]=size(x);
if r==1
    a=0;
    for i=1:c
        a=a+x(i)^2;
    end
    y=a;
else
    for j=1:c
        a(j)=0;
        for i=1:r
            a(j)=a(j)+x(i,j)^2;
        end
        y(j)=a(j);
    end
end