c=1;l=50; modell={u'[z]==v[z], v'[z]== - c v[z] - u[z] (1 - u[z]), u[0]==0.9, v[0]==-0.2}; loesung=NDSolve[modell,{u,v},{z,0,l}]; abb=ParametricPlot[Evaluate[{u[z],v[z]}/.loesung],{z,0,l}, PlotPoints->50,PlotRange->All, ImageSize->{400,300},AxesLabel->{"u","v=u'"}];