给定球面r[u_, v_] := {Cos[u] Cos[v], Cos[u] Sin[v], Sin[u]};球面上的两个点A = r[2, 3]; B = r[27/10, 5];要求画出A和B在球面上的短程线。用到的工具是Mathematica。
工具/原料
1
电脑
2
Mathematica
方法/步骤
1
先画出球面上的A和B。
2
画出经过A、B的测地线，这一定是一个球面上的大圆。
3
那么，A和B之间的短程线就可以画出来。
4
球面上三个点围成的三角形，边界线都是短程线。
5
当ABC三点均匀的分布在赤道上，三角形有可能变成大圆。
6
球面上存在三个角都是直角的三角形。
下一篇：如何在当家APP上提问？