Mercurial > octave

changeset 1479:f362012138a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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	Tue Sep 26 07:48:05 1995 +0000
+++ b/scripts/linear-algebra/norm.m	Tue Sep 26 07:57:49 1995 +0000
@@ -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	Tue Sep 26 07:48:05 1995 +0000
+++ b/scripts/plot/__pltopt__.m	Tue Sep 26 07:57:49 1995 +0000
@@ -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.