[Octave-cvsupdate] SF.net SVN: octave:[9971] trunk/octave-forge/main/queueing/inst/ctmc_exps.m

[<mma...@us...>]

Revision: 9971
          http://octave.svn.sourceforge.net/octave/?rev=9971&view=rev
Author:   mmarzolla
Date:     2012-03-19 16:31:21 +0000 (Mon, 19 Mar 2012)
Log Message:
-----------
bug fix in the examples

Modified Paths:
--------------
    trunk/octave-forge/main/queueing/inst/ctmc_exps.m

Modified: trunk/octave-forge/main/queueing/inst/ctmc_exps.m
===================================================================
--- trunk/octave-forge/main/queueing/inst/ctmc_exps.m	2012-03-19 16:16:49 UTC (rev 9970)
+++ trunk/octave-forge/main/queueing/inst/ctmc_exps.m	2012-03-19 16:31:21 UTC (rev 9971)
@@ -152,10 +152,9 @@
 %!demo
 %! lambda = 0.5;
 %! N = 4;
-%! birth = lambda*linspace(1,N-1,N-1);
-%! death = zeros(1,N-1);
-%! Q = diag(birth,1)+diag(death,-1);
-%! Q -= diag(sum(Q,2));
+%! b = lambda*[1:N-1];
+%! d = zeros(size(b));
+%! Q = ctmc_bd(b,d);
 %! t = linspace(0,10,100);
 %! p0 = zeros(1,N); p0(1)=1;
 %! L = zeros(length(t),N);
@@ -173,10 +172,9 @@
 %!demo
 %! lambda = 0.5;
 %! N = 4;
-%! birth = lambda*linspace(1,N-1,N-1);
-%! death = 0*birth;
-%! Q = diag(birth,1)+diag(death,-1);
-%! Q -= diag(sum(Q,2));
+%! b = lambda*[1:N-1];
+%! d = zeros(size(b));
+%! Q = ctmc_bd(b,d);
 %! p0 = zeros(1,N); p0(1)=1;
 %! L = ctmc_exps(Q,p0);
 %! disp(L);

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.