Mercurial > repos > public > sbplib
comparison +sbp/+implementations/d1_upwind_2.m @ 267:f7ac3cd6eeaa operator_remake
Sparsified all implementation files, removed all matlab warnings, fixed small bugs on minimum grid points.
author | Martin Almquist <martin.almquist@it.uu.se> |
---|---|
date | Fri, 09 Sep 2016 14:53:41 +0200 |
parents | bfa130b7abf6 |
children |
comparison
equal
deleted
inserted
replaced
266:bfa130b7abf6 | 267:f7ac3cd6eeaa |
---|---|
23 Qp(1:2,1:2)=Q_U; | 23 Qp(1:2,1:2)=Q_U; |
24 Qp(m-1:m,m-1:m)=rot90(Q_U,2)'; %%% This is different from standard SBP | 24 Qp(m-1:m,m-1:m)=rot90(Q_U,2)'; %%% This is different from standard SBP |
25 | 25 |
26 Qm=-Qp'; | 26 Qm=-Qp'; |
27 | 27 |
28 e_1=zeros(m,1);e_1(1)=1; | 28 e_1=sparse(m,1);e_1(1)=1; |
29 e_m=zeros(m,1);e_m(m)=1; | 29 e_m=sparse(m,1);e_m(m)=1; |
30 | 30 |
31 Dp=HI*(Qp-1/2*e_1*e_1'+1/2*e_m*e_m') ; | 31 Dp=HI*(Qp-1/2*(e_1*e_1')+1/2*(e_m*e_m')) ; |
32 | 32 |
33 Dm=HI*(Qm-1/2*e_1*e_1'+1/2*e_m*e_m') ; | 33 Dm=HI*(Qm-1/2*(e_1*e_1')+1/2*(e_m*e_m')) ; |
34 end | 34 end |
35 | 35 |