xsm.m

来自「Lagrange插值、Newton插值函数等插值函数」· M 代码 · 共 6 行

function [u,v]=xsm(h)

for i=1:size(h,2)-1
u(i)=h(i)/(h(i)+h(i+1));
v(i)=h(i+1)/(h(i)+h(i+1));
end