Mercurial > repos > public > sbplib
annotate scaleAxisLim.m @ 1136:eee71789f13b feature/laplace_curvilinear_test
Add LaplaceCurvilinear schemes where the minimum check will be implemented. The Virta scheme will be used for comparison only.
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Mon, 10 Jun 2019 10:43:12 +0200 |
parents | 0976e579a6f0 |
children |
rev | line source |
---|---|
373
0976e579a6f0
Add functions for scaling figure windows and axes.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
1 function scaleAxisLim(ah, s) |
0976e579a6f0
Add functions for scaling figure windows and axes.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
2 x = ah.XLim; |
0976e579a6f0
Add functions for scaling figure windows and axes.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
3 y = ah.YLim; |
0976e579a6f0
Add functions for scaling figure windows and axes.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
4 |
0976e579a6f0
Add functions for scaling figure windows and axes.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
5 xl = x(2) - x(1); |
0976e579a6f0
Add functions for scaling figure windows and axes.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
6 yl = y(2) - y(1); |
0976e579a6f0
Add functions for scaling figure windows and axes.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
7 |
0976e579a6f0
Add functions for scaling figure windows and axes.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
8 dx = xl*(s-1); |
0976e579a6f0
Add functions for scaling figure windows and axes.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
9 dy = yl*(s-1); |
0976e579a6f0
Add functions for scaling figure windows and axes.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
10 |
0976e579a6f0
Add functions for scaling figure windows and axes.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
11 ah.XLim = x + [-dx/2 dx/2]; |
0976e579a6f0
Add functions for scaling figure windows and axes.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
12 ah.YLim = y + [-dy/2 dy/2]; |
0976e579a6f0
Add functions for scaling figure windows and axes.
Jonatan Werpers <jonatan@werpers.com>
parents:
diff
changeset
|
13 end |