Mercurial > repos > public > sbplib
comparison +util/semidiscrete2function.m @ 0:48b6fb693025
Initial commit.
| author | Jonatan Werpers <jonatan@werpers.com> |
|---|---|
| date | Thu, 17 Sep 2015 10:12:50 +0200 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:48b6fb693025 |
|---|---|
| 1 function F = semidiscrete2function(D,S) | |
| 2 % TODO: Find threshhold when sparse makes sense. | |
| 3 % TODO: Why does having the spase block slow down convergence.m (or does it?) | |
| 4 if size(D,1) > 500 | |
| 5 D = sparse(D); | |
| 6 end | |
| 7 | |
| 8 if ~isa(S,'function_handle') | |
| 9 F = @(w,t)(D*w + S); | |
| 10 else | |
| 11 F = @(w,t)(D*w + S(t)); | |
| 12 end | |
| 13 end |