Mercurial > hg > octave-nkf
changeset 2314:949ab8eba8bc
[project @ 1996-07-12 03:58:02 by jwe]
line wrap: on
line diff
--- a/scripts/elfun/acot.m +++ b/scripts/elfun/acot.m @@ -19,6 +19,8 @@ ## acot (z): compute the inverse cotangent for each element of z. +## Author: jwe + function w = acot (z) if (nargin != 1)
--- a/scripts/elfun/acoth.m +++ b/scripts/elfun/acoth.m @@ -19,6 +19,8 @@ ## acoth (z): compute the inverse hyperbolic cotangent for each element of z. +## Author: jwe + function w = acoth (z) if (nargin != 1)
--- a/scripts/elfun/acsc.m +++ b/scripts/elfun/acsc.m @@ -19,6 +19,8 @@ ## acsc (z): compute the inverse cosecant for each element of z. +## Author: jwe + function w = acsc (z) if (nargin != 1)
--- a/scripts/elfun/acsch.m +++ b/scripts/elfun/acsch.m @@ -19,6 +19,8 @@ ## acsch (z): compute the inverse hyperbolic cosecant for each element of z. +## Author: jwe + function w = acsch (z) if (nargin != 1)
--- a/scripts/elfun/asec.m +++ b/scripts/elfun/asec.m @@ -19,6 +19,8 @@ ## asec (z): compute the inverse secant for each element of z. +## Author: jwe + function w = asec (z) if (nargin != 1)
--- a/scripts/elfun/asech.m +++ b/scripts/elfun/asech.m @@ -19,6 +19,8 @@ ## asech (z): compute the inverse hyperbolic secant for each element of z. +## Author: jwe + function w = asech (z) if (nargin != 1)
--- a/scripts/elfun/cot.m +++ b/scripts/elfun/cot.m @@ -19,6 +19,8 @@ ## cot (z): compute the cotangent for each element of z. +## Author: jwe + function w = cot (z) if (nargin != 1)
--- a/scripts/elfun/coth.m +++ b/scripts/elfun/coth.m @@ -19,6 +19,8 @@ ## coth (z): compute the hyperbolic cotangent for each element of z. +## Author: jwe + function w = coth (z) if (nargin != 1)
--- a/scripts/elfun/csc.m +++ b/scripts/elfun/csc.m @@ -19,6 +19,8 @@ ## csc (z): compute the cosecant for each element of z. +## Author: jwe + function w = csc (z) if (nargin != 1)
--- a/scripts/elfun/csch.m +++ b/scripts/elfun/csch.m @@ -19,6 +19,8 @@ ## csch (z): compute the hyperbolic cosecant for each element of z. +## Author: jwe + function w = csch (z) if (nargin != 1)
--- a/scripts/elfun/log2.m +++ b/scripts/elfun/log2.m @@ -19,6 +19,8 @@ ## log2 (z): compute the logarithm base 2 for each element of z. +## Author: jwe + function w = log2 (z) if (nargin != 1)
--- a/scripts/elfun/sec.m +++ b/scripts/elfun/sec.m @@ -19,6 +19,8 @@ ## sec (z): compute the secant for each element of z. +## Author: jwe + function w = sec (z) if (nargin != 1)
--- a/scripts/elfun/sech.m +++ b/scripts/elfun/sech.m @@ -19,6 +19,8 @@ ## sech (z): compute the hyperbolic secant for each element of z. +## Author: jwe + function w = sech (z) if (nargin != 1)
--- a/scripts/general/columns.m +++ b/scripts/general/columns.m @@ -23,6 +23,8 @@ ## ## See also: size, rows, length, is_scalar, is_vector, is_matrix +## Author: jwe + function nc = columns (x) if (nargin != 1)
--- a/scripts/general/fliplr.m +++ b/scripts/general/fliplr.m @@ -23,6 +23,8 @@ ## ## See also: flipu, rot90 +## Author: jwe + function y = fliplr (x) if (nargin != 1)
--- a/scripts/general/flipud.m +++ b/scripts/general/flipud.m @@ -23,6 +23,8 @@ ## ## See also: fliplr, rot90 +## Author: jwe + function y = flipud (x) if (nargin != 1)
--- a/scripts/general/int2str.m +++ b/scripts/general/int2str.m @@ -23,6 +23,8 @@ ## ## See also: sprintf, num2str +## Author: jwe + function retval = int2str (x) ## XXX FIXME XXX -- this will fail for very large values.
--- a/scripts/general/is_matrix.m +++ b/scripts/general/is_matrix.m @@ -24,6 +24,8 @@ ## ## See also: size, rows, columns, length, is_scalar, is_vector +## Author: jwe + function retval = is_matrix (x) if (nargin == 1)
--- a/scripts/general/is_scalar.m +++ b/scripts/general/is_scalar.m @@ -23,6 +23,8 @@ ## ## See also: size, rows, columns, length, is_scalar, is_matrix +## Author: jwe + function retval = is_scalar (x) if (nargin == 1)
--- a/scripts/general/is_vector.m +++ b/scripts/general/is_vector.m @@ -24,6 +24,8 @@ ## ## See also: size, rows, columns, length, is_scalar, is_matrix +## Author: jwe + function retval = is_vector (x) if (nargin == 1)
--- a/scripts/general/isempty.m +++ b/scripts/general/isempty.m @@ -21,6 +21,8 @@ ## ## Return 1 if the argument is an empty matrix. Otherwise, return 0. +## Author: jwe + function retval = isempty (var) if (nargin != 1)
--- a/scripts/general/length.m +++ b/scripts/general/length.m @@ -23,6 +23,8 @@ ## ## See also: size, rows, columns, is_scalar, is_vector, is_matrix +## Author: jwe + function len = length (x) if (nargin != 1)
--- a/scripts/general/logspace.m +++ b/scripts/general/logspace.m @@ -35,6 +35,8 @@ ## ## See also: linspace +## Author: jwe + function retval = logspace (x1, x2, n) if (nargin == 2)
--- a/scripts/general/nargchk.m +++ b/scripts/general/nargchk.m @@ -23,6 +23,8 @@ ## matrix. Otherwise, return a message indicating whether N is too ## large or too small. +## Author: jwe + function retval = nargchk (nargin_min, nargin_max, n) if (nargin != 3)
--- a/scripts/general/num2str.m +++ b/scripts/general/num2str.m @@ -23,6 +23,8 @@ ## ## See also: sprintf, int2str +## Author: jwe + function retval = num2str (x) if (nargin == 1)
--- a/scripts/general/perror.m +++ b/scripts/general/perror.m @@ -28,6 +28,8 @@ ## ## See also: strerror +## Author: jwe + function perror (name, err) if (nargin != 2)
--- a/scripts/general/rem.m +++ b/scripts/general/rem.m @@ -21,6 +21,8 @@ ## ## Return remainder (x, y). +## Author: jwe + function retval = rem (x, y) if (nargin != 2)
--- a/scripts/general/reshape.m +++ b/scripts/general/reshape.m @@ -24,6 +24,8 @@ ## ## See also: `:', do_fortran_indexing +## Author: jwe + function retval = reshape (a, m, n) if (nargin != 3)
--- a/scripts/general/rot90.m +++ b/scripts/general/rot90.m @@ -25,6 +25,8 @@ ## ## See also: flipud, fliplr +## Author: jwe + function y = rot90 (x, k) if (nargin < 2)
--- a/scripts/general/rows.m +++ b/scripts/general/rows.m @@ -23,6 +23,8 @@ ## ## See also: size, columns, length, is_scalar, is_vector, is_matrix +## Author: jwe + function nr = rows (x) if (nargin != 1)
--- a/scripts/general/strerror.m +++ b/scripts/general/strerror.m @@ -27,6 +27,8 @@ ## npsol : 4.0 ## qpsol : 3.2 +## Author: jwe + function msg = strerror (name, err) if (nargin != 2)
--- a/scripts/general/tril.m +++ b/scripts/general/tril.m @@ -24,6 +24,8 @@ ## ## See also: triu, diag +## Author: jwe + function retval = tril (x, k) if (nargin > 0)
--- a/scripts/general/triu.m +++ b/scripts/general/triu.m @@ -24,6 +24,8 @@ ## ## See also: tril, diag +## Author: jwe + function retval = triu (x, k) if (nargin > 0)
--- a/scripts/io/printf.m +++ b/scripts/io/printf.m @@ -23,6 +23,8 @@ ## ## See also: fprintf sprintf +## Author: jwe + function retval = printf (fmt, ...) retval = -1;
--- a/scripts/io/puts.m +++ b/scripts/io/puts.m @@ -23,6 +23,8 @@ ## ## See also: fputs, printf, fprintf +## Author: jwe + function retval = puts (s) retval = -1;
--- a/scripts/linear-algebra/cond.m +++ b/scripts/linear-algebra/cond.m @@ -24,6 +24,8 @@ ## ## See also: norm, svd +## Author: jwe + function retval = cond (a) if (nargin == 1)
--- a/scripts/linear-algebra/norm.m +++ b/scripts/linear-algebra/norm.m @@ -43,6 +43,8 @@ ## ## See also: cond, svd +## Author: jwe + function retval = norm (x, p) if (nargin < 1 || nargin > 2)
--- a/scripts/linear-algebra/rank.m +++ b/scripts/linear-algebra/rank.m @@ -29,6 +29,8 @@ ## where eps is machine precision and sigma is the largest singular ## value of a. +## Author: jwe + function retval = rank (A, tol) if (nargin == 1)
--- a/scripts/linear-algebra/trace.m +++ b/scripts/linear-algebra/trace.m @@ -21,6 +21,8 @@ ## ## Returns the trace (the sum of the diagonal elements) of x. +## Author: jwe + function y = trace (x) if (nargin != 1)
--- a/scripts/miscellaneous/bug_report.m +++ b/scripts/miscellaneous/bug_report.m @@ -23,6 +23,8 @@ ## editor, and submit the report to the bug-octave mailing list when ## you are finished editing. +## Author: jwe + function bug_report () if (nargin != 0)
--- a/scripts/miscellaneous/cputime.m +++ b/scripts/miscellaneous/cputime.m @@ -21,6 +21,8 @@ ## ## Get CPU time statistics. +## Author: jwe + function [total, user, system] = cputime () if (nargin != 0)
--- a/scripts/miscellaneous/dump_1_pref.m +++ b/scripts/miscellaneous/dump_1_pref.m @@ -17,6 +17,8 @@ ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA ## 02111-1307, USA. +## Author: jwe + function dump_1_pref (file, var) if (nargin != 2)
--- a/scripts/miscellaneous/dump_prefs.m +++ b/scripts/miscellaneous/dump_prefs.m @@ -23,6 +23,8 @@ ## in a format that can be parsed by Octave later. If FILE is omitted, ## the listing is printed to stdout. +## Author: jwe + function dump_prefs (file) if (nargin == 0)
--- a/scripts/miscellaneous/etime.m +++ b/scripts/miscellaneous/etime.m @@ -24,6 +24,8 @@ ## ## See also: tic, toc, clock, cputime +## Author: jwe + function secs = etime (t1, t0) if (nargin != 2)
--- a/scripts/miscellaneous/flops.m +++ b/scripts/miscellaneous/flops.m @@ -21,6 +21,8 @@ ## ## Count floating point operations. +## Author: jwe + function retval = flops () if (nargin > 0)
--- a/scripts/miscellaneous/is_leap_year.m +++ b/scripts/miscellaneous/is_leap_year.m @@ -22,6 +22,8 @@ ## Return 1 if the given year is a leap year; otherwise, return 0. ## With no arguments, use the current year. +## Author: jwe + function retval = is_leap_year (year) if (nargin > 1)
--- a/scripts/miscellaneous/list_primes.m +++ b/scripts/miscellaneous/list_primes.m @@ -24,6 +24,8 @@ ## ## The algorithm used is from page 218 of the TeXbook. +## Author: jwe + function retval = list_primes (n) if (nargin > 0)
--- a/scripts/miscellaneous/menu.m +++ b/scripts/miscellaneous/menu.m @@ -21,6 +21,8 @@ ## ## See also: disp, printf, input +## Author: jwe + function num = menu (t, ...) if (nargin < 2)
--- a/scripts/miscellaneous/popen2.m +++ b/scripts/miscellaneous/popen2.m @@ -38,6 +38,8 @@ ## endwhile ## fclose (out); +## Author: jwe + function [in, out, pid] = popen2 (command, args) in = -1;
--- a/scripts/miscellaneous/texas_lotto.m +++ b/scripts/miscellaneous/texas_lotto.m @@ -24,6 +24,8 @@ ## ## See also: rand +## Author: jwe + function picks = texas_lotto () if (nargin != 0)
--- a/scripts/miscellaneous/tic.m +++ b/scripts/miscellaneous/tic.m @@ -23,6 +23,8 @@ ## ## See also: toc, clock, etime, cputime +## Author: jwe + function tic () if (nargin != 0)
--- a/scripts/miscellaneous/toc.m +++ b/scripts/miscellaneous/toc.m @@ -24,6 +24,8 @@ ## ## See also: tic, clock, etime, cputime +## Author: jwe + function secs = toc () if (nargin != 0)
--- a/scripts/miscellaneous/version.m +++ b/scripts/miscellaneous/version.m @@ -23,6 +23,8 @@ ## ## See also: OCTAVE_VERSION +## Author: jwe + function vs = version () if (nargin != 0)
--- a/scripts/plot/__plr1__.m +++ b/scripts/plot/__plr1__.m @@ -17,6 +17,8 @@ ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA ## 02111-1307, USA. +## Author: jwe + function polar_int_1 (theta, fmt) if (nargin != 2)
--- a/scripts/plot/__plr2__.m +++ b/scripts/plot/__plr2__.m @@ -17,6 +17,8 @@ ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA ## 02111-1307, USA. +## Author: jwe + function polar_int_2 (theta, rho, fmt) if (nargin != 3)
--- a/scripts/plot/__plr__.m +++ b/scripts/plot/__plr__.m @@ -17,6 +17,8 @@ ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA ## 02111-1307, USA. +## Author: jwe + function polar_int (theta, rho, fmt) if (nargin == 1)
--- a/scripts/plot/__plt1__.m +++ b/scripts/plot/__plt1__.m @@ -17,6 +17,8 @@ ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA ## 02111-1307, USA. +## Author: jwe + function plot_int_1 (x1, fmt) if (nargin < 1 || nargin > 2)
--- a/scripts/plot/__plt2__.m +++ b/scripts/plot/__plt2__.m @@ -17,6 +17,8 @@ ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA ## 02111-1307, USA. +## Author: jwe + function plot_int_2 (x1, x2, fmt) if (nargin < 2 || nargin > 3)
--- a/scripts/plot/__plt2mm__.m +++ b/scripts/plot/__plt2mm__.m @@ -17,6 +17,8 @@ ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA ## 02111-1307, USA. +## Author: jwe + function plot_2_m_m (x, y, fmt) if (nargin < 2 || nargin > 3)
--- a/scripts/plot/__plt2mv__.m +++ b/scripts/plot/__plt2mv__.m @@ -17,6 +17,8 @@ ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA ## 02111-1307, USA. +## Author: jwe + function plot_2_m_v (x, y, fmt) if (nargin < 2 || nargin > 3)
--- a/scripts/plot/__plt2ss__.m +++ b/scripts/plot/__plt2ss__.m @@ -17,6 +17,8 @@ ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA ## 02111-1307, USA. +## Author: jwe + function plot_2_s_s (x, y, fmt) if (nargin < 2 || nargin > 3)
--- a/scripts/plot/__plt2vm__.m +++ b/scripts/plot/__plt2vm__.m @@ -17,6 +17,8 @@ ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA ## 02111-1307, USA. +## Author: jwe + function plot_2_v_m (x, y, fmt) if (nargin < 2 || nargin > 3)
--- a/scripts/plot/__plt2vv__.m +++ b/scripts/plot/__plt2vv__.m @@ -17,6 +17,8 @@ ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA ## 02111-1307, USA. +## Author: jwe + function plot_2_v_v (x, y, fmt) if (nargin < 2 || nargin > 3)
--- a/scripts/plot/__plt__.m +++ b/scripts/plot/__plt__.m @@ -17,6 +17,8 @@ ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA ## 02111-1307, USA. +## Author: jwe + function plot_int (caller, ...) if (nargin == 2)
--- a/scripts/plot/__pltopt__.m +++ b/scripts/plot/__pltopt__.m @@ -60,6 +60,8 @@ ## 5 cyan house ## 6 brown there exists +## Author: jwe + function fmt = plot_opt (caller, opt) set_color = 0;
--- a/scripts/plot/axis.m +++ b/scripts/plot/axis.m @@ -29,6 +29,8 @@ ## If your plot is already drawn, then you need to REPLOT before ## the new axis limits will take effect. +## Author: jwe + function curr_axis = axis (ax) ## This may not be correct if someone has used the gnuplot interface
--- a/scripts/plot/bar.m +++ b/scripts/plot/bar.m @@ -39,6 +39,8 @@ ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour, ## stairs, gplot, gsplot, replot, xlabel, ylabel, title +## Author: jwe + function [xb, yb] = bar (x, y) if (nargin == 1)
--- a/scripts/plot/contour.m +++ b/scripts/plot/contour.m @@ -22,6 +22,8 @@ ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour, ## bar, stairs, gplot, gsplot, replot, xlabel, ylabel, title +## Author: jwe + function contour (z, n, x, y)
--- a/scripts/plot/figure.m +++ b/scripts/plot/figure.m @@ -22,6 +22,8 @@ ## Set the current plot window to plot window N. This function ## currently requires X11 and a recent version of gnuplot. +## Author: jwe + function figure (n) if (nargin == 1)
--- a/scripts/plot/grid.m +++ b/scripts/plot/grid.m @@ -26,6 +26,8 @@ ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour, ## bar, stairs, gplot, gsplot, replot, xlabel, ylabel, title +## Author: jwe + function grid (x) if (nargin == 0)
--- a/scripts/plot/hist.m +++ b/scripts/plot/hist.m @@ -38,6 +38,8 @@ ## ## See also: bar +## Author: jwe + function [nn, xx] = hist (y, x) if (nargin < 1 || nargin > 2)
--- a/scripts/plot/loglog.m +++ b/scripts/plot/loglog.m @@ -29,6 +29,8 @@ ## See also: plot, semilogy, loglog, polar, mesh, contour, bar, stairs, ## gplot, gsplot, replot, xlabel, ylabel, title +## Author: jwe + function loglog (...) set logscale x;
--- a/scripts/plot/mesh.m +++ b/scripts/plot/mesh.m @@ -28,6 +28,8 @@ ## See also: plot, semilogx, semilogy, loglog, polar, meshgrid, meshdom, ## contour, bar, stairs, gplot, gsplot, replot, xlabel, ylabel, title +## Author: jwe + function mesh (x, y, z) if (nargin == 1)
--- a/scripts/plot/meshdom.m +++ b/scripts/plot/meshdom.m @@ -27,6 +27,8 @@ ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour, ## bar, stairs, gplot, gsplot, replot, xlabel, ylabel, title +## Author: jwe + function [xx, yy] = meshdom (x, y) if (nargin == 2)
--- a/scripts/plot/meshgrid.m +++ b/scripts/plot/meshgrid.m @@ -28,6 +28,8 @@ ## See also: plot, semilogx, semilogy, loglog, polar, mesh, meshdom, contour, ## bar, stairs, gplot, gsplot, replot, xlabel, ylabel, title +## Author: jwe + function [xx, yy] = meshgrid (x, y) if (nargin == 1)
--- a/scripts/plot/plot.m +++ b/scripts/plot/plot.m @@ -61,6 +61,8 @@ ## See also: semilogx, semilogy, loglog, polar, mesh, contour, plot_opt ## bar, stairs, gplot, gsplot, replot, xlabel, ylabel, title +## Author: jwe + function plot (...) set nologscale;
--- a/scripts/plot/polar.m +++ b/scripts/plot/polar.m @@ -26,6 +26,8 @@ ## See also: plot, semilogx, semilogy, loglog, mesh, contour, bar, ## stairs, gplot, gsplot, replot, xlabel, ylabel, title +## Author: jwe + function polar (x1, x2, fmt) set nologscale;
--- a/scripts/plot/semilogx.m +++ b/scripts/plot/semilogx.m @@ -29,6 +29,8 @@ ## See also: plot, semilogy, loglog, polar, mesh, contour, bar, stairs, ## gplot, gsplot, replot, xlabel, ylabel, title +## Author: jwe + function semilogx (...) set logscale x;
--- a/scripts/plot/semilogy.m +++ b/scripts/plot/semilogy.m @@ -29,6 +29,8 @@ ## See also: plot, semilogx, loglog, polar, mesh, contour, bar, stairs, ## gplot, gsplot, replot, xlabel, ylabel, title +## Author: jwe + function semilogy (...) set nologscale x;
--- a/scripts/plot/shg.m +++ b/scripts/plot/shg.m @@ -25,6 +25,8 @@ ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour, ## bar, stairs, gplot, gsplot, replot, xlabel, ylabel +## Author: jwe + function shg () if (nargin != 0)
--- a/scripts/plot/sombrero.m +++ b/scripts/plot/sombrero.m @@ -24,6 +24,8 @@ ## ## z = sin (x^2 + y^2) / (x^2 + y^2); +## Author: jwe + function sombrero (n) if (nargin != 1)
--- a/scripts/plot/stairs.m +++ b/scripts/plot/stairs.m @@ -39,6 +39,8 @@ ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour, ## bar, gplot, gsplot, replot, xlabel, ylabel, title +## Author: jwe + function [xs, ys] = stairs (x, y)
--- a/scripts/plot/title.m +++ b/scripts/plot/title.m @@ -25,6 +25,8 @@ ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour, ## bar, stairs, gplot, gsplot, replot, xlabel, ylabel +## Author: jwe + function title (text) if (nargin != 1)
--- a/scripts/plot/xlabel.m +++ b/scripts/plot/xlabel.m @@ -25,6 +25,8 @@ ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour, ## bar, stairs, gplot, gsplot, replot, ylabel, title +## Author: jwe + function xlabel (text) if (nargin != 1)
--- a/scripts/plot/ylabel.m +++ b/scripts/plot/ylabel.m @@ -25,6 +25,8 @@ ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour, ## bar, stairs, gplot, gsplot, replot, xlabel, title +## Author: jwe + function ylabel (text) if (nargin != 1)
--- a/scripts/polynomial/polyder.m +++ b/scripts/polynomial/polyder.m @@ -21,6 +21,8 @@ ## ## SEE ALSO: polyderiv +## Author: jwe + function q = polyder (p) if (nargin == 1)
--- a/scripts/set/complement.m +++ b/scripts/set/complement.m @@ -23,6 +23,8 @@ ## ## See - create_set, union, intersection +## Author: jwe + function y = complement (a, b) if (nargin != 2)
--- a/scripts/set/create_set.m +++ b/scripts/set/create_set.m @@ -23,6 +23,8 @@ ## ## See - union, intersection, complement +## Author: jwe + function y = create_set(x) if ( nargin != 1)
--- a/scripts/set/intersection.m +++ b/scripts/set/intersection.m @@ -23,6 +23,8 @@ ## ## See - create_set, union, complement +## Author: jwe + function y = intersection(a,b) if (nargin != 2)
--- a/scripts/set/union.m +++ b/scripts/set/union.m @@ -23,6 +23,8 @@ ## ## See - create_set, intersection, complement +## Author: jwe + function y = union(a,b) if (nargin != 2)
--- a/scripts/signal/freqz.m +++ b/scripts/signal/freqz.m @@ -35,6 +35,8 @@ ## [h,w] = freqz(b,a,n,"whole") ## evaluates the response at n frequencies between 0 and 2*pi. +## Author: jwe + function [h, w] = freqz(b,...) if (nargin == 1)
--- a/scripts/signal/sinc.m +++ b/scripts/signal/sinc.m @@ -21,6 +21,8 @@ ## ## Returns sin(pi*x)/(pi*x). +## Author: jwe + function result = sinc (x) ## We either need to set the do_fortran_indexing variable to "true"
--- a/scripts/specfun/betainc.m +++ b/scripts/specfun/betainc.m @@ -21,6 +21,8 @@ ## ## See also: betai +## Author: jwe + function y = betainc (x, a, b) y = betai (a, b, x);
--- a/scripts/specfun/gammainc.m +++ b/scripts/specfun/gammainc.m @@ -21,6 +21,8 @@ ## ## See also: gammai +## Author: jwe + function y = gammainc (x, a) y = gammai (a, x);
--- a/scripts/special-matrix/hadamard.m +++ b/scripts/special-matrix/hadamard.m @@ -23,6 +23,8 @@ ## ## See also: hankel, vander, hilb, invhilb, toeplitz +## Author: jwe + function retval = hadamard (k) if (nargin != 1)
--- a/scripts/special-matrix/hankel.m +++ b/scripts/special-matrix/hankel.m @@ -28,6 +28,8 @@ ## ## See also: vander, hadamard, hilb, invhilb, toeplitz +## Author: jwe + function retval = hankel (c, r) if (nargin == 1)
--- a/scripts/special-matrix/hilb.m +++ b/scripts/special-matrix/hilb.m @@ -26,6 +26,8 @@ ## ## See also: hankel, vander, hadamard, invhilb, toeplitz +## Author: jwe + function retval = hilb (n)
--- a/scripts/special-matrix/invhilb.m +++ b/scripts/special-matrix/invhilb.m @@ -24,6 +24,8 @@ ## ## See also: hankel, vander, hadamard, hilb, toeplitz +## Author: jwe + function retval = invhilb (n) if (nargin != 1)
--- a/scripts/special-matrix/toeplitz.m +++ b/scripts/special-matrix/toeplitz.m @@ -28,6 +28,8 @@ ## ## See also: hankel, vander, hadamard, hilb, invhib +## Author: jwe + function retval = toeplitz (c, r) if (nargin == 1)
--- a/scripts/special-matrix/vander.m +++ b/scripts/special-matrix/vander.m @@ -23,6 +23,8 @@ ## ## See also: hankel, hadamard, hilb, invhilb, toeplitz +## Author: jwe + function retval = vander (c) if (nargin != 1)
--- a/scripts/statistics/mean.m +++ b/scripts/statistics/mean.m @@ -26,6 +26,8 @@ ## ## See also: median, std +## Author: jwe + function retval = mean (a) if (nargin != 1)
--- a/scripts/statistics/median.m +++ b/scripts/statistics/median.m @@ -26,6 +26,8 @@ ## ## See also: std, mean +## Author: jwe + function retval = median (a) if (nargin != 1)
--- a/scripts/statistics/std.m +++ b/scripts/statistics/std.m @@ -25,6 +25,8 @@ ## ## See also: mean, median +## Author: jwe + function retval = std (a) if (nargin != 1)
--- a/scripts/strings/bin2dec.m +++ b/scripts/strings/bin2dec.m @@ -22,6 +22,8 @@ ## Returns the decimal number corresponding to the binary number in ## quotes. For example, bin2dec ("1110") returns 14. +## Author: jwe + function y = bin2dec (x) ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
--- a/scripts/strings/blanks.m +++ b/scripts/strings/blanks.m @@ -21,6 +21,8 @@ ## ## Returns a string of n blanks. +## Author: jwe + function s = blanks (n) ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
--- a/scripts/strings/deblank.m +++ b/scripts/strings/deblank.m @@ -21,6 +21,8 @@ ## ## Remove trailing blanks from the string s. +## Author: jwe + function t = deblank (s) ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
--- a/scripts/strings/dec2bin.m +++ b/scripts/strings/dec2bin.m @@ -22,6 +22,8 @@ ## Returns the binary number corresponding to the nonnegative integer ## x. For example, dec2bin (14) returns "1110". +## Author: jwe + function y = dec2bin (x) ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
--- a/scripts/strings/dec2hex.m +++ b/scripts/strings/dec2hex.m @@ -22,6 +22,8 @@ ## Returns the hex number corresponding to the decimal number d. For ## example, dec2hex (2748) returns "abc". +## Author: jwe + function h = dec2hex (d) ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
--- a/scripts/strings/findstr.m +++ b/scripts/strings/findstr.m @@ -30,6 +30,8 @@ ## findstr ("abababa", "aba") => [1, 3, 5] ## findstr ("abababa", "aba", 0) => [1, 5] +## Author: jwe + function v = findstr (s, t, overlap) ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
--- a/scripts/strings/hex2dec.m +++ b/scripts/strings/hex2dec.m @@ -23,6 +23,8 @@ ## quotes. For example, hex2dec ("12B") and hex2dec ("12b") both ## return 299. +## Author: jwe + function d = hex2dec (h) ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
--- a/scripts/strings/index.m +++ b/scripts/strings/index.m @@ -24,6 +24,8 @@ ## ## NOTE: this function does not work for arrays of strings. +## Author: jwe + function n = index (s, t) ## This is patterned after the AWK function of the same name.
--- a/scripts/strings/rindex.m +++ b/scripts/strings/rindex.m @@ -24,6 +24,8 @@ ## ## NOTE: this function does not work for arrays of strings. +## Author: jwe + function n = rindex (s, t) ## This is patterned after the AWK function of the same name.
--- a/scripts/strings/split.m +++ b/scripts/strings/split.m @@ -23,6 +23,8 @@ ## pieces as the rows of M (padded with blanks to form a valid ## matrix). +## Author: jwe + function m = split (s, t) ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
--- a/scripts/strings/str2mat.m +++ b/scripts/strings/str2mat.m @@ -22,6 +22,8 @@ ## Forms the matrix M containing the strings S1, ... as its rows. ## Each string is padded with blanks in order to form a valid matrix. +## Author: jwe + function m = str2mat (...) ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
--- a/scripts/strings/strcat.m +++ b/scripts/strings/strcat.m @@ -17,6 +17,8 @@ ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA ## 02111-1307, USA. +## Author: jwe + function st = strcat (s, t, ...) if (nargin > 1)
--- a/scripts/strings/strcmp.m +++ b/scripts/strings/strcmp.m @@ -29,6 +29,8 @@ ## elements corresponding to the rows of the string array? To be ## compatible with Matlab, of course. +## Author: jwe + function status = strcmp (s1, s2) if (nargin != 2)
--- a/scripts/strings/substr.m +++ b/scripts/strings/substr.m @@ -22,6 +22,8 @@ ## Returns the substring of S of length LEN starting at index BEG. ## If LEN is missing, the substring extends to the end of S. +## Author: jwe + function t = substr (s, beg, len) ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
--- a/scripts/time/asctime.m +++ b/scripts/time/asctime.m @@ -19,6 +19,8 @@ ## usage: asctime (TMSTRUCT) +## Author: jwe + function retval = asctime (t) if (nargin == 1)
--- a/scripts/time/clock.m +++ b/scripts/time/clock.m @@ -23,6 +23,8 @@ ## ## [ year, month, day-of-month, hour, minute, second ] +## Author: jwe + function retval = clock () tm = localtime (time ());