How to Scale and vary plot for a Differential Equation

• To: mathgroup at smc.vnet.net
• Subject: [mg127359] How to Scale and vary plot for a Differential Equation
• From: Rahul Chakraborty <rahul.6sept at gmail.com>
• Date: Fri, 20 Jul 2012 03:48:52 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net

```Dear all,

Kindly guide me for the above mentioned subject. I did try to code it but needs guidance.The code as below

Clear[x];
k[x_]=Manipulate[DynamicModule[{r:=1,K:=1},{Slider[Dynamic[r]],Slider[Dynamic[K]]},eqn=x'[t]-r x[t] (1-x[t]/K)==0//Quiet,sol=First@DSolve[{eqn,x[0]==1/2},x[t],{t,0,50}],[ParametricPlot[Evaluate[{x[t]/.sol,D[x[t]/.sol,t]}],{t,0,50},Frame->True,AxesLabel->{"x",Overscript[x,"."]},AspectRatio->1],ImageSize-> Scaled[r,K]],{r,1,5},{K,1,5},Initialization:> {r:=1,K:=1},SaveDefinitions-> True]]

Regards,
rahul

```

• Prev by Date: Re: NDSolve with NIntegrate where Integral is a function of x
• Next by Date: Re: Sending an interrupt to the frontend?
• Previous by thread: Re: What is best trick to eliminate flicker in simulation animation?
• Next by thread: Re: How to Scale and vary plot for a Differential Equation