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

< Previous CommentHelp | Reply To Comment | Reply To Topic
Author Comment/Response
Bill Simpson
06/01/12 12:26pm

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;
Show[
Table[
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"];
Plot[{(Evaluate[\[Beta][T]/.s])/bb},{T,a,b},PlotRange->Automatic],
{M,0.,.8,.1}
]
]

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 CommentHelp | Reply To Comment | Reply To Topic