summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.sci
blob: b23dfdc8e2bf01fb148f24823afd344759ad3632 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
// 09.03.12

function Out=Powersum(varargin)
  Nargs=length(varargin);
  COEFF=varargin(1);
  x=varargin(2);
  if Nargs>2
    x=x-varargin(3);
  end;
  NL=Mixop(1,COEFF);
  A=Mixop(2,COEFF);
  Upto=min(size(NL,2),size(A,2));
  NL=NL(1:Upto);
  A=A(1:Upto);
  Out=sum(A.*x^NL);
endfunction;