Cylindrical Equidistant Projection

FreddyMusic

It is very good, but it was not what I want.

I want the same plot as the image below.

ggggwhw

I want the same plot as the image below.

你不能说汉语吗?你写一个数列的前五个数字就让我明白数列的通项公式吗?我觉得困难.

而你只画了两个图就要我知道你所说的the same plot.我觉得更难理解.

如果只是在我的图旁边附上一个球的话,接下来的操作也太简单了吧.将我的二维坐标添上第三个坐标全为0就成了空间中的平面了,然后在旁边放上一个圆就行了.

FreddyMusic

不要意思，有点坏习惯，打英文比打汉字快。

我的意思是，我只要那个贴出来的图。

左侧图十分简单。我知道。

我要右侧的图即可。右侧的图反映的是圆柱体的经纬线映射在球体上的经纬线，要把圆柱体和球体的经纬线画出来。这样便于理解。

FreddyMusic

你的纬线并无对应关系。

一一个对应关系应该是，圆柱体上的纬线间距离有变化，而非等距离的纬线。

ggggwhw

一直不能领会你的要求所以不想太费神做,现在想法明确了,结果就简单了:

1. tu[1] = ParametricPlot3D[{R Cos[v], R  Sin[v], 2 R u/Pi - R}, {u, 0,
   
2.     Pi}, {v, 0, 2 Pi}, MeshFunctions -> {ArcSin[2 #4/Pi - 1] &, #5 &},
   
3.     Mesh -> 15, PlotStyle -> Opacity[0.5], Boxed -> False,
   
4.    Axes -> False, ColorFunction -> Function[{x, y, z}, Hue[z]]];
   
5. tu[2] = ParametricPlot3D[{R Sin[u] Cos[v], R Sin[u] Sin[v],
   
6.     R Cos[u]}, {u, 0, Pi}, {v, 0, 2 Pi},
   
7.    MeshFunctions -> {ArcSin[2 #4/Pi - 1] &, #5 &}, Mesh -> 15,
   
8.    PlotStyle -> Opacity[0.5], Boxed -> False, Axes -> False,
   
9.    ColorFunction -> Function[{x, y, z}, Hue[z]]];
   
10. Show[tu[1], tu[2]]

复制代码

FreddyMusic

Well done !