Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Solving Coupled Diff Eqs ( Simple )' topicStudent Support Forum > General > Archives > "Solving Coupled Diff Eqs ( Simple )"

Next Comment >Help | Reply To Topic
Author Comment/Response
William Duhe
06/27/12 11:55am

I am able to solve these equations and plot results such as T[t] and B[t] but what I need is a plot of B[T] that can be produced from this coupled set of equations:

T'[t] == (Sqrt[g]*T[t]^3)/(Sqrt[3]*M)

B'[t] == (Sqrt[3/2]*\[Alpha]^2*T[t]^(11/2))/(
Sqrt[m]*v^4)*((g/(2*\[Pi])^(3/2)*(m/T[t])^(3/2)*E^(-m/T[t]))^2 - B[t]^2)


I need to use these two equations to produce a plot for B[T]. How do I go about this? An example of how I managed to solve for B[t] and T[t] is given bellow.






M = 10000;
g = 1;
\[Alpha] = 1;
A = 10;
a = 0;(*initial plot temp*)
b = 1; (*final plot temp*)
c = 0.00000001; (*initial temp*)
d = 0; (*initial \[Beta]*)
m = 1;
v = .001;
s = NDSolve[{T'[t] == (Sqrt[g]*T[t]^3)/(Sqrt[3]*M),
B'[t] == (Sqrt[3/2]*\[Alpha]^2*T[t]^(11/2))/(
Sqrt[m]*v^4)*((g/(2*\[Pi])^(3/2)*(m/T[t])^(3/2)*E^(-m/T[t]))^2 -
B[t]^2), T[0] == 0.1, B[0] == 0}, {T[t], B[t]}, {t, a, b}]

URL: ,

Subject (listing for 'Solving Coupled Diff Eqs ( Simple )')
Author Date Posted
Solving Coupled Diff Eqs ( Simple ) William Duhe 06/27/12 11:55am
Re: Solving Coupled Diff Eqs ( Simple ) Forum Modera... 06/28/12 7:24pm
Re: Re: Solving Coupled Diff Eqs ( Simple ) Michael 06/30/12 6:09pm
Next Comment >Help | Reply To Topic