lemden.m

来自「LiScNLS is a Matlab application for the 」· M 代码 · 共 11 行

function [p,dp,q,r,alp,dom,x,wint,wipr]=LEmden(n)
dom=[0,1];alpha=(dom(2)-dom(1))/2;beta=(dom(2)+dom(1))/2;
e1=ones(n,1)/2;e2=e1;e2(2)=1;X=spdiags([e1,e2],[-1,1],n,n);
X=alpha*X+beta*eye(n);
p=X^2;
dp=2*X;
q=0;
r=X^2;
alp=[0,1;1,0];
[x,wint]=pd(n,dom);
wipr=x.^2;