Mercurial > repos > public > sbplib

comparison +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
comparison
equal deleted inserted replaced
339:3135e13ae509 340:25ae8333ce2b
112 penalty{1} = -obj.Hi*tau; 112 penalty{1} = -obj.Hi*tau;
113 penalty{2} = -obj.Hi*sig; 113 penalty{2} = -obj.Hi*sig;
114 114
115 115
116 case {'free'} 116 case {'free'}
117 a = -obj.alpha; 117 a = obj.alpha;
118 118
119 tau = s*a*d1; 119 tau = s*a*d1;
120 sig = -s*a*e; 120 sig = -s*a*e;
121 121
122 closure = obj.Hi*(tau*d2' + sig*d3'); 122 closure = obj.Hi*(tau*d2' + sig*d3');