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

MathGroup Archive 2009

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

Search the Archive

Re: manipulate, NDSolve, Evaluate

  • To: mathgroup at smc.vnet.net
  • Subject: [mg98134] Re: manipulate, NDSolve, Evaluate
  • From: pajake <jtrexel at ix.netcom.com>
  • Date: Tue, 31 Mar 2009 04:17:32 -0500 (EST)
  • References: <gqkuu9$4ad$1@smc.vnet.net> <gqn8q9$t6g$1@smc.vnet.net>

Here is what I have done so far.

(* First is an injected current that is applied to the cell*)
i[t_] := If[t < 10 || t > 60, 0, 1]
(* now to plot the above equation *)
Plot[i[t], {t, 0, 100}, PlotStyle -> {Red, Thick}]
(* The equation for an RC circuit.  Note the IC, and that c = 1. *)
RCSoln1[R_, c_: 1, v0_: 0] :=  NDSolve[{v'[t] == 1/c (i[t] - v[t]/R), 
v[0] == v0}, v, {t, 0, 100}]
(* Now plotting the above equation, and assigning R = 1 *)
Plot[Evaluate[v[t] /. {RCSoln1[1]}], {t, 0, 100},  PlotStyle -> {Red, 
Thick}]
(* Now let R = 1, and change the value of the capacitance in the plot to 
see what differences this makes *)
RCSoln1a[R_: 1, c_, v0_: 0] :=  NDSolve[{v'[t] == 1/c (i[t] - v[t]/R), 
v[0] == v0}, v, {t, 0, 100}]
p1 = Plot[Evaluate[v[t] /. {RCSoln1a[1]}], {t, 0, 100},   PlotStyle -> 
{Blue, Thick}]
p2 = Plot[Evaluate[v[t] /. {RCSoln1a[5]}], {t, 0, 100},   PlotStyle -> 
{Red, Thick}]
Show[p1, p2]
Now compare the difference in the way the plots look when you change the 
R (resistance) vs the c (capacitance).  In order for the capacitance to 
change like shown.  What could cause the changes in the resistance and 
the capacitance? 

? What I would like is: to use Manipulate with a slider to vary "c" and 
"R".  I tried to use this equation. NDSolve[{v'[t] == 1/(a*c) (i[t] - 
v[t]/(b*R), v[0] == v0}, v, {t, 0, 100}].  I changed the equation by 
putting (a*c) and (b*R).   Then with the plot I thought I could add: 
Manipulate[Plot[Evaluate[v[t] /. {RCSoln1a[1]}], {t, 0, 100}, ,{a, 0, 
5}, (b, 0, 5)
  PlotStyle -> {Blue, Thick}]]

It did not work.

This is just the beginning of the text book that I am writing.  Thus I 
did not go into the finer details of the soma's wall thickness and how 
it changes capacitance.  I just wanted to show in a graphic manner what 
could happen and illustrate a basic equivalent circuit for a cell 
membrane. Later on in the book, I go into more details.

Can you help me now? 
Thanks once again
Prof Jake

Sjoerd C. de Vries wrote:
> If you've already done it for a specific wall thickness it should be
> very easy to do the same in a Manipulate for variable thickness
> values.
>
> Please post more details if you want more specific assistence.
>
> Cheers -- Sjoerd
>
> On Mar 28, 12:42 pm, pajake <jtre... at ix.netcom.com> wrote:
>   
>> I am trying to combine, NDSolve with a ODE then using Plot[evaluate] to
>> show the results, and then I would like to take it to the next step and
>> use Manipulate.
>>
>> I am working a cell membranes capacitance based on the wall thickness. =
>>     
>  
>   
>> I would like the plot to show the the membrane voltage vs time,(I have
>> done this with NDSolve and Plot), but I would like to use a slider that
>> reflects the difference in the cell membranes thickness which affects
>> the capacitance.
>> Is this possible?
>> thanks
>> Prof. Jake
>>     
>
>
>   


  • Prev by Date: Re: What's going on here (Table-generated lists)?
  • Next by Date: Re: Re: What's going on here (Table-generated lists)?
  • Previous by thread: Re: manipulate, NDSolve, Evaluate
  • Next by thread: Problem loading file