使用Mathematica在球体上绘制坐标图

问题描述

有人知道如何在Mathematica中绘制附件图像吗？我有以下代码，但是对我来说，放置角度和曲线以及所有矢量非常困难。

 pts = {x -> 0,y -> 0,z -> 1}
 r1a = ContourPlot3D[{x^2 + y^2 + (z - 1)^2 - 1 == 0},{x,-2,2},{y,{z,-0,ContourStyle -> {Opacity[0.15],Yellow},Mesh -> 
];
  r2a = ContourPlot3D[{z - 1 == 0},ContourStyle -> {Opacity[0.5],MeshFunctions -> {Function[{x,y,z,f},z - 1 - (x^2 + y^2 - z^2)]},MeshStyle -> {{Thickness[0.01],Dashed,Red}},Mesh -> 
];
   T = Graphics3D[{Black,Arrowheads[0],Arrow[Tube[{{0,1},{0,-1,2}}],0.01]},Boxed -> False];
   intersections = {PointSize[0.02],Black,Point[{x,z} /. pts]};
   Show[{Graphics3D[{intersections},PlotRange -> {{-2,{-2,2}},Boxed -> False,Axes -> True,Axesstyle -> Thickness[0.005],AxesOrigin -> {0,Ticks -> None],r1a,r2a,T},ImageSize -> 700]

{{0}}

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）