I would like to plot the temperature profile of a partially filled rotating cylinder. However, I am only familiar with how to plot pressure profiles. Can you please suggest a method for deriving the temperature from the pressure data, assuming an initial temperature of 50 degrees Celsius?
g = 9.8; \[Gamma] = \[Rho]*g; h = 3; r = Sqrt[x^2 + y^2];
P[z_] := ((\[Rho]*\[Omega]^2*r^2)/2 - \[Gamma]*z + \[Gamma]*h)/1000;
Column[{
Text@Style["isobaric surfaces in rotation", 17],
Show[
ContourPlot3D[P[z], {x, -1, 1}, {y, -1, 1}, {z, 0, h},
Mesh -> None, ColorFunction -> (Hue[#4/1] &), Contours -> 6,
ContourStyle -> [email protected], BoundaryStyle -> None,
BoxStyle -> Dashed],
Plot3D[height, {x, -1, 1}, {y, -1, 1},
PlotStyle -> Opacity[0.7, Blue], Mesh -> False],
Axes -> False, ImageSize -> {300, 375}]}, Center]
blue
would mean that its definition is needed. Do you have a (differential) equation relatingP[z]
toT[z]
or something similar? Not that it would make it an on-topic question, but it could facilitate potential respondents. Thanks. $\endgroup$