  
| 
 | 
  
  | 
  
  | 
  
  | 
 
  
  | 
 
  
  | 
  
  | 
 
 
  
  | 
  
  | 
  
  | 
 
  
  | 
 
  
  | 
  
  | 
 
 
  
  | 
  
  | 
  
  | 
 
  
  | 
 
  
  | 
  
  | 
 
 
  
  | 
  
  | 
  
  | 
 
  
  
 |  
  
  | 
  
  | 
  
  | 
 
  
  | 
 
  | 
  
  | 
 
  
  | 
  
  | 
  
  | 
 
  
  | 
 
  | 
   http://functions.wolfram.com/02.02.26.0008.01
   |   
  | 
  
  | 
 
  
  | 
  
  | 
  
  | 
 
  
  
 |  
 | 
  
  | 
 
  
  
 |  
  
  | 
  
  | 
  
  | 
 
  
  | 
    
  | 
  
  | 
 
  
  | 
  
  | 
  
  | 
 
  
  | 
 
  | 
    GoldenRatio == -2 Cos[6 6 6 Degree] 
   |   
  | 
  
  | 
 
  
  | 
  
  | 
  
  | 
 
  
  
 |  
  
  | 
  
  | 
  
  | 
 
  
  | 
    
  | 
  
  | 
 
  
  | 
  
  | 
  
  | 
 
  
  | 
 
  | 
   Cell[BoxData[RowBox[List["GoldenRatio", "\[Equal]", " ", RowBox[List[RowBox[List["-", "2"]], " ", RowBox[List["Cos", "[", RowBox[List["6", " ", "6", " ", "6", " ", "Degree"]], "]"]]]]]]]] 
   |   
  | 
  
  | 
 
  
  | 
  
  | 
  
  | 
 
  
  
 |  
  
  | 
  
  | 
  
  | 
 
  
  | 
    
  | 
  
  | 
 
  
  | 
  
  | 
  
  | 
 
  
  | 
 
  
  | 
  
  | 
 
  
  | 
 
  | 
   
   <math xmlns='http://www.w3.org/1998/Math/MathML' mathematica:form='TraditionalForm' xmlns:mathematica='http://www.wolfram.com/XML/'>  <semantics>  <mrow>  <semantics>  <mi> ϕ </mi>  <annotation encoding='Mathematica'> TagBox["\[Phi]", Function[List[], GoldenRatio]] </annotation>  </semantics>  <mo>  </mo>  <mrow>  <mrow>  <mo> - </mo>  <mn> 2 </mn>  </mrow>  <mo> ⁢ </mo>  <mrow>  <mi> cos </mi>  <mo> ⁡ </mo>  <mo> ( </mo>  <mrow>  <mn> 6 </mn>  <mo> ⁢ </mo>  <mn> 6 </mn>  <mo> ⁢ </mo>  <mn> 6 </mn>  <mo> ⁢ </mo>  <mo> ° </mo>  </mrow>  <mo> ) </mo>  </mrow>  </mrow>  </mrow>  <annotation-xml encoding='MathML-Content'>  <apply>  <eq />  <ci> GoldenRatio </ci>  <apply>  <times />  <cn type='integer'> -2 </cn>  <apply>  <cos />  <apply>  <times />  <cn type='integer'> 6 </cn>  <cn type='integer'> 6 </cn>  <cn type='integer'> 6 </cn>  <ci> Degree </ci>  </apply>  </apply>  </apply>  </apply>  </annotation-xml>  </semantics>  </math> 
   
   |   
  | 
  
  | 
 
  
  | 
  
  | 
  
  | 
 
 
  |   
  |  
  |  
  |   
  |  |  
  |   
  |  
  |  
  |   
  | Cell[BoxData[RowBox[List[RowBox[List["HoldPattern", "[", "GoldenRatio", "]"]], "\[RuleDelayed]", RowBox[List[RowBox[List["-", "2"]], " ", RowBox[List["Cos", "[", RowBox[List["6", " ", "6", " ", "6", " ", "\[Degree]"]], "]"]]]]]]]]  |  
  |  
  |   
  |  
  |  
  | 
  
  
 |  
  
  | 
  
  | 
  
  | 
 
  
  | 
 
  | 
   Date Added to functions.wolfram.com (modification date)
   |   
  | 
  
  | 
 
  
  | 
  
  | 
  
  | 
 
  
  | 
 
  
  | 
  
  | 
 
  
  | 
  
  | 
  
  | 
 
 | 
  | 
  
  
  
 |  
 
 |