clc
clear

t= [0, 0.1, 10];
XA=0.6.*t;
XB=0.05.*t.^2+0.1.*t+0.5;

plot(t,XA,'b','Linewidth',2);
plot(t,XB,'r','Linewidth',2);

title('3rd Lab Assignment by "Kimberly Randle"')

xlabel('Time(sec)')
ylabel('Position(m)')

diff= XA-XB;
idx= find(diff(1:end-1).*diff(2:end)<0);

t_cross=zeros(size(idx));
x_cross=zeros(size(idx));

k=1:length(idx)
i=idx(k);
t1= t(i);
t2=t(i+1);
d1=diff(i);
d2=diff(i+1);
t_cross(k)=t1-d1(t2-t1)/(d2-d1);
x_cross(k)=0.6*t_cross(k);
disp('Approximate crosing (time,position):')
k=1:length(t_cross)