
function demo_calcola_R

% nota: nel tutoraggio si chiede solo il primo esempio; il secondo serve
% per la convergenza quadratica

esempio=3;

switch esempio
    case 1 % conv. lineare.
        xn=[1.000000000000000e+00
            6.551450720424304e-01
            4.335903683634927e-01
            2.881484008925012e-01
            1.918323121506386e-01
            1.278096675607083e-01
            8.518323360286406e-02
            5.678195278661637e-02
            3.785260078111326e-02
            2.523446453501505e-02
            1.682279781087122e-02
            1.121514564046264e-02
            7.476748086523549e-03
            4.984494080301871e-03
            3.322994677536352e-03
            2.215329377336683e-03
            1.476886130694148e-03];
        
    case 2 % conv. quadratica.
        xn=[-4.621171572600098e-01
            -9.226609421344499e-02
            -2.760023881435232e-03
            -2.323641077438862e-06
            -1.643922216272837e-12];
        
end

L=0;

R=calcola_R(xn,L);

fprintf('\n \t %1.10f',R);

fprintf('\n');




% demo_calcola_R
%
%  	 1.0245716940
%  	 1.0101116036
%  	 1.0043519204
%  	 1.0019074618
%  	 1.0008425934
%  	 1.0003734748
%  	 1.0001657899
%  	 1.0000736452
%  	 1.0000327234
%  	 1.0000145422
%  	 1.0000064629
%  	 1.0000028723
%  	 1.0000012766
%  	 1.0000005674
%  	 1.0000002520
