Cell[BoxData[RowBox[List[RowBox[List[RowBox[List["SphericalHarmonicY", "[", RowBox[List["n", ",", "m", ",", "\[CurlyTheta]", ",", "\[CurlyPhi]"]], "]"]], "\[Equal]", RowBox[List[SuperscriptBox["\[ExponentialE]", RowBox[List["\[ImaginaryI]", " ", "m", " ", "\[CurlyPhi]"]]], SqrtBox[RowBox[List[FractionBox[RowBox[List[RowBox[List["2", "n"]], "+", "1"]], RowBox[List["4", "\[Pi]"]]], " ", FractionBox[RowBox[List[RowBox[List["(", RowBox[List["n", "+", "m"]], ")"]], "!"]], RowBox[List[RowBox[List["(", RowBox[List["n", "-", "m"]], ")"]], "!"]]]]]], " ", SuperscriptBox[RowBox[List["Csc", "[", "\[CurlyTheta]", "]"]], "m"], " ", UnderscriptBox[RowBox[List[SubsuperscriptBox["\[Integral]", "1", RowBox[List["Cos", "[", "\[CurlyTheta]", "]"]]], RowBox[List["\[Ellipsis]", RowBox[List[SubsuperscriptBox["\[Integral]", "1", SubscriptBox["t", "3"]], SubsuperscriptBox["\[Integral]", "1", SubscriptBox["t", "2"]]]]]]]], UnderscriptBox["\[UnderBrace]", "m"]], RowBox[List["LegendreP", "[", RowBox[List["n", ",", SubscriptBox["t", "1"]]], "]"]], " ", RowBox[List["\[DifferentialD]", SubscriptBox["t", "1"]]], RowBox[List["\[DifferentialD]", SubscriptBox["t", "2"]]], "\[Ellipsis]", " ", RowBox[List["\[DifferentialD]", SubscriptBox["t", "m"]]]]]]], "/;", RowBox[List[RowBox[List["n", "\[Element]", "Integers"]], "\[And]", RowBox[List["n", "\[GreaterEqual]", "0"]], "\[And]", RowBox[List["m", "\[Element]", "Integers"]], "\[And]", RowBox[List["m", "\[GreaterEqual]", "0"]], "\[And]", RowBox[List["m", "\[LessEqual]", "n"]]]]]]]]
|