代码搜索：lagrange
找到约 623 项符合「lagrange」的源代码
代码结果 623
www.eeworm.com/read/427514/8938244
m lagrange.m
function y=lagrange(X,Y,x)
n=length(X);
m=length(x);
for i=1:m;
z=x(i);
s=0.0;
for k=1:n
p=1.0;
for j=1:n
if j~=k
p=p*(z-X(j))/(X(k)-X
www.eeworm.com/read/427353/8950182
m lagrange.m
%拉格朗日插值法
%x=[1 3 2]; x=[0.1 0.15 0.25 0.40 0.50 0.57 0.70 0.85 0.93 1.0];
%y=[1 2 -1];y=[0.904837 0.860708 0.778801 0.670320 0.606531 0.565525
%0.496585 0.427415 0.394554 0.367879];
%p=1.5;p=0.63
www.eeworm.com/read/380937/9121975
c lagrange.c
#include
#include
#include
double LAG(int,double *,double *,double);
void main()
{
int n;
double *x,*y,t,lag;
t = 0.15;
n = 6;
x = (double*)calloc(n,
www.eeworm.com/read/184067/9123843
m lagrange.m
function yy=lagrange(x,y,xx)
% Lagrange 插值
% yy=lagrange(x,y,xx)求数据(x,y)所表达的函数在插值点xx处的插值
% 要求x,y为同维数向量
%例如 数据
% x | 0.1 0.2 0.15 0.0 -0.2 0.3
% --|------------------------------
% y
www.eeworm.com/read/378420/9231499
c lagrange.c
www.eeworm.com/read/376593/9313011
m lagrange.m
function y=lagrange(x0,y0,x)
ii=1:length(x0); y=zeros(size(x));
for i=ii
ij=find(ii~=i); y1=1;
for j=1:length(ij), y1=y1.*(x-x0(ij(j))); end
y=y+y1*y0(i)/prod(x0(i)-x0(ij));
end
www.eeworm.com/read/376169/9328235
c lagrange.c
www.eeworm.com/read/179809/9336104
f lagrange.f
program lagrange
c...Polynomial reconstruction in Lagrange form.
parameter(nmax=300,n1max=10000)
double precision a(nmax),x(nmax),y(nmax),product,sum
double precision x
www.eeworm.com/read/179128/9371037
c lagrange.c
www.eeworm.com/read/179128/9371512