NotebookWrite[EvaluationNotebook[], Cell[BoxData[RowBox[{"With", "[", RowBox[{RowBox[{"{", RowBox[{RowBox[{"\[Mu]", "=", "2"}], ",", RowBox[{"\[Nu]", "=", "3"}]}], "}"}], ",", RowBox[{RowBox[{RowBox[{FractionBox[RowBox[{"2", "\[Nu]"}], "z"], RowBox[{InterpretationBox[TagBox[DynamicModuleBox[{Typeset`open = False}, FrameBox[PaneSelectorBox[{False -> GridBox[{{PaneBox[GridBox[{{StyleBox[StyleBox[AdjustmentBox["\"[\[FilledSmallSquare]]\"", BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro Black", FontSize -> 0.6538461538461539*Inherited, FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}], StyleBox[RowBox[{StyleBox["LommelS", "ResourceFunctionLabel", FontFamily -> "Source Sans Pro"], " "}], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> Rational[12, 13]*Inherited, FontColor -> GrayLevel[0.1]]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, BaseStyle -> {LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition -> Baseline, FrameMargins -> {{3, 0}, {0, 0}}], ItemBox[PaneBox[TogglerBox[Dynamic[Typeset`open], {True -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"], ImageSizeCache -> {11., {1., 10.}}], False -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps", "IconizeOpener"], ImageSizeCache -> {11., {1., 10.}}]}, Appearance -> None, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, BaselinePosition -> Baseline, FrameMargins -> {{1, 1}, {0, 0}}], Frame -> {{RGBColor[0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}], True -> GridBox[{{GridBox[{{PaneBox[GridBox[{{StyleBox[StyleBox[AdjustmentBox["\"[\[FilledSmallSquare]]\"", BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro Black", FontSize -> 0.6538461538461539*Inherited, FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}], StyleBox[RowBox[{StyleBox["LommelS", "ResourceFunctionLabel", FontFamily -> "Source Sans Pro"], " "}], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> Rational[12, 13]*Inherited, FontColor -> GrayLevel[0.1]]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, BaseStyle -> {LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition -> Baseline, FrameMargins -> {{3, 0}, {0, 0}}], ItemBox[PaneBox[TogglerBox[Dynamic[Typeset`open], {True -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps", "IconizeOpener"]]}, Appearance -> None, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, BaselinePosition -> Baseline, FrameMargins -> {{1, 1}, {0, 0}}], Frame -> {{RGBColor[0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}]}, {StyleBox[PaneBox[GridBox[{{RowBox[{TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"1.1.0\"", "IconizedItem"]}]}, {TagBox[TemplateBox[{"\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/resources/d8ee3a3f-096b-4592-9be9-a1d566579d82/"}, "HyperlinkURL"], "IconizedItem"]}}, DefaultBaseStyle -> "Column", GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, BaselinePosition -> Baseline, FrameMargins -> {{5, 4}, {0, 4}}], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {False, {GrayLevel[0.8]}, False}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], Background -> RGBColor[0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition -> Baseline, DefaultBaseStyle -> {}, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius -> 4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "LommelS"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction["LommelS"], BoxID -> "LommelS", Selectable -> False], "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "z"}], "]"}]}], "\[Equal]", RowBox[{RowBox[{RowBox[{"(", RowBox[{"\[Mu]", "+", "\[Nu]", "-", "1"}], ")"}], RowBox[{InterpretationBox[TagBox[DynamicModuleBox[{Typeset`open = False}, FrameBox[PaneSelectorBox[{False -> GridBox[{{PaneBox[GridBox[{{StyleBox[StyleBox[AdjustmentBox["\"[\[FilledSmallSquare]]\"", BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro Black", FontSize -> 0.6538461538461539*Inherited, FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}], StyleBox[RowBox[{StyleBox["LommelS", "ResourceFunctionLabel", FontFamily -> "Source Sans Pro"], " "}], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> Rational[12, 13]*Inherited, FontColor -> GrayLevel[0.1]]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, BaseStyle -> {LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition -> Baseline, FrameMargins -> {{3, 0}, {0, 0}}], ItemBox[PaneBox[TogglerBox[Dynamic[Typeset`open], {True -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"], ImageSizeCache -> {11., {1., 10.}}], False -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps", "IconizeOpener"], ImageSizeCache -> {11., {1., 10.}}]}, Appearance -> None, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, BaselinePosition -> Baseline, FrameMargins -> {{1, 1}, {0, 0}}], Frame -> {{RGBColor[0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}], True -> GridBox[{{GridBox[{{PaneBox[GridBox[{{StyleBox[StyleBox[AdjustmentBox["\"[\[FilledSmallSquare]]\"", BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro Black", FontSize -> 0.6538461538461539*Inherited, FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}], StyleBox[RowBox[{StyleBox["LommelS", "ResourceFunctionLabel", FontFamily -> "Source Sans Pro"], " "}], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> Rational[12, 13]*Inherited, FontColor -> GrayLevel[0.1]]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, BaseStyle -> {LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition -> Baseline, FrameMargins -> {{3, 0}, {0, 0}}], ItemBox[PaneBox[TogglerBox[Dynamic[Typeset`open], {True -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps", "IconizeOpener"]]}, Appearance -> None, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, BaselinePosition -> Baseline, FrameMargins -> {{1, 1}, {0, 0}}], Frame -> {{RGBColor[0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}]}, {StyleBox[PaneBox[GridBox[{{RowBox[{TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"1.1.0\"", "IconizedItem"]}]}, {TagBox[TemplateBox[{"\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/resources/d8ee3a3f-096b-4592-9be9-a1d566579d82/"}, "HyperlinkURL"], "IconizedItem"]}}, DefaultBaseStyle -> "Column", GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, BaselinePosition -> Baseline, FrameMargins -> {{5, 4}, {0, 4}}], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {False, {GrayLevel[0.8]}, False}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], Background -> RGBColor[0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition -> Baseline, DefaultBaseStyle -> {}, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius -> 4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "LommelS"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction["LommelS"], BoxID -> "LommelS", Selectable -> False], "[", RowBox[{RowBox[{"\[Mu]", "-", "1"}], ",", RowBox[{"\[Nu]", "-", "1"}], ",", "z"}], "]"}]}], "-", RowBox[{RowBox[{"(", RowBox[{"\[Mu]", "-", "\[Nu]", "-", "1"}], ")"}], RowBox[{InterpretationBox[TagBox[DynamicModuleBox[{Typeset`open = False}, FrameBox[PaneSelectorBox[{False -> GridBox[{{PaneBox[GridBox[{{StyleBox[StyleBox[AdjustmentBox["\"[\[FilledSmallSquare]]\"", BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro Black", FontSize -> 0.6538461538461539*Inherited, FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}], StyleBox[RowBox[{StyleBox["LommelS", "ResourceFunctionLabel", FontFamily -> "Source Sans Pro"], " "}], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> Rational[12, 13]*Inherited, FontColor -> GrayLevel[0.1]]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, BaseStyle -> {LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition -> Baseline, FrameMargins -> {{3, 0}, {0, 0}}], ItemBox[PaneBox[TogglerBox[Dynamic[Typeset`open], {True -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"], ImageSizeCache -> {11., {1., 10.}}], False -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps", "IconizeOpener"], ImageSizeCache -> {11., {1., 10.}}]}, Appearance -> None, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, BaselinePosition -> Baseline, FrameMargins -> {{1, 1}, {0, 0}}], Frame -> {{RGBColor[0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}], True -> GridBox[{{GridBox[{{PaneBox[GridBox[{{StyleBox[StyleBox[AdjustmentBox["\"[\[FilledSmallSquare]]\"", BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor -> RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro Black", FontSize -> 0.6538461538461539*Inherited, FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}], StyleBox[RowBox[{StyleBox["LommelS", "ResourceFunctionLabel", FontFamily -> "Source Sans Pro"], " "}], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> Rational[12, 13]*Inherited, FontColor -> GrayLevel[0.1]]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, BaseStyle -> {LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition -> Baseline, FrameMargins -> {{3, 0}, {0, 0}}], ItemBox[PaneBox[TogglerBox[Dynamic[Typeset`open], {True -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[FEPrivate`FrontEndResource["FEBitmaps", "IconizeOpener"]]}, Appearance -> None, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, BaselinePosition -> Baseline, FrameMargins -> {{1, 1}, {0, 0}}], Frame -> {{RGBColor[0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}]}, {StyleBox[PaneBox[GridBox[{{RowBox[{TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"1.1.0\"", "IconizedItem"]}]}, {TagBox[TemplateBox[{"\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/resources/d8ee3a3f-096b-4592-9be9-a1d566579d82/"}, "HyperlinkURL"], "IconizedItem"]}}, DefaultBaseStyle -> "Column", GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, BaselinePosition -> Baseline, FrameMargins -> {{5, 4}, {0, 4}}], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, BaselinePosition -> {1, 1}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {False, {GrayLevel[0.8]}, False}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], Background -> RGBColor[0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition -> Baseline, DefaultBaseStyle -> {}, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius -> 4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "LommelS"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction["LommelS"], BoxID -> "LommelS", Selectable -> False], "[", RowBox[{RowBox[{"\[Mu]", "-", "1"}], ",", RowBox[{"\[Nu]", "+", "1"}], ",", "z"}], "]"}]}]}]}], "//", "FullSimplify"}]}], "]"}]], "Input", CellLabel -> "In[\[FilledSmallCircle]]:=", TaggingRules -> {}, CellID -> 464573176, "NodeID" -> 55]]