show curves simultaneously
- To: mathgroup at smc.vnet.net
- Subject: [mg115179] show curves simultaneously
- From: manel zerelli <manel.zerelli at gmail.com>
- Date: Tue, 4 Jan 2011 04:20:51 -0500 (EST)
hi,
i want to solve two differential equations in which a parameter "r"
vary in an intervall. for that i want to see the effect of this
variation at each time, my problem is to show all the possible values
of the parameter "r" at each instant t and i want to show all curves
simultaneoutly for that i tried to use the loop "for" but i haven' t a
result.
Manipulate[
For[r = 1, r< 4, r++,
sol = DSolve[{\[Theta]'[t] == i[t],
i'[t] == - \[Theta][t] - r i[t] + 10,
i[0] == 0, \[Theta][0] == 0}, {i, \[Theta]}, t];
ParametricPlot[Evaluate[{i[t], \[Theta][t]} /. sol], {t, 0, n},
PlotRange -> {{-10, 10}, {-1, 15}}]], {n, 0, 7}]
thank you in advance.