html, body, form { margin: 0; padding: 0; width: 100%; } #calculate { position: relative; width: 177px; height: 110px; background: transparent url(/images/alphabox/embed_functions_inside.gif) no-repeat scroll 0 0; } #i { position: relative; left: 18px; top: 44px; width: 133px; border: 0 none; outline: 0; font-size: 11px; } #eq { width: 9px; height: 10px; background: transparent; position: absolute; top: 47px; right: 18px; cursor: pointer; }

 EllipticK

 http://functions.wolfram.com/08.02.03.0014.01

 Input Form

 EllipticK[1 - z^2]/EllipticK[z^2] == Sqrt[5] /; z == Sqrt[1/2 - Sqrt[-2 + Sqrt[5]]]

 Standard Form

 Cell[BoxData[RowBox[List[RowBox[List[FractionBox[RowBox[List["EllipticK", "[", RowBox[List["1", "-", SuperscriptBox["z", "2"]]], "]"]], RowBox[List["EllipticK", "[", SuperscriptBox["z", "2"], "]"]]], "\[Equal]", SqrtBox["5"]]], "/;", RowBox[List["z", "\[Equal]", SqrtBox[RowBox[List[FractionBox["1", "2"], "-", SqrtBox[RowBox[List[RowBox[List["-", "2"]], "+", SqrtBox["5"]]]]]]]]]]]]]

 MathML Form

 K ( 1 - z 2 ) K ( z 2 ) 5 /; z 1 2 - - 2 + 5 Condition EllipticK 1 -1 z 2 EllipticK z 2 -1 5 1 2 z 1 2 -1 -2 5 1 2 1 2 1 2 [/itex]

 Rule Form

 Cell[BoxData[RowBox[List[RowBox[List["HoldPattern", "[", FractionBox[RowBox[List["EllipticK", "[", RowBox[List["1", "-", SuperscriptBox["z_", "2"]]], "]"]], RowBox[List["EllipticK", "[", SuperscriptBox["z_", "2"], "]"]]], "]"]], "\[RuleDelayed]", RowBox[List[SqrtBox["5"], "/;", RowBox[List["z", "\[Equal]", SqrtBox[RowBox[List[FractionBox["1", "2"], "-", SqrtBox[RowBox[List[RowBox[List["-", "2"]], "+", SqrtBox["5"]]]]]]]]]]]]]]]

 Date Added to functions.wolfram.com (modification date)

 2002-12-18