MathGroup Archive 2007

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

Search the Archive

NDSolve plot problem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg79299] NDSolve plot problem
  • From: "Jake Trexel" <jtrexel at ix.netcom.com>
  • Date: Tue, 24 Jul 2007 05:59:58 -0400 (EDT)

Needing help with plots of equations.
I have the following eqs and I get a nice plot.  But what I want is for the 
same plot to continue for 3 to  4 times and then a negative plot at then 
end.  How do I go about this?

thank you
Jake
i[t_] := If[t < 10 || t > 60, 0, 1]

Plot[i[t], {t, 0, 100}, AxesLabel -> {"t = time", "i = current"}]

RCSoln[R_, c_: 1, v0_: 0] := 
NDSolve[{v'[t]==1/c{i[t]-v[t]/R},v[0]==v0,}t,0,100}]
Plot[Evaluate[v[t]/. {RCSoln[2]}],{t,0,100}]



  • Prev by Date: Re: generating non-IID random sequences
  • Next by Date: Novice/Integral
  • Previous by thread: Re: Again: Creating layered graphics in Mathematica?!?
  • Next by thread: Re: NDSolve plot problem