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

MathGroup Archive 2012

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

Search the Archive

Differential Equation: Not getting result

  • To: mathgroup at smc.vnet.net
  • Subject: [mg127329] Differential Equation: Not getting result
  • From: Rahul Chakraborty <rahul.6sept at gmail.com>
  • Date: Tue, 17 Jul 2012 01:31:45 -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,

 For the following code i'm not getting result. kindly tell me where i'm making mistake.

Clear[x];
r=1;
K=1;
eqn= (x^')[t]-r  x[t]  (1-x[t]/K)==0//Simplify;
sol=NDSolve[{eqn,x[0]==1/2,x'[0]==0},x[t],{t,0,50}][[1]]
ParametricPlot[Evaluate[{x[t]/.sol,D[x[t]/.sol,t]}],{t,0,50},Frame->True,AxesLabel->{"x",Overscript[x,"."]},AspectRatio->1]
ParametricPlot[Evaluate[{t,x[t]/.sol}],{t,0,50},Frame->True,AxesLabel->{"t","x"},AspectRatio->1]


Regards,
rc



  • Prev by Date: Re: Corrected DateList
  • Next by Date: Washington DC Area Mathematica SIG
  • Previous by thread: Re: Corrected DateList
  • Next by thread: Re: Differential Equation: Not getting result