Mercurial > repos > public > sbplib

diff +scheme/Beam.m @ 340:25ae8333ce2b feature/beams

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
scheme.Beam: Fixed stability of free bc.
author Jonatan Werpers <jonatan@werpers.com>
date Mon, 31 Oct 2016 16:25:46 +0100
parents 3135e13ae509
children dfb27a7e801f
line wrap: on
line diff
--- a/+scheme/Beam.m	Mon Oct 24 17:01:34 2016 +0200
+++ b/+scheme/Beam.m	Mon Oct 31 16:25:46 2016 +0100
@@ -114,7 +114,7 @@
 
 
                 case {'free'}
-                    a = -obj.alpha;
+                    a = obj.alpha;
 
                     tau =  s*a*d1;
                     sig = -s*a*e;