Mercurial > repos > public > sbplib

comparison +sbp/+implementations/d1_upwind_5.m @ 261:6009f2712d13 operator_remake

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Moved and renamned all implementations.
author Martin Almquist <martin.almquist@it.uu.se>
date Thu, 08 Sep 2016 15:35:45 +0200
parents
children bfa130b7abf6
comparison
equal deleted inserted replaced
260:b4116ce49ac4 261:6009f2712d13
1 function [H, HI, Dp, Dm, e_1, e_m] = d1_upwind_5(m,h)
2 Hv=ones(m,1);
3 Hv(1:4)=[0.251e3/0.720e3; 0.299e3/0.240e3; 0.211e3/0.240e3; 0.739e3/0.720e3;];
4 Hv(m-3:m)=rot90(Hv(1:4),2);
5 Hv = Hv*h;
6 H = spdiag(Hv,0);
7 HI = spdiag(1./Hv,0);
8
9 q_diags = [-2 -1 0 1 2 3];
10 q_stencil = [1/20 -1/2 -1/3 +1 -1/4 +1/30];
11 Qp = stripeMatrix(q_stencil, q_diags,m);
12
13 Q_U = [
14 -0.1e1/0.120e3 0.941e3/0.1440e4 -0.47e2/0.360e3 -0.7e1/0.480e3;
15 -0.869e3/0.1440e4 -0.11e2/0.120e3 0.25e2/0.32e2 -0.43e2/0.360e3;
16 0.29e2/0.360e3 -0.17e2/0.32e2 -0.29e2/0.120e3 0.1309e4/0.1440e4;
17 0.1e1/0.32e2 -0.11e2/0.360e3 -0.661e3/0.1440e4 -0.13e2/0.40e2;
18 ];
19
20 Qp(1:4,1:4)=Q_U;
21 Qp(m-3:m,m-3:m)=flipud( fliplr(Q_U(1:4,1:4) ) )'; %%% This is different from standard SBP
22
23 Qm=-Qp';
24
25 e_1=zeros(m,1);e_1(1)=1;
26 e_m=zeros(m,1);e_m(m)=1;
27
28 Dp=HI*(Qp-1/2*e_1*e_1'+1/2*e_m*e_m') ;
29
30 Dm=HI*(Qm-1/2*e_1*e_1'+1/2*e_m*e_m') ;
31 end