Mercurial > octave

comparison scripts/special-matrix/gallery.m @ 31551:fd29c7a50a78 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: use commas, semicolons consistently with Octave conventions. * makeValidName.m: Remove %!test and move BIST %!asserts to column 1. * base64decode.m, base64encode.m, which.m, logm.m, uniquetol.m, perms.m: Delete semicolon (';') at end of %!assert BIST. * lin2mu.m, interp2.m, interpn.m, lsqnonneg.m, pqpnonneg.m, uniquetol.m, betainc.m, normalize.m: Add semicolon (';') to end of assert statement within %!test BIST. * __memoize__.m, tar_is_bsd.m, publish.m: Add semicolon (';') to line with keyword "persistent". * stft.m: Use comma (',') after "case" keyword when code immediately follows. * gallery.m: Align commas used in case statements in massive switch block. Remove unnecessary parentheses around a numeric case argument. * ranks.m: Remove semicolon (';') from case statemnt argument.
author Rik <rik@octave.org>
date Sat, 26 Nov 2022 06:32:08 -0800
parents c8ad083a5802
children 597f3ee61a48
comparison
equal deleted inserted replaced
31549:ed7b17c7ddf3 31551:fd29c7a50a78
438 endif 438 endif
439 439
440 switch (tolower (name)) 440 switch (tolower (name))
441 case "binomial" 441 case "binomial"
442 error ("gallery: matrix %s not implemented", name); 442 error ("gallery: matrix %s not implemented", name);
443 case "cauchy" , [varargout{1:n_out}] = cauchy (varargin{:}); 443 case "cauchy" , [varargout{1:n_out}] = cauchy (varargin{:});
444 case "chebspec" , [varargout{1:n_out}] = chebspec (varargin{:}); 444 case "chebspec" , [varargout{1:n_out}] = chebspec (varargin{:});
445 case "chebvand" , [varargout{1:n_out}] = chebvand (varargin{:}); 445 case "chebvand" , [varargout{1:n_out}] = chebvand (varargin{:});
446 case "chow" , [varargout{1:n_out}] = chow (varargin{:}); 446 case "chow" , [varargout{1:n_out}] = chow (varargin{:});
447 case "circul" , [varargout{1:n_out}] = circul (varargin{:}); 447 case "circul" , [varargout{1:n_out}] = circul (varargin{:});
448 case "clement" , [varargout{1:n_out}] = clement (varargin{:}); 448 case "clement" , [varargout{1:n_out}] = clement (varargin{:});
449 case "compar" , [varargout{1:n_out}] = compar (varargin{:}); 449 case "compar" , [varargout{1:n_out}] = compar (varargin{:});
450 case "condex" , [varargout{1:n_out}] = condex (varargin{:}); 450 case "condex" , [varargout{1:n_out}] = condex (varargin{:});
451 case "cycol" , [varargout{1:n_out}] = cycol (varargin{:}); 451 case "cycol" , [varargout{1:n_out}] = cycol (varargin{:});
452 case "dorr" , [varargout{1:n_out}] = dorr (varargin{:}); 452 case "dorr" , [varargout{1:n_out}] = dorr (varargin{:});
453 case "dramadah" , [varargout{1:n_out}] = dramadah (varargin{:}); 453 case "dramadah" , [varargout{1:n_out}] = dramadah (varargin{:});
454 case "fiedler" , [varargout{1:n_out}] = fiedler (varargin{:}); 454 case "fiedler" , [varargout{1:n_out}] = fiedler (varargin{:});
455 case "forsythe" , [varargout{1:n_out}] = forsythe (varargin{:}); 455 case "forsythe" , [varargout{1:n_out}] = forsythe (varargin{:});
456 case "frank" , [varargout{1:n_out}] = frank (varargin{:}); 456 case "frank" , [varargout{1:n_out}] = frank (varargin{:});
457 case "gearmat" , [varargout{1:n_out}] = gearmat (varargin{:}); 457 case "gearmat" , [varargout{1:n_out}] = gearmat (varargin{:});
458 case "gcdmat" , [varargout{1:n_out}] = gcdmat (varargin{:}); 458 case "gcdmat" , [varargout{1:n_out}] = gcdmat (varargin{:});
459 case "grcar" , [varargout{1:n_out}] = grcar (varargin{:}); 459 case "grcar" , [varargout{1:n_out}] = grcar (varargin{:});
460 case "hanowa" , [varargout{1:n_out}] = hanowa (varargin{:}); 460 case "hanowa" , [varargout{1:n_out}] = hanowa (varargin{:});
461 case "house" , [varargout{1:n_out}] = house (varargin{:}); 461 case "house" , [varargout{1:n_out}] = house (varargin{:});
462 case "integerdata", [varargout{1:n_out}] = integerdata (varargin{:}); 462 case "integerdata" , [varargout{1:n_out}] = integerdata (varargin{:});
463 case "invhess" , [varargout{1:n_out}] = invhess (varargin{:}); 463 case "invhess" , [varargout{1:n_out}] = invhess (varargin{:});
464 case "invol" , [varargout{1:n_out}] = invol (varargin{:}); 464 case "invol" , [varargout{1:n_out}] = invol (varargin{:});
465 case "ipjfact" , [varargout{1:n_out}] = ipjfact (varargin{:}); 465 case "ipjfact" , [varargout{1:n_out}] = ipjfact (varargin{:});
466 case "jordbloc" , [varargout{1:n_out}] = jordbloc (varargin{:}); 466 case "jordbloc" , [varargout{1:n_out}] = jordbloc (varargin{:});
467 case "kahan" , [varargout{1:n_out}] = kahan (varargin{:}); 467 case "kahan" , [varargout{1:n_out}] = kahan (varargin{:});
468 case "kms" , [varargout{1:n_out}] = kms (varargin{:}); 468 case "kms" , [varargout{1:n_out}] = kms (varargin{:});
469 case "krylov" , [varargout{1:n_out}] = krylov (varargin{:}); 469 case "krylov" , [varargout{1:n_out}] = krylov (varargin{:});
470 case "lauchli" , [varargout{1:n_out}] = lauchli (varargin{:}); 470 case "lauchli" , [varargout{1:n_out}] = lauchli (varargin{:});
471 case "lehmer" , [varargout{1:n_out}] = lehmer (varargin{:}); 471 case "lehmer" , [varargout{1:n_out}] = lehmer (varargin{:});
472 case "leslie" 472 case "leslie"
473 error ("gallery: matrix %s not implemented", name); 473 error ("gallery: matrix %s not implemented", name);
474 case "lesp" , [varargout{1:n_out}] = lesp (varargin{:}); 474 case "lesp" , [varargout{1:n_out}] = lesp (varargin{:});
475 case "lotkin" , [varargout{1:n_out}] = lotkin (varargin{:}); 475 case "lotkin" , [varargout{1:n_out}] = lotkin (varargin{:});
476 case "minij" , [varargout{1:n_out}] = minij (varargin{:}); 476 case "minij" , [varargout{1:n_out}] = minij (varargin{:});
477 case "moler" , [varargout{1:n_out}] = moler (varargin{:}); 477 case "moler" , [varargout{1:n_out}] = moler (varargin{:});
478 case "neumann" , [varargout{1:n_out}] = neumann (varargin{:}); 478 case "neumann" , [varargout{1:n_out}] = neumann (varargin{:});
479 case "normaldata" , [varargout{1:n_out}] = normaldata (varargin{:}); 479 case "normaldata" , [varargout{1:n_out}] = normaldata (varargin{:});
480 case "orthog" , [varargout{1:n_out}] = orthog (varargin{:}); 480 case "orthog" , [varargout{1:n_out}] = orthog (varargin{:});
481 case "parter" , [varargout{1:n_out}] = parter (varargin{:}); 481 case "parter" , [varargout{1:n_out}] = parter (varargin{:});
482 case "pei" , [varargout{1:n_out}] = pei (varargin{:}); 482 case "pei" , [varargout{1:n_out}] = pei (varargin{:});
483 case "poisson" , [varargout{1:n_out}] = poisson (varargin{:}); 483 case "poisson" , [varargout{1:n_out}] = poisson (varargin{:});
484 case "prolate" , [varargout{1:n_out}] = prolate (varargin{:}); 484 case "prolate" , [varargout{1:n_out}] = prolate (varargin{:});
485 case "randcolu" 485 case "randcolu"
486 error ("gallery: matrix %s not implemented", name); 486 error ("gallery: matrix %s not implemented", name);
487 case "randcorr" 487 case "randcorr"
488 error ("gallery: matrix %s not implemented", name); 488 error ("gallery: matrix %s not implemented", name);
489 case "randhess" , [varargout{1:n_out}] = randhess (varargin{:}); 489 case "randhess" , [varargout{1:n_out}] = randhess (varargin{:});
596 error ("gallery: K must be a scalar for chebspec matrix"); 596 error ("gallery: K must be a scalar for chebspec matrix");
597 endif 597 endif
598 598
599 ## k = 1 case obtained from k = 0 case with one bigger n. 599 ## k = 1 case obtained from k = 0 case with one bigger n.
600 switch (k) 600 switch (k)
601 case (0), # do nothing 601 case 0, # do nothing
602 case (1), n = n + 1; 602 case 1, n = n + 1;
603 otherwise 603 otherwise
604 error ("gallery: K should be either 0 or 1 for chebspec matrix"); 604 error ("gallery: K should be either 0 or 1 for chebspec matrix");
605 endswitch 605 endswitch
606 606
607 n -= 1; 607 n -= 1;
1202 1202
1203 p = n:-1:1; 1203 p = n:-1:1;
1204 F = triu (p(ones (n, 1), :) - diag (ones (n-1, 1), -1), -1); 1204 F = triu (p(ones (n, 1), :) - diag (ones (n-1, 1), -1), -1);
1205 1205
1206 switch (k) 1206 switch (k)
1207 case (0), # do nothing 1207 case 0, # do nothing
1208 case (1), F = F(p,p)'; 1208 case 1, F = F(p,p)';
1209 otherwise 1209 otherwise
1210 error ("gallery: K must have a value of 0 or 1 for frank matrix"); 1210 error ("gallery: K must have a value of 0 or 1 for frank matrix");
1211 endswitch 1211 endswitch
1212 1212
1213 endfunction 1213 endfunction
1523 d = cumprod (n+1:2*n) * c(n-1); 1523 d = cumprod (n+1:2*n) * c(n-1);
1524 1524
1525 A = hankel (c, d); 1525 A = hankel (c, d);
1526 1526
1527 switch (k) 1527 switch (k)
1528 case (0), # do nothing 1528 case 0, # do nothing
1529 case (1), A = ones (n) ./ A; 1529 case 1, A = ones (n) ./ A;
1530 otherwise 1530 otherwise
1531 error ("gallery: K must have a value of 0 or 1 for ipjfact matrix"); 1531 error ("gallery: K must have a value of 0 or 1 for ipjfact matrix");
1532 endswitch 1532 endswitch
1533 1533
1534 if (nargout == 2) 1534 if (nargout == 2)
2485 2485
2486 w = exp (2*pi*i/n); 2486 w = exp (2*pi*i/n);
2487 A = diag ( [w.^(1:n-1) 1] ) + diag (ones (n-1,1), 1); 2487 A = diag ( [w.^(1:n-1) 1] ) + diag (ones (n-1,1), 1);
2488 2488
2489 switch (k) 2489 switch (k)
2490 case (0), A(n,1) = 1; 2490 case 0, A(n,1) = 1;
2491 case (1), # do nothing 2491 case 1, # do nothing
2492 otherwise, 2492 otherwise,
2493 error ("gallery: K must have a value of 0 or 1 for smoke matrix"); 2493 error ("gallery: K must have a value of 0 or 1 for smoke matrix");
2494 endswitch 2494 endswitch
2495 2495
2496 endfunction 2496 endfunction