Mercurial > repos > public > sbplib

diff +scheme/Staggered1DAcousticsVariable.m @ 1081:9c74d96fc9e2 feature/d1_staggered

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Bugfix in interface SATs, Staggered1DAcousticsVariable
author Martin Almquist <malmquist@stanford.edu>
date Tue, 05 Mar 2019 11:18:44 -0800
parents 18e10217dca9
children
line wrap: on
line diff
--- a/+scheme/Staggered1DAcousticsVariable.m	Wed Nov 28 17:35:19 2018 -0800
+++ b/+scheme/Staggered1DAcousticsVariable.m	Tue Mar 05 11:18:44 2019 -0800
@@ -332,10 +332,10 @@
             Z_v = TH_v*Ttilde_p*Sp_u;
             Z_v = sparse(Z_v);
 
-            closure_u = Hi_u*e_u*Z_u*e_u';
-            penalty_u = -Hi_u*e_u*Z_u*e_v';
-            closure_v = Hi_v*e_v*Z_v*e_v';
-            penalty_v = -Hi_v*e_v*Z_v*e_u';
+            closure_u = Hi_u*e_u*(A_u\Z_u)*e_u';
+            penalty_u = -Hi_u*e_u*(A_u\Z_u)*e_v';
+            closure_v = Hi_v*e_v*(A_v\Z_v)*e_v';
+            penalty_v = -Hi_v*e_v*(A_v\Z_v)*e_u';
 
              switch boundary
                  case 'l'