changeset 340:25ae8333ce2b feature/beams

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 43d02533bea3
files +scheme/Beam.m
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
diff -r 3135e13ae509 -r 25ae8333ce2b +scheme/Beam.m
--- 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;