% 区分線形補間
% 区間 [xi,xj]

xi = 2; xj = 2.5;
fi = 3; fj = 5;

Nij = @(x) Nij_param(x, xi, xj);
Nji = @(x) Nji_param(x, xi, xj);
f = @(x) fi*Nij(x) + fj*Nji(x);

n = 100;
step = (xj-xi)/n;
x = [xi:step:xj]';
plot(x,f(x));
fprintf("f'(x)\n");
fprintf("一時停止：何かのキーを押してください\n");
pause;
