Mercurial > octave

comparison scripts/optimization/pqpnonneg.m @ 31551:fd29c7a50a78 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: use commas, semicolons consistently with Octave conventions. * makeValidName.m: Remove %!test and move BIST %!asserts to column 1. * base64decode.m, base64encode.m, which.m, logm.m, uniquetol.m, perms.m: Delete semicolon (';') at end of %!assert BIST. * lin2mu.m, interp2.m, interpn.m, lsqnonneg.m, pqpnonneg.m, uniquetol.m, betainc.m, normalize.m: Add semicolon (';') to end of assert statement within %!test BIST. * __memoize__.m, tar_is_bsd.m, publish.m: Add semicolon (';') to line with keyword "persistent". * stft.m: Use comma (',') after "case" keyword when code immediately follows. * gallery.m: Align commas used in case statements in massive switch block. Remove unnecessary parentheses around a numeric case argument. * ranks.m: Remove semicolon (';') from case statemnt argument.
author Rik <rik@octave.org>
date Sat, 26 Nov 2022 06:32:08 -0800
parents 10a813492497
children 597f3ee61a48
comparison
equal deleted inserted replaced
31549:ed7b17c7ddf3 31551:fd29c7a50a78
247 %!test 247 %!test
248 %! [x, resid, ~, ~, lambda] = pqpnonneg ([3 2; 2 2], [6; 5]); 248 %! [x, resid, ~, ~, lambda] = pqpnonneg ([3 2; 2 2], [6; 5]);
249 %! assert (x, [0 0]', eps); 249 %! assert (x, [0 0]', eps);
250 %! assert (resid, 0, eps); 250 %! assert (resid, 0, eps);
251 %! assert (lambda, [-6 -5]', eps); 251 %! assert (lambda, [-6 -5]', eps);
252 %! assert (x .* lambda, [0 0]') 252 %! assert (x .* lambda, [0 0]');
253 253
254 %!test 254 %!test
255 %! [x, resid, ~, ~, lambda] = pqpnonneg ([3 2; 2 2], [6; -5]); 255 %! [x, resid, ~, ~, lambda] = pqpnonneg ([3 2; 2 2], [6; -5]);
256 %! assert (x, [0 2.5]', eps); 256 %! assert (x, [0 2.5]', eps);
257 %! assert (resid, -6.25, eps); 257 %! assert (resid, -6.25, eps);
258 %! assert (lambda, [-11 0]', eps); 258 %! assert (lambda, [-11 0]', eps);
259 %! assert (x .* lambda, [0 0]') 259 %! assert (x .* lambda, [0 0]');
260 260
261 %!test 261 %!test
262 %! [x, resid, ~, ~, lambda] = pqpnonneg ([3 2; 2 2], [-6; 5]); 262 %! [x, resid, ~, ~, lambda] = pqpnonneg ([3 2; 2 2], [-6; 5]);
263 %! assert (x, [2 0]', eps); 263 %! assert (x, [2 0]', eps);
264 %! assert (resid, -6, eps); 264 %! assert (resid, -6, eps);
265 %! assert (lambda, [0 -9]', eps); 265 %! assert (lambda, [0 -9]', eps);
266 %! assert (x .* lambda, [0 0]') 266 %! assert (x .* lambda, [0 0]');
267 267
268 %!test 268 %!test
269 %! [x, resid, ~, ~, lambda] = pqpnonneg ([3 2; 2 2], [-6; -5]); 269 %! [x, resid, ~, ~, lambda] = pqpnonneg ([3 2; 2 2], [-6; -5]);
270 %! assert (x, [1 1.5]', 10*eps); 270 %! assert (x, [1 1.5]', 10*eps);
271 %! assert (resid, -6.75, 10*eps); 271 %! assert (resid, -6.75, 10*eps);
272 %! assert (lambda, [0 0]', eps); 272 %! assert (lambda, [0 0]', eps);
273 %! assert (x .* lambda, [0 0]') 273 %! assert (x .* lambda, [0 0]');
274 274
275 ## Test input validation 275 ## Test input validation
276 %!error <Invalid call> pqpnonneg () 276 %!error <Invalid call> pqpnonneg ()
277 %!error <Invalid call> pqpnonneg (1) 277 %!error <Invalid call> pqpnonneg (1)
278 %!error <C .* must be numeric matrices> pqpnonneg ({1},2) 278 %!error <C .* must be numeric matrices> pqpnonneg ({1},2)