How to correct the code which produces
Part::partw Part::partd errors Part::partw: Part 2 of Y[tau] does not exist.
Part::partd: Part specification {Y->InterpolatingFunction[{{-2.11454,0.}},{5,3,1,{437},{4},0,0,0,0,Automatic,{},{},False},{{-2.11454,<<49>>,<<387>>}},{{{-34.6432,8.237},{3.35084*10^11,-6.32877*10^10}},<<49>>,<<387>>},{Automatic}]}[[1,All,1,2]] is longer than depth of object.