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: , 
