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