Manipulate a NDSolve equation is it possible
- To: mathgroup at smc.vnet.net
- Subject: [mg105574] Manipulate a NDSolve equation is it possible
- From: "Becky" <noslowski at comcast.net>
- Date: Wed, 9 Dec 2009 05:45:06 -0500 (EST)
Can the following be made interactive? I would like my students to see
there results quickly when changing certain values such as the resistance
and capacitance.
Thanks
My code so far
i[t_]:=If[t<10||t>60,0,1]
Plot[i[t],{t,0,100},PlotStyle->{Blue,Thick}]
RCSoln[R_,c_:1,v0_:0]:=NDSolve[{v*[t]*1/c
(i[t]-v[t]/R),v[0]*-70},v,{t,0,100}]
Plot[Evaluate[v[t]/.
{RCSoln[5]}],{t,0,100},PlotRange*{{0,100},{-80,10}},PlotStyle->{Blue,Thick}]