User Portlet User Portlet

Discussions
I have been trying to plot some numeric solutions to a Hamiltonian system. Basically I have : \[CapitalDelta]t = 10^(-2); q2[j_] := q2[j] = q2[j - 1] + \[CapitalDelta]t*p2[j - 1]; p2[j_] := p2[j] = p2[j - 1] -...
0 down vote favorite I'm in desire to plot the Poincare Section of a differential equation defined by a hamiltonian system. The hamiltonian is as follow: H[x_,a_,y_,b_]= (a^2+b^2)/2+f*y+(1-f-Sqrt[x^2+(1-y)^2])/2 which gives us the...