Mercurial > repos > public > sbplib

comparison +sbp/+implementations/d1_upwind_3.m @ 423:a2cb0d4f4a02 feature/grids

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge in default.
author Jonatan Werpers <jonatan@werpers.com>
date Tue, 07 Feb 2017 15:47:51 +0100
parents f7ac3cd6eeaa
children 52b4cdf27633
comparison
equal deleted inserted replaced
218:da058ce66876 423:a2cb0d4f4a02
1 function [H, HI, Dp, Dm, e_1, e_m] = d1_upwind_3(m,h)
2
3 if(m<6)
4 error('Operator requires at least 6 grid points');
5 end
6
7 Hv = ones(m,1);
8 Hv(1:3) = [3/8; 7/6; 23/24];
9 Hv(m-2:m) = rot90(Hv(1:3),2);
10 Hv = Hv*h;
11 H = spdiag(Hv,0);
12 HI = spdiag(1./Hv,0);
13
14 q_diags = [-1, 0, 1, 2];
15 q_stencil = [-1/3 -1/2 1 -1/6];
16 Qp = stripeMatrix(q_stencil, q_diags,m);
17
18 Q_U = [
19 -1/24 17/24 -1/6;
20 -13/24 -1/4 23/24;
21 1/12 -11/24 -11/24;
22 ];
23 Qp(1:3,1:3)=Q_U;
24 Qp(m-2:m,m-2:m)=rot90(Q_U,2)'; %%% This is different from standard SBP
25
26 Qm=-Qp';
27
28 e_1=sparse(m,1);
29 e_1(1)=1;
30 e_m=sparse(m,1);
31 e_m(m)=1;
32
33 Dp=HI*(Qp-1/2*(e_1*e_1')+1/2*(e_m*e_m')) ;
34
35 Dm=HI*(Qm-1/2*(e_1*e_1')+1/2*(e_m*e_m')) ;
36 end
37