I have this code, I want to display the latitude and longitude lines on the sphere, how can I achieve it?
\[Beta]=ArcTan[Sin[\[Alpha]]]+ArcTan[-.7]/Sqrt[Sin[\[Alpha]]^2+1];Show[Graphics3D[{Opacity[.5],Sphere[]}],ParametricPlot3D[FromSphericalCoordinates[{1,Pi/2-\[Beta],\[Alpha]}],{\[Alpha],-Pi,Pi}]]
Show[%1,Background->RGBColor[0.84,0.92,1.]]
ParametricPlot3D
Do you mean this perhaps?
ParametricPlot3D[{Cos[x] Sin[y], Sin[x] Sin[y], Cos[y]}, {x, 0,
2 Pi}, {y, 0, Pi},
Boxed -> False,
PlotPoints -> 30,
Axes -> False,
Mesh -> {10, 20}]
Can this code be imported into Wolfram? How to import?
How to add your latitude and longitude code to my code?
Don’t post a screenshot but code so that it is possible to have a look at it.
What do you want to do? That is by no means clear!
Just copy and paste
And here something more explicit
long = Table[j Pi/180., {j, -90, 90, 20}];
lat = Table[j Pi/180., {j, 0, 30, 10}];
longc = ParametricPlot3D[{Cos[#] Sin[y], Sin[#] Sin[y], Cos[y]}, {y,
0, Pi}, PlotStyle -> {Red, Thick}] & /@ long;
latc = ParametricPlot3D[{Cos[x] Sin[Pi/2 - #], Sin[x] Sin[Pi/2 - #],
Cos[Pi/2 - #]}, {x, 0, 2 Pi}, PlotStyle -> {Thick, Blue}] & /@
lat;
ps = ParametricPlot3D[{Cos[x] Sin[y], Sin[x] Sin[y], Cos[y]}, {x, 0,
2 Pi}, {y, 0, Pi},
Boxed -> False,
PlotPoints -> 30,
Axes -> False,
Mesh -> False
];
Show[ps, longc, latc]
You might adapt this according to your needs.
Sorry, I do n’t know how to copy my code and export it here.
My code
Perhaps you could describe your problem.
Did you copy/paste the code given above in a notebook? Is it this what you want?
Welcome to Wolfram Community! Please make sure you know the rules: https://wolfr.am/READ-1ST
The rules explain how to format your code properly. If you do not format code, it may become corrupted and useless to other members. Please EDIT your post and make sure code blocks start on a new paragraph and look framed and colored like this.
int = Integrate[1/(x^3 - 1), x];
Map[Framed, int, Infinity]
You can also embed notebook or attach notebook.
I have a set of codes, and the picture drawn is a circle on a sphere, as shown. But there are no longitude and latitude lines on the sphere. I hope there are longitude and latitude lines on the sphere. How to modify the code?
Hi z z,
Is this what you are trying to do?
plot = ParametricPlot3D[FromSphericalCoordinates[{1, Pi/2 - β, α}], {α, -Pi, Pi}];
sphere = SphericalPlot3D[1, {t, 0, Pi}, {p, 0, 2*Pi},
PlotStyle -> Directive[White, Opacity[0.2]],
Mesh -> 12,
MeshStyle -> Opacity[0.3],
Axes -> False,
Boxed -> False];
Show[sphere, plot]
Very good, I want this result. thank you very much. Will this code be added to my code? I use a mobile phone to operate, why can’t I paste it, but must enter these codes manually?
