Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Varying Parameters with a Diff Eq.' topicStudent Support Forum > General > "Varying Parameters with a Diff Eq."

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
Bill Simpson
06/01/12 12:10pm

One method, trying to make the smallest changes to what you have and accomplish what I think you are asking for. There should be a cleaner simpler way of doing this, but perhaps this will do.

g = 1;
\[Alpha] = 1;
A = 10;
a = .01; (*initial plot temp*)
b = 1.2; (*final plot temp*)
c = 0.00000001; (*initial temp*)
d = 0; (*initial \[Beta]*)
m = 1;
zed = {};
For[M = 0., M <= .8, M += .1,
bb = (g/(2*\[Pi])^(3/2)*(m/T)^(3/2)*\[ExponentialE]^(-m/T));
s = NDSolve[{\[Beta]'[T] == (3*\[Alpha]^2*M*T^(5/2))/
(Sqrt[2*g]*m^(9/2))*(bb^2 - \[Beta][T]^2), \[Beta][c]==d},
\[Beta], {T, a, b}, Method->"BDF"];
zed = Append[zed, Plot[{(Evaluate[\[Beta][T] /. s])/bb}, {T, a, b}, PlotRange->Automatic]]
];
Show[zed]


URL: ,

Subject (listing for 'Varying Parameters with a Diff Eq.')
Author Date Posted
Varying Parameters with a Diff Eq. William Duhe 05/31/12 11:06am
Re: Varying Parameters with a Diff Eq. Michael 06/01/12 08:04am
Re: Re: Varying Parameters with a Diff Eq. William Duhe 06/06/12 11:21am
Re: Varying Parameters with a Diff Eq. Bill Simpson 06/01/12 12:10pm
Re: Varying Parameters with a Diff Eq. Bill Simpson 06/01/12 12:26pm
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic