Wolfram Function Repository
Instant-use add-on functions for the Wolfram Language
Function Repository Resource:
Move back and forth from the squared space or square root space of an algebraic number field
ResourceFunction["SqrtSpace"][root,pts] while tracking signs, converts Cartesian pts2 to algebraic values in |
Using ϕ, GoldenRatio or Fibonacci’s rabbit constant, convert points to the algebraic number field and build the Fermat triangle:
In[1]:= | ![]() |
Out[3]= | ![]() |
Using ψ, the supergolden ratio or Narayana’s cow constant, convert points to the algebraic number field and build the supergolden triangle:
In[4]:= | ![]() |
Out[6]= | ![]() |
Convert back to the original points:
In[7]:= | ![]() |
Out[7]= | ![]() |
Under "Neat Examples" in GeometricScene, there is a mysterious output after "Decompose a triangle into similar triangles":
In[8]:= | ![]() |
Out[8]= | ![]() |
This triangle is in the algebraic number field / geometric space of where ρ is the plastic constant:
In[9]:= | ![]() |
Out[11]= | ![]() |
Convert the points back to original values:
In[12]:= | ![]() |
Out[12]= | ![]() |
A simple application of ToNumberField does not recognize the points as being in either or
, but does recognize the values when they get squared:
In[13]:= | ![]() |
Out[14]= | ![]() |
These values are algebraic numbers:
In[15]:= | ![]() |
Out[15]= | ![]() |
The actual point is also a pair of algebraic numbers:
In[16]:= | ![]() |
Out[16]= | ![]() |
The signs here happen to be positive, so taking the square root of the algebraic version does not require extra steps:
In[17]:= | ![]() |
Out[17]= | ![]() |
Convert 19 points from the algebraic number field of the plastic constant ρ into 3D coordinates:
In[18]:= | ![]() |
Out[19]= | ![]() |
Find the distances between these points in terms of powers of :
In[20]:= | ![]() |
Out[20]= | ![]() |
Plot out the points:
In[21]:= | ![]() |
Out[21]= | ![]() |
Wolfram Language 11.3 (March 2018) or above
This work is licensed under a Creative Commons Attribution 4.0 International License