function main
  clc
  format long G

  
t_start      = 0;
t_stop       = 2;
t_span       = [t_start t_stop];
y_initial    = 7.60;

% Solve using Runge-Kutta
  [T,Y] = ode45( @derivatives, t_span , y_initial);

% Plot the results

hold on
plot(T,Y, 'Linewidth', 1.5, 'color', 'blue')
xlabel('t')
ylabel('y')

%print results:

  Number_pts = length(T);        %number of points in the array
  Output = zeros(Number_pts,2);  %set up an output array of correct length
for i=1:Number_pts               %fill in the output array
  Output(i,1)=T(i);
  Output(i,2)=Y(i);
end
fprintf('\n In the table below, Output = time, Y \n');
Output                            %prints Output in column format
  
  %---------------------------------------------------------------------
  % Function for the derivatives

     function dYdt = derivatives(T,Y)
     A       = 3.82;
     B       = 10.0;
     dYdt = B - A*Y;   
     end
end
