Hi Guys
Please refer to the attached code. I have implemented the "PlotLegends" command as per the documentation however the legends to do not show. Only one legend will plot one each graph.
Assistance would be appreciated.
Try wrapping Evaluate around the expressions that look like this
{x'[t], y'[t], theta'[t]} /. S
So, the full Plot expression would look like this:
Plot[Evaluate[{x'[t], y'[t], theta'[t]} /. S], {t, 0, 20}, PlotLegends -> {"x", "y", "Theta"}]