Mercurial > hg > octave-lojdl
changeset 1479:f362012138a7
[project @ 1995-09-26 07:55:43 by jwe]
author | jwe |
---|---|
date | Tue, 26 Sep 1995 07:57:49 +0000 |
parents | d23a476a93b8 |
children | 835a3c4ddb13 |
files | scripts/linear-algebra/norm.m scripts/plot/__pltopt__.m |
diffstat | 2 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/linear-algebra/norm.m +++ b/scripts/linear-algebra/norm.m @@ -85,6 +85,9 @@ if (isstr (p)) if (strcmp (p, "fro")) retval = sqrt (sum (diag (x' * x))); + elseif (strcmp (p, "inf")) + xp = x'; + retval = max (sum (abs (real (xp)) + abs (imag (xp)))); else error ("norm: unrecognized norm"); endif
--- a/scripts/plot/__pltopt__.m +++ b/scripts/plot/__pltopt__.m @@ -70,7 +70,7 @@ set_steps = 0; set_boxes = 0; set_errbars = 0; - more = 1; + more_opts = 1; WITH = "w"; LINES = "l"; @@ -91,7 +91,7 @@ error ("plot_opt: argument must be a string"); endif - while (more) + while (more_opts) # First get next char. @@ -99,7 +99,7 @@ [char, opt] = sscanf (opt, "%c %s"); else char = opt; - more = 0; + more_opts = 0; endif # Now set flags based on char.