%Prova di laboratorio per Matematici del 07/07/2016

clear all
close all
clc

format short e

% Dati
x0=1;
x1=1/11;
epsi=1e-15;
n=15;

%Chiamata della function
[x,xp]=Successione(x0,x1,epsi,n);

%Tabella
N=[0:n];
tab=[N' x' xp' abs(x-xp)'];

disp('      N             x          xp        errore')
disp(tab)

xv=(1/11).^N;

% Grafici
subplot(2,1,1)
semilogy(xv,'r*');hold on; semilogy(x,'o') 
grid on
xlabel('n');ylabel('xv,x')

subplot(2,1,2)
semilogy(x,'o');hold on; semilogy(xp,'k<')
grid on
xlabel('n');ylabel('x,xp')

