0
$\begingroup$

I have a simulation from a system of equations that runs from 0 to 50

Normal = 
  NDSolve[{A /. Parameter, A[0] == .1}, {A[t]}, {t, 0, 50}];

That produces:

enter image description here

Now I want the same exact graph but to be shifted to t= 10 i.e. the simulation should start at t = 10. I still want the graph to go from 0 to 50. How can I achieve this?

$\endgroup$
  • $\begingroup$ What's about to shift the scale of plot? FrameTicks->{Table[{(i-1)*10,(i-1)*10-10},{i,1,6}],Automatic}] $\endgroup$ – Rom38 Jul 26 '19 at 5:11
  • $\begingroup$ First determine what part is Line in your plot: Position[plot,Line], say it is {{1,1,1,3,1,2,0}}. Then you may select points to keep in plot: plot[[1,1,1,3,1,2,1]]=Select[plot[[1,1,1,3,1,2,1]],#[[1]]>=10&], then repeat plot. Not elegant, but works. $\endgroup$ – Alx Jul 26 '19 at 12:32
  • $\begingroup$ Another variant: plot/.Line[{__}]:>(Cases[plot,Line[{x__}]:>x,\[Infinity]]//Select[#[[1]]>=10&]) $\endgroup$ – Alx Jul 26 '19 at 14:07

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.