The following code with varying scaling parameter gives same plot. plz suggest correction.

```
Clear[x];

r=1;
eqn=x'[t]-1-r*x[t]-x[t]^2==0;
sol=x/.DSolve[{eqn,x[0]==0},x,t][[1,1]];
ParametricPlot[Evaluate[{sol[t],D[sol[t],t]}],{t,0,100}]

r=2;
eqn=x'[t]-1-r*x[t]-x[t]^2==0;
ParametricPlot[Evaluate[{sol[t],D[sol[t],t]}],{t,0,100}]

r=-2;
eqn=x'[t]-1-r*x[t]-x[t]^2==0;
ParametricPlot[Evaluate[{sol[t],D[sol[t],t]}],{t,0,100}]

r=0;
eqn=x'[t]-1-r*x[t]-x[t]^2==0;
ParametricPlot[Evaluate[{sol[t],D[sol[t],t]}],{t,0,100}]

```

Regards,