clc
clear all
hold on

d=0;  % distancia 
v=3;  % velocidad
s=0;    % segundo
maxseg=30; % tiempo max 
dt=0.5;   % actualizamos cada dt segundos
vd=[d];  % vector con distancias
vt=[0];  % vector con tiempos
while s<=maxseg
    plot([s],[d],'r*');
    vt=[vt s];
    vd=[vd d];
    d=d+v*dt;
    s=s+dt;
    v=v*0.9; % rozamiento
end
plot(vt, vd,'r') % tiempo contra distancia
plot([0 30],[0 0],'k'); % eje cero en negro
