Wolfram Function Repository

Instant-use add-on functions for the Wolfram Language

Function Repository Resource:

 ErikssonPolarAngle

Source Notebook

Multidimensional polar angle of a corner

Contributed by: Michael Reed

ResourceFunction["ErikssonPolarAngle"][o,{p1,…,pd}]

gives the polar angle at the point o and spanned by the vectors p1,…,pd.

Details

ResourceFunction["ErikssonPolarAngle"] generalizes the law of sines for d-dimensional spherical simplices.

Examples

Basic Examples (2) 

The polar angle at the origin for vectors in two dimensions:

In[1]:=
ResourceFunction["ErikssonPolarAngle"][{0, 0}, {{1, 0}, {0, 1}}]
Out[1]=

The polar angle at the origin for vectors in three dimensions:

In[2]:=
ResourceFunction[ "ErikssonPolarAngle"][{0, 0, 0}, {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}]
Out[2]=

Scope (1) 

ErikssonPolarAngle works in any number of dimensions:

In[3]:=
ResourceFunction[ "ErikssonPolarAngle"][{Subscript[o, 1], Subscript[o, 2]}, {{Subscript[x, 1], Subscript[x, 2]}, {Subscript[y, 1], Subscript[y, 2]}}]
Out[3]=
In[4]:=
ResourceFunction[ "ErikssonPolarAngle"][{Subscript[o, 1], Subscript[o, 2], Subscript[o, 3]}, {{Subscript[x, 1], Subscript[x, 2], Subscript[x, 3]}, {Subscript[y, 1], Subscript[y, 2], Subscript[y, 3]}, {Subscript[z, 1], Subscript[z, 2], Subscript[z, 3]}}]
Out[4]=
In[5]:=
ResourceFunction[ "ErikssonPolarAngle"][{Subscript[o, 1], Subscript[o, 2], Subscript[o, 3], Subscript[o, 4]}, {{Subscript[w, 1], Subscript[w, 2], Subscript[w, 3], Subscript[ w, 4]}, {Subscript[x, 1], Subscript[x, 2], Subscript[x, 3], Subscript[x, 4]}, {Subscript[y, 1], Subscript[y, 2], Subscript[y, 3], Subscript[y, 4]}, {Subscript[z, 1], Subscript[z, 2], Subscript[ z, 3], Subscript[z, 4]}}]
Out[5]=

Properties and Relations (2) 

In two dimensions, ErikssonPolarAngle is similar to the results of SolidAngle and PlanarAngle:

In[6]:=
Plot[SolidAngle[{0, 0}, {{1, 0}, {1, x}}] - ResourceFunction[ "ErikssonPolarAngle"][{0, 0}, {{1, 0}, {1, x}}], {x, 0, 1}]
Out[6]=

In three dimensions, the difference between ErikssonPolarAngle and SolidAngle is more apparent:

In[7]:=
Plot[{SolidAngle[{0, 0, 0}, {{1, 0, 0}, {0, 1, 0}, {1, 1, x}}], ResourceFunction[ "ErikssonPolarAngle"][{0, 0, 0}, {{1, 0, 0}, {0, 1, 0}, {1, 1, x}}]}, {x, 0, 1}]
Out[7]=

Publisher

Michael Reed

Version History

  • 1.0.0 – 20 July 2022

Source Metadata

  • Citation:
    • Eriksson, F. "The law of sines for tetrahedra and n-simplices." Geometriae Dedicata 7, 71-80 (1978).
      DOI: 10.1007/BF00181352

Related Resources

License Information