Mercurial > repos > public > sbplib

diff +scheme/Hypsyst3dCurve.m @ 512:4ef2d2a493f1 feature/quantumTriangles

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add H_xyz to hypsyst to compute H-norm
author Ylva Rydin <ylva.rydin@telia.com>
date Mon, 26 Jun 2017 19:23:19 +0200
parents feebfca90080
children
line wrap: on
line diff
--- a/+scheme/Hypsyst3dCurve.m	Thu Jun 08 10:33:36 2017 +0200
+++ b/+scheme/Hypsyst3dCurve.m	Mon Jun 26 19:23:19 2017 +0200
@@ -216,6 +216,8 @@
             obj.Hxii = kr(I_n, ops_xi.HI, I_eta,I_zeta);
             obj.Hetai = kr(I_n, I_xi, ops_eta.HI,I_zeta);
             obj.Hzetai = kr(I_n, I_xi,I_eta, ops_zeta.HI);
+            Hi = obj.Hxii*obj.Hetai*obj.Hzetai;
+            obj.H = inv(Hi);
             
             obj.index_w = (kr(ops_xi.e_l, O_eta,O_zeta)==1);
             obj.index_e = (kr(ops_xi.e_r, O_eta,O_zeta)==1);