Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum > General > > "Tracking Simple Changes"

Post Reply:
Name:
Email Address:

Please send email when my message is replied to.

Url (optional):
Subject:
Message: view original message?
Attachment (optional):
Please answer this:5+1 =



Original Message (ID '125215') By Nasser M. Abbasi:
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"} ]