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

MathGroup Archive 2009

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

Search the Archive

NDSolve problem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg104960] NDSolve problem
  • From: "Becky" <noslowski at comcast.net>
  • Date: Sun, 15 Nov 2009 05:55:07 -0500 (EST)

Please see my code below.  I would like to have the NDSolve plot to come up
differently, in that I would like it to start (time 0 to 10 to have the
value as shown in the plot which is (5.992).  Which is the same where (t 100
to 140).

Thanks for your continued support.

i[t_]:=If[t<10||t>100,-3,1]
Plot[i[t],{t,0,140},PlotStyle->{Red,Thick},AxesLabel->{time,current}]
so[r_,c_:1,v0_:0]:=NDSolve[{v'[t]==1/c* (i[t]-v[t]/r),v[0]==0},v,{t,0,140}]
Plot[Evaluate[v[t]/.{so[2]}],{t,0,140},AxesLabel->{time,voltage}]




  • Prev by Date: A Question about adjacency matrix
  • Next by Date: Re: Displaying results in a column
  • Previous by thread: Re: Error when working with a derivative
  • Next by thread: Re: NDSolve problem