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}]