It is a follow-up question from this one.
I'll put the code at the end. So far, I have:
Notice how nearer $z$ is to $0$, the more transparent the sphere is. I don't want to plot the whole hemisphere, but even if I make the domain for $u$ smaller, I don't get what I want, and I think the problem is because the other Plot3D
there. Also, I am sure there is an intelligent way of getting the same figure here with less coding, using two Plot3D
doesn't feel right, but it's the only way I can make it now.
- How can I plot less of the hemisphere?
- How can I optimize this mess?
(As a sidenote, it bothers me very much the fact that the figure "stretches" a bit, everytime I rotate it to have a better view.. what I am using AspectRatio -> 1
and BoxRatios -> {1,1,1}
for, then? Neither works.)
Thank you.
Show[ParametricPlot3D[{Cos[u] Cos[v], Cos[u] Sin[v], Sin[u]}, {u,
0, \[Pi] - .5}, {v, 0, 2 \[Pi]}, Mesh -> Automatic,
MeshStyle ->
Directive[GrayLevel[0], Opacity[0.04`], AbsoluteThickness[0.`],
DotDashed],
PlotStyle ->
Directive[RGBColor[0.9500000000000001`, 1.`, 0.64`],
Opacity[0.1`]]],
Plot3D[Sqrt[1 - x^2 - y^2], {x, -.8, .8}, {y, -.8, .8},
Mesh -> Automatic,
MeshStyle ->
Directive[RGBColor[0.51`, 0.51`, 0.51`], AbsoluteThickness[0.`],
Dashing[{0, Small, Small, Small}]],
PlotStyle -> RGBColor[0.6`, 0.6`, 0.6`],
RegionFunction ->
Function[{x, y, z, u,
v}, (x - Cos[\[Pi]/4] Cos[\[Pi]/3 - \[Pi]/2])^2 + (y -
Cos[\[Pi]/4] Sin[\[Pi]/3 - \[Pi]/2])^2 + (z -
Sin[\[Pi]/4])^2 <= 1/30]],
Plot3D[Sqrt[1 - x^2 - y^2], {x, -.8, .8}, {y, -.8, .8},
PlotStyle -> RGBColor[0.6`, 0.6`, 0.6`], Mesh -> Automatic,
MeshStyle ->
Directive[RGBColor[0.51`, 0.51`, 0.51`], AbsoluteThickness[0.`],
Dashing[{0, Small, Small, Small}]],
RegionFunction ->
Function[{x, y, z, u,
v}, (x - Cos[\[Pi]/4] Cos[\[Pi]/3 - \[Pi]/2 - 0.3`])^2 + (y -
Cos[\[Pi]/4] Sin[\[Pi]/3 - \[Pi]/2 - 0.3`])^2 + (z -
Sin[\[Pi]/4])^2 <= 1/30]],
Graphics3D[{PointSize[Large], Blue,
Point[{Cos[\[Pi]/4] Cos[(\[Pi]/3) - (\[Pi]/2) - .15],
Cos[\[Pi]/4] Sin[(\[Pi]/3) - (\[Pi]/2) - .15], Sin[\[Pi]/4]}]}],
AspectRatio -> 1, AxesOrigin -> {0, 0, 0}, Boxed -> False]
SphericalPlot3D[.99, {u, 0, \[Pi]/2}, {v, 6 Pi/4, Pi 2}, Mesh -> None, SphericalRegion -> True, RotationAction -> "Clip"]
instead your first plot does what you need? $\endgroup$ParametricPlot3D
? $\endgroup$SphericalRegion -> True, ImageSize -> 400
(with some fixedImageSize
to your liking. $\endgroup$SphericalRegion
here and I understood that this function is what "fixed" the zoom. Is that right? (I'm a bit slow with softwares and english is not my first language, sorry) $\endgroup$