Karsai János
Typotex
p0l=PhasePlotBW[TrajL[t],{t,t0,t1},AxesLabel›{x,y},PlotRange›{{x1,x2},{y1,y2}}];