Mercurial > forge

changeset 8473:0c8eeef99333 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
data smoothing: fix indentation (tabs replaced by spaces)
author carandraug
date Mon, 03 Oct 2011 17:49:39 +0000
parents 74718e92e453
children 277fbabc203d
files main/data-smoothing/inst/regdatasmooth.m main/data-smoothing/inst/rgdtsmcore.m main/data-smoothing/inst/rgdtsmcorewrap.m
diffstat 3 files changed, 37 insertions(+), 37 deletions(-) [+]
line wrap: on
line diff
--- a/main/data-smoothing/inst/regdatasmooth.m	Mon Oct 03 17:47:43 2011 +0000
+++ b/main/data-smoothing/inst/regdatasmooth.m	Mon Oct 03 17:49:39 2011 +0000
@@ -76,22 +76,22 @@
     for i = 1:nargin-2
       arg = varargin{i};
       if ischar(arg)
-	switch arg
-	  case "d"
-	    d = varargin{i+1};
-	    idx = [idx,i,i+1];
-	  case "lambda"
-	    lambda = varargin{i+1};
-	    idx = [idx,i,i+1];
-	  case "stdev"
-	    stdev = varargin{i+1};
-	    idx = [idx,i,i+1];
-	  case "gcv"
-	    idx = [idx,i];
-	  case "lguess"
-	    guess = log10(varargin{i+1});
-	    idx = [idx,i,i+1];
-	endswitch
+        switch arg
+          case "d"
+            d = varargin{i+1};
+            idx = [idx,i,i+1];
+          case "lambda"
+            lambda = varargin{i+1};
+            idx = [idx,i,i+1];
+          case "stdev"
+            stdev = varargin{i+1};
+            idx = [idx,i,i+1];
+          case "gcv"
+            idx = [idx,i];
+          case "lguess"
+            guess = log10(varargin{i+1});
+            idx = [idx,i,i+1];
+        endswitch
       endif
     endfor
   endif
--- a/main/data-smoothing/inst/rgdtsmcore.m	Mon Oct 03 17:47:43 2011 +0000
+++ b/main/data-smoothing/inst/rgdtsmcore.m	Mon Oct 03 17:49:39 2011 +0000
@@ -58,20 +58,20 @@
     for i = 1:length(varargin)
       arg = varargin{i};
       if ischar(arg)
-	switch arg
-	  case "xhat"
-	    xhatprov = 1;
-	    xhat = varargin{i+1};
-	  case "weights"
-	    weights = 1;
-	    weightv = varargin{i+1};
-	  case "relative"
-	    relative = 1;
-	  case "midpointrule"
-	    midpr = 1;
-	  otherwise
-	    printf("Option '%s' is not implemented;\n", arg)
-	endswitch
+        switch arg
+          case "xhat"
+            xhatprov = 1;
+            xhat = varargin{i+1};
+          case "weights"
+            weights = 1;
+            weightv = varargin{i+1};
+          case "relative"
+            relative = 1;
+          case "midpointrule"
+            midpr = 1;
+          otherwise
+            printf("Option '%s' is not implemented;\n", arg)
+        endswitch
       endif
     endfor
   endif
--- a/main/data-smoothing/inst/rgdtsmcorewrap.m	Mon Oct 03 17:47:43 2011 +0000
+++ b/main/data-smoothing/inst/rgdtsmcorewrap.m	Mon Oct 03 17:49:39 2011 +0000
@@ -34,25 +34,25 @@
     relative = 0;
     for i = 1:length(varargin)
       if strcmp(varargin{i},"relative")
-	relative = 1;
+        relative = 1;
       elseif strcmp(varargin{i},"xhat")
-	xhatprov = 1;
-	xhat = varargin{i+1};
+        xhatprov = 1;
+        xhat = varargin{i+1};
       endif
     endfor
 
     if (xhatprov)
       idx = interp1(xhat,1:length(xhat),x,"nearest");
       if relative
-	stdevd = std((y-yhat(idx))./y);
+        stdevd = std((y-yhat(idx))./y);
       else
-	stdevd = std(y-yhat(idx));
+        stdevd = std(y-yhat(idx));
       endif
     else
       if (relative)
-	stdevd = std((y-yhat)./y);
+        stdevd = std((y-yhat)./y);
       else
-	stdevd = std(y-yhat);
+        stdevd = std(y-yhat);
       endif
     endif