Mercurial > repos > public > sbplib

comparison +sbp/+implementations/d1_upwind_6.m @ 284:dae8c3a56f5e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in operator_remake (pull request #2) Operator remake
author Jonatan Werpers <jonatan.werpers@it.uu.se>
date Mon, 12 Sep 2016 12:53:02 +0200
parents f7ac3cd6eeaa
children
comparison
equal deleted inserted replaced
282:18c023aaf3f7 284:dae8c3a56f5e
1 function [H, HI, Dp, Dm, e_1, e_m] = d1_upwind_6(m,h)
2
3 if(m<12)
4 error('Operator requires at least 12 grid points');
5 end
6
7 Hv = ones(m,1);
8 Hv(1:6)=[0.13613e5/0.43200e5; 0.12049e5/0.8640e4 ; 0.535e3/0.864e3 ; 0.1079e4/0.864e3 ; 0.7841e4/0.8640e4 ; 0.43837e5/0.43200e5];
9 Hv(m-5:m)=rot90(Hv(1:6),2);
10 Hv = Hv*h;
11 H = spdiag(Hv,0);
12 HI = spdiag(1./Hv,0);
13
14 q_diags = [-2 -1 0 1 2 3 4];
15 q_stencil = [1/30 -2/5 -7/12 4/3 -1/2 2/15 -1/60];
16 Qp = stripeMatrix(q_stencil, q_diags,m);
17
18 Q_U =[
19 -0.265e3/0.128688e6 0.1146190567e10/0.1737288000e10 -0.1596619e7/0.18384000e8 -0.55265831e8/0.579096000e9 0.26269819e8/0.3474576000e10 0.2464501e7/0.144774000e9;
20 -0.1116490567e10/0.1737288000e10 -0.8839e4/0.214480e6 0.190538869e9/0.347457600e9 0.102705469e9/0.694915200e9 0.413741e6/0.9651600e7 -0.191689861e9/0.3474576000e10;
21 0.1096619e7/0.18384000e8 -0.135385429e9/0.347457600e9 -0.61067e5/0.321720e6 0.45137333e8/0.57909600e8 -0.253641811e9/0.694915200e9 0.70665929e8/0.579096000e9;
22 0.66965831e8/0.579096000e9 -0.208765789e9/0.694915200e9 -0.17623253e8/0.57909600e8 -0.18269e5/0.45960e5 0.410905829e9/0.347457600e9 -0.477953317e9/0.1158192000e10;
23 -0.49219819e8/0.3474576000e10 0.293299e6/0.9651600e7 0.26422771e8/0.694915200e9 -0.141938309e9/0.347457600e9 -0.346583e6/0.643440e6 0.2217185207e10/0.1737288000e10;
24 -0.2374501e7/0.144774000e9 0.142906261e9/0.3474576000e10 -0.3137129e7/0.579096000e9 -0.29884283e8/0.1158192000e10 -0.630168407e9/0.1737288000e10 -0.3559e4/0.6128e4;
25 ];
26
27 Qp(1:6,1:6)=Q_U;
28 Qp(m-5:m,m-5:m)=rot90(Q_U,2)'; %%% This is different from standard SBP
29
30 Qm=-Qp';
31
32 e_1=sparse(m,1);e_1(1)=1;
33 e_m=sparse(m,1);e_m(m)=1;
34
35 Dp=HI*(Qp-1/2*(e_1*e_1')+1/2*(e_m*e_m')) ;
36
37 Dm=HI*(Qm-1/2*(e_1*e_1')+1/2*(e_m*e_m')) ;
38
39 end