Group Abstract Group Abstract

Message Boards Message Boards

0
|
3K Views
|
3 Replies
|
3 Total Likes
View groups...
Share
Share this post:

Perturb parameters during NDSolve run?

Leila Lindsey
Posted 12 years ago

With this very simple system, is there a way to change the parameters in a successive time interval in order to effectively perturb the system?

Manipulate[
 soln = NDSolve[{Q''[t] == (-R *Q'[t] - ( Q[t]/C1) + Vo)/L, Q[0] == 1,
     Q'[0] == 0.5}, {Q[t], Q'[t]}, {t, 0, 100}]; 
 Plot[Evaluate[Q'[t] /. soln], {t, 0, 100}, PlotRange -> All], {R, .1,
   1.50}, {C1, 1, 50}, {L, 1, 50}, {Vo, 1, 40}]

Thanks!
POSTED BY: Leila Lindsey
3 Replies
Sort By:
POSTED BY: Daniel Lichtblau
Leila Lindsey
Leila Lindsey
Posted 12 years ago

Thank you! Yes; although I was hoping to specifically change C1, for example, at t >= 50 for example.
POSTED BY: Leila Lindsey
Bill Simpson
Bill Simpson
Posted 12 years ago

Maybe you can adapt something like this?

Manipulate[
 bump[t_] := Piecewise[{{0, t < 50}, {1, t >= 50}}]; 
 soln = NDSolve[{Q''[t] == (-R*Q'[t] - (Q[t]/C1) + Vo)/L + bump[t], 
    Q[0] == 1, Q'[0] == 0.5}, {Q[t], Q'[t]}, {t, 0, 100}]; 
 Plot[Evaluate[Q'[t] /. soln], {t, 0, 100}, PlotRange -> All],
 {R, .1, 1.50}, {C1, 1, 50}, {L, 1, 50}, {Vo, 1, 40}]
POSTED BY: Bill Simpson
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard