% SUCCESSIONE RICORRENTE. clear all; % SUCCESSIONE "s_n". s(1)=exp(-1); for n=1:99 s(n+1)=1-(n+1)*s(n); end % SUCCESSIONE "t_n". M=1000; t=zeros(M,1); % INIZIALIZZAZIONE "t". for n=M:-1:2 j=n-1; t(j)=(1-t(n))/n; end % PLOT SEMI-LOGARITMICO. clf; %semilogy(1:length(s),abs(s),'k-','LineWidth',2); hold on; %semilogy(1:length(s),abs(t(1:length(s))),'m-','LineWidth',2); hold on; ss=s(1:20); tt=t(1:length(ss)); tt=tt'; sss=s(1:5); ttt=t(1:length(ss)); ttt=ttt'; semilogy(1:length(ss),abs(tt-ss),'ko','MarkerFace','c'); semilogy(1:length(ss),abs(tt-ss),'ko','MarkerFace','c'); hold off;