Mercurial > hg > octave-nkf

diff scripts/optimization/sqp.m @ 11371:c767bb1afa03

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sqp.m: Fix indexing error in sqp bounds selection
author Olaf Till <olaf.till@uni-jena.de>
date Thu, 16 Dec 2010 07:39:04 -0800
parents 2ae0ca4ee36b
children 1740012184f9
line wrap: on
line diff
--- a/scripts/optimization/sqp.m
+++ b/scripts/optimization/sqp.m
@@ -312,7 +312,7 @@
       if (isvector (lb))
         __sqp_lb__ = tmp_lb = lb(:);
         lb_idx(:) = tmp_idx = (lb != -Inf);
-        __sqp_lb__ = __sqp_lb__(tmp_idx);
+        __sqp_lb__ = __sqp_lb__(tmp_idx, 1);
         lb_grad = lb_grad(lb_idx, :);
       elseif (isempty (lb))
         if (isa (x0, "single"))
@@ -328,7 +328,7 @@
       if (isvector (ub))
         __sqp_ub__ = tmp_ub = ub(:);
         ub_idx(:) = tmp_idx = (ub != Inf);
-        __sqp_ub__ = __sqp_ub__(tmp_idx);
+        __sqp_ub__ = __sqp_ub__(tmp_idx, 1);
         ub_grad = ub_grad(ub_idx, :);
       elseif (isempty (ub))
         if (isa (x0, "single"))