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

Hermite Polynomials

Plot[Evaluate[Table[HermiteH[p,x],{p,0,5,1}]],{x,-5,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"]\)"},PlotRange->{-150,150},Epilog->{Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["H", "TI"], "0"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "H_{0}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{3,-15},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["H", "TI"], "1"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "H_{1}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{-3,-20},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["H", "TI"], "2"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "H_{2}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{3,30},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["H", "TI"], "3"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "H_{3}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{-2.6,-100},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["H", "TI"], "4"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "H_{4}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{-2,140},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["H", "TI"], "5"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "H_{5}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{-1.3,90},Background->White]},AspectRatio->1/2,BaseStyle->FontSize->12]

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

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