Mercurial > repos > public > sbplib
comparison +parametrization/old/triang_interp_pts.m @ 832:5573913a0949 feature/burgers1d
Merged with default, and updated +scheme/Burgers1D accordingly
| author | Vidar Stiernström <vidar.stiernstrom@it.uu.se> |
|---|---|
| date | Tue, 11 Sep 2018 15:58:35 +0200 |
| parents | 81e0ead29431 |
| children |
comparison
equal
deleted
inserted
replaced
| 831:d0934d1143b7 | 832:5573913a0949 |
|---|---|
| 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 | |
| 11 S = parametrization.triang_interp(g1,g2,g3); | |
| 12 end |