Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", "
", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", "=", 
       RowBox[{"Times", "@@", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["#1", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"EvenQ", "[", "#2", "]"}], ",", 
              RowBox[{
               RowBox[{"-", "#2"}], "/", "2"}], ",", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"#2", "+", "1"}], ")"}], "/", "2"}]}], "]"}]],
            "&"}], "@@@", 
          RowBox[{"FactorInteger", "[", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"EvenQ", "[", "n", "]"}], ",", 
             RowBox[{"n", "/", "2"}], ",", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"(", 
                RowBox[{"n", "-", "1"}], ")"}]}], "/", "2"}]}], "]"}],
            "]"}]}], ")"}]}]}], "}"}], ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Inset", "[", 
          RowBox[{
           RowBox[{"InputForm", "[", "r", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"r", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", 
             RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RGBColor", "[", 
            RowBox[{".88", ",", ".63", ",", ".23"}], "]"}], ",", 
           RowBox[{"PointSize", "[", ".025", "]"}], ",", 
           RowBox[{"Point", "[", 
            RowBox[{"{", 
             RowBox[{"r", ",", "0"}], "}"}], "]"}]}], "}"}]}], "}"}], 
       ",", 
       RowBox[{"Axes", "->", "True"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "50"}], ",", "50"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Ticks", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "50"}], ",", 
              RowBox[{"-", "50"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "45"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "40"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "35"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "30"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "25"}], ",", 
              RowBox[{"-", "25"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "20"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "15"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "10"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "5"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"5", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"10", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"15", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"20", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"25", ",", "25"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"30", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"35", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"40", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"45", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"50", ",", "50"}], "}"}]}], "}"}], ",", 
          RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "88", ",", "\"\<n\>\""}], "}"}], ",", "1", 
     ",", "100", ",", "1", ",", 
     RowBox[{"Appearance", "->", " ", "\"\<Labeled\>\""}]}], 
    "}"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.35757181026704*^9, 3.35757424372772*^9, {3.35757535179731*^9, 
   3.3575753611132*^9}, {3.35757564193546*^9, 3.35757566009808*^9}, {
   3.35757627386009*^9, 3.35757627724224*^9}, {3.35826055690802*^9, 
   3.35826057770647*^9}, {3.35826064010184*^9, 3.35826064025204*^9}, {
   3.37927960010823*^9, 3.379279609704548*^9}, {
   3.3888426659078665`*^9, 3.388842682799032*^9}, 3.76075546610842*^9},
 CellID->1496021318],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 37, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`n$$], 37, "n"}, 1, 100, 1}}, 
    Typeset`size$$ = {360., {33., 37.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`n$24508$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 37}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$24508$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
        Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`r = Apply[Times, 
           Apply[#^If[
              EvenQ[#2], (-#2)/2, (#2 + 1)/2]& , 
            FactorInteger[
             If[
              EvenQ[$CellContext`n$$], $CellContext`n$$/
              2, (-($CellContext`n$$ - 1))/2]], {1}]]}, 
        Graphics[{
          Inset[
           InputForm[$CellContext`r], {$CellContext`r, 0}, {-2, -2}], {
           RGBColor[0.88, 0.63, 0.23], 
           PointSize[0.025], 
           Point[{$CellContext`r, 0}]}}, Axes -> True, 
         PlotRange -> {{-50, 50}, {-10, 10}}, 
         Ticks -> {{{-50, -50}, {-45, ""}, {-40, ""}, {-35, ""}, {-30,
              ""}, {-25, -25}, {-20, ""}, {-15, ""}, {-10, ""}, {-5, 
             ""}, {5, ""}, {10, ""}, {15, ""}, {20, ""}, {25, 25}, {
            30, ""}, {35, ""}, {40, ""}, {45, ""}, {50, 50}}, {}}]], 
      "Specifications" :> {{{$CellContext`n$$, 37, "n"}, 1, 100, 1, 
         Appearance -> "Labeled"}}, "Options" :> {}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{405., {78., 84.}},
     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.760755466108685*^9},
 CellID->40516908]
}, {2}]]