The following errors appear: ReplaceAll::reps: {sol[1,1]} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing. ReplaceAll::reps: {sol[1,2]} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing. ReplaceAll::reps: {sol[2,1]} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing.

In the above code: How can I add a plot legend inside the figure? and how can I change some lines to dotted lines?

ReplaceAll::reps: {shooting[{s1,s2}]} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing.

The code gave the following errors: FindRoot::nveq: The number of equations does not match the number of variables in FindRoot[shooting[{s1,s2}],{{s1,0},{s2,0}}].

Thank you very mutch

How can I communicate with you