Mercurial > repos > public > sbplib
annotate alignedTimestep.m @ 958:72cd29107a9a feature/poroelastic
Temporary changes in multiblock.DiffOp. Change traction operators in Elastic2dvariable to be true boundary operators. But adjoint FD conv test fails for dirichlet BC so need to debug!
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Wed, 05 Dec 2018 18:58:10 -0800 |
parents | c71095442c57 |
children |
rev | line source |
---|---|
12
c71095442c57
Added function to calculate an aligned timestep.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
1 % Calcualtes the largest timestep smaller than k_max that gives an integer |
c71095442c57
Added function to calculate an aligned timestep.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
2 % number of timesteps to time T. |
c71095442c57
Added function to calculate an aligned timestep.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
3 % k_max -- largest allowable timestep |
c71095442c57
Added function to calculate an aligned timestep.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
4 % T -- time to align with |
c71095442c57
Added function to calculate an aligned timestep.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
5 % |
c71095442c57
Added function to calculate an aligned timestep.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
6 % Returns: |
c71095442c57
Added function to calculate an aligned timestep.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
7 % k -- calculated timestep |
c71095442c57
Added function to calculate an aligned timestep.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
8 % N -- number to of timestep to reach T |
c71095442c57
Added function to calculate an aligned timestep.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
9 function [k, N] = alignedTimestep(k_max, T) |
c71095442c57
Added function to calculate an aligned timestep.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
10 N = ceil(T/k_max); |
c71095442c57
Added function to calculate an aligned timestep.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
11 k = T/N; |
c71095442c57
Added function to calculate an aligned timestep.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
12 end |