clear all
% close all
clc

disp('Ecuación: ')
 
disp('N(t)=A/(1+((A-N0)/N0)*e^(-A*r*t))')
 
disp('___________________________________________________________________')

disp('                                                                   ')

A=input('Valor de A, A (222.7): ');
N0=input('Población Inicial, N0 (10): ');
r=input('Valor de r, r (0.00152): ');
t=input ('Intervalo de Tiempo, t (0:30): ');

N = A./(1+((A-N0)/N0)*exp(-A*r*t));

hold on
plot(t,N,'k*')
grid on
xlabel('t');
ylabel('N');
title('Crecimiento Logístico')