Closed maxitg closed 5 years ago
In[] := evolution = InflationEvolution[ 1/2 a'[t]^2 + 1/2 b'[t]^2 - a[t]^2 - 0.1 b[t]^2, {{a, 1, 0}, {b, 1, 0}}, t, "MaxBounceCount" -> 10, "ZeroDensityRelativeThreshold" -> 1.*^-3]
b
a
10
In[] := Plot[{evolution[a][t], evolution[b][t]}, {t, 1, evolution["IntegrationTime"]}, PlotRange -> All]
Changes
Commands and tests
b
is reached, even thougha
oscillates much longer than10
bounces by then