Mercurial > repos > public > sbplib

diff +scheme/Beam.m @ 1041:25d0efdb0f75

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix penalty bug in Beam
author Jonatan Werpers <jonatan@werpers.com>
date Tue, 22 Jan 2019 10:46:29 +0100
parents a35ed1d124d3
children 5afc774fb7c4
line wrap: on
line diff
--- a/+scheme/Beam.m	Wed Jan 16 16:50:21 2019 +0100
+++ b/+scheme/Beam.m	Tue Jan 22 10:46:29 2019 +0100
@@ -124,7 +124,7 @@
 
                     closure = obj.Hi*(tau*d2' + sig*d3');
                     penalty{1} = -obj.Hi*tau;
-                    penalty{1} = -obj.Hi*sig;
+                    penalty{2} = -obj.Hi*sig;
 
                 case 'e'
                     alpha = obj.alpha;