Mercurial > octave-nkf

diff scripts/general/logspace.m @ 415:0ce34c2fc3d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-05-16 18:30:52 by jwe]
author jwe
date Mon, 16 May 1994 18:31:31 +0000
parents 16a24e76d6e0
children c215a8d174a2
line wrap: on
line diff
--- a/scripts/general/logspace.m	Sun May 08 05:49:34 1994 +0000
+++ b/scripts/general/logspace.m	Mon May 16 18:31:31 1994 +0000
@@ -1,4 +1,4 @@
-# Copyright (C) 1993 John W. Eaton
+# Copyright (C) 1993, 1994 John W. Eaton
 # 
 # This file is part of Octave.
 # 
@@ -57,10 +57,7 @@
     if (x2 == pi)
       x2_tmp = log10 (pi);
     endif
-    retval = linspace (x1, x2_tmp, npoints);
-    for i = 1:npoints
-      retval(i) = 10 ^ retval(i);
-    endfor
+    retval = 10 .^ (linspace (x1, x2_tmp, npoints));
   else
     error ("logspace: arguments must be scalars");
   endif