關於部落格
  • 125505

    累積人氣

  • 20

    今日人氣

    0

    追蹤人氣

Lagrange Polynormal Code for Maple

LB:=proc(n,l,xi,x)
> # The n order l_th Lagrange Base
> # Input:
> #   n - the order of Lagrange polynormal
> #   l - the index of Lagrange Base
> #   xi - the points which we want to interpolat
> #   x - the var
> # Output: M = LB(n,l,xi,x)
>   local M,j;
>   M:=1;
>   for j from 1 to n do
>     if j<>l then
>       M:=M*(x-xi[j])/(xi[l]-xi[j]);
>     end if;
>   end do;
>   return M;
> end:

Download this code:
5-stage Butcher Array:

相簿設定
標籤設定
相簿狀態