Artifact 2bc3da3dabfa76f537325b094aa49633d5c7e185a923c2c95b9d58fd39e4cf9b:

• File mttroot/mtt/lib/control/PPP/laguerre_matrix.m — part of check-in [182384e0d6] at 2001-04-02 15:02:35 on branch origin/master — Putting the PPP library under cvs (user: gawthrop@users.sourceforge.net, size: 323) [annotate] [blame] [check-ins using] [more...]

function A = laguerre_matrix (n,p)

  ## usage:  A = laguerre_matrix (n,p)
  ##
  ## A-matrix for generating nth order Laguerre functions with parameter p

  ## Copyright (C) 1999 by Peter J. Gawthrop

  ## Create A matrix
  A = diag(-p*ones(n,1));
  for i=1:n-1
    A = A + diag(-2*p*ones(n-i,1),-i);
  endfor

endfunction