| author | francesco-ST <francesco.abbate@st.com> | 2010年09月23日 18:18:07 +0200 |
|---|---|---|
| committer | francesco-ST <francesco.abbate@st.com> | 2010年09月23日 18:18:07 +0200 |
| commit | 16800ab30b0f9c2ef352fa0509ddfd6091917270 (patch) | |
| tree | 2f1dbdb78c7d9c0041c532a984e6986cea89cdb4 /examples/interp.lua | |
| parent | e82a04315810be635ccb66840fab5de8a5138556 (diff) | |
| download | gsl-shell-16800ab30b0f9c2ef352fa0509ddfd6091917270.tar.gz | |
| -rw-r--r-- | examples/interp.lua | 14 |
diff --git a/examples/interp.lua b/examples/interp.lua new file mode 100644 index 00000000..f0a0d013 --- /dev/null +++ b/examples/interp.lua @@ -0,0 +1,14 @@ +function demo1() + local N = 8 + local xsmp = |k| 2*pi*(k-1)/N + local x, y = new(N, 1, xsmp), new(N, 1, |k| sin(xsmp(k))) + local p = plot 'interp' + p:show() + p:addline(xyline(x, y)) + local ap = interp('akima', x, y) + p:addline(fxline(|x| ap:eval(x), 0, 2*pi), 'blue', {{'dash', 7, 3, 3, 3}}) + return p, ap +end + +print 'demo1() - Akima interpolation of simple sine data' + |