Mercurial > octave

changeset 24711:752f61e812f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix XXXerr plot demos which rely on wblpdf (bug #53072). * loglogerr.m, semilogxerr.m, semilogyerr.m: Define wblpdf as an anonymous function within %!demo blocks.
author Rik <rik@octave.org>
date Fri, 09 Feb 2018 10:35:52 -0800
parents a979bb895b64
children 95815fc93a3a
files scripts/plot/draw/loglogerr.m scripts/plot/draw/semilogxerr.m scripts/plot/draw/semilogyerr.m
diffstat 3 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/plot/draw/loglogerr.m	Thu Feb 08 16:20:41 2018 -0500
+++ b/scripts/plot/draw/loglogerr.m	Fri Feb 09 10:35:52 2018 -0800
@@ -84,6 +84,7 @@
 %!demo
 %! clf;
 %! x = exp (log (0.01):0.2:log (10));
+%! wblpdf = @(x, scl, shp) shp*(scl^-shp) .* x.^(shp-1) .* exp (-(x/scl).^shp);
 %! y = wblpdf (x, 3, 2);
 %! eyu = 2*rand (size (y)) .* y;
 %! eyl = 0.5*rand (size (y)) .* y;
--- a/scripts/plot/draw/semilogxerr.m	Thu Feb 08 16:20:41 2018 -0500
+++ b/scripts/plot/draw/semilogxerr.m	Fri Feb 09 10:35:52 2018 -0800
@@ -87,6 +87,7 @@
 %!demo
 %! clf;
 %! x = exp (log (0.01):0.2:log (10));
+%! wblpdf = @(x, scl, shp) shp*(scl^-shp) .* x.^(shp-1) .* exp (-(x/scl).^shp);
 %! y = wblpdf (x, 2, 2);
 %! ey = 0.5*rand (size (y)) .* y;
 %! semilogxerr (x, y, ey, "#~x-");
--- a/scripts/plot/draw/semilogyerr.m	Thu Feb 08 16:20:41 2018 -0500
+++ b/scripts/plot/draw/semilogyerr.m	Fri Feb 09 10:35:52 2018 -0800
@@ -87,6 +87,7 @@
 %!demo
 %! clf;
 %! x = 0.25:0.25:10;
+%! wblpdf = @(x, scl, shp) shp*(scl^-shp) .* x.^(shp-1) .* exp (-(x/scl).^shp);
 %! y = wblpdf (x, 4, 2);
 %! eyu = rand (size (y));
 %! eyl = 1.0 - 1./(1+eyu);