| Author |
Comment/Response |
Nasser M. Abbasi
|
 11/12/12 8:39pm
Manipulate[
i = -100;
f = 10000;
s = NDSolve[{x'[t] == lambda, x[0] == 0}, x, {t, i, f}];
tf = FindRoot[x[t] == 1 /. s, {t, #}] & /@ {f, i};
Plot[Evaluate[{x[t]} /. s], {t, i, f}, PlotStyle -> Automatic,
PlotLabel -> tf],
{{lambda, .001, "lambda"}, 0.001, 1, .001, Appearance -> "Labeled"}
]
URL: , |
|
