function edosolpvi
clear all
clc
format long
xo = input('Entre com o valor de Xo: '); %%% Valor inicial para x
yo = input('Entre com o valor de Yo: '); %%% Valor inicial para y
xf = input('Entre com o valor de x final: ');
%%%%%%%% Intervalo de Tempo para x
intervalo = [xo xf]; 
%%% Solucao do Sistema
[t,y] = ode45(@dinamica,intervalo,yo); % pacote para resolver PVI
disp ('Os valores de y calculados foram: ');
disp (y(:,1))
%%% Grafico
figure(1)
plot(t,y(:,1)) 

%_____________________________________________________
%
function dydt = dinamica(t,y)
dydt = [-t*y(1)];