Mercurial > repos > public > sbplib
annotate +parametrization/old/triang_interp_pts.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 | 81e0ead29431 |
| children |
| rev | line source |
|---|---|
| 0 | 1 % Creates a transfinite interpolation from connecting the four points wiht straight lines. |
| 2 function [S, g1, g2, g3] = triang_interp_pts(p1,p2,p3) | |
| 3 if size(p1) ~= [2 1] | |
| 4 error('p1 is strange!'); | |
| 5 end | |
| 6 | |
| 7 g1 = @(t)(p1 + t*(p2-p1)); | |
| 8 g2 = @(t)(p2 + t*(p3-p2)); | |
| 9 g3 = @(t)(p3 + t*(p1-p3)); | |
| 10 | |
|
248
81e0ead29431
Fixed package names in +parametrization
Jonatan Werpers <jonatan@werpers.com>
parents:
151
diff
changeset
|
11 S = parametrization.triang_interp(g1,g2,g3); |
| 0 | 12 end |