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

Chebyshev Polynomials

TableForm[Table[ChebyshevT[k,x],{k,0,5}]]

Plot[Evaluate[Table[ChebyshevT[p,x],{p,0,5,1}]],{x,-1,1},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["T", "TI"], "0"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "T_{0}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{0.75,1},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["T", "TI"], "1"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "T_{1}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{-0.7,-0.7},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["T", "TI"], "2"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "T_{2}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{0.75,0.2},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["T", "TI"], "3"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "T_{3}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{-0.3,0.8},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["T", "TI"], "4"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "T_{4}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{0.45,-0.25},Background->White],Text["\!\(\*TemplateBox[<|"boxes" -> FormBox[
RowBox[{
SubscriptBox[
StyleBox["T", "TI"], "5"], "(", 
StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, "input" -> "T_{5}(x)", "state" -> "Boxes"|>,"TeXAssistantTemplate"]\)",{-0.65,0.25},Background->White]},AspectRatio->1/2,BaseStyle->FontSize->12]

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

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