Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Plotting two 3D plots together [superset of 28967]' topicStudent Support Forum > General > "Plotting two 3D plots together [superset of 28967]"

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

g = 1;
\[Alpha] = 1;
A = 10;
a = .2;(*initial plot temp*)
b = 2.5;(*final plot temp*)
c = 0.00000001;(*initial temp*)
d = 0;(*initial \[Beta]*)
m = 1;
M = 1;
Show[Plot[(
E^(-m/T)*(T/m)^2)/(((2 \[Pi])^(3/2)*
Sqrt[g]*\[Alpha]^2)/((6*g*\[Alpha]^2)*(m/M))), {T, a, b},
PlotStyle -> {Red}],
Table[bb = (g/(2*\[Pi])^(3/2)*(m/T)^(3/2)*E^(-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, 1000, 1000, 100}]]


I want to plot both of these functions shown in the 2D plot above together in a 3D plot. I want to vary M simultaneously in both functions from 1-10,000. I am not sure the best way to go about this. Any thoughts? I want the two grids laid down on top of one another in order to analyze intersections in the data. Thanks a lot for any help! Attached is a copy of the file along with some other 3D plots I produced for single functions.

Attachment: Cosmology_Plots_3_4.nb, URL: ,

Subject (listing for 'Plotting two 3D plots together [superset of 28967]')
Author Date Posted
Plotting two 3D plots together [superset of 289... William Duhe 06/06/12 11:24am
Re: Plotting two 3D plots together [superset of... Michael 06/06/12 6:48pm
Next Comment >Help | Reply To Topic