www.gusucode.com > elmat工具箱matlab源码程序 > elmat/private/jordbloc.m

    function J = jordbloc(n, lambda, classname)
%JORDBLOC Jordan block.
%   GALLERY('JORDBLOC',N,LAMBDA) is the N-by-N Jordan block
%   with eigenvalue LAMBDA.  LAMBDA = 1 is the default.

%   Copyright 1984-2005 The MathWorks, Inc.

if isempty(lambda), lambda = ones(classname); end

J = lambda*eye(n,classname) + diag(ones(n-1,1,classname),1);