Mercurial > octave-nkf

changeset 14222:190952239c2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use '!' for not operation in preference to '~'. * profexplore.m, inpolygon.m, __gnuplot_drawnow__.m, spline.m: Use '!' for not operation in preference to '~'.
author Rik <octave@nomad.inbox5.com>
date Wed, 18 Jan 2012 21:17:14 -0800
parents b03b15d507d4
children ba7a26030214
files scripts/general/profexplore.m scripts/geometry/inpolygon.m scripts/plot/__gnuplot_drawnow__.m scripts/polynomial/spline.m
diffstat 4 files changed, 9 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/general/profexplore.m	Wed Jan 18 21:17:14 2012 -0800
+++ b/scripts/general/profexplore.m	Wed Jan 18 21:17:14 2012 -0800
@@ -32,7 +32,7 @@
 
 function profexplore (data)
 
-  if (nargin ~= 1)
+  if (nargin != 1)
     print_usage ();
   endif
 
@@ -87,7 +87,7 @@
       printf ("help   Display this help message.\n");
       printf ("up [N] Go up N levels, where N is an integer.  Default is 1.\n");
       printf ("N      Go down a level into option N.\n");
-    elseif (~isnan (option))
+    elseif (! isnan (option))
       if (option < 1 || option > length (tree))
         printf ("The chosen option is out of range!\n");
       else
@@ -115,7 +115,7 @@
 
       if (length (cmd) > 3 && cmd(3) == ' ')
         opt = fix (str2double (substr (cmd, 3)));
-        if (~isnan (opt) && opt > 0)
+        if (! isnan (opt) && opt > 0)
           rv = opt;
           return;
         endif
--- a/scripts/geometry/inpolygon.m	Wed Jan 18 21:17:14 2012 -0800
+++ b/scripts/geometry/inpolygon.m	Wed Jan 18 21:17:14 2012 -0800
@@ -100,7 +100,7 @@
 %! plot(xv,yv)
 %! hold on
 %! plot(x(inside),y(inside),"@g")
-%! plot(x(~in),y(~in),"@m")
+%! plot(x(!in),y(!in),"@m")
 %! plot(x(on),y(on),"@b")
 %! hold off
 %! disp("Green points are inside polygon, magenta are outside,");
@@ -120,11 +120,11 @@
 %! [x,y]=meshgrid(xa,ya);
 %! [in,on]=inpolygon(x,y,xv,yv);
 %!
-%! inside=in & ~ on;
+%! inside=in & !on;
 %! plot(xv,yv)
 %! hold on
 %! plot(x(inside),y(inside),"@g")
-%! plot(x(~in),y(~in),"@m")
+%! plot(x(!in),y(!in),"@m")
 %! plot(x(on),y(on),"@b")
 %! hold off
 %! disp("Green points are inside polygon, magenta are outside,");
--- a/scripts/plot/__gnuplot_drawnow__.m	Wed Jan 18 21:17:14 2012 -0800
+++ b/scripts/plot/__gnuplot_drawnow__.m	Wed Jan 18 21:17:14 2012 -0800
@@ -147,7 +147,7 @@
     if (! isempty (h) && isfigure (h))
 
       ## Generate gnuplot title string for plot windows.
-      if (output_to_screen (term) && ~strcmp (term, "dumb"))
+      if (output_to_screen (term) && ! strcmp (term, "dumb"))
         fig.numbertitle = get (h, "numbertitle");
         fig.name = strrep (get (h, "name"), "\"", "\\\"");
         if (strcmpi (get (h, "numbertitle"), "on"))
@@ -210,7 +210,7 @@
             size_str = sprintf ("size %gin,%gin", gnuplot_size);
           case "dumb"
             new_stream = 1;
-            if (~isempty (getenv ("COLUMNS")) && ~isempty (getenv ("LINES")))
+            if (! isempty (getenv ("COLUMNS")) && ! isempty (getenv ("LINES")))
               ## Let dumb use full text screen size (minus prompt lines).
               n = sprintf ("%i", -2 - length (find (sprintf ("%s", PS1) == "\n")));
               ## n = the number of times \n appears in PS1
--- a/scripts/polynomial/spline.m	Wed Jan 18 21:17:14 2012 -0800
+++ b/scripts/polynomial/spline.m	Wed Jan 18 21:17:14 2012 -0800
@@ -107,7 +107,7 @@
     a = a(2:end-1,:);
   endif
 
-  if (~issorted (x))
+  if (! issorted (x))
     [x, idx] = sort(x);
     a = a(idx,:);
   endif