Mercurial > repos > public > sbplib
diff +scheme/Euler1d.m @ 353:fd4f1c80755d feature/hypsyst
meged with default
author | Ylva Rydin <ylva.rydin@telia.com> |
---|---|
date | Thu, 10 Nov 2016 20:49:25 +0100 |
parents | f39f98b59f61 |
children | 459eeb99130f |
line wrap: on
line diff
--- a/+scheme/Euler1d.m Thu Nov 10 20:47:40 2016 +0100 +++ b/+scheme/Euler1d.m Thu Nov 10 20:49:25 2016 +0100 @@ -27,7 +27,7 @@ methods function obj = Euler1d(m,xlim,order,gama,opsGen,do_upwind) - default_arg('opsGen',@sbp.Ordinary); + default_arg('opsGen',@sbp.D2Standard); default_arg('gama', 1.4); default_arg('do_upwind', false); gamma = gama; @@ -35,21 +35,22 @@ [x, h] = util.get_grid(xlim{:},m); if do_upwind - ops = sbp.Upwind(m,h,order); - Dp = ops.derivatives.Dp; - Dm = ops.derivatives.Dm; + ops = sbp.D1Upwind(m,xlim,order); + Dp = ops.Dp; + Dm = ops.Dm; D1 = (Dp + Dm)/2; Ddisp = (Dp - Dm)/2; else - ops = opsGen(m,h,order); - D1 = sparse(ops.derivatives.D1); + ops = opsGen(m,xlim,order); + printExpr('issparse(ops.D1)'); + D1 = ops.D1; end - H = sparse(ops.norms.H); - Hi = sparse(ops.norms.HI); - e_l = sparse(ops.boundary.e_1); - e_r = sparse(ops.boundary.e_m); + H = sparse(ops.H); + Hi = sparse(ops.HI); + e_l = sparse(ops.e_l); + e_r = sparse(ops.e_r); I_x = speye(m); I_3 = speye(3);