Mercurial > repos > public > sbplib
comparison +time/+rk4/get_rk4_time_step.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 % Calculate the size of the largest time step given the largest evalue for a operator with pure imaginary e.values. | |
| 2 function k = get_rk4_time_step(lambda,l_type) | |
| 3 default_arg('l_type','complex') | |
| 4 | |
| 5 rad = abs(lambda); | |
| 6 if strcmp(l_type,'real') | |
| 7 % Real eigenvalue | |
| 8 % kl > -2.7852 | |
| 9 k = 2.7852/rad; | |
| 10 | |
| 11 elseif strcmp(l_type,'imag') | |
| 12 % Imaginary eigenvalue | |
| 13 % |kl| < 2.8284 | |
| 14 k = 2.8284/rad; | |
| 15 elseif strcmp(l_type,'complex') | |
| 16 % |kl| < 2.5 | |
| 17 k = 2.5/rad; | |
| 18 else | |
| 19 error('l_type must be one of ''real'',''imag'' or ''complex''.') | |
| 20 end | |
| 21 end |