horner.m

来自「various matlab programs to slove various」· M 代码 · 共 3 行

function [pnz,b] = horner(a,n,z)
b(1)=a(1); for j=2:n+1, b(j)=a(j)+b(j-1)*z; end; pnz=b(n+1);