| Author |
Comment/Response |
Michael
|
 07/07/12 1:36pm
Try adding the option PlotRange->All to Show[..]. You also probably want to Chop off the residual imaginary parts from the TU integral. (Evaluate TU[0.7, 0.7] to see.)
Try replacing the show with this:
pTL = Plot3D[TL[x, psi], {x, 0, 0.5}, {psi, 0.01, 1},
AxesLabel -> {"x", "t", "y"},
PlotLabel -> {"Plot of Amodei's Solution to Heat Equation in \
Euclidean"}, Boxed -> False, Mesh -> False];
pTU = Plot3D[Chop[TU[x, psi]], {x, 0.5, 1}, {psi, 0.01, 1},
Boxed -> False, Mesh -> False];
Show[pTL, pTU, PlotRange -> All]
URL: , |
|
