Mercurial > repos > public > sbplib

diff operator_def/assemble_opTest.m @ 830:e15a667ffde2 feature/operator_files

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add quadrature stencils and operator assembly. Add tests
author Vidar Stiernström <vidar.stiernstrom@it.uu.se>
date Mon, 10 Sep 2018 19:27:27 +0200
parents f82da6644f42
children
line wrap: on
line diff
--- a/operator_def/assemble_opTest.m	Mon Sep 10 19:25:41 2018 +0200
+++ b/operator_def/assemble_opTest.m	Mon Sep 10 19:27:27 2018 +0200
@@ -42,3 +42,12 @@
 verifyEqual(testCase,d1_l,op.d1_l,'AbsTol',1e-10)
 verifyEqual(testCase,d1_r,op.d1_r,'AbsTol',1e-10)
 end
+
+function TestAssembleH(testCase)
+    m = 10;
+    op = sbp.D2Standard(m,{0 3},2);
+    h = op.h;
+    [H, Hinv] = assemble_H('H_2',h,m);
+    verifyEqual(testCase,H,op.H,'AbsTol',1e-10)
+    verifyEqual(testCase,Hinv,op.HI,'AbsTol',1e-10)
+end