SetDirectory[$HomeDirectory<>"/Documents/handouts/math467/Laguerre"]

Laguerre Polynomials

Plot[Evaluate[Table[LaguerreL[p,x],{p,0,4,1}]],{x,0,5},PlotTheme->{"Detailed","Monochrome"},Frame->False,Axes->True,GridLines->None,AxesLabel->{"x","y"},PlotLegends->Table[(Subscript[L, n])"(x)",{n,0,4,1}]]

Plot[Evaluate[Table[LaguerreL[p,x],{p,0,4,1}]],{x,0,5},AxesLabel->{"\!\(\*TemplateBox[<|"boxes" -> FormBox[
StyleBox["x", "TI"], TraditionalForm], "errors" -> {}, "input" -> "x", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)","\!\(\*TemplateBox[<|"boxes" -> FormBox[
StyleBox["y", "TI"], TraditionalForm], "errors" -> {}, "input" -> "y", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)"},Epilog->{Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["L", "TI"], "0"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "L_{0}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{1,1},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["L", "TI"], "1"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "L_{1}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{4,-3},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["L", "TI"], "2"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "L_{2}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{2.5,-1},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["L", "TI"], "3"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "L_{3}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{4,2.25},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["L", "TI"], "4"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "L_{4}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{4.25,0.5},Background->White]},AspectRatio->1/2,BaseStyle->FontSize->12]

Export["laguerres.eps",%,"EPS"]

Export["laguerres.pdf",%%,"PDF"]