Annotate Patch Unified Diff

Differences From Artifact [2bc3da3dab]:

To Artifact [5e8ca33d42]:

1
2
3
4
5
6
7
8


9
10
11
12
13

14
15

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









>
>
|
|
|
|
|
>



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

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

  if n<1			# Creatre empty matrix
    A = [];
  else				# 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
  endif

endfunction
MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]