← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic 

1
2
3
4
5
6
7
8

function a=%p_sum(a,flag)
// Copyright INRIA
[m,n]=size(a);
if flag==1|flag=='r' then
  a=ones(1,m)*a;
elseif flag==2|flag=='c' then
  a=a*ones(n,1);
end