Now we determine the times at which our OilSlick[t] function is at the IO times.
Now we determine the times at which our OilSlick[t] function is at the IO times.
Input :=
time = Table[t/.FindRoot[IO[[i]]== OilSlick[t],
{t,2000}][[1]], {i,1, Length[IO]}];