Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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