clear all; close all;
%----------------- demo_leb_function_log.m -----------------------
% This script plots the Lebesgue function of F-H's interpolant at
% 40 logarhitmically distribuited nodes on [0,1].
%
% Functions called: 
%
%  ---------------------------------------------------------------
% Authors: 
%      Stefano De Marchi and Cinzia Bandiziol
%      Department of Pure and Applied Math.
%      University of Padova
%   
%           
% Version: May 2015		
%  ----------------------------------------------------------------

clear all;
close all;
d=3;
n=40;
F2=inline('log(1+t*(exp(1)-1))','t');

abscissa=(0:1/(n-1):1)';
x=F2(abscissa);
w=weights(d,x);
[lambda_n_fun,points]=leb_function(min(x),max(x),n,x,w);

plot(points,lambda_n_fun,'b-');
title('Lebesgue function at logarhitmically distribuited nodes');