Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"!", "a"}], "||", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"n", ">", "15"}], "&&", 
           RowBox[{"ControlActive", "[", "]"}]}], ")"}]}], ",", 
        "
", 
        RowBox[{"ChebyshevT", "[", 
         RowBox[{"n", ",", "x"}], "]"}], ",", 
        RowBox[{"Array", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"ChebyshevT", "[", 
            RowBox[{"#", ",", "x"}], "]"}], "&"}], ",", 
          RowBox[{"n", "+", "1"}], ",", "0"}], "]"}]}], "]"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     "
", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}]}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"500", ",", "400"}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "->", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"With", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"n", "=", "n"}], "}"}], ",", 
          RowBox[{"y", "==", 
           RowBox[{"HoldForm", "[", 
            RowBox[{"ChebyshevT", "[", 
             RowBox[{"n", ",", "x"}], "]"}], "]"}]}]}], "]"}], ",", 
        "14"}], "]"}]}]}], "]"}], ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "3", ",", "\"\<order\>\""}], "}"}], ",", "0", 
     ",", "35", ",", "1"}], "}"}], ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "False", ",", "\"\<show lower orders\>\""}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"TrackedSymbols", ":>", 
    RowBox[{"{", 
     RowBox[{"n", ",", "a"}], "}"}]}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.35431573450359*^9, 3.35431582894109*^9}, {
   3.35431587987859*^9, 3.35431588305046*^9}, {3.35431592862859*^9, 
   3.35431597025359*^9}, {3.35431623117546*^9, 3.35431625140984*^9}, {
   3.36327845117188*^9, 3.36327848275*^9}, 3.371434673357362*^9, {
   3.3714347284052935`*^9, 3.371434781453187*^9}, {
   3.371434889470886*^9, 3.371434943409422*^9}, {
   3.3714349913322167`*^9, 3.3714350467707815`*^9}, 
   3.3714351467727013`*^9, {3.375107226024714*^9, 
   3.3751072814797497`*^9}, 3.375107353699218*^9, {
   3.375107431835843*^9, 3.3751074783492203`*^9}, {
   3.377550601206808*^9, 3.3775506014021883`*^9}, {
   3.377550720794839*^9, 3.377550762596239*^9}, {
   3.3816848277842197`*^9, 3.3816848278754797`*^9}, 
   3.7607344024695187`*^9},
 CellID->1496021318],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = False, $CellContext`n$$ = 3, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, 
    Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", 
    Typeset`specs$$ = {{{
       Hold[$CellContext`n$$], 3, "order"}, 0, 35, 1}, {{
       Hold[$CellContext`a$$], False, "show lower orders"}, {
      True, False}}}, Typeset`size$$ = {500., {198., 202.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
     True, $CellContext`n$90367$$ = 0, $CellContext`a$90368$$ = 
    False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = False, $CellContext`n$$ = 3},
       "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$90367$$, 0], 
        Hold[$CellContext`a$$, $CellContext`a$90368$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
        Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[
        Evaluate[
         If[
          Or[
           Not[$CellContext`a$$], 
           And[$CellContext`n$$ > 15, 
            ControlActive[]]], 
          ChebyshevT[$CellContext`n$$, $CellContext`x], 
          Array[
          ChebyshevT[#, $CellContext`x]& , $CellContext`n$$ + 1, 
           0]]], {$CellContext`x, -1, 1}, PlotRange -> {-1, 1}, 
        ImageSize -> {500, 400}, PlotLabel -> Style[
          
          With[{$CellContext`n = $CellContext`n$$}, $CellContext`y == 
           HoldForm[
             ChebyshevT[$CellContext`n, $CellContext`x]]], 14]], 
      "Specifications" :> {{{$CellContext`n$$, 3, "order"}, 0, 35, 
         1}, {{$CellContext`a$$, False, "show lower orders"}, {
         True, False}}}, 
      "Options" :> {
       ControllerLinking -> True, 
        TrackedSymbols :> {$CellContext`n$$, $CellContext`a$$}}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{545., {254., 260.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.760734402469782*^9},
 CellID->480225979]
}, {2}]]