(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    231941,       5167]
NotebookOptionsPosition[    224424,       4917]
NotebookOutlinePosition[    224833,       4935]
CellTagsIndexPosition[    224790,       4932]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"-", " ", "P11"}]}]}]}]}]}]}], ".2", 
   RowBox[{
    RowBox[{
     RowBox[{".3", " ", "--"}], "--"}], "--"}], 
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", "--"}]}]}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.409415554265625*^9, 3.409415567015625*^9}, {
  3.409416054515625*^9, 3.409416063*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", 
  RowBox[{
   SuperscriptBox["x", "2"], " ", "/;", " ", 
   RowBox[{
    RowBox[{"-", "1"}], "\[LessEqual]", "x", " ", "<", "1"}]}]}]], "Input",
 CellChangeTimes->{{3.40941508628125*^9, 3.40941509575*^9}, {
  3.409415183171875*^9, 3.409415201703125*^9}, {3.409415266578125*^9, 
  3.409415280875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", "0", "]"}], "=", " ", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", "*", "1"}]], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{"-", "1"}], "1"], 
    RowBox[{
     SuperscriptBox["x", "2"], 
     RowBox[{"\[DifferentialD]", "x", " "}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.409415137828125*^9, 3.409415140703125*^9}, 
   3.409415234953125*^9, {3.409415307890625*^9, 3.4094153535625*^9}, 
   3.409415412*^9}],

Cell[BoxData[
 FractionBox["1", "3"]], "Output",
 CellChangeTimes->{3.40941541240625*^9, 3.40967508409375*^9, 
  3.409675406390625*^9, 3.409683568015625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", "n_", "]"}], "=", " ", 
  RowBox[{
   FractionBox["1", "1"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{"-", "1"}], "1"], 
    RowBox[{
     SuperscriptBox["x", "2"], 
     RowBox[{"Cos", "[", 
      FractionBox[
       RowBox[{"n", " ", "\[Pi]", " ", "x"}], "1"], "]"}], 
     RowBox[{"\[DifferentialD]", "x", " "}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.409415371421875*^9, 3.4094154086875*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"4", " ", "n", " ", "\[Pi]", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"n", " ", "\[Pi]"}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{
       SuperscriptBox["n", "2"], " ", 
       SuperscriptBox["\[Pi]", "2"]}]}], ")"}], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"n", " ", "\[Pi]"}], "]"}]}]}], 
  RowBox[{
   SuperscriptBox["n", "3"], " ", 
   SuperscriptBox["\[Pi]", "3"]}]]], "Output",
 CellChangeTimes->{3.409415409859375*^9, 3.4096750879375*^9, 
  3.409675409859375*^9, 3.409683571609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"b", "[", "n_", "]"}], " ", "=", " ", 
  RowBox[{
   FractionBox["1", "1"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{"-", "1"}], "1"], 
    RowBox[{
     SuperscriptBox["x", "2"], 
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{"n", " ", "\[Pi]", " ", "x"}], "1"], "]"}], 
     RowBox[{"\[DifferentialD]", "x", " "}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.40941542475*^9, 3.409415448484375*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.409415449265625*^9, 3.409675089640625*^9, 
  3.40967541221875*^9, 3.409683573390625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"PartialSum", "[", 
   RowBox[{"x_", ",", "k_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"a", "[", "0", "]"}], "+", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "n", "]"}], 
       RowBox[{"Cos", "[", 
        FractionBox[
         RowBox[{"n", " ", "\[Pi]", " ", "x"}], "1"], "]"}]}], " ", "+", " ", 
      
      RowBox[{
       RowBox[{"b", "[", "n", "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox[
         RowBox[{"n", " ", "\[Pi]", " ", "x"}], "1"], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "k"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.409415480625*^9, 3.4094154844375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PartialSum", "[", 
  RowBox[{"x", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.409415503140625*^9, 3.4094155058125*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "3"], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"\[Pi]", " ", "x"}], "]"}]}], 
   SuperscriptBox["\[Pi]", "2"]], "+", 
  FractionBox[
   RowBox[{"Cos", "[", 
    RowBox[{"2", " ", "\[Pi]", " ", "x"}], "]"}], 
   SuperscriptBox["\[Pi]", "2"]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"3", " ", "\[Pi]", " ", "x"}], "]"}]}], 
   RowBox[{"9", " ", 
    SuperscriptBox["\[Pi]", "2"]}]]}]], "Output",
 CellChangeTimes->{
  3.40967509553125*^9, {3.409675401046875*^9, 3.4096754205*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<PlotLegends`\>\"", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PlotLegend", "::", "\<\"shdw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(\\\"PlotLegend\\\"\\) appears in multiple \
contexts \\!\\({\\\"PlotLegends`\\\", \\\"Global`\\\"}\\); definitions in \
context \\!\\(\\\"PlotLegends`\\\"\\) may shadow or be shadowed by other \
definitions.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.409675638859375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f2", "=", 
  RowBox[{"Evaluate", "[", 
   RowBox[{"PartialSum", "[", 
    RowBox[{"x", ",", "3"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.40967575465625*^9, 3.409675756890625*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "3"], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"\[Pi]", " ", "x"}], "]"}]}], 
   SuperscriptBox["\[Pi]", "2"]], "+", 
  FractionBox[
   RowBox[{"Cos", "[", 
    RowBox[{"2", " ", "\[Pi]", " ", "x"}], "]"}], 
   SuperscriptBox["\[Pi]", "2"]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"3", " ", "\[Pi]", " ", "x"}], "]"}]}], 
   RowBox[{"9", " ", 
    SuperscriptBox["\[Pi]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.40967574771875*^9, 3.409675757515625*^9}, 
   3.409683580484375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox["x", "2"], ",", "f2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Dashed", ",", "Thick"}], "}"}], ",", "Red"}], 
     "}"}]}], ",", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<f(x)\>\"", ",", "\"\<3 terms partial sum\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.409675218171875*^9, 3.409675268578125*^9}, {
  3.4096757418125*^9, 3.409675844109375*^9}, {3.409683223890625*^9, 
  3.4096832251875*^9}, {3.409683258296875*^9, 3.409683277109375*^9}, {
  3.409683560828125*^9, 3.40968356321875*^9}}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
       LineBox[CompressedData["
1:eJw1mHc8Ff73x83I5pP6KHysxCUrKZV7KEk+IZKIrEJRkr3pkoyMkL1HRuZF
trc9r5FxZUvIvnxURsn3ejx+v79ej+d5nPP87/xxDr/Zc21zKgoKir8oKSgO
UwKOLx8ckJC1l/gQOeH5rmDA7h4J6XzUGNv6QYLiUmlhciLHEluHpRUSyIio
my2skJDZZumj0RESXGD3GyOMkNByzIXzhCISKH7d7IorIqF073PR+8Yk0H7d
8+GcMQnVVu3fC2tcB+c+v2eW9eso6fP4mE3gGgwNMS43mq4h/eeW3Pf3loGn
4fmxC9yriE3AX9m1ZBHKrVtoWSeXkff8vI9kyAKYvJHeGMUtoXcqozHBunOw
E+EegGARhWMe/MtrMgsZLFNcsV8WUCrT7UBLwxlIVJO2GwycR3sqRf/a/JkA
3FNTF9Gbc6jBr/OCXOUouFPnOdutzSKZl0HGtI+IYOrTJ0TM+YL0WW3zaj0H
4V3dfGyi1Qx6zoCPOBjph+ppEaZ8gSl0zJNaRMSUAIJsild1kseRrFRluAKx
HfCYAKvZr58Ra+FdN4xhM0y3lvDJyRERW8Hv14ThepgXfyeDPg6i7KEeo7Nq
lcDulSsnQfkJ8Xg4qOE48OD/UaSDbbsfiW74v6ffL4G99Wz9rdV+pLQWR0j4
VgKzxu89Kj/3oxRco9NibQnglTKarhb3I6aTJ66delwC2rRJGveM+1HJr/Ga
hYZiOMPF30Ph3oduH4szwOwUgrgcSTxri4Ccst8Kp0rngYWEt3fVJAGxLOPW
aBjyIEWYdaCnnYAIG3m1r2dzgeOEpPPPBAJCain23yJzYXvbpvGGMgF5SHEp
s+7kQFPV+t3lqG6k16z1nKItG/QU1r0k5brQ2yPE9ccuWRBx3uvTNb4udKw3
pTZUJwu6z7II6TF0oTr91IgBqSzA8kp0+kx1Iv+66/fKljJB8ODZXwP+nYj0
kf/ajGEmrDesZTuMdCCBF7xZo6oZ4Ku81l/l0o4YqMUitC+kQZPqqqbsw3bE
X/qtvvdEGlCor/QWqrej4D3bKcudVPC4u0TIEGhHpppLPzaqUsHJYr4jhNCG
WNlf+BthU+FxwGSDKV8bGlysMtCIS4ZbhJ7iox0t6LLTLfHJ/XgI6idI+uFb
UM2HlYscbfHQMdRd+CexBS2wCom9DI2H65Od+VsvWpDiI5MGJr54wK635kye
akGkK3SFY9fjQIqtPrXkeTPSLGSO1kqMAU6dwnD9E02I/e1+7AeHKMALB1df
p25ChassYQ9uRMHtXcs5aVIjqj3js6h0MgqCkvkvMrQ3Iu4ruNa0hkj4sxg1
Xe3UiKinaETqWSNhwdNdgpvYgKyP0IQ9qXgLNppvY+tEEVIfHOzk1A+FnO9q
q+8oEaKwWA/hYAyF2TgaRZvRehRa0fG3Q10I6M45f+MNrEcQU4szFwwBcDWS
81msQxuqadmU34OBLUNs6Gp2LXrlaHT+n5xAwP9sZe0QqkbeW9kmJINXEJqX
3oTdrUIDyhpP6DhfgbWRt2N5TxXSsglZfNfrB0JtF8fTnapQ102i2vFrfhD9
7sN7z45KVCQQkZwp7Qtusm8Vzj2tQDcM8bhtoZegu/hsI1exgrxPC9+d5n3g
XKJaBh9nBVKfwE8+fe8Dq9Q0R1nqP6Ld2uN/1Yr6gNGg09Ai60cUpMh+st/a
C67aGVonl5YhnUlR99UON+AVluflDChDZkH5MtV6bvBrlPNTsGEZavtmMuKw
5AplSn1yrrRlyL/UaLGY2RWE2a9S6dwrRSuhhSLKps7AUHwm7uivEqR5N0Vg
RNYBssbnQ5b8ChGVUtD2g1PPYMzjeErSuUK0nFXXffLlU2DhvVGsNVuAzhuI
4R0WrcHJJGegCgrQ9sfy8oMaK1CZtzoRtPcBSZ3zj7FzegyL66RUjG0ussMe
b+u++Ai4w/nwU7y5KCl3vU6/8iHcltZqjujJQWfNKTv85B9CpT1+fg+Tg1x7
hjnwimYQuOOA6Z5/j9rMLvk+MTMBDNVeqbVBJrqvOJ8Us6APRhmY1n8YMtEl
wZmhu1z6EKFsQByszEBf32tKaWjqwZ5/7c7l4xkoNPyNzlqLLnQzeiswfUpD
Gmue2vPEO0BRUKTR4J2GnIg8BQ6Cd0BWY8bYQSINPTSREcfaa0NiuBJuIjgV
xepWxXhza8FnDH2ofkgyGoj1VHURUwfFZ0+KG5eT0HtnuuvyO/9CTlHXgKhq
EmKMdQuy6VYDV9mQE3tUiSgoiXvj/CtVOInlSIt3iUN3azSFL6ooA87HvpmK
GIvw7wWtElSuwUrT0LzVuViUPjjz0079KtTeiMFcXo9Gsv8dX/GyUYQHWtxl
4w+jkJrfnMex3/KwuvVD3rElEuUws2ZRPb0IHtF9iOV0JDpd/2lcb1EOEsdx
3UoLb5Fr1D+OCkdkQdzLUGtc5S3SrM4b6c6WgRo+uRGH7HCkRNer2nRXGsq6
B1o1P4WiP+LVBb0FZ2GIzf8TLiIExZS8/SamIwZbd+Uny++8QU/84rD6f4mC
zEzK91PEQNR47JKy0IQQaJ2+Q6EZE4CUBwb+a5wXAFurI0w4vdfkfU6ol6Tn
h6LvTwUXx/yQZYOnwbbEKeiV55M8leiLVAuk00vp/4Z1r8FLGg9wKE1ORZDt
GCcwt/irvOR9iZ4b1kwxaXGAHodD5mPkjcwVBHLveLNCTOJYTa+SJxrfCz3a
ixiAKKw0KNvihrCbtVMBD4/AsZLs5XgVFxTMly/iZ0UFdy6zUFF2OqJQ9qpe
79x9bESrA5flv/Zo+k7ieRflbWy/5rhUT48tOkJP5b+ZtYnlLfMNt0h9ijgM
h7xHEpawCR23kUyWJeoIzm3rcfmC/XuSZ/1PrhkywdI1BrcOY8W+DstHPzBA
kvpB5w8s2rHCTLYxEpZaqDvgnNXEGh7rMyQydKpZAd1c6GZULQzGirNOWtGe
FYLt6Ax5phf6WOImLoVtRxVo3H9sJLhnYDc0z/z33E4X5Bnk9BY8EdY9UqXL
WtYEBHiO6Pg+6cf+8XJNSJE0h5Pe9JXhzBNYH6v8p4MYK7ikw/Cl33weS607
rUAn/BwSbnHKj2utY5v5Al8nsdmBXhQH3t78O9YvWsD2QqgDyH/nLnF7vIdV
YarV+8ToDL9mh25RxlEAHe6uknWgK7T5TZTTmtJAx/a6KC2dB3gYZ0WqvaGH
oGcBHCl+XsBvL7nQd5IZ3m+Ge3K/9IFR4zqi2hF2sLTEWHz8gwPCS4z65pvj
oCrgfN9XwQ9c9jeny+K5QGSyWeO2xyuI4TxZ8PcYNyxrP7iwvPsaUphV3Gd+
8kMXc55YxcVAMKGxrqL6IggfOn7+4+ccBEY3G479+HoanmLD6Xl/vAGG+l8C
arIYUN+d+L18LhSq1r4M578UB4ky0c0KuzDIsN7Jmv4mATtRX1ZFdsKBU3S8
9/6BNFQxuA83OUbC77lqR/YPFyD1LOdgkUAUmEnhmqjuyYP/7aL+xL4oCNvU
2A1hvww60V+7nUSjQX14R8gOj4UN/ltNmMlY4GO/UV2pdQ1GlBfQiaA4+BXS
QM9lpgz1lj51NBfiobb1yq021+sQXFBWORWeAEvmCng6dAOE5XmKIpSTgfqJ
8d7ptFvAZFiR772ZDLR16xtrK+qw5aWV9zQ5Bda6fSaosJpgMtukLeiRCnIh
up1Hf98GCZFt9f3hNDimEKmw+OUOdJYaK5cEZsINAQ3eCcP7cKVVvPnMTCbY
ZnxozL5iAMXEXaVkuSxgwQVNc/EZQvRuJAR/zYKEe4Sgzc0H8Ag6LpkrZAOz
TLFmxYwJHHRJSXNt5oIqpflMH5052E3sF4XdyAPbAl7/pShzWFjrkjiSnAc6
9FxPiIIWQGAzF99S+wBXu/oWRG9YQrxu3JmezHwY9LreWJHxBM7PUvK+1CuC
wjyt/2zKbECi+t6mVG4RuFONmajfeQ7CEQUtM7tFEDklWd609RwY0/LPp6oX
wzB7Ol1Voi38vq03cbBeDDW2r1s2V17AZHGRKJLGQ+276M6AYgcYS7z/14n7
eGCcU5EsYnIEYgDtvg0OD17fJ+nSnjhCr4lBP+8gHkYNGti/nXaCejY6Zy+H
UjBQ1g34ne0MKbZGLQoVZRDr0UahPuAGiYZHC99Nl4Hm2mwU5rI7xKqWxazR
lQOGbyFhMNMdwvkYrJP0yuEOIZUqwM0DfPrL2fd3y8Ee+03GTdILTKWYjWuv
VMBPZUPWpmkfENyo2b3UVAWTRh/ZT9T6gUfPNb/va1UQ4TPpW0H1Coh53SyF
XNXQMlRm33fzFQSZjwvyv6iG+GMOBPPRV7AxtqdOx1cDdP/Jmon/8Yf6Vvn0
Qc9a+CnYwMtvFAj3EyrUnsoj4H30ezzHORTKXGD4tDmCC8OiNPI9ocCi2248
HY6g24UuT1EwDBrZRhy0FxGY3Ru0+dgfBseuuWsm/tsAYlW660mx4eBeGe+K
22uA3LByoXs0EXAzY7RHQ68JujH+pbH072DjVaFF67MmuI8RvLom/w5iH/se
XPZtAp8iRQt363ewePastGhhE4Sp7dso972DgEqfKGqaZsA3e+AC46Kho+eM
QWVRMzA2RZVMX4yFGzuOi/x0rcBEEpGqTU+A6+oc1D/K20GY9sVI/Ns0CDU9
urnb2Q6alZS82kVp8NmRYvrPZDv8Hl2wFehJA6vk9Wr6Ix1AfFx4meVoOoSS
uuy4dTsgsUzGnAOXDp/f+s5e+9kBL2jY6HtcMsCK+L0xQq4LZF7xhDC6ZkGY
8YiPVAUBuBn9ogpacsF/9QosEAhwOapzFb+SC16u6fsJswR4qXOuepgjD2wi
n7nRsfSAp5t9mb1pHmi0UztMPeoBWcP3wuwUH4BFUsryDUcvpDsRKQeu5kPo
nwD1xWd94EJnEmk9VQjtGjzMtzk+QcCtN+wHcnhY4+f0GogfhFUXLEMobSU4
OoiZhh0nwm7E65MYr3oYmWDTtuj4DEfVzNx9pJvBxPXKN7pb49Bi3PSL8mY7
NItdCGqmnQJ+3Fp+H4YAwkdrFzNVZ2DBSC0zMqIfeGqtr9MGfAHCoEBI2PlB
oNijyrWbnYW9H+kLR9SIsK1VZ9R6eg7yz8jEtBmNwris8anTfvNgk2hPECJN
gO09NnaBiQW4+IBWPE5nBrii5vRoeBYhPfLicKrYLBQapGZvuSyB9EHETKvK
HNxT8FbtqFuGkII3FN16C1Bi9Ezg0u8VuG3JJ2Hhugg7DNeoq+6uQfOrnR3l
uWXQ/nRZjid2HSwZNcaPKq5BnAC3bSj5Tn8g16rKR77PmRhp5CrJPGbyusqe
zF5bK7++kBmT8BHTTmazlprX53+S4AYYstiskkDcwiBlgsxu11vGatZIUJ8b
34vZIUHpTbqAexskmJPiOtu+RwJvaX3ZMLJHl4tya4PMAbp1+Fkyd1AuVZ78
RQLL4FBpObKnYKBS2YbM6UIuUpNkdnLQM+T8TQJmzsfnxMjeo5UxwQ/3SVCz
Vq1+6PVI9dYKITML28bAoWc9wPJEBZllr0boHXoG9C9kMPwhwe9hHvNDT+Iv
YnUJmf1rtHwPPSxz9T7jZHYzJDEezvkQ3qvQHpDgGvNe1OGceZLTgB6Z7ybr
5hzOfX5lFIsjc5JXjsxhn5qNilE+OSttLOsO+2p1JYSI5My2iVQ9rP/ffwT+
/z/yP23yrTs=
        "]]}, 
      {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJw12Xk0Vd/7B3CkRJKKZkMqUxGSIvWojxARkhRJQqYkSSpThszuTeaEopS5
KEPyyBCJjAmhSxnvufeoVEh8j7V+v7/Oeq39rL3Xs9fe56yz3putLxnbcnFw
cBRwcnAsPOVhzfj8PImydaKeeUYEXJreEjI9Q6Lvo9+vnlIuKFSU/PmLRLpK
Z/A9yt8vQg0xQSLzXtPnAMpK0vrWw0zKxX+KrSlfGTzNwRgmMVjuxqa9lIuS
7VO6B0hcZxXEy035t6mHensvif/cTHzfGhKwZ2VgT+MnEg8dkfPxpez5/o7n
2zYSxYKsluykXBaUuqayicTLwUfWfTxGwF/ILSqtJ3HbJYOiy5TVZ8qMC6tJ
9FvH6OGm7F1UP5FTQaLNphsRUQYEVLh0Rj0uJdG/+eE7AcoaX783JOaTeG8f
OfrjKAG37s/b380i0UvjRKMp5aqTy3kiH5G4P+zD/md6BGg2Sv/nd4/EXptf
TUd0CQi6rTJwPY5E/t9q7OAjBLzV0PS9codE3obq1HIdAo68OPvKLpgaH9Qs
49UmIOzSxVNW/iTa5stuk9AioFHm5p9T3iR++yC/TfEwAQYpcbv0r5CI1wZH
lf4jwDi4KXvXWRL3rvdNrT1AwN2Dn4/InSZR2i6mPXo/AR1/R0ckT5DIeOD9
2FSdAFNX7q0b9Ejs8naVr1IlwPzUvmSOPST2xzyZkFYmIHn1EbUZRRKbe75q
ZisR0N9k2vVzB4kF649pblUkwOqQm9CIBInxXdl6M3IE2Gx/GtEkQKKc/+18
FSkCHg29lK3jJZFrdp7mso2A4dSa+kpuEp0yHsve30KAgxCDu2iGjQ6plXH9
YgS4/FvjnTTMxo5lRrd/rCXgWnPgxQsVbNx2butbqyUERDA9Pk2WsDFj8IZs
2yICHvI4HPQvZOOy834f93JS+wP6wvefsFEhwnX58F8mSBQIv26LZmO3fL99
5QQTPtAf8x+4wEbeTYYbPbuY8C0nweP9OTZ+GXj9GD4yYbo+jGFmwcbDDkEv
Z1uZsJXzUtEVIzaKRDq7n3zPhBuX91g83cdGk+dJQ7TXTJA0rs8WEmTjIVnL
p4JpTFB3KRN+yMdGz+sTyUrJTDAKy/HduZiNZrnCVroJTPCqoh/XnWHhv3eF
DuZ0JrQpnfrr+42FdDsDEW4/JnivHtdllrBQe69lvfsZJnR0LBt/c46FM1li
rX8FmXDL5kVFtgULXU4XOqjyM0F+0vJu7EkWFv+nWuPCw4SQ1c/VHfRZ2Py2
u6Py3zjsNzajCaqy0Jjj9hzX+Dg8bs5QPivIwoedDlbcb8bBs2G/72wFgZL3
fG5sdRgHkcpLQns2EXhf+kGMevoYNK7a7a62lkDz1zwTr5LH4IbtTPv+VQT6
lLWNKseNQSdf0F3NpQQ6Wwp+WB06BvQTSauMJ5lorPBS+rbLGCxi1ghebGRi
5tso9f/2jsGY8Ibl6V5MjCjd+8mwbhReONUsXtE3jq27By3MPo6AVYTiRLf/
GJp7FiSupQ3BVPTNEIRRZG/4dzxc6yukC/SvTxgYxiPccpKVbxmQrKvo1h46
hAp2PJN3envB3/mcp8yRbxi8Nnq9Y28X3FyUdc2NNYhJtjGPJAU+gkui5RKr
0UFsSXpyaRXnR7DeuTpW/+sgVo0cyl8y2QG65l7PpbsH0UKwhba0pwPWFRqw
+msG8ZyZbtflxx1QZP3TWi95EA1fpZ/v0egA9ht1g616g+hmZCs9f7Mdzvk1
b+18MoBSegf0Dy9rA9Pu1AN96QO4y6mry5ujDXSVXM2+pQzg+tU5EhW/WkH5
m2DEj5gBPB5/+tsJRiss1TH+KXBrAOeettQMvGiFvBUf32ifGkC9GvV/F6xb
4W9Kj2Up7wB+Cl++Q+hNC8S+HkpIdmTgkN3imR9SzWDpmeSzx5aBrD3xET5C
zSC965hN21kG5hvmv1nP2QxlT0p2Lj3BwAM17B6fng/Qfzf87RVg4PeMQlWu
qA8g5ag4qSvEwMPfzMcYf5rATW4m5cfNL3i8+J1TTGcjlH2R5s+R6Mda69+j
JuUNsEVQ45BJymc81eh6c61WHTyXDXEc/NqFEqNvBtz/VsOX2mfiKiqdaGP7
9YzMTCUM7YhVwpftqMt//raEazms9HmqIs/Zir3UoLv1S9ihQu549LMR01S0
tj0pKIAATVZLqWcdKuaa3Ow//QiqdIhjyufrUOLT7r9yco+AQ5/5IU+/DrXH
v6VEzmeA14mxxnSJOtTMlRf3ycgAD7uh+sjGt9gybFwsQ6aDfUhf5Tnxt5ii
N7S4O/ghHG1sKuCtr0GGPxiuo6eCsEke/dTaKrxxnV9ZUywWnkuGlx1eVIVd
SqlJyR0xYDh94Zsi+QY5TAKSpMNiICxl816+uje49yRXQ++vuzA3GvOlzOMN
rlnXkYLN0TDsfVN+U2clKtho3iuPpIPLsTsJr2UQM+q/3/rlEAJPJnWJWE7E
HtV6kcHBYBhM5NZw6a7AuRdtjXoWwWD67dqIaGgFGqq/EUg0vA1w3VLFb/Q1
coT2vZCDQBBM395xKLMck/PO/mxT9oPnv2tX1G8tw3KNGOutyy9DVNbDqgPT
pbjDteMQm98VnCx9r75oKkXPOB0xkU0usPXt3s8PPUrRbzZR55m0I8TFZj/2
ri9Bv198uTetreGG8p39u5yLUWO+iP2vWw1MRy9OPNUoRg56mjDLVRp2Jeum
iwtTlrdjHL7DhcQibl6BipeoEaty1VgC0LLdo2N0xUu08hS6NDl+Ag+5WTil
FBYhwzK69W+oPYpKqooKhxRhZXJWBu9OR/zbLdwablGEVtbHp5e3OmHRwWaV
64uL0PCRUzy57BJKrjzEZXKyEO1fH+ywy3NDvgKpRN6/z7DkvlfbmSJPfPR5
KHIsMA9LBhMVN7+9hT1ea1Lv78pDE9Zm74eC/iggql1gNJiLNtJn+hxO+6OH
1ZO2UshFbr0liu+Y/qg15Lg2bCYbNY/aFVQsDsRRNpkm6/oUzb5WvNyx5jZu
oos/7xd9il7Cf059MbmNhopG1dFNT1Dz0NHPrdG3seTK86EZ2SdYsvS1wFX+
YAydcpd9P/QYlzZx3Mn6HYyyXDOFTuYZ6Gydph3yOBQt02VrxfgysGDL/EPB
7lCM1jTvbC9JR/VC/+ftfGE4c7t8at+adNwRnPJuqXMYvl/mu5+/9QFqrvu9
VmpbOHLk5htU+j7AXjH6UW+jcFQ2YJx1l3+AXhcTefm9wzGZftC/NzwNGcfd
N7W1hmOX7NKoU5EpGKIpPTB9OQI1LjoUvBm/j2mfVCKXJ0Tgk/yGNhmd++hu
q9Z/8nUEXleOXDvDlYwJw6J3aYsjccOBVQ+SPBPRQpsVGBQRif5+V6q5OhNQ
mr09UicnEplVHUOOuxJwts4pTeN9JJZrx8vuY8ehutpSxeYlUXjGaFPR5/Mx
6HdobN859ygkfv5SvVpzF2c70jboRkahV1wzCmy7ixnBJzJdHkVh8mf/9weH
7yA3M+OgY3sU7vCxMPqsdQftGZeXHxyLwlfiKp/cM+lI3/Fg0fG5KCx631Z7
rDUKe8nYP1KSNOwQvN3qHx2JOTJG5eN7afjzhGrfi+MRyN15WnVUl4ZKjNTJ
jZ2hWP7F4ne0Mw2Nth3nOBYfgn5f1i7R8KKhq+MSfn+zYCwQzrwoFU7D/Enn
LaM9geh6bZzMeEzDD6riOzcmB+DUapWvaoU0ZPu0qxmc8UdPhaAvfEjD5TW3
tW6J3sKCZyPtQg00NFvlnmGPvrhUKLTArIOG8ck9rz4c9Ear2AK7zj4adkoe
bFeuuYHSFm9GI4dpKPQsczxJyxO/JanJ+rJpeHyfABfnu6uo8axYLOsXDaNr
3ddf0LuCMUcmKgRmadhy7LNCU5MrHlCz8O3koKNoUQDdLs0Zra38nA4touO9
ekNUenQBraWdxPUW03Fdnwh77qk1zlxVvDexhI7bv35UjTtjjuXBHt1KS+ko
ye8aL3/BCCtmnbpX8tLRr0O6Y2P1fnzZ3ZoYSXnHij7HxXJboT/89/rHlDu/
+6cKTumAKfPlKXPKE8ekflxyM4UJNZ9TudR8N+9qNTgpW0GElNaGZB46zvlc
v5e60xaUa+PuS1Hr+znmOLfLOsKO8NtDx7jpuMj0y34eyUsQZlA2KcRFx2rx
0OD7gm6Q5tGQzJqjYWCchOueKHdQiL9DjE/RUIu/3Kx12TVI8HIY2PyDhjz+
Jw46hV6HmDUCQdHjNKz/w5ZZzOMFRO7JQfVBGoZdDFmVGugDQnVqizd30/Dx
d7r3plt+IM5dP3OgmYYXLsjavZzzhxC5/HjpUhrqSFw7HbA/EGafvLCczKGh
dF+1gaFXEJitwj0zqTQcNz6zZ3w6GBgp55yKAmjYsDxre/HeUJjsvcW2d6dh
dv1vscBrYeDc8bzjpA0NnQ/Ql4r+igBxsRtSQwdpqD/dOzu+KwoMLznVBuyk
oXyRzPdiNxrMTkjInNlEw6mYAUJ6ig7JGUUFlT+jsJTv5seqq3dBgxG02CAx
CtPkhNvzJWKgUWy99BOfKLxtmN+S3BwDaWOephvPR6FJ3Nf3HjJxMPkr+Y6+
TBRObD5aJduXABp1uT+GsyLxk+Ywrg1LhKkY7R6B0EisuOD3mntPEuTYvXQ0
sovE8Nyikn76PQiJnXOVEo1ESVWR/GjNFJDWr2wTCYhAfoviHN/vKZBRv+bl
5tMR+NPHKMs5JRWkFeMOHFKIQKvBKuMtXmnQ8UfxVE93OMpL/9H/9/EBaMbe
eO0iEY7vCs9qPgvNAI3pFq2LoaGoXrujWoqRAXvXbog8axyKBZ3TB1NUHoGh
2OOQKxtCMW76LoR/fQQ5PtbCXE9C0Abq1Wz3Z4JrXgR/TUkwzjcoKK7//hRa
Nv1VVH4WhG69//Jp2lnAoPldd3UOwmFWg/ySlCwQir3E6pAMwkZB2x0/dbOh
qD9eal1iICaZJko1ZeTA5Ax/Q8yVANw9yCl6yywfRuuPKbRx3EL5spPfFZ7m
g/JWzdN6RX4oGZ1bw5jOBz/zHsMVF/xw2YOc3Wn6BdClQJT8iPHFWUOz3nl2
AXg6E6dqVnpjX0G+DCo+B7NY/pOf6q9hqqtlzf7iIpgwVtrZYmePyRa8ebFf
isAQ5PYU9dlhgk5RPIvnBdBPHtnLaWyLdHE+p/tmL8DVtfpVv5I1+rW8WPlv
+gVwrLEWfpd9Es8pLD9brl4MfqL0LIPmbbBl4tW0WlUpWF1rVZSNuwheTf8F
TrJKYWLqLZ9j7CXozHovkLe+DHYUrcW8964QZvt5y+bLZbD3hJ7O01Y3mOiZ
0ecRfwURXCmiUSwPqKhVfdjuXQ786+475Z73hdP3inWdVRHs1C8od6WEwJH0
7iYDsyqwfz8RJrsqDiaC8uxqL1aBV7hvIsM6DhLsA+b3BVRBp3V6QHNhHIzK
ySnK5FUBKqepmJrGQ0iJX8wi7moIj7CW+Xs/AeqbpMxL8quhk/N07X977oH2
1NXRzTy1YJ+pcsVROw0O669a9OtFHajVmbCV+h4B7ewnP4XiRlBnd7JI5wKo
MxBZbriqFX6ueBbFFfoSWJuFfdqS2mHtcd7NqkrlcNV9+znamk4Qqvj4T+lT
JXzqFTS2q+8CwU0xX75+rgar6+ojPEc/g2LvyiuFfW+hevuesOrF/SBcVf3z
1p0GsNxpkv59RT98nBAVikxrgCmly+ViG/phSfhZ/4f5DbBDLZt9U74ftjoI
BhBNDRCjI3Zc+WQ/3BCPyJ3jew92tjybHj3pB19jkZPSwe9haeqn3Nt6XyCH
V17kV3AjSPKWj2boMKD8am+SZ94H+FEn7/hQnwGniMQR2coPUHH7ATPVmAE+
Bllnx1s/gCl3MDvJggGx11Xm6b8+QNC80STdlQFDfN9VfPY3w7dfI/NeCQyY
Ome1c7C5GR4Orl57YpQBtWpcGyN9W0Ck3Onw4pABkK25q1RQ0wpC62dmXCIH
4IrEpsj9La3A7xFS0BU9APEVQYs6PrfC7M5HG3PuD4DXkRmTTT9boSe9/7tx
4QD4q3b/2yDRBnHhRilp/QMgdTK5qf1WGwiY7/mzb/cgCGTe3aan0w4cM1xP
3QYH4Xmcj3PH9w74Y/TasnbbN+i/Z6Hh5NYFn5XPbtwWOASl2Z7H/N/1gutJ
wZUSvcPwQzhCarycAetjvplxi4yCUenIn7dLvkKeeVrmT88xuHn8TV+c9xCc
3O+rU/96HB7Ux8LT9BHo/TW8oqpqHJqCRmySs0fAOs/g06u6cQhX/yATXjgC
zmKidvmt40CrHnMzrx4Bf87XAXFD47A8sFHy7eAI5NXOVNgsZ4ItYXPwtfgo
cBt47Oak/ttVRGDfbMIohC3pn505x4T2I6lHTdJGYQUerpm0Y4L2XBRPZuYo
bFAQPj7qyoThLrBQfzkKO1cVuTYHMkE1urRgW/sonO78nn0/hwkNNZujiWVj
8MzyooTaLBNEBUN91l0fA+sXEyJpnAScmXIw1PYbAyF+9/VLeAgwSqt75xI8
Bh6lNwTbVhKgHtZCy4wdAzWhkDkHKQJ8lz5wx2djUPXuYU+iMQEHnDrW3Bod
gw7lrujpJwS4ip4QWmk4DkHh5lFn8wjYydt5XtN0HFQG+0NrCwmw6/pneMli
HBJoQ353KggI1TAeyrYfhzPjP1xkOgi4dSJaDP3GYTh1ud6peQIqEo5qaeeP
wxTff4tKT7BgltPnXfZiJqxiC8RUnWaBse3K2It8TNje2rO18SwL8kf26Uut
YIJlvJvWFwcW5BhauvivY0L1loehi31YEFzHHOyUZUKUOqeg8WMWBO6akJnU
Z8ITsaY082wW/DBLM1cyZsIbrkRF2wIWbDRhy9ibMmGyXuG4ZxkLdFgJoWWW
TDh9wiou5QMLwvNj2qddmLDNBTcxf7MgMuZcen8kEw4YhedO/mWBAvHDO+YO
E8yUTx6Y42DDP+l1eQdjmRA2wz67chkbgm3S5m4lM2Hitmj6HjE2yLjpkIlZ
TChP9ZYJ1GZDta9R+pZaJnT6HymLPMqGqOn1s0frmUDaCuvFG7HB/kCH88X3
TJDYkeucZc6GwJ28IXdbmRBc0pvfcokNr+34Drv3McG4dZ+KSAK1fmHR78Cf
TIg33vI3+j4bpA8MZJz4zYTedr7Kpels6AuWSt04zQS7zu4jk7ls0HHTdQie
Y8LNz9fOvK9mA9tyjuxbSkClxVmJg+/YUBiTnWS2jIAl/VojLz+wwWPsytX6
5QTQGcKXH3azQeWETV7wKgIyhgoDr5NsWD5xpDNgIwFjdveOkJNU/+o/nmaK
ECA/6i9gO8MGSX7t2EoxAkrGjRIMF5Nwx6Yls3ULAU0kmS21kQRWdOBl1+0E
rLr8yfW+OAl7EwyK1eUIMPtRsXu1JAkNDT/m/8kTMDgZiXMKJPDpXqWfVSLg
9/T29o9aJLSWabum7CVg383VCXpHSfizwjpqlRoBfrMzFm+MSBj6JZtycx8B
fPPvhnMsSBBapxu+4wABx/yeZUtYk3BVYImtOxAQw5nomnCBBPGV6jLPNAgQ
47afCXAjwdAq0JH3PwJsgo7h9DUSVjS4fduqSUDWkj2Bl7xJ6PO7e2j3YQKU
eZcImIeQ8N2g7pGyNgHXw1htLZEkhOrJPdmiQ537ZR/jte6SoGTrFMpzhAAd
gYzNSikkfHYr/ZqrS0AkLXw4M50EM8e7p131CGgTvJIt8pQEk7DubKmjBKyN
Pu16N48EbfG4znbKFqsP7eYtourtB7vd9Ql4ECMz41NKggxtuIjPgIBh4ZU4
WUECvbDbLpby9vipAMcaEqRGOUmhY9S9XsfQYbwjqe9r0dFQyi8S65abNpNQ
EW/i+4PyzIb8tvcdJJzgMb1taEgAJMfFH+whIdlN7Vw65UARH4viL9T8VdEr
mJTfpdhulhui+u+Zo0sZESAgrj/8cJwE3ntyQ2aUTR4oZ6+bIEGrv3eZL+VE
iU2uUb9IeOvVzZ1EmX8Zt0oJ5TsM2cwF+/xk/h2g7M5kaS3kBdY1r4J3/yah
6le9TzLlHXbmqb2UDT+1NadQTjH4z3bJHxIKXJ6dSaUsuGf7dgXKJdmcYwv+
xfP3ZQDllWv+/EmjXPE06YPsFAlumbv/PKSsEO0fY0I59MID13TK6TccT/tQ
5mn0GVlwiJ7acCvlzFtRTRmUjVjd/zynSci5x3nzMeWaj2+qH1LefnPmy4JV
Kp6GNlLmmrM5lEl5A+26sPgM1T8ran7B3xTWy9VRXnxJxXwhHzFdz/lzgrK8
XXn2gus5x0o2/CXh43zh9IJz20o0XSgf2DAVmUVZ/FUaXwLl9iTNjgVHp4e0
vKEc9pprXTZlD3czC+FZEgTH2uMXPGqhIQGUS74Pty/Y/LD0qD1l5WSn5TmU
NdZMXSmnbNP5znPBz+e+qA5TnrJNz1rw1pG6+RX/SBCNZ3cvmLckPvw85fG+
boVcyl5pvkaRlN1/XjdbMDvkwtpiymeywr0XbHX5WB+DcgLXirQFt53ak843
R8LG2UWVC9Y8JOagTPlznGPfgotleXZSryZobjs0tWDZ1eRkMOXv+RGCC/lS
8t/OsmeU98rrSC5Y4FuF32fKyfpXVRfs1/hYa/E8CRsEhHQX/KMoin8n5ZxL
W80WbHvfo82M8lG3x+cX3BVkmeBPeUo4yXnBui5aljkL9afn3RZcbiq/tZOy
vUanx4L/L++C/8+7/gcBZkDY
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesOrigin->{0, 0},
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     PlotRange->{{-1, 1}, {-0.015661807379398478`, 0.9999999183673486}},
     PlotRangeClipping->True,
     PlotRangePadding->{
       Scaled[0.02], 
       Scaled[0.02]}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], {
    {GrayLevel[0], 
     RectangleBox[{-1.15, -0.8680339887498949}, \
{-0.34999999999999987`, -0.2680339887498948}]}, 
    {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
     RectangleBox[{-1.2, -0.8180339887498949}, \
{-0.3999999999999999, -0.21803398874989477`}], InsetBox[
      GraphicsBox[{{{InsetBox[
           GraphicsBox[
            {RGBColor[1, 0, 0], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 0.08}, {
           Left, Bottom}, {1, 1}], 
          InsetBox["\<\"3 terms partial sum\"\>", {1.21, 0.58}, {-1, 0}, 
           Automatic, {1, 0}]}, {InsetBox[
           GraphicsBox[
            {RGBColor[0, 0, 1], Thickness[Large], 
             Dashing[{6.666666666666667 Small, 6.666666666666667 Small}], 
             LineBox[{{0, 0}, {1, 0}}]}], {0.08, 1.24}, {
           Left, Bottom}, {1, 1}], 
          InsetBox["\<\"f(x)\"\>", {1.21, 1.74}, {-1, 0}, Automatic, {1, 
           0}]}}, {}},
       AspectRatio->0.7500000000000001,
       FormatType->TraditionalForm,
       PlotRange->{{-0.1, 3.26}, {-0.1, 
        2.42}}], {-1.2, -0.8180339887498949}, {
      Left, Bottom}, {0.8, 0.6000000000000001}]}}},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{3.409675845953125*^9, 3.4096832790625*^9, 
  3.409683583984375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"-", " ", "P11"}]}]}]}]}]}]}], ".2", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{".6", " ", "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], 
     "--"}], "--"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.40941561075*^9, 3.409415618*^9}, {3.409416037515625*^9, 
  3.40941604809375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"\[Pi]", " ", "x"}], "]"}], "/;", " ", 
   RowBox[{
    FractionBox[
     RowBox[{"-", "1"}], "2"], "\[LessEqual]", "x", " ", "<", 
    FractionBox["1", "2"]}]}]}]], "Input",
 CellChangeTimes->{{3.409415644453125*^9, 3.409415667515625*^9}, {
   3.409415730140625*^9, 3.40941574309375*^9}, 3.40941602134375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", "0", "]"}], "=", " ", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", "*", 
     FractionBox["1", "2"]}]], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], 
     RowBox[{"1", "/", "2"}]], 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"\[Pi]", " ", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x", " "}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.40941594415625*^9, 3.40941598596875*^9}, 
   3.409416016125*^9}],

Cell[BoxData[
 FractionBox["2", "\[Pi]"]], "Output",
 CellChangeTimes->{{3.409415988625*^9, 3.409416017328125*^9}, 
   3.4096749206875*^9, 3.4096834844375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", "n_", "]"}], "=", " ", 
  RowBox[{
   FractionBox["1", 
    FractionBox["1", "2"]], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], 
     RowBox[{"1", "/", "2"}]], 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"\[Pi]", " ", "x"}], "]"}], 
     RowBox[{"Cos", "[", 
      FractionBox[
       RowBox[{"n", " ", "\[Pi]", " ", "x"}], 
       RowBox[{"1", "/", "2"}]], "]"}], 
     RowBox[{"\[DifferentialD]", "x", " "}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.409416071765625*^9, 3.409416100078125*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"4", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"n", " ", "\[Pi]"}], "]"}]}], 
  RowBox[{"\[Pi]", "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["n", "2"], " ", "\[Pi]"}]}]]], "Output",
 CellChangeTimes->{3.4094161035*^9, 3.409674923125*^9, 3.40968348721875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"b", "[", "n_", "]"}], " ", "=", " ", 
  RowBox[{
   FractionBox["1", 
    FractionBox["1", "2"]], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], 
     RowBox[{"1", "/", "2"}]], 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"\[Pi]", " ", "x"}], "]"}], 
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{"n", " ", "\[Pi]", " ", "x"}], 
       RowBox[{"1", "/", "2"}]], "]"}], 
     RowBox[{"\[DifferentialD]", "x", " "}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.409416134515625*^9, 3.409416158453125*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.409416162734375*^9, 3.409674925453125*^9, 
  3.409683489125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"PartialSum", "[", 
   RowBox[{"x_", ",", "k_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"a", "[", "0", "]"}], "+", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "n", "]"}], 
       RowBox[{"Cos", "[", 
        FractionBox[
         RowBox[{"n", " ", "\[Pi]", " ", "x"}], 
         RowBox[{"1", "/", "2"}]], "]"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"b", "[", "n", "]"}], " ", 
       RowBox[{"Sin", "[", 
        FractionBox[
         RowBox[{"n", " ", "\[Pi]", " ", "x"}], 
         RowBox[{"1", "/", "2"}]], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "k"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.40941617946875*^9, 3.4094161849375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PartialSum", "[", 
  RowBox[{"x", ",", "3"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox["2", "\[Pi]"], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", " ", "\[Pi]", " ", "x"}], "]"}]}], 
   RowBox[{"3", " ", "\[Pi]"}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"4", " ", "\[Pi]", " ", "x"}], "]"}]}], 
   RowBox[{"15", " ", "\[Pi]"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"6", " ", "\[Pi]", " ", "x"}], "]"}]}], 
   RowBox[{"35", " ", "\[Pi]"}]]}]], "Output",
 CellChangeTimes->{
  3.409416195125*^9, {3.40967490584375*^9, 3.409674930265625*^9}, 
   3.4096834944375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f3", "  ", "=", " ", 
  RowBox[{"Evaluate", "[", 
   RowBox[{"PartialSum", "[", 
    RowBox[{"x", ",", "3"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4094162179375*^9, 3.40941621971875*^9}, 
   3.409674940078125*^9, {3.40967502965625*^9, 3.4096750418125*^9}, {
   3.40968333565625*^9, 3.4096833708125*^9}, {3.409683448359375*^9, 
   3.409683463203125*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["2", "\[Pi]"], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", " ", "\[Pi]", " ", "x"}], "]"}]}], 
   RowBox[{"3", " ", "\[Pi]"}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"4", " ", "\[Pi]", " ", "x"}], "]"}]}], 
   RowBox[{"15", " ", "\[Pi]"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"6", " ", "\[Pi]", " ", "x"}], "]"}]}], 
   RowBox[{"35", " ", "\[Pi]"}]]}]], "Output",
 CellChangeTimes->{3.4096834638125*^9, 3.409683499640625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"\[Pi]", " ", "x"}], "]"}], ",", "f3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     FractionBox[
      RowBox[{"-", "1"}], "2"], ",", 
     FractionBox["1", "2"]}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Dashed", ",", "Thick"}], "}"}], ",", "Red"}], 
     "}"}]}], ",", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<f(x)\>\"", ",", "\"\<3 terms partial sum\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.40968339990625*^9, 3.409683421375*^9}, {
  3.4096835474375*^9, 3.409683549203125*^9}}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
       LineBox[CompressedData["
1:eJw12Hk01dv7B3BDUpLUTeUakkrmITJUeijRJWOFSqQyZIhkvIRwXRSZx4OK
MmSeDjps0xGZx2ToZAxxPnyRofDd37V+v78+67XWXp+1117P87z32sfuORhY
MDEwMOxgZGD431cSDs1ub9NQTLx6+/iZxxcc1o8HrW/QUCQvdYYvShcKimWE
llZoSGVMj3cg0gxOC2vfm/pBQ3KUzYHCSAdQ2B8w2PqZhphMt9UiIn1AZXzx
U0I+DUmnLMpoRb4Eg3/b3sua0dBloz9Z9SNSwa0jwN6q+ivKAs14t9B86O3d
M1trPoI2S+PqcqxqgK/G4aAC7zBiDP8SV6PZBKW2DSz7RgYRU33nYi29A+6+
kFn44vcFbYScWB5k64W1SM8gBAPo+0l5ZYuGz5DG8ZU7frQfNcbmP9YqHgKS
poxTT3AfujVicI3qSAM/O3N3kb96UUaJx4NzVqPgyZzt5jTfjfw5tRyNT42D
uW/Hif7MLkRbinvKUTYBMVWT8SSbTjQ36KLAIDIFlTRh9hzBdrQszr76Iu07
HOdUuXg9pQUxcwrojs9NQ5FokM3YeBNapavYGsvPAo1aKCAv34hYy71v/Wvy
AybFY06jsno0PPxaNv3aHOz3zpKXZKxFa1lKKb0q8xBYJtzEuVqDcq6HHmRX
m4cNesbNpbkaNHFboEpVYx7GzN55lQ/UoHPsZ9MztOehSDWt7mJBDfrNUtFw
59Y8GLAk6xiZ1SBhX7HjT57MwynuY20Mngglzy1sqqTPg7g8If52iYJU6qqb
TRnoYCnp41MxQkGbo39omjDTIVVoX3fbRwoKcbFOMdpJhwOHpdx+JlFQqbhs
nQY7HVZXH9VqqFFQwp86C3uP0KGugn5jNvoDmlE4QpaRooOxMt1bSr4SZXAp
efbdpoO/2nxnhTsZXWCiNPjl4fVX5nTl7pPR4ZRdetMFdGDQ/tGep01Gwal/
kbWK6eB1Y6Y1TZCMAu5tHWEvp4Or5WRTaGsZWpKJPPGklg7WQSM15gJlyGt0
UGGwhw5XW9sKdjeVoO3U0NN7VukQ0tkqFVBUgjR1cubE1unQ1NuSt0UqQXbr
JU81f9Hh8khzztLjEpTHNn/82TYdLtCpmSM8JejY7IhXLysB0pzVrwodihHl
u4PKH0cI4LqeF37zcBESy8r7Y0GegCKh55WXmYuQcGZNxHtFAvTWrSZkiEJk
WE4StThLQEjKMUW2j4VIl66R061MwNZ0NK3StRBd0/efi1UjYOqppyRvfwHK
qSz+q0GfgEe6EfFVIvmI/EShsdCGgMxlzbkYxnzU4d9vK21HwFjCDpVHX/KQ
xSa/SK49AYYTbt/5g/OQS7/u7CtHAsDDVN53OhdlXSgMeOxKAGeaWO/FjBwU
q9THQn6G9/uTuq/pRDay3Gx50x1LQFj2m7oL61lIXmxlr1Q8AbamPi6lbVlo
jzihEJxAwIlGxaE3rlnIiGHpozyJgNiY9++eNmWiwYfhfa6vCfhbLkJZ1i4D
xSnciQx5j/czbb+QpZKBCJubtLocAmRJmmkCXBmILTBvZi2XgDnmHbs5qt+h
Od498qYFBJj2uPZO73uHxN3F3+8tJeCik4ltSnE6Gul5sbxdRQC/kBI/V1A6
Spk+sPcgIuDXF66u5ybpiKqWNnqyhoAS1Q55D5Z0VNUdXX2xjgCh/ReZrhul
IQ69N5fNGwlgKziVsPvXa/R19yl3mXYC3g5Nhs4EpKAHkjdX+IYJGPQ6lJos
iy1+ZnsIm4Nfo0B/LBlJprzdGz9CgOvdzO4KSEY3ZbgU2WgEqE/aHA7ZSEK5
WkRt/ygB03TilahjApIgraVyfieAN1yg6Ct/AprnmpzPw9aT0a+PbItH/WkV
oDVNQPmToskN0Xi0T36Z/nSGgOA1Z9GWyVg0Xfzu75YfBIgybRTb3o5GL3pO
AOsCPp80UepRtmi02n7l4z/YkWq3+3vKo5Dyn00GTIsEbARS1s4dikLmdRVP
VrBb9vgos3dFIEfZ+OH6JQIYcvN1anwiUEJ2g/fpZQLkdL6ZOUtGoIC5/SdS
sUnhqn7Dz8OR+/clN6cVAgZEd4XdDA1DmeoCaoyrBKjYPyyonQ1FPPWkLTPs
zPxP3SJXQpGUAyuFgu0hF3p4g+kF0rgXDo5rBPx54cDrRPdgdOlnvzVaJ8DP
90k9U38QOnhd9CzHBgE/6nonbWSDkKCMKsdtbIpGnOg5eiBKsnlXTce+o89b
MnQ/AGX0dsLWL1wvSytKLg3+yLvVgTj3mwCv2A7EcdIfnSrzLnXDJg35tahO
PUPvpb8GzGCLe5voD6k/Q+FLp8KObhLwQUD+s3OGLzJh7829hl3S0k3V7fJG
lEl16TLsXs7ALr/Ip+h5HWvUBPbSDaWR0mteqETiKPv+LQJOf0td5un3QFEi
GqoPsPVPXmPQjXNH5BqDzRBsR5ud7H7GbujQUnZHPnb+st3x6UFnZO+uSF7C
blcSkOIhPUH7KA9bD2wTQPfuOatzxwld8KKtSmHvbQhUf8b/GPltxClpYRsf
cE63Rg7ofUxExAPsONLgh3ZVe9TV/GnbE7tfSLVHrsEGXZe+GBCBfbAwYzZR
3RoN+fzkf4t97RwHE2OzBTJ+MdVRhh1Jdea20rqPmDT2xzVid+oOSbe13UUm
1S7Ovdj8Jf7hlq9MkAT/H9bfsJOa9NDpt0YoJH/68Sz2kRE++laWAWoZWIn4
D7bYeJ9S7B0tFMV3tmkNW4jdMU7SShV18Jce3MT27RXu5amXQMWJlm7b2OL7
RmxYJA5CpZ3Owv/cv+iXyrmmCDmhdj5b2Au6p/7j4KQOsX/UnviF7Rml/slW
Tg/aZa5+W8He8vZISpW6AUuKHEX0//3fJseuR/QWELGsiZPYzIY0ZVYhM1js
V4wfxK4XCP43mfMePH79JqcNOyBW0FEh7AHIUi5/rsZWZ6cYd+2xAmA7fiQP
m9Xvhqpt8EOYfn7OIQm7aZUuwsJqB82m4cOB2CH2QQdSAx4BtUrwriP2u8Xw
p7zPHGEn4/K6EbaVlahl2ZYTOJy66XgM+4qg2y1/ZWe4ob1wlRlbeKReR8/L
BTaHW2Ec18OswR2F2XU3EGE0tU7G/rQ3W4ys6AFZdYdS3LDfN/08GuD2N4xr
8M3qYttdCN/Fv+IFkUp81A1cn9rrw79nZb1BuYrnehu2ZInIItnJBzhkndaT
sdeiR+eE13whyeL0v0rYFWyefXUu/rB21zD/Ju6PVxJcPfmCARDm6Fh8GDtQ
L7+T1BEAxE9ztx7cb9djx1tcRQJBivr1ghr2wrGrdaIjQfChq6OVDffnZ7Up
dDgkGKYm5TrLcH9XW/lW7VAIgYN/kaLuYj/PLSn/Gv4cymxCbuXieSCkxJcf
qRYGKr/jZsTwvGA3Ief4LIbBinbdPPUn7jdv/Wy7lJfQMn286A723bE6g+Ne
4dDonu0ZiOeRpPCq9mZfBHAZkQ5U4XnWXGymVhgcDQHJBkbVBAHnqeL1p75F
w0nlynty2AX966op8jEw6zkqmUnHebUeBc/HYyDAJXZ38DwBD6DprIVyHPwO
Lm+WwvN2+5O0DPdiArD+c817/xQBTsOb+S81EuGXc27i/Umcz/OfJHemJIJw
r5t78QQBrZwW4kuaSdCc9NL96jgBiYYJp9rSSTB+RfrF/W8EnBlj5H9mnAqF
HmPsQoN4/5VGi9JZqdDk3Hf73hd8HpG5Dd/WU6G5Q5hMGiBgz+ucM6+0X8FO
+WNRez4T8FvPeHib/gpmrYtHu3oIGCnIF0Eyb+Dj79gJhjYCUh1NG5TJ6SDM
YD86jfORZLI7L4aWDg+6ZPunKATEXymJm2d9C7+6uL+MfSAgXIDNNtn4LeQp
+e/uq8D901m6f3P9LXifjTj0BuetufReM8r5DFhvFF34ivP6+MKH9bN1WaD2
nJt3Aue/V9ulgOX5LJBQFWYLxveD/uwWjjzubHBw3S4Ui8P9YTF0/NjjbDDl
t5Oyicb1MrihzSrwHkqbd020hOH6oCq96XmaAywC4lqC/gTcSiJr2inlA49g
VCcPvt+UuEPfSYt82LUWLeZujfPX8KMZLTwfzjL3Xeq2JKCW87OzwXQ+jJkE
5/jcx/PukqcuSasAbAuP3kMmeF6UJ3r4bRRAArujR7cOAX+lfWnTMS4CuU9h
56/I4P38k2dJtS+Cnx/eeVlI4fOx9t8+518EktSxSF8JnN8SEjIieUWg3ad9
sUCEgKBy32jmHcVgaJhRsHIMz4O2U7fL84vh9JHXM0cOEKCx5jJ9jLUUDp++
0Vi7gO+P2geYV0rJEGym4vI2gw5h5rsX15vJ0LY7Wvj+WzoMuDDQtkbI8Hjy
AdPRNDrYpNArd+0shxETNtGIFLye+OTEa1gOvxFom8Xg9RH+Y5d+lsPH2FCm
ND+8vn+5NlK+EkpGDIWb8f35pdlnX2kyBSSIhsr4XXT4qMO3V+9ALchRJah3
zs3D/DEu7+7EemiU0rPsujMHLs5i5i8PNcLvrTKe+w9/wOdhTgPLpiYwJ1xV
Sy7Owl2P899Zr7YAtfSpsxLXDNSLKYTUs7QDnYExrbfoOwjtpkynX+kEXw3b
82a6U8BHsb3MEtQF19R1Zy6MTADDBlOW01g3SJkJjImfGYdV/SpT6sle8Eta
m/4YMwpDcmY8JwP64JvuVJmuLw0cjTj3Cw73A7P83221dUPAHT1hvINvAL7Z
jXtFiAxA3u1XGUvuX+A4z+Qnc+FeMFL2udJUNQgllDvxzoadUGhqL3j29xDO
maMzq/uaYY3tEnPFjREoK3zCm1lUAwZd5+T54r+C+Nr3ja/vCiFBkNcxbIUG
SrWm5ilWd4F9zw75cuzcpJNuDEJ3wXvpx69R7I2j+tzUJjO41/Dh3zM/aRAh
226vXWcK4pa3U4exzSObOU1LTaA6K7FddI0GVYqZKj5JxjAhzS3xcYMGN2J5
jGqt9MCQm3FpAbu1ouIHW7MuNDHOlP/5iwbaWWXCUXU6kNtdrvYI+2Ob9Ou0
0qvg6mxswvWbBoqMqS8akq7A7vK45/c3aVCZJ6y/01oFvF756Idi55vncPLV
XwB6kNVhMjZpb6C3RNl56L6pkMa2RQPN9c/GOiRFIP3qryzEFvoytSvcWho4
Jqp9h7DVhPWnVcji4Nv6Tp1lmwZxNberzZOFwSLZtdsYu7VL62HaQwEY+Mc0
3g97QCfDKyj1CGg+UjfNwW4s1BX6ZMsJFEPJE/3YqpEWqYcdGeD/3gvg/98L
/gtSiq9I
        "]]}, 
      {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJw12Xk0Vd37APBIKTIkVCpJUoYkyVR66JUXZS7z0IQyJWOKSMiQWYYyFSlD
CHWuIZtrSKFMr4p77xEZIu4VZaj47tb6/f6667PuOns9z3P2fs7ZZ+86f8XE
gX3VqlUJbKtW/f2VA+GJlRUSRWWNWijrEHBlcXfE4hKJeJfFLS2xyyoOSs7+
IJGZ+gVzhD3jBk3fWPj/jiOml3UJUNinf350kkSBzosnzfUI8BqyWjU4SiK6
2EONyJMEVGZcyvr0mUQ9eqwDK6cI+Gnme7SHRqLCZJstVQYEKG8M7W//QKKW
5U0LL40IuNaWcK2lm0T1g7/bF0wIqA7LFq7vINHQtxfJN88Q8AueVVa1kkhM
MeWUjgUBR5eqTSoaSXRN+tnMGWsCAitbWcV1JPpeRA1+YkdAnXtfbH4ViT6y
mf88ep4AjeGZt+mlON+U1LBDzgTcyly5lFRIovAGRkqyOwFUcx7OmMck0nnS
H6jqRYBW+75/gh+Q6JmbYJVBIAFh4Uqf/VNIdOnlc3YUQkCLhlaQVwKJuh5Q
N3hFEKD7wr7G8Q6JLvhN6eYnExB1xc3ybAiJmlxlPfY8IKBd6sa8ZSDOX0BK
ffwhAQZZKYf0vUj061FKiUoZASZ3OooO2ZPo+rKZMEcnAUmaA7r7rUjkuxj5
IPsjAb2/xsckz5BIJaYm/OZnAsw8OCRETpJIQtD/8to5Aqwtj2SsUiaRbEGI
rvp2CmRs0lVbOkgi79m6r98lKcDoMPs4K0uihtyYzMmDFDh73FNwTJxEGn1e
G/N1KHBRpuBuBy+ujydPn7o/BR6PvJR+vZ5EwS8867nCKTCa3dRaz0EiAWsv
K5EkClwWHOSoXGIgq1ZRR7YSCrj/EQ68P8pAvFH9elOjFPB7H+rmVMdAJvrq
dDmHKrg76fthjsJA8jw/wuL8quAR52XNkAoGUhg65KAeVQXtoC+U+ZSBhD59
cw4uqwLxMqFX3YkMFM7ntJCzqhrexedvOObEQInx1E1KpdXwpTjNt+0cA/GP
TSbYtVTDYmvUoIUNA2mpKhZ106tBgu1KpZcxA9kl1x/J5KmB61eVbQqOMJBG
wsV0ikcNSJq0FgnyM9A90wPaU1q1cNS9WugRFwP5OBkpN5ytBeOo4qADaxhI
rj+pgxFQCwHUeFO9JTraN7Fo//NFLXQrWP4K+kJHZt6F2kkyryBw04TeJIWO
8mTDzS5K1EFvL/dEwzk6enKUd3Phnnq4dfFFXZENHYUUF8t2KdWD3Jxd0j1z
Onpe8ltFWKceIjaVH72sT0c7xgWmFp3rQd3EIo5flY6aEs/X7ymvh/z3eYr2
/HS0/3JE9vKJBrj2Vj3odx0N8duuDMncpsIeqzHT0Soa+kbLiPqWSoXur/H7
OitpSPnd/ZLWYirIrv/SlVtIQ83BfkI9fVT4/G+UxMkUGlrxvfFnv2wj6DX3
vUl3o6FzodG08YFG2FF/RVB5Ow3dWmd+oMegGdoFDnurbaYh0bMVv+0cm+G6
w1KPugANnWZt8mK/2Qx9XGFJWutoyC5kaDnuWTPEn7kvYDI3gNKVn3I18rTA
6skmfrf2AXRO+IOvd3cLfBUS4ckNGEDzoUvKtq6t8MKlaQ0fvR+N/pMQ/pHW
BmfvHmR9CvmETJ1LSji2dsNC4o0IBB+R3GEXlYOn+yCXl7E17XMf4uAlXY+t
G4AMvYOePZH/oeq19eymUSSEuJ67JqXbi0qT3/DY132GG6sL/TynulF+Vobu
7dJhOBf8XqLvaRfiFqeksXRH4N6rkbQM507EcV/VK6lwFKrJfRuKxd+h34k8
1aPzY7CbX+P46aw2JGEn28TO9RXKpSOch4Zb0U2/u9lvhSeAbH4upqTUgsJs
46583TAJI7L3FNDLRtRR2deX/HUSNt4sUJJja0Arxtvdfbu/gawSU/bxbC2K
uvVTzixvCm5rTXVWXSPQ4w+/Kq76TwNV55uh4gUC5VIWM+4GTMMq/cl3JfoE
ymKPWJsfNA0BZ76254oTiBV8xqg3bBp8HUdaY9pfoqpX1ldFE6fhUgS9/pzY
S7Qim+3vWDgNp9o7yta3ViKDN7Jjzz9Ng9DpknjLzeXoXL5u9T0FJpRLRlef
WF2ObEa+7OQ5zASjRacvB5nPUR3HWFqIMhOisnapcL1+jkT722qcjjJheTyZ
rPZ9jlJVxm6LaDNhNPCG3Pa+MhT4sU5IzJIJ7oYJaa+kSpGbfNC+B4FMeDqn
9+0eWylSogaGdAYxYSidQ8P9UwnyysjKXx3CBLMvfmOikSXo3RF7rQvhTAB/
O6Xg8WfI59bbVM44JvDnyvQef1KMgnQ3lg9l43h/NvO1ShQizX81s3sQE2IL
H1GPLRagzC57pbEGJrjYBfm86ChA8T8zh+cbmSDRojLwyLcA/ezc5cvfyoSU
e0X5ga1P0ezWgEOinUy4rpigfsj1CZJr0e0vIHE8426sAo0n6OvDkUcxn5lw
KEMvV0zoCaqNjLJ0H2bCt9Uc63nr8pHPT+M7kmNMsOvx7R3ny0c69mqPrk4z
4binjUtWRR5KjNZs8/jNBFFJVVGhiDzkllBqJb7MhF+fhLqibfJQzun9FZ0r
TKjUfK/kvyYPLY/pDCSwsUBy43H20+a5qD9BzqGLgwVcZXvT1/96iBI3R+az
cbPg8cBIzNfQLNQZMDC4U5gF/QHC2ZmHspAGo9Kbgs0r+m+Z8VAm2t4YEm64
mQW+Z592V0Em8uFQ2eW/hQXaI86bo5YeoK0+68SqRVgwPs3MkfZIRz966su+
i7Jge7xYOUM0HRWctO313MkCo4PGjYkdaUi0LcdlBpviVT6yJJ2GLCOav38V
Y0Hkgrd020gKWmALM20VZ4E0+1KFi3Uyqip6+kVVkgV2udLNO7mSkXawxKqH
2Ila1n09lCT03Y8SvnYvC5bCaxeOCCehCDetnnbsNu4g9Q1dCSiMW8hWW4oF
q56VGtQHJSAfqltTDraiwaC9t1wCejdzImkROyNeM4QWHY8yWtsc8qVZ8FF6
XaxlTCySFVro/ibDAg23y2UNEzHIXZXLRU2WBU9L33ZL6cSgpF/XncKx/RVj
Ni+x30ViP7jvbt3PApFjAg/vX4tEKUJnr8vKsSAk2KuRvS8CGR98J+OGPUnt
HXE+FIGcf8weK8au/TdV+sh0OHJPUI7cc4AFtsbbKwcuhCKpi42POeRZ8G32
h6pP022UIs9tq4wdkPIe8e65jdrjBEIvYWcMhLRpjt5Ci7yBYi3YsjdtjAe0
b6FpFa9737FrxJQ+eD8JRnVchv47DrKgsq272bDrJmovmrnrjt3LH94VkhiI
ZtZZ1SZjz55Rpb8wDUAvpCctq7AVBrPntvX5o3Ukg/EH23iP6SrD1GsoJHGm
eYcCCzyc124IsfBDR/RjRI5il8657h7v90auh3q5vbHfqYod2JbhhZJ2Hnsa
gz19s0fNwNYTLSeXPH+MzdMUrn1L9CrKjli/rxbbQsA77xK6gpabFLm7sFMz
+mveaboh74nN1l+w+yQ1exSbnJHLlYzNP7EFnz+ZuK99CWXnPNNYe4gFpkd4
2dneOCDthyp9gtiJzd5bnU5eQPoush93YXcaDsh3dJxFN977a+/HFq28He+Y
Y4Me+GzapYz9oNUIKTw2R5m0KSfA3kLfMb1cYIJeWq2IaGPLDP+nmmJ7Evns
0FA7iS25wSNVzkkT9UsVNhtgB/fu693WuB+dt1F9ZYQty0d3XrNfEDZfnhQz
xu6bCcnmX1CB+AHEMsRmGe79fsVTG34IU2T1sW8kab91UTSC32c+9OpgL9/0
f5B94AwMFop/Pf53fOdi1x5pKzBeybl8BHu1GanOKWkPzoLWZgrYjWKRdzL5
z0NiiHXpXuzQFHEP5diL4FRV4r0NW3tDrUUXtxPcXzmfz4PNGXJG0yXyMnR6
Rmgt43q2zk9LreF0haucBw2nsKPcIgSyQ93hVoRHSz92/kx84PZbHuCSalPY
gu3kJO34ctkT9m26T0nH1hH3s7qt7g1vWDuHg7H30RsNjAJ8wEq95roj9oSJ
rfLEoh84HCidkcV+y1MoQ6j4Q8m0XhcPdlHrz52hftfho2GI6BSeb67H4teJ
/giA4n/t2J9g6y/Sfk8cugmuKafTb2HLVUrNEJ5BcOlnZJYV9kLy52/7FoKB
3+HyHCd2FdeN/6g+t0Fyp0OPIV4POfuFekrFQ6Ho8LnErdjhRqWdGe9DYcbU
7/pnvP5Opwy3+UqFwx/9va9dsFm7TlGl6RHw80y6tTNerx+0RtHmqEh4rGnu
uge7zin4FYdyFPyWH3jKwOs/+lklhREfDZpS1fknsSVVd5QmasWCXwZbAx/u
FxtsiOKgmViIv8p9pBb3l9mbxoWuWXHQr7DniyP22SGqye6AeLBot25+ifuR
3L55/T//JYAij0SXBu5XbyrstZ5HJsPaeN/g5T0sONos27h3MBkCFNX3xmKX
9S1qZindA2DzW7MdO2UxCaKH70FIcqmzggQLLkKrmoN6KnwczP+qi/vtylv5
g1tn0mEYNZ+SwP3bk/anNO7f+zC/WoSSuoMFo1Nv5dZm3YdLr9Mc1mO38zvI
zuo9gDkFgaixbSy4b5a+tyMvA34OneGN28qCw0NsorcsssHZFF5GC+L4q81n
5AuyYfc7tYnpTbgeic+aBhez4Ub63sdG2NwPiw/n6OfAvtVl5XwCLPhtZEFb
mc6BoqfvNAL4WEAvK5VCBx9BaUl3Jx8XC7I97JrUiTyYtZZJOoWfjxk260vu
kXmwxD1UQSwxIU2nMnWK8zHEnWsSEltkQrwYl0umxWMIPiGXN/6DCcGdLzb+
WXwMW8qFRC2ZTDgnz2Nfe/QJhCadFq/Cz+vdrJpFNWoBXL7P9zakiQkBHf+E
zk0VgJ+DWaoHlQl9hW28JVsLQYea4mVdj99vHAZ277paCAP/RF/YV8sEVv+S
PqdYEZyauuOSXcGEumbVRz2BxWAro+bL8YgJVg8IPVfVUug94934KoAJurmf
OgwsysEg9E1/jDS+PqzEsdmtHM4xTigO7cX5XLq9cuR2OSyM/7qkuIcJ4/v3
H5QqKYefR+9c6d7JhAhKcPJqjgp4cE1f84cgE1o79lpTSisgeHrW/+PyNPy7
4DO+i/MFvMkbMJXqmoYT+gKrf7wggLPuwZ8kj2mIs/8QLE/UAvwJiRh6NgWv
DXbwGAk0AA9fj35b+zeY2iV0s/t+I+QEPuIXmp0EH2+Zc3HCLeD3+lzZ8uZJ
+EDjN3FsbQUXafahKbEJOOt/dIzzVBvI795i9Fv6KzTKKEc1rnkH8zKxJ4Y4
xkFyfe14nk4nXC04uRDUMQo7al1OrInogs4szhNhHiOwaom9wHOoG9hEulR0
6oZh3viVXfOeXrBGe21iZz/DgKL9tj2h/4Go1RbhzxkkeJjzbxSn9UHmvI4M
S2QAtiZ/seDY8RGCCuM/q7f1QYl1zpPZa59AcPPeF5qq3WCuHqTT+qofDO/M
ZnMntgPtxygfldoPqYUhw1w+7XC+xOBDzet+sBrt4d9m0Q6uO0UdS7v6odP1
cqK7aDuEsL26nTLSDwN6CptGitqgpHmp7iLPAJyci/ol+fYtcBj4HmazHYAP
jqzuCsE3ELWW8Xvp3AB4KL1pYV9qBT50omnOcQC8aq4yHMhWEJEXMh33GIAV
Uxv6pcJWOCBQ6fE+dADuRlJ7Lmq2glXfTFFm8QAoUYpP6Hm9hud2buJqvweA
OSZ91GesGc6/YO3IYaPB4U98QVc6mkFwg/fWtZw0yIbStWEVzeBbdZ2/eyMN
+Gw/WLIHN4OaYMTy5b00uOh86riuSDNQ3zzqTzfB1yc1Wu463QS9ih8TF5/S
QH54ZLqOToWwaOtY+xIaXDA522PxmgpKQ4zI5goaRAoJ+258ToW0uJHghDoa
RPnl2ZKhVLCd+O4u1UuDtL4LIaz9VLz/5zlpuUKDY80gthzWAAtc/6yuOkMH
Nnmj8isG9SAwzZtMtaKD4CcVbz31epDp6pdot6cDpexC4nHZerBL9dQmL9OB
81KEVDRXPTTufhS55iYd9OfFDFbiEcQeZeM3yaeDisB5zfXJdfB0Z0eOdREd
nCSTNK771EEDe/pBhzI6TPBd5N1nXgdzrfKm16rpsPaJfZLatjqwOnM2Jesd
HUrOj+Qey38Fe9zR9smfdOC4GihGf10Lx4yjn839ooN2upyG1LNasFA0P7a8
igFa9WhdZWItRC1N22/kZoDVyD32cLtaYIWL5irvZEB4DzVGdLEGarMDpUL/
ZcCah8J9Kmo10BeiWx1zigGxUXtHb+yuAaaD0MlUYwZ0a7iorWyoAXHZZ66F
1gzQeXuL5/VgNdyh0Eo7rzCgf1j9s210NZh0HVHakcYAO66HQTXfqiDVZPev
xEwGKMynrQn6WAW0Hq76dbkMcBNMz4trqgLHvk+6c88YsG2wPy4tswpuDPjZ
tjUyYHBx+sVJ0yqot7EX13yDx7+i+fC6ZhWsZWiPvXzHgDZfq7PzB6ogflDo
6qNPDHj3Xqmsn6cK8kYqQv2ZDJAIFWTodVDgq+MDXeYcAwJPlj2feEUBufEQ
XoclBjAY635/LKEAZcI4zWgNCfNaevAwgQIdTGbR3m0kXDe39RqyooDA1Q8e
mWIkaOd2fp/Xp4DF97rDmyRJcB9meNloUmBoLgYty5NQOcxRJSBFgZ+LMj3/
aZMA9/KmDv8m4MiNTWknT5EgUNoi0jxDQPDvJZsGYxLyCtfU5o4RwLXyZrTY
hoQ6iZ67hr0EGAY/LxI/T8KrEafe7W0EJLOle6Q5kSDH2FOvSiVgJ8elpdue
JJwa+FZ6/jkBF8MM0aIfCb9CR1vdCwgoXKsceiWQxPuOidK3DwlQXL+W1zqC
BF6xch7PJAL8o6a6O2NwPLIGKa/uElDH/V+qdhIJiuaP+S3DCdDhzdulkEVC
zI7vi0HXCYiJix59kkvCsfbHftw+BHTzexXtKCBhQ148x9gVAjYnWnkklZAw
u7DliYALATabjh9eX0kC3h86xDoS8DBZaulmFQlBgQVaVucJGBXaiObqcHwn
7ur52hEgk7pw27mJhOEnDTeGrAjw2DKoM/iGhPVPX9GyzAl4kf6ax+w9Ca6h
8VeLThOwJFLa3dZLgnXxqPo6EwIgIyVVsx/nU7XuxAtDAkJ33LQhSBI8nQYi
y/UJeJPlsGv/CAkiiSTvqlMEroP+6KMJEgplFfoy9Qg4/VCxaAuLhCi4+zla
l4B08e0esT9IuPbluMJbHQI2cHMoUbAVUFleM/bN2clfn7EHzfylGrDPN9Xc
OfyTBDWqiDMFW9bROpuGrVKU9foJdpbBPw5r50lQih9qz8XmV5aRkcduP3Lr
Szb2D85fL29jK0y+00vDriu4/056Ac+H1qLZSGz5xJDk09ghq1qiw7Fzrztb
3cRW4jyidBs74qTaaBe2bNhhagC28dSnP9cWSbhr4/rSA7vpv4bGR9iSe2w/
u2Er1RVEtmNXNj4VdcEWifMXElsioSXMqNMB+4v81v2vsa8pDPHZYJttZZtl
YYeigo6/389b2b5SRH7hfPe1Z5pjP+umaLljC8ft8jHFFqvJ4UrD9ow9HWCM
nZgb0dmA3ekydM8Q29fbwkboN86fim8H9riNhjhgu6s/M9LDtj6xb/wStlha
foUOtobwglctdgKzoOwEdvkyqTqKLTVVoaeFLTH2eoXvD863fcv8cez1lNTo
C9iSCrPhGtgBOUHGMdjCVZecAXs6wmkzgS2zW/XsMeyzVw3pg9hUj4uX1LG7
LZVzuZbxfHo0EXIUW+v4zsuK2OeJttIj2IQ05wE77OkyTqYatvQm5twdbFZs
lsZfZ/zqq36OnWIcn6eKzfulLnjg73iLNJG/Dm7P116zgusZFpqrgv29MnbD
AewN8+HH/toh07fbArtT/8vk3/OLj2F2aSHYw5EZRX+t565tV4xtVlQa+Ne1
ZnISfdiK5TvO//X/nX/A/59//A8opOad
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesOrigin->{0, 0},
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     PlotRange->NCache[{{
         Rational[-1, 2], 
         Rational[1, 2]}, {0., 1.0125285421295922`}}, {{-0.5, 0.5}, {0., 
       1.0125285421295922`}}],
     PlotRangeClipping->True,
     PlotRangePadding->{
       Scaled[0.02], 
       Scaled[0.02]}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], {
    {GrayLevel[0], 
     RectangleBox[{-1.15, -0.8680339887498949}, \
{-0.34999999999999987`, -0.2680339887498948}]}, 
    {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
     RectangleBox[{-1.2, -0.8180339887498949}, \
{-0.3999999999999999, -0.21803398874989477`}], InsetBox[
      GraphicsBox[{{{InsetBox[
           GraphicsBox[
            {RGBColor[1, 0, 0], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 0.08}, {
           Left, Bottom}, {1, 1}], 
          InsetBox["\<\"3 terms partial sum\"\>", {1.21, 0.58}, {-1, 0}, 
           Automatic, {1, 0}]}, {InsetBox[
           GraphicsBox[
            {RGBColor[0, 0, 1], Thickness[Large], 
             Dashing[{6.666666666666667 Small, 6.666666666666667 Small}], 
             LineBox[{{0, 0}, {1, 0}}]}], {0.08, 1.24}, {
           Left, Bottom}, {1, 1}], 
          InsetBox["\<\"f(x)\"\>", {1.21, 1.74}, {-1, 0}, Automatic, {1, 
           0}]}}, {}},
       AspectRatio->0.7500000000000001,
       FormatType->TraditionalForm,
       PlotRange->{{-0.1, 3.26}, {-0.1, 
        2.42}}], {-1.2, -0.8180339887498949}, {
      Left, Bottom}, {0.8, 0.6000000000000001}]}}},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{
  3.409683425375*^9, 3.409683471609375*^9, {3.409683505828125*^9, 
   3.409683550640625*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"-", " ", "P11"}]}]}]}]}]}]}], ".3", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{".22", " ", "--"}], "--"}], "--"}], "--"}], 
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", "--"}]}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.409683643875*^9, 3.409683650796875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"x", " ", "/;", " ", 
   RowBox[{"0", "\[LessEqual]", "x", "<", 
    FractionBox["\[Pi]", "2"]}]}]}]], "Input",
 CellChangeTimes->{{3.4096934649375*^9, 3.40969347340625*^9}, {
  3.40969364590625*^9, 3.409693672140625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   FractionBox["\[Pi]", 
    RowBox[{"2", " "}]], " ", "/;", " ", 
   RowBox[{
    FractionBox["\[Pi]", "2"], "\[LessEqual]", "x", "\[LessEqual]", 
    "\[Pi]"}]}]}]], "Input",
 CellChangeTimes->{{3.40969367840625*^9, 3.409693732703125*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{" ", "a", ")"}], " ", "Fourier", " ", "Cosine", " ", "series"}], 
  " ", "*)"}]], "Input",
 CellChangeTimes->{{3.409683663484375*^9, 3.409683680453125*^9}, 
   3.409693918921875*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", "0", "]"}], "=", " ", 
  RowBox[{
   FractionBox["1", "\[Pi]"], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubsuperscriptBox["\[Integral]", "0", 
       RowBox[{"\[Pi]", "/", "2"}]], " ", 
      RowBox[{"x", 
       RowBox[{"\[DifferentialD]", "x"}]}]}], " ", "+", "  ", 
     RowBox[{
      SubsuperscriptBox["\[Integral]", 
       RowBox[{"\[Pi]", "/", "2"}], "\[Pi]"], " ", 
      RowBox[{
       RowBox[{"\[Pi]", "/", "2"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}], ")"}], " "}]}]], "Input",
 CellChangeTimes->{{3.40968369940625*^9, 3.40968377078125*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"3", " ", "\[Pi]"}], "8"]], "Output",
 CellChangeTimes->{3.409683772078125*^9, 3.409690171390625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", "n_", "]"}], "=", " ", 
  RowBox[{
   FractionBox["2", "\[Pi]"], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubsuperscriptBox["\[Integral]", "0", 
       RowBox[{"\[Pi]", "/", "2"}]], 
      RowBox[{"x", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"n", "  ", "x"}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], " ", "+", " ", 
     RowBox[{
      SubsuperscriptBox["\[Integral]", 
       RowBox[{"\[Pi]", "/", "2"}], "\[Pi]"], 
      RowBox[{
       FractionBox["\[Pi]", "2"], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"n", "  ", "x"}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.409689879609375*^9, 3.409689982296875*^9}, {
  3.409693591546875*^9, 3.4096935965625*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"-", "2"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Cos", "[", 
         FractionBox[
          RowBox[{"n", " ", "\[Pi]"}], "2"], "]"}]}], "+", 
       RowBox[{"n", " ", "\[Pi]", " ", 
        RowBox[{"Sin", "[", 
         FractionBox[
          RowBox[{"n", " ", "\[Pi]"}], "2"], "]"}]}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["n", "2"]}]], "+", 
     FractionBox[
      RowBox[{"\[Pi]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Sin", "[", 
           FractionBox[
            RowBox[{"n", " ", "\[Pi]"}], "2"], "]"}]}], "+", 
         RowBox[{"Sin", "[", 
          RowBox[{"n", " ", "\[Pi]"}], "]"}]}], ")"}]}], 
      RowBox[{"2", " ", "n"}]]}], ")"}]}], "\[Pi]"]], "Output",
 CellChangeTimes->{3.409689984484375*^9, 3.40969017628125*^9, 
  3.40969359834375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.4096899920625*^9, 3.409689997609375*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "2"}], "+", 
   RowBox[{"2", " ", 
    RowBox[{"Cos", "[", 
     FractionBox[
      RowBox[{"n", " ", "\[Pi]"}], "2"], "]"}]}], "+", 
   RowBox[{"n", " ", "\[Pi]", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"n", " ", "\[Pi]"}], "]"}]}]}], 
  RowBox[{
   SuperscriptBox["n", "2"], " ", "\[Pi]"}]]], "Output",
 CellChangeTimes->{3.40968999815625*^9, 3.409693601390625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"PartialSum", "[", 
   RowBox[{"x_", ",", "k_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"a", "[", "0", "]"}], "+", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", "n", "]"}], 
      RowBox[{"Cos", "[", 
       RowBox[{"n", "  ", "x"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "k"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.409690058609375*^9, 3.40969007475*^9}, {
  3.409690252578125*^9, 3.40969025325*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f4", " ", "=", " ", 
  RowBox[{"Evaluate", "[", 
   RowBox[{"f", "[", "x", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.40969375246875*^9, 3.4096937704375*^9}}],

Cell[BoxData[
 RowBox[{"f", "[", "x", "]"}]], "Output",
 CellChangeTimes->{3.409693771390625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f5", " ", "=", " ", 
  RowBox[{"Evaluate", "[", 
   RowBox[{"PartialSum", "[", 
    RowBox[{"x", ",", "5"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4096900993125*^9, 3.409690156265625*^9}, {
  3.40969022009375*^9, 3.409690220546875*^9}, {3.409693619734375*^9, 
  3.409693630625*^9}, {3.409693741734375*^9, 3.40969374803125*^9}, {
  3.40969386296875*^9, 3.409693863625*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"3", " ", "\[Pi]"}], "8"], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "\[Pi]"}], ")"}]}], "-", 
      FractionBox["\[Pi]", "2"]}], ")"}], " ", 
    RowBox[{"Cos", "[", "x", "]"}]}], "\[Pi]"], "-", 
  FractionBox[
   RowBox[{"Cos", "[", 
    RowBox[{"2", " ", "x"}], "]"}], "\[Pi]"], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "18"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "-", 
         RowBox[{"3", " ", "\[Pi]"}]}], ")"}]}], "+", 
      FractionBox["\[Pi]", "6"]}], ")"}], " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"3", " ", "x"}], "]"}]}], "\[Pi]"], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["\[Pi]", "10"]}], "+", 
      RowBox[{
       FractionBox["1", "50"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         RowBox[{"5", " ", "\[Pi]"}]}], ")"}]}]}], ")"}], " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"5", " ", "x"}], "]"}]}], "\[Pi]"]}]], "Output",
 CellChangeTimes->{{3.40969374378125*^9, 3.409693748328125*^9}, 
   3.409693863953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"f4", ",", "f5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Dashed", ",", "Thick"}], "}"}], ",", "Red"}], 
     "}"}]}], ",", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<f(x)\>\"", ",", "\"\<Fourier cosine series (5 terms)\>\""}],
      "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.40969013421875*^9, 3.409690151453125*^9}, {
  3.4096937863125*^9, 3.40969385684375*^9}}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
       LineBox[CompressedData["
1:eJxFzX0s1AEcx/HDmfK01cxTqpNL5ymPi7ncKQ9x5OH8FFrSGZmKLCmrJbqU
xyFF3EUcS92ccp4y9CRkM+lmQsmV27oV4TzcYT384fv947vX3vv88TXnJLPj
1EkkEvvf/ZfSTFtkuH5ibCpJFTKcnjGZm/Iv+/wI4cWCIU1RvR6PUsAPgu2G
YanpYENgnLO49gYo9301wSjggmfp6bZETD44WpGYOEctApfLyrvFJiWga4ki
nqlxH2zPFrYRo3xw7Oa4julgFXjNk9w0N1UN8j2cyC2SGvCLa6GQ2V0PnrL1
3SCKG8Fpv4jwpIf9oELEFBnTJeB43a6k+eFJ8GpSp194lRSMqLY/ziuQgfG3
B9SnhuXgG66NTf7gLBi9bea1QeQ8uOjex5hOWwRFyXpKzoUl8OdHh5WFK6i1
G7GUlYkKSJXzNSVoRTFNLhWj3GavCY4SjVpJ7+JkLYNlJ/idC7mopOdlR9Zd
NPiOVmuNAPU2udcofYfa05uqODorIDlDlskpRZMuaoSf5qFjZyi0GAEqDIka
OilGiT1DppEStLa3pTnYYBXUfTGSHWSGpjXORR6loqwyK1KAC7qQwA/0JdDD
urdmDpaiQlJNO52HGi5157kLUPnnVUc3MVoiOnfdWYKu1+aEOk2i8eX1VMfv
qHvm1/f7Fajg0gbfbh3VTzRNsSUrQSmbMLI2QAOPpMhpZmgrvbBrH1XJNLbz
JtbMlUyKw9MiS1vsXGp/7F4X7Gg9dW0Lb2ynZXoThcAe7xOt70jFznxg4W9U
ii0LCu34VaiCDiBnWL3NWYNu9D8/NtuwAe1W0dM7VPcHd86Ip6GM5LnZ8RTC
5pBCDfr5N60W39/q0CwDTcs8NTJ0GsvlwBOSJvTA4wV2rwo7IVV1bLe2FnSl
j4sqTGsLtCm3jdtnshX/yaSx0zuxWf76Xmvm2H8Bgsp9eQ==
        "]]}, 
      {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJw123c8VX/cAPDLvZdLyigjLaNklDIqK5+DyCalpKIUSTQQIRk/aZBNZO/S
EomozrEJZa9SKBIlJdxj3Pt8Pa/n+cvr/eI43/n5fj7ndY6kw0UrR04KhaJJ
pVCWfxobrdJbkOQhhuxfTR/wI0Gz5NoUYyMPMevs8NISeZvkRKqIOA8haejH
MkXecPeoyWYRHkLFdX2zAfIqsp6pJMRD8Ny9sEkbmX1mdx6s4iHiCgqYyshT
rTkHzXh5iMAV4jZbkAe1VnMc4+Ih3DVFtIWR2x4EPXXm5CF+MXgecSJXrZk6
5sViEI3Brum/fEkoCrTjCZlnEJYz79Z1I2f/bH4ZPcsg/o6+lXiNHGejeSb9
L4O4v2b6aTryjZqHgk8mGUS6m1R9ILLXTjG8fJxBHOIXc7FHtmHMrO0eZhBp
Lh0HhZGNPE/Xf/3MIE6IBqb89CFBY7DN808/g7j7nfCoRF5f9vQDXweDYDX6
t59GXrl5g7/4Bwax5cSp40rIrMgwedkmBjHK9cBn8Srq31nnG3rVDAKzHfAI
Q27r6FY+gDMIZ9nigxbIVaA/aFeB7r+vvFkAOUdUStO3mEH4T/VGhXuTcLb+
41RhNoOIBKWYs16ovSrGaW/TGUR20sJ5MWTD9DKT5mQGsdXw1q+6KyTIe8fn
fY9lEA1sm6n1yJMyFsc3hjCIsvX7VZ54kPAl5g3PtkAGUZMvc9sEuZWlUKp+
jUHs1NmT9N0djW83Q8jak0HgpO5fMWSv0Kr6sDMMwm6woOPkJdSevzuvJJ1k
ELw3LAx+XUTtsUuXyj/OIFKTrG97I2vsvuZfdYhBmD15EX7jAglLI7tUyH0M
wr1DduimKwkh+g/TnLYwiO71d4pknUkgwnwtN0kyCO3EHpGbZ0lYbDPh7F3P
IGamI+W/OpHgYTfpaLSGQfgZ7/GMcyTBwVtl+zYqg7gYzyXxyYEEePim4s8g
NxFRuCWKdoKEeb723msp3ISuza6xYQsSdh/MvrMrkZswzFi/hRPZPclTazKW
mxC0iWndZE7Cjy2iGfZh3IT90kjEYVMSerWPn9X15Sby1ghdKDIk4eWl0Rlu
G24CxBxp8jokXO6cF4pdzU1o9HrJmSmRkGBlYRvHz034rUytPbqThNet2Znx
K7iJiTUHux13kMDVYrozkcpN+Fu2Xby2nYSU2jSz1Gku4vrGMq0cORIaXure
yu/gIgp3Xxf9JknCxqQ7SxWxXMR+v5Nyh4RI2Cf6Zd+bSC5ih9uTY8cFSTgX
rxL+NoyLKDvV239GgIQX0Z/EK//jIr7YCn70WoXW7x1FtToPLiJ8TWtmOi8J
nn7t7q0HuYi9G/jVeakkvDshPvZtNRdRMBEc4v6PCRbpWjDPz0VMPWDVx08z
oXPQLoGfj4swKt4iVf6XCQOns/dp0LgIIXMfZa4/TJg6ty0z8h+dsBzmcHn8
iwmiXtq2Gl10oi6sz3r3dyaklJ58btFGJy6udah3G2WCBBnMcGyhE6bGhY/z
Rpggf63+ZWQtnYg6ODK2/hsTtIMtV4+U0IkTv/or1w0x4UyEQ3NkAp34YFBf
cPYjE358CJHOjaETBp+tv5b1M+GCYL5veQS6X0HbtxXI3nETsiOhdMIxI/Jw
aS8T7tz3vKHhTSdi+Pqub+5mAv+nhE8WHnSiTLLpVkgXE+I2vFJxvEgnbpve
Cx7tZEJqxtJQ5Fk6saLbyaawgwmFeaHaI0foRH4e98rjbUzYNfYgfv4gnVgv
qiXS3MqEcrmmn/yWdOJOvbuKNnL1Y/5kDUM60Ri0rkL2AxO6ixLnItXoRN7d
DVdEW5iw9LagUGMt6s/WUjH7RiY09+/gW1hDJ4rMmIo/GtB4zb44WyFAJ0rG
Ojm8kLUU8Y1aDDrRUSn/+149E/iM9/kuUumEnc5Roe3IHx0bu16zaYT65bvU
2jom+KZ2hO+doxFvKpJPLtUywfiVzdjSXxqhQ43sTEVe2zWg93aSRiwJlMvo
IJfxjc1rj9KIC+arrkTVMGHWb9EZ66IRQeFpElbVTKi7F1RDaaMReyve/eJB
ji/mkqhsphEPaI0lNVVMUJ0Q6NGpoRFXylm6esg07gRlTgLd74HDKm7kTql1
EVUVNGLa789gSyUTPGy36OsV0wiTiqW8M8i6XgUZ1Gc0wlZ6MV0VWShmx2J1
AY2o2L31ETfy8JMXR0LyaIQ2L0/TAMGEokb14n1ZNCKxSpizFDl45O0qehry
tUdWscgHOPa51CbRiK+7hHB3ZIkNjbU34mnEvpd+RtbIU2rmkgbRNCLUh/pP
A5k41HGN6y6N6Ep6SkgjR16y6a27RSNKy88/50e2Cx9QuRlCI8L/CTWwcCYo
PnCI3B9II9IJR64/yKzq7+Pc12hE08iqC6PI77+4GjR404hcxyzKF+S0hT+Z
tzxohK5LKt6P7CbqvWR4kUbcVHV63IespbJow3OeRvCsMG34iMxnEfSi0YlG
3JG7uWYI+ZMLl8AdBxoxU6gW8wP5cWjYeWM7GrFwz0V3BvlalkA9ry0a7xR+
GRpqr8nbeKkmaxqxTpWqLYIs3i9+PewAjfgcyBOmgDw+k95nYkYj3ul8WLkP
uVxwyy4+IxrhX/+jzh759vaCqOZ9NII+1v3yOrKN0Y6f4RiNCJ5eHMhAlnV8
sd9Mi0bYPyzQqkNmBqpnr1SjEWKKoh2TyPUpb1ktKjQih8MhUxzNn1NnQ4m5
Ao2olb0/4oe8e8pMkH8rjVCbszj2HJnO1+H6QYpGiCx4MsaRc/QGpC3FaYQg
dyK3I1o/nvYOAQIi6HrFDJt85H1+3/tbBWlEFqHw5Sfy16I/0Qd4aMSK/v7b
QWh9pnDNB9vS0Xxa9hk3IR+25fQ8zUEjjiR5doqi9d3AsfrwFZJKeNyf3PsK
+amlqnjSDyqxJfOv6Qa0f87maK3IGqEShQs2u/2RJZj7FguGqMROabsvX5Bj
060/v+6jEjKr3FyeoP13ddIra7CRSgRKEHvOof2spBsQ+6OWSmjVvP3zGXk8
/mbI30oqETPWdeLIOyac2JvoRCunEnkWKvssm9D6D38lL1tAJTQSOFc6oPjA
J79YdPEOlRCp/HuB2s6EWn9aztVQKrHnkYFyNvL1Nr74oGAqYbJ/R4A+ik9/
rm7wjvWlEhIflR5Go/jVXa+tWepCJVTbrIb39zAh0zGommVMJeLp1A7ZASbY
vrr9gns/lThrZxz7G3nNyphcAT0q8fyAdHbZZyaEvsi6KaVJJU7LlmUcGGSC
K7XGxECBSrQcXn0/7Suav0yuzrsrqISsg+GNjHEmaHy43KjDTSXUXMffpU6g
+L306e0MJ5U4kyxzMfUnEwyOFj88Mc9JrKEPlWVPMuGI4MmA7T84iS3hkzFN
6Dy5GvRKvqWOk/C8c0k+eIEJr065BvEFcxIlFq5brdH5pSXVrhjG5CCGNu3I
K9hDQsbqFaoH/3EQvWKa5qQaCVT6PvV1UxxEkvf9TYYa6Dz7XqL36DsHkea/
T2RUC+UjT5Jsmro5iN9nONSldNH5p3YqeEUJB/E4Rcc5Bp3vj82nusIucxBh
4+yXPKdIEMDkPh504yAkikbuG6F8wkPJYXDdOQ6CPiN87NZplM+s6Rx/dJKD
YD6K1udE+UhDXym7yYKD2P52171RFxK+nQmQ41PkIEQMC5rOeqL80G+Vf/g4
hcgvZPtwhKLzOuedaOoohUh+QI+fRX7ZElr0ZJhChEv73P5xk4QDEuzv7/sp
xPv5658abpMQWvvbSrCJQhytKtJyvUvCb/422YRHFMLH5X2gdhwaH/W71Xn5
FMLslIrGyngS7jgY2ZVmU4gsqplBH/LmksrY3mQK0bUufde5e2g8bItY4uEU
wiNWIOzsfZRv5sR2prtSiMOKcczudBL431tcLHSmEErGFnzeGSQcn1vBW3mG
QlQzH/9ZnUnCnFEIDB+nEK+ZNKF9WSj//+1ZsNmMQqiJ9H24lkOCj5iS/i4j
CuHHseUeZy4JdTq/vujrU4jSaMu/Icgn4xyFz+6lEGn5dIOAPBLi1Q8HPtxO
IfaoC0cbPSBh2EFoXbkchbArtdhSjLwz/H3Juy0UQjyvQ3DtQzS/nw0mJjZQ
iFO1ad19yKIMaujiWgqh2XM5Q7WAhDNKuMRKEQoRfTAvNwyZ9d+ew4qrKIQ9
zyt9xUckmDyZntLmpRDDfh7tPsiJ3c/CLLgohDrF8Hol8ij7vMxJTgpxI0db
l/6YBCcry+ChRTaeyOUiqo9MyW0o5Zxh48Vu32cDkZPnsF/Sv9j44tfPfWXI
u41fSemPoN9b/PfqJ3JripKN0wAblw0Xilz/BF2fczFhoJON/wze22WCvPPR
k85DzWy8VWetiRfyyaIJoeZqNn7aQHUsGTnqldwBvQo2LkFsy3mNTBBnI8uL
2PiL4kKvXuSp+twWpQI23rbh+pHfyBIfvq54mMnGbwif1uZ4SoJlt6SxRBIb
l57cK70KOXDA/ta9KNQ+m6UlYeTCb6l1q26x8R8hGXViyIMTH2mhAWz8kc6e
KyLIAtNr9Za82LjohmEOfmRs/kiQ5wU2LhLSfoYT+RJHAj7hyMY9howTptD9
MxidSw4n2Ljn67SIPuRWfiGt/kNsnNajbPBmuf+ilr4HTNm4uYl/yXL/dm6M
KGvQY+PTD+hdnsv939I8C5ps/KmgY6rhcv+38e4qVWbjodYG3KLL/Vcx9FCU
Z+NBq5xWDKLxndIIfZ4rycZ7KmKyspEtjTgV4wTY+FrefDdx5EBLzHUFg43v
EQyNbUHzW3jkekEwm4Uvrji10w9ZwGle5vIkC+c+Wl1ci9YL5qbmODbCwv9o
doU7IF/y9Mq2H2DhaQ7MShKtt9bgv5vMm1m46ylrGVFkyp2ddrXVLJw6/Mww
dXm9Rl9I0apg4TSpE082IEelj4spFLDwoMKqzSvzUfvzZI9kZbLwXhdVhWto
/U89cYpfm8TCvw6fPzaC9ofl62FBxi0WvrrKQzIP7afAagnLgAAW7l6Z+Ggp
G7X/nV3ErBcLt2zbZmiBLNDXzzviiK5Xkc4aRPuzdaadWqXHwm/Fb8Yq0lD7
lgR01TVZuLTNmprhVNQ+mkVgoTILF/L02UFDjhJqWkyTZOHGVVkPVJPR/XdU
z/ixl3CTl10pJiheBO7mUJ2eXcJ3Ve3v1ElA998L7i6TS/hKB80WJRRfBEwr
Jm0GlvBznTv+smJI+OBc/H1XxRI+Gh8cYxZBQvuXOUvt4iW8U6MpTgbFr+7D
WuUGj5bwOoE7PPNhJHzaVxt+JHkJ90rT1Y5C8W5cokfJxw/9vctMsE8ICbS+
eb/Xmkt41KFLm/aiepphCSM1Kku49s2PixWoHl5R/595i8ISXum+S3oXqn+F
SvgkP69bwm9Ue+mKoHp2U/TGOvbCIl5+dDAuFtWbGka6AnqvF/HRstc8PnYk
aKNM0OTFIm4wP5CWfJwEnT1NwwcfL+JHDzIdymxRPb3lUMmZlEXcIuqFx+Bh
Eqw5nGxDry3ii2lDyeOoXrz06nZOo9Yi/iBO4MToXhLy5NrULN8s4C2sMRsf
URKctz6vDCxZwHc+Ff/+aw2qx7dEGz9/soAnY//1HEf13FOJA8eF0hZw3+mM
IbmVJJSKtgV0Xl/AD1cfLQzkROcLva3OBlvAG2J/8Uih83RiqPXQqep5/N8m
pxytCpS/fCkciK6Yx3t9fLLZpUy4NBDlVFU8j6sLGe9884IJ/3otr0rnzOOh
Di4LW58yYfFDa/JIyDyeakzEvs5gwqq3rcPnDObxilXlzV9DmLDzfusl90YS
vzzyWEXLiAm3TL04SYLEj1vp+lH0mTDIWhcXUEbimwMbKt5iKF8+fbY0PJ/E
G90T98ipMWFyG2sp7waJ83p8CXspg/JVXCHsow6JR5qJWb7kRPnjSGjuvnIm
7u13ftO5l3MguXNvv8ijOdzhgcrvnJVzYGr1I0Exew6X8dZTPs+Yg6ue8QcN
kufwaKd+ze3UOXhf9qv5Stgcfjn0d1EOcxZ8ddLwzvNzeAtPXdapr7PQacXO
idmG3NknLFo2C6FXKi+uejqL+/Dfswq3m4Xxcn061/MZfHDx/JBXxgysO19x
yjt8Gj+wtrKoo3caWO+Ecqcu/8Gjgw6M0cb+gAfwHTo3N4nrB+uYJ375DWUq
LcRMyTh+9b0OUPUm4JlgXaHom1H8r71/ZknhKHhoJFG1Lw7jNqZ9Kn2pQ6Bx
w95wzOUTniTPtauroA8amf65diafcHVZA465W31g45rC2aXwCf9mt6Je/mwf
XDnY97ry50f8jBebt1G6DwolDyolX/iIm0S+4x1N7YWtbw3Ezd378WehPHXv
43tgzdz2n8U+vThHW2tXdXwXZLuYGsnb9uL32pRtb3l1gfJnl7wMjV58Q2PV
fscjXWBZm3/y7kIPrlBTv+3c2i4Ii5XscvLvwdtXHKtMS+sEzp3Cb9cGdeMD
7cTKyScd8Nt5MTLgVideLXdYNnioDTqfKgmYO3XiLiYJsqeq26D8n1PU+n2d
eJjuK+szuW0QEtgW9YrdgYv9NFXuPdcG4ol50dNeHXiFGaXl2r9W2FdvGXvW
sR2dP+te/hZohcQtuQkWuq2452PlrQatzeB/vl9ko0QrbtnsMbWQ2gy1DpsU
+xY+4CPvgcHj2gy2vv8UV3t8wOOqVwzJ8zTDjYdpO2+eeo//ueGon7S/Cfq5
p1Uuajfj7Vuf6AV0NcJ/NckawKzHt6s8y8PU6mHsvXqsY1k9HtTuIKy2ph7M
+3omwq7W43HharmhU3UgPrk6tZdZhx+1sTSWL6iDQtFw9mWyFuepu3ElVrIO
Blyu1eTMV+PxGTJxcpK1oHtFfENTeTW+3k6/qpizFh4ElF3541uNj+wOtEj6
VgOecf9ktBeq8PyAtADvhzXA+9b1ds9CJc6slusP3VMDF6TKU9bM47ir0ybD
zY7VoL5n1uyUL47n8h/jDzStBpqpMvvJ/Fucc69VrYZqNSRfKTi1f+ENHn6C
u6GFVg0NDfdlfBcrcPk3dbcuFlRB7EB3T921CryQW1ehIa4K7P4K3V69VI4b
dW7QDgqogpl1YROPl17hRuV2Z4UPV4HURb/CL6xSfIj51P8ddxX8+q/01LaA
Uhw/oGinMFMJZYnTQj7sl/hF4jX713AlWFSdvyJEeYk3nL2xKQmvhGvCxzX0
OV7glXeHeu74V8J++cSJ6KBivK/Go3nJrRKEoDPlM0cxnhPunNFhVwkPnU3Z
3pxFuIu6q9MDnUrortCqKaAW4lmem9+QKyphvY/D5798z3CJKLnsGjYB4b4m
qlFCT3GuUofLv6cJOO+/YfDdhsf4dtNbMo4DBPRf59rtLP0I53qUpFnYToBx
4O8wulwBflxdNv5YAwHy/1XuwVQf4AJ45rmOFwTcDym4O6Cej+csxPFlPCKA
NzT2qy/k4Uwz4X0tWQSM33KMLDHOwWf0bMuMYgiwvWM+YmWZjadrU0ST7hDw
LmyP5pR1Fv7v8oyZ0X8EPIzg+S5/KgNXOi8Q2HyFAGWJEZ+oljT8xI/vCekX
CRCSLt3S1JuCc6ZfftNxjoC/W2630b/dx/89j2c7nyGgTfaYP/Y7EffZe8XZ
3p6AQoXtcn7zCXjcZhfOUlsCohTZnSX0eDzqO1fPxcMEXFJqC5wSiMVjron8
vm1FgKVq9jaF9dH4HYUUK7oFAfYXxgubzCNwE7cOxrAJARs9Ixg6jnfwdy07
xCSMCPjso3zypV8ontB2PBQ3ICA1oLtUISYYj/u814bYR0AZ78xG3QP++L+t
k9FSegTsEdn7ftv1K7hyKrF7VAeNvx7vguLh83jEJzBagdz6QrWYcfIIHiKr
2BSNEdDp+Vhb+TlA7Mkbb3yQU731f1imnAaUREpUI1sW2tbuzbwMx/ldp93Q
9W05QiIHPX1AT5e+y1cXjaepo8qL7EB4NCT+9Tu6/7hB5UftuyFwafj1/Et9
NJ86G0IavW5B6qTy1e/7UXs0fbYdOhkO7zwXD/sYE9B938Xl9+YoCC9vjXY1
I2D2XuLbF2tjYOffNKlKSwJE4uuEfFfFweODEZzeh1D/Yv45ATUB6tVYchE2
BNhESlXQmPfgmFZoFNcJAq6GW/K/+5kEzOOz2wZPofEJfVx6qDsVfOt/fH7p
SkDvf/0rxJvSIfSM7OdidwKuYbTC318ywE6iblTQB/V/rzKtpDMLjnHxfpkK
JUBRy+ip6Ids8EvaVXQ5goC3GidtfBtzQCemyfpgApqfPRGP4W0evMzFm9Xy
CbiwO/dwVlk+9N719NcqJICl+ppCL34AzTTdVxmv0Pwqjx96l18AuLpdyJ0W
NP/bDJYORT+FwzStDUMkAVqJeRGzGc9g9Og69ymuSuALpgqY2hTCuKdR/KU1
lfDj1+nMX2efg8diWHXVzkrIqt1cs/NmMQTwM6YKLlRC1EJnOAf/C8jaI/Zb
K6ASrivdsG5PeAGDOUeTtaMq4VjqyKhHXgk83Lr3SFRxJay5ksdTWlsKRTbj
uc7sSuB8dLj9plkZFItJ2HusroKpQa5km64yeGPz0OHn1ipoMT27bf7bK8DP
rQuRtaqC0M2yFntpr+FqQVRi9aMqWPxx6N0pSQKe/LDkt/aohmnaE0VjRwJe
xoQeVYiohvFN9FjlhwQcusjt4vqwGnqtS45RlSph5WHnj9uHqqGkUvhXDlYF
JknK5XnWKN4mdfOP2deA+dwOULGqBccXip6t2TVwfOOmt/EetXD8Q2hv2fca
cOVeGWUXXwsm9D2Zty/WQmWr4R/J/lqQvXxPWSGgDm6tb+91cq6DIUMb6wtp
DTBVu5Oeca8etEeunWoZaABjl6tY4ut6uB+U6bZtQyOcn59kfRuqB6vy8Rvj
yY0wMXHjo+/2BqhS8H/plPQOOO7efh/Z0ABZq7JE7eOa4XLwl3zxVe9AeXzm
51b9VsDknhv4dDbDSTWGR8+ZVvjv+rk7Z6ktEBEqToaGtIK+ayQtQ7kFxqWA
PlrdCk9f2ahMRrdA1rFbG3J020D1c3fozMH3sLpF3FwCawfp79VS9iMf4N8z
eCam2QnlZSdOBae2QbOCptClE50guXrwa0JFG2Tn775SH9AJAxWi/z70tYFV
+nZNr5pOsN499eapSDs8j1hX32HWBQfkuqdEY9rhgtvc54iT3cDYu3r7ycgO
+C7/bBU9tBcmN+gyljK7oD9344U/rZ/A5VLQ3iGxfvC7UGFonT4MW3yc1FW7
h8AmY8eRlLujELsuxOzf1VFwutnI+aV1HGyfp2krnZqA6hAFhfCmSaiQPnSl
7vlvsBMcqVpz9A98SkgeWvjwB6Y16rWHvKZBxCPL7EPtNDy7uJJ0uDQDE/9a
jrxym4GfHTvn/l6dAVb4j+vXPWdAXu3QTHDQDGzKnBoCvxnIoST/yYqZAe9w
cdPSWzNwP1p2fPjFDMj0+OtczZ6BkGK9jw7kDLjeX7MOemfAds7njUPwLPSq
BFtVac8CLWA0yCFuDopPeQcksmbhggfV+lTKHEyo6ov/QPlr71kJ2ZM5c1An
MO20i2cOHlvavj/xApmyil65eg4OSb0XP9o5B+1CrIFs2TnIri0ptljDBIbs
Lsu4A3Ogy3djRCuOCVFlKjhnBrqeklWmmcIEvanTbpXo/4rMvA3TyGHC7Q7v
/X4P52B8gKmkhuoAjId2cbBoDmKeuV5X6UR5/Dlv8Uu1czBsdUhUHtUlxxTF
HTN/zEFQkrSRaBwJt0+o1OxUZMI27tzFX6gulH8DNWrKTOj1lCmsQXVnFm3L
I83dTFC0lBN1LyZheuimhLI2E/q5dow0t5Nw9V+g5ZAZE1Q9NYKCBechXf+Z
kIErE0bND7z6FTEPT/NfrBPOZUL063bXmoR5iGoM0vR8wAQt+UMSyWnzQL+z
8kfLIybE0I/cNHw6D9bJ/327VMQEeH3cOrtlHm5ZcElewZmQKOf8x4ZvAbSy
H//17GWCCS1Arub2Auy4Xb7XgIuEk280OvfFLEBHjdTR7TwkeHnNXq+9vwAf
iIjWlXyoH2NunXWPFuCVidGHckESmM3HAxpbFiBxZuZvzXoScuI1ut4LLsK8
1FXdJCUSys1nAyzEF0FnZ3GtsCqqd7mL5FulFuFz8sGUsN0kzPvIBbapLIKd
5dp9pzVRPW0nptBpvQhb86VDqvaRsCgzG9iXtAimcf17dFA9KTT4XME2axFk
nG9LHbQhYWuSW3d/wSJw8kW62KH602rFiMKnikX420OInkL16oPfHd2fBxbh
XQJrlagTCW8fRAbZjy5CXJU437+zJHScMtk2OLkIASGd7u/OkcDqqAoaYi9C
6am3IafdUP1a9nzbN8kl2Na14Z+BJwkul916zsgvwQYw8/59BdX78nLBI8pL
kF9vfyUa1dePUzJ6RvWWQITH8melLwmcQZHBPxyXYGGxVKArENWvRm69kw+X
INact60O1fNTMVI2n58vAXX+3/rpcBKUP/X0tLxagj4egdG1ESS8vKDb87hx
CernFBYPR5GAx4p2u/xYggE8PzoSrTvOgWZr2z9L4OVxWCIqnoR9MsFdRuQS
hHa4GYQloHq47GenLA8LxiOEz15OJKF1oLJjVJYFDi6HTy2hdSq01ftg904W
nBv+KdiRQsKhS9s6atVYkCs9452dSkIf5732HEMWqHIHeKqmk7De1NQqzpIF
P7XUVs8g28VztP9nw4JnB9q9CzNIGN7q2ubgzAKPltfZolkkbL4secDqEgsY
Bq89qpGdyrtbda6yQOzJvLgL2hfjpjqtErdYMGSxi+NBDtoXl0U+fM5nAaE5
+GQ0j4TdFU3m75+xwDzvSdm5fLRPaEHv35Si9nWrEd+RFxMmWlLqWZBXf6yv
8wEJ2oMZZuEfWHCVTZnRe4jmR+5wi18PC/w/XJd8ikx7TTTbfmcBVlBR6VFA
ggHdy9T4Nwuul6C1iXzLXKFZfY4FhzRXfdvyiIR39wZN5Nio/W+PFXsjrxyK
bxLjZgOZbVVcg2wpb2LC4GfDzq2Xf/A9JiHGg9I0J8KGuH16xyyRRbjOv+uW
YUPfAy9GI7KNhYRxnSIbtNerWrCQ7yd2NZbsZsO83YkxxSckfBq6Y5SrzQbx
XVV9tsgbFbDGOAN0v1cgF7z8vM9zxjDEnA27zIhPOchZbwoaPA6zwTxAc74K
+RvXScPTdmyYXSq5+Ql5q6Vwg5UTG/gCdcL+ILskvduve4ENJs8XeZefRz4e
DqhX8mLDww2rVy4/75xU2LVf8jobTqx/c2/5eefOK+N1AqFsyC6H58vPO93f
phtQItiwNe+nvSjyC27rut/xbJARlSoQRJ615DX4ksqGveXGCdzIavfx2ve5
bJhMGpAnl9un+EzL+SkbjtzZ/ugbcnR1WjFHKRsGLm2SakLWtomQT8bZUPZz
Q+Jj5PGf/pmqDWyw2ZIjfBs5IchN7H0rG67m7c0+iawnciLybB/6e81QI5Xl
57sFplwcw2yoaJIT5EBOAS3/++NseK/8jfMdGm/DToV/KtNsWL8haGsE8ozz
uvMtC2xwHPx40wy57Tr9sgonBdO3/rKNgbzVyH9bIBcFZak3Nr1F83199cz3
Zl4KRtr0Ol9E7hxwzV7LT8Hcan4LrkcOdD8uXixKwbQXxR6cReupW6uzi72O
gq27npvPhbyN2zTaVIKCafVPKGSi9diXrMkYlaVgzw+ojzUsPw91Kq5W3k7B
vnFvVzmMHLpTISBAiYJd9S6W/YLWu3Kt+KyYBvp/YmPq39D+uBUZ89xRm4Jl
2f92Pon85SivW5EuBUtT0TzXm0tC+CT51cSEggXbD9Feo/01ItrXdv04BTOt
/fHGCu1HrWHLu00nUX/XaoU/zUTr93GDoZgj6q9cnB8XsrZOGf7cjYLNMURG
C9B+T3S59+TbdQomkMTHW4/ihfEb69vGmRTsi9q2J9Yo3mTcbNl3L5eC6fUr
O19F8Wj2gD7l20MK9jZzZOIeilfZo6re/kUUDOf3vdoSg/Yv/xrHwmoKJhKs
3r06EsVHh3ZMZJSCOQ6u0xC9SULuuWs/zccpWM69/SECoWg+L8kk3pykYK1/
Nthx3yDhznXf38xZChYlKTHxK5gEx/tSaR+5ObDO4aex6ddRvGp3X8iQ48Ao
X5080lC8vqOz+qWCGwemd9LFx9oBxSOJQwo6/ziwYFPVEZYaCR6/fXWUmBwY
+WxlcN0eNJ9vM49ILnJgpZKDxhHovEo+/vs/DhonlqiKB25E51lr4p1Plas5
Mf+6xRO6O0hQF6y8q6vCiSXtXvcubQsJfJyKU3runFjv/c2MQSES1rYd4lL1
4sR+sHCl1+j8lMnwW7/ZlxO7ml/okyRAgo52oyEtGF3fsj/wyCp0/vqeyayJ
5sTi9jZsHUbn8Ze/9630n3NiRzRVSvZwkFD0lbvEYIoTKxIPH+b/wwTP3qa6
sH+cWFTxzAT3FBP2tET2tjI5MUJdfwfnbya8fim6aMtBxQzu3r2+9JMJtbe3
6l0UomIHjPmZ/D9QvrJjf9s9VSo26dTZ+XCICfc3r/j6SY2KjXs/9m0YZMKJ
tR/+Se6lYi9637/+8YUJw5xHxB7rU7Ej35IUVD8zYaLLyZ44TMV0Upb0f/Qz
geUX+mvsKhUbNo591YvyKOKSMXu7PxUb/LMuQBr5P8dVgh5BVCyX12z75Q6U
t1kkqC7dpmIC7MSDwu1MEJTK8xNMpmJ1JXrKQR+Y0CnicvdwOhWTttj04Ot7
JiSsUExPzqZi1uMbNhshi8+UVG15TMU+ZvprbmhhwuaGWh6NN1QsTsZ27/g7
lE+9vr0uoJKKPRy9qeGI/PC52faaWiom/sLW+msjys+SuyzN31Mxw4GRX2MN
TJiKTHKIbUe/bzx+6RJyUcgJz95uKrata2btQj0a3wsj9xy+ULFjYpSJtcjz
Dg8f5n+lYoVH3ESe1qHxPuJW8fM7FQP83yV9ZExn5rPXFBWbmN1b7r/8vska
ukwYBw2LFOtpWFPDBOk2/aybdBqW9/7Mv/pqJizeDd0YwkPDyvq1pvyRn3Az
RP0FadjukIVjf6uYEFpjGOsjTMM2JJi0FCLbBd3m91pLwzZOlAm6Iwss8DIu
StIwtZy/wkuVTBgrNQk5v4WGObnHddchV3qGU5zlaNgee9b5WOT7Si3Xzmyn
YYpM124HZPfJleRJJRqWdZxXZBeyySPzKyd20bAu3Ul5XuTNzpF/jqrTsPNL
G4SHCSZ0DQmMW+nQsHWu4ufuIz9NO+BkoU/DAngT2n2RQ4/FDJsY0bBM+woB
O2R7sQ47QzMa5rlNVXr5/Qq1rtUf9x2gYelz93i2IwvEHDqiY03DKoVdq8WQ
f5jHd+w9SsNkiqQtuZGrVnRbaJygYc09m54xUX57v0GkefcpGjbs++zLT2SP
G0cMVRzR/YL5h74im+om1uw4R8NudrgUDSBvZvdi29xoGKdtv9Xy+yZLFWvf
yF6mYe7CjpXL75t0X7VV33KFhiVJU5aW3zd5uiu5RNKHhp1tjqAtv29y8+9H
pY3+NEw1Yrh7DPnks/VPxYNomLl8hfs0srrrCXnRGzSM+byum4LaKySXlrf6
Ng2ric3kEFx+v2Tks5TAXRpm9bD7z/L7NNVZm9L5omnYZf0vuerIKfYn1/HE
o/brSq+3QvZcn3mPnkTDZgRJKzdks76h1ZypNOz4u1zDMGSZBKkoVgYN01U7
sfAImWV1mm8hh4bd/6Vz7gNyD3/OrbkHNEzPyjFqBvnW7S1BU4U0LOeYDacx
ms9TBk5LP1/QsLCEGcOryBrUfJ8fZTTsdqsr9hB54pqs+zBBwxjf3qmtRuur
Rv3c5Oca1L9Kpqpp1fL7WA9dPjag9fk+ovcmsvklhdOdrTQsVqlpBTdavzLb
Xb+0dtKwqpOqCcbI7B+Pj7X00rCEe2FvopALTyseqhtE40nr6dmM9sNtiYut
Vd9o2BYfvlp3ZIeBZ6b4GA0TzijSq0ZefURJv2yKhun4bP5xHu0nL2PV3QUU
Osb9kun3Ee2333r5WTE0OuZQF/5AE+1P573i/H4MOvYxbaNqGvKxnZQxEwE6
VuHzz9YF7W9MpDnp1yY61nXR4+ZGFB/K+YGrW5qOHS52MI1GVuEpcn+7lY61
ytsd4mpC/Vm8ZxK5g465qARvnENeMXx6aSfQMTX14R3TKP6EfOw+t1aPjj17
N53pjeITq9Oom2M/HTv7qGMPC3mqfsezdnM6Jrl08a1gK1pvTxZOetrRsY5r
d4kDKP5l+MTWlPrTsaOce94o9TBhrQeXUkYQHdOYHXboRo5x9Um9dQNdf7zj
2zVUz92wt/c6epeOGWwVd/nQxwQXfQXZhRQ6dmlaYer2J1RfClaHab+mY3f4
zXwsh5nQ+OCvVe08HWP+rFjLmmQCs56zgpNNxwLWP3IdReeFzHchaYzKhR1I
8Nncis6T4C0q0+UruLDknuic/L+o/szyiC1cz4VZ/JsSdJpF85f8ryNZmwtz
pFYPr2WhejNi9pB7MBf25FPuZhl0njl7zh/exMuN/R4Jv8CHzssnx27KrVnF
jf3dNKfMQv6ru2aRIcSN6fGuuvx7Jwl+goqZf9dyY7zaJVirMgkRT09N1Mpx
Y1+dhK/dQedxyVhDgKsRN8ZFOo183IvqoRP3Hry6xY297vjbUW9Cwv59m/2e
hnNjKWPqvSmmKB9SeG6WHcWNtXQaxV8yI0F4/t3f8ERu7Mq/bOk1FiTI3mNp
nXzAjcn8c2IaW5Fg3ubYxtXAjR0rkPjojurN2LK/2QtN3BinImNs51ESetMD
vKY+cGOJ/+Uc/YV86kLSuv4ebmxg7vSRU8dI8FzR4vjkOzcmzWOxexeqR5P1
VecPcjOwMtEb7svvx8RZ2TWkrmBgo40l69TOoP7Z30r4zs/AJvZcCBtBDvb5
pOwnxsA8iu0fqqP61eVJyPksOQZ2a0+cRZ0zCWfKn6r/3M7AKtV7Uk6j+tWu
vpd7tzL6f1Umt1jIVkPbcho1GNiXrCWZ7edJ0BDu+jRlwsBU2Otpbqi+VZVi
F2hYMrDUKY7qWWTFHXI+IYcY2B2mx6L/BRKkjPyFxU4wMA2pjPchF0ng9d9i
DhcYmGf1lyCPy6ieumOx/rY7A5vyd8kbQ2Yl+Iy3ezGwmjcfZI65o/ksbAl1
CmBgBwoPbVfzIKH/2xX8bhQDW/mTOtOG6unOP+l3e+IY2LR9RLISys/esxqP
SSYxsF+d50IikKvENjJfZDKwZ+FDgpgXCa+3GNaxchmYhbP48zjkl8rucYYF
DOxc6sDNUeQC07qdn4oY2BV5+fYgVI/nHJ1ibSllYCa+S1gTcpqTeMvFCga2
b9fvAcGrKN8NvHCOWsPA1lYUJSUgh99N3GPWwMDi5v1fdCKH3q+i32tmYPaP
bGf4fUjwfSGSJd/FwP57qTjsj+xZiV3y7GNg7NbWO4XIF967aL8dYGC0mT6r
QWTnj3F8jGEGhpv2qK30JcFh7G3/gVEGds/JVXMP8vGZsQfJ4wxsXPvgUTvk
w5yrvUcmGdheo+PRwciW/Hv1d0wzsFdXLwxnIxuvP7vaZ46BCRveNKlC3icX
PVS1wMDaifKmAWTt3RXP+Cg8WH+QisMsspreiP9hGg/2X63yKj4/VD9Y8ptm
MHiwYSeBDxuXv0c4oS4+zseD3RzVyFFElnE5PaYiyINFX9hzVxNZwvvuS39h
HkyqO/O2PrJ4SGlI/VoebHvOtqTl7xd2fCk8OIbsmF9Qvex9GgVSPOI8mPtp
/1/LdptKIYyRv9MkwQyZOB682IJ8fuRk/7K7Sv2aJpF98kPYyx4XunKffx0P
tk1iSdoceXXjWbUDyP+p/nRZttMuM89O5K3DVVPL9osy0JtBjrUKF7BAjpoA
IZH1PBjuXbBj2a8ylQuPIAd9+XZ+2XyrxH72I//caPVp2ZLnBCsWkFN3VM4u
e3cN7531G3gw7+kQgeXvNex9l7baIU/F8uouu2h0+PQQsr7KqtRl1+t8Uubc
yIMF90oVLftTSheHNHLyjvC6ZdMPNqSfQe76e/zXssWfVl64gVxoV8NetiJP
xd485C9+gYLL34vY4E8+fkd+1TirvGw38fwCxiYeTHa+UHfZwVcyfOSQPT/i
B5b9SCFW9DyyWuFHt2UToeGjYcjXs8d8l905dKPkMbLWfuOby2bdu3pwErk5
fUXasldPX5bil+DBvA6df7BsWfPzf3Yg73+1qWjZWg/PEJbIO97LViz7AM0u
8jLyxtjQ6mU72R+xi0GmMdSblu1bbrm9GLlzG9a+7Ehh48UO5P84UnqXnXNJ
r+nf8t+Hmn5e9qsmrfvCkjyYWfmBr8t+L7P73G5k67RH35c9HLRD7QiyiLLt
xLLnPslyX0W+eeXE5LL51KS6E5FznUumli0Ruy73FbLLCoe/y941ucazH7nz
xOn//R7n/77Pwf7/+5z/AW71+nc=
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesOrigin->{0, 0},
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     PlotRange->
      NCache[{{-Pi, Pi}, {0., 1.6050040968769343`}}, {{-3.141592653589793, 
       3.141592653589793}, {0., 1.6050040968769343`}}],
     PlotRangeClipping->True,
     PlotRangePadding->{
       Scaled[0.02], 
       Scaled[0.02]}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], {
    {GrayLevel[0], 
     RectangleBox[{-1.15, -0.8680339887498949}, \
{-0.34999999999999987`, -0.2680339887498948}]}, 
    {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
     RectangleBox[{-1.2, -0.8180339887498949}, \
{-0.3999999999999999, -0.21803398874989477`}], InsetBox[
      GraphicsBox[{{{InsetBox[
           GraphicsBox[
            {RGBColor[1, 0, 0], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 0.08}, {
           Left, Bottom}, {1, 1}], 
          InsetBox["\<\"Fourier cosine series (5 terms)\"\>", {1.21, 0.58}, {-1, 0},
            Automatic, {1, 0}]}, {InsetBox[
           GraphicsBox[
            {RGBColor[0, 0, 1], Thickness[Large], 
             Dashing[{6.666666666666667 Small, 6.666666666666667 Small}], 
             LineBox[{{0, 0}, {1, 0}}]}], {0.08, 1.24}, {
           Left, Bottom}, {1, 1}], 
          InsetBox["\<\"f(x)\"\>", {1.21, 1.74}, {-1, 0}, Automatic, {1, 
           0}]}}, {}},
       AspectRatio->0.7500000000000001,
       FormatType->TraditionalForm,
       PlotRange->{{-0.1, 3.26}, {-0.1, 
        2.42}}], {-1.2, -0.8180339887498949}, {
      Left, Bottom}, {0.8, 0.6000000000000001}]}}},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{{3.409690152234375*^9, 3.40969016271875*^9}, 
   3.409690258328125*^9, {3.40969361159375*^9, 3.409693635796875*^9}, 
   3.409693793984375*^9, {3.409693838515625*^9, 3.409693870203125*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{" ", "b", ")"}], " ", "Fourier", " ", "Sine", " ", "series"}], " ",
   "*)"}]], "Input",
 CellChangeTimes->{{3.40969388759375*^9, 3.409693914640625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"b", "[", "n_", "]"}], "=", " ", 
  RowBox[{
   FractionBox["2", "\[Pi]"], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubsuperscriptBox["\[Integral]", "0", 
       RowBox[{"\[Pi]", "/", "2"}]], 
      RowBox[{"x", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"n", "  ", "x"}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], " ", "+", " ", 
     RowBox[{
      SubsuperscriptBox["\[Integral]", 
       RowBox[{"\[Pi]", "/", "2"}], "\[Pi]"], 
      RowBox[{
       FractionBox["\[Pi]", "2"], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"n", "  ", "x"}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.40969392340625*^9, 3.4096939326875*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"\[Pi]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Cos", "[", 
          FractionBox[
           RowBox[{"n", " ", "\[Pi]"}], "2"], "]"}], "-", 
         RowBox[{"Cos", "[", 
          RowBox[{"n", " ", "\[Pi]"}], "]"}]}], ")"}]}], 
      RowBox[{"2", " ", "n"}]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", "n", " ", "\[Pi]", " ", 
        RowBox[{"Cos", "[", 
         FractionBox[
          RowBox[{"n", " ", "\[Pi]"}], "2"], "]"}]}], "+", 
       RowBox[{"Sin", "[", 
        FractionBox[
         RowBox[{"n", " ", "\[Pi]"}], "2"], "]"}]}], 
      SuperscriptBox["n", "2"]]}], ")"}]}], "\[Pi]"]], "Output",
 CellChangeTimes->{3.409693933953125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"PartialSum", "[", 
   RowBox[{"x_", ",", "k_"}], "]"}], ":=", " ", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"b", "[", "n", "]"}], 
     RowBox[{"Sin", "[", 
      RowBox[{"n", "  ", "x"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "k"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.409693964453125*^9, 3.409693972859375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f6", " ", "=", " ", 
  RowBox[{"Evaluate", "[", 
   RowBox[{"PartialSum", "[", 
    RowBox[{"x", ",", "5"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.409694000125*^9, 3.409694000796875*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox["\[Pi]", "2"]}], ")"}], " ", 
    RowBox[{"Sin", "[", "x", "]"}]}], "\[Pi]"], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"2", " ", "x"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "9"]}], "+", 
      FractionBox["\[Pi]", "6"]}], ")"}], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"3", " ", "x"}], "]"}]}], "\[Pi]"], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"4", " ", "x"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "25"], "+", 
      FractionBox["\[Pi]", "10"]}], ")"}], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"5", " ", "x"}], "]"}]}], "\[Pi]"]}]], "Output",
 CellChangeTimes->{3.409694003390625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"f4", ",", "f6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Dashed", ",", "Thick"}], "}"}], ",", "Red"}], 
     "}"}]}], ",", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<f(x)\>\"", ",", "\"\<Fourier sine series (5 terms)\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.409694018015625*^9, 3.409694023265625*^9}}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
       LineBox[CompressedData["
1:eJxFzX0s1AEcx/HDmfK01cxTqpNL5ymPi7ncKQ9x5OH8FFrSGZmKLCmrJbqU
xyFF3EUcS92ccp4y9CRkM+lmQsmV27oV4TzcYT384fv947vX3vv88TXnJLPj
1EkkEvvf/ZfSTFtkuH5ibCpJFTKcnjGZm/Iv+/wI4cWCIU1RvR6PUsAPgu2G
YanpYENgnLO49gYo9301wSjggmfp6bZETD44WpGYOEctApfLyrvFJiWga4ki
nqlxH2zPFrYRo3xw7Oa4julgFXjNk9w0N1UN8j2cyC2SGvCLa6GQ2V0PnrL1
3SCKG8Fpv4jwpIf9oELEFBnTJeB43a6k+eFJ8GpSp194lRSMqLY/ziuQgfG3
B9SnhuXgG66NTf7gLBi9bea1QeQ8uOjex5hOWwRFyXpKzoUl8OdHh5WFK6i1
G7GUlYkKSJXzNSVoRTFNLhWj3GavCY4SjVpJ7+JkLYNlJ/idC7mopOdlR9Zd
NPiOVmuNAPU2udcofYfa05uqODorIDlDlskpRZMuaoSf5qFjZyi0GAEqDIka
OilGiT1DppEStLa3pTnYYBXUfTGSHWSGpjXORR6loqwyK1KAC7qQwA/0JdDD
urdmDpaiQlJNO52HGi5157kLUPnnVUc3MVoiOnfdWYKu1+aEOk2i8eX1VMfv
qHvm1/f7Fajg0gbfbh3VTzRNsSUrQSmbMLI2QAOPpMhpZmgrvbBrH1XJNLbz
JtbMlUyKw9MiS1vsXGp/7F4X7Gg9dW0Lb2ynZXoThcAe7xOt70jFznxg4W9U
ii0LCu34VaiCDiBnWL3NWYNu9D8/NtuwAe1W0dM7VPcHd86Ip6GM5LnZ8RTC
5pBCDfr5N60W39/q0CwDTcs8NTJ0GsvlwBOSJvTA4wV2rwo7IVV1bLe2FnSl
j4sqTGsLtCm3jdtnshX/yaSx0zuxWf76Xmvm2H8Bgsp9eQ==
        "]]}, 
      {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwtm3k81N/3xwczlrIV2SuE7EuLJLlva0KoFBXSghaRLIkIIWtlJ5IsKalI
IqX7LnuWjz1r9n3fZuY9Zszv/X08fn/N42lm3vec13nde871eIzUVfczTqwE
AgGyEQj/ezU9yWuwKcWFcusVzOway/95rPThMuceLnTwxE3GlZkwqCw191JI
jAudj/IYFZpJgrxYHVVjJxd6quTJx7jpPNj2NvjjDVYutDrZIb51shTacm6I
do9yovoXscuUoRroUte/XJTDiVrZWpr9rO6CoUbvMp1lOdGeIxaSFhcmIBrt
Z7VXihOtPWHP3CiagPQ2M9YeCU700aFbry5zTkJPh0Wnk4KcKM8g4YbX10l4
9f5BFWU2ThQ9+8g0im8agneV31eGOdB6Fm7Dl19mIY27vedhBgeaRAZedtVL
UPNsTtThVA50af+yiyHXMryX5qWzmMCB5iVaLKuoL8MZWeGsy9EcqMTHkuQH
AcuwR9fORd+PA72esCA0s2sFfr07ucFhy4EGi+X19B1fhR6dtJ0JAhxox/RE
e6PLOkw+Y3kxkY8DPdrtdPlh+Dr80ZrzOmk7B6r4dciKkbsO2ZvN1VPZOFC+
Xtdk95F1mFGTeerlGjsqfT/LgN92A9Z/1Y/I72BHb+eYvRTVIcPFQyn/vf2P
HXVAz+tW2JChQMmcUEEjO3r3rZ+nvCcZOnxKzCusYkefiduz3XlHhmv5k7+L
S9jRfw+r/sQLUOCetCjG9wR2VG/XifOH/lGgofCQYeUzdjTMrdQ2k0yBN5MO
xvyMZkc7DDOoHbxU+CVuQOzXY3Z0By29+LUuFZ6MUtWq9WRHUz7MZ1anU6GX
f/u91rPs6LksIbqwOQZfYHIVbZbsaObgmcADVzAI7/uzdJixo0JjC+HCPhjc
5iXzvMuAHdV9d4io9wqDr1x9PvQdZEfbrRtb+Jcw+MdebHpcgB0tmZkLehVK
g5avdACNjx0t5jdh50imwc5hh2Q+bjz+Pbwr2vk0OHgtx1CbyI52rvqwczbQ
4PJN5dfP1kmo7/zzP0e2bUJhH92L2l0k1NgrZ/dGyCbMKHMstmwjofxqRzzk
4jahJBbC6dRMQo8rSFTLvNqEig/rvj6rIaEntOLeRVRsQt0QK4GJUhLq/Gj1
5tLiJrz+9GrTs2QSKtYzsWJqQYcz/4Xuy4snoRa/3z06d4EO3Xbk+1U8JaEa
LkK3Va/T4f3EOfmJcBJaEHmlyewBHUa98ArTvk9CUygmm0de0yHfQPKApScJ
5T79u6S8gA4Td3876OROQisMXSHnFzp8mcUYeeZCQksKg2yFa+mw6E247oQN
CfW6VOixOkWHh6ffJtHOktAqSzRzZYkOKxQa5/msSKj0V0TvF4UOqwr50rVN
SGjUqZDQdnYG7P6cSnmmRULfHJjz+yXNgJfWKyzyDpHQccFnNSYKDDh8eDCv
Qp2E3vmW1/5ajQFny6WsJ+RJ6Ma3pcmGYwzI+FlQpC2Ks4f3Fvk0Azb1qXFv
CpLQkMUszkAbBswgf3H5zk9ChX4cdW61Y0AdVbhHh5OEPgv1FO1xZkBuU0M/
OhsJjatlWY69zYD9Tg1dP5hE9IFBpzj/XQb0e9kRc5xCRNU/MQP8fBnQ9Jvt
NGOViP7TLDp27SEDinYNGvxcJKLT163sRYMYcHr56qvAWSJarBUo//IxA5Zz
T9N0J4moXlj62GI4A0bI3znPHCGiNGZjF28UA9oYrhbDQSJ6zmzNmBHDgGR/
+g2ki4i+yL3RYBzPgLUpwdWENiKaVKXklp3IgEkl7JK/mojoztbG8uZkBrz+
X7R/cD0RFVJoWa9PZcBDc/x/9aqJqPt2V7fEFwxI5Eg+wIoS0Wshz++pZzBg
p7T409/fiWizdbfFy5cMmKubNRNSRkSrFsNO92cyoOdFWSODEiLadyKhYfYV
A+r7FGSxfSKiLLXp7E1ZDLgzXo1eVUBEZXeP2z56zYCjH77YhL4hog+Vzu8g
ZTPg54ajJYbZRLSwPTDYHueQiZ+8pEwi2tUcvRmB82kWw1s1aUTUJ/Rk+xOc
JXc31IQlEdHzfZIXLuK8rGUhZRxHRL3pguMEnFHrjofssUSUX+lXnT++3rO7
tj21EUS0Luj8hUY8HoeYwYNPQokooSxtcQmPV/Xt1Wcngojo46nhwRk8n62q
qVmOh0TUxWxH4Dc835YhV+P6+7gelAy5y7gemZsrryM8iejTpCC1flyvO8L3
GSbuRDRRQm9FJQ33y0G6LddtIhoWOlNtk4L7xTL4S4MzEVV6wEm8kMSAA7fY
+aOuElGJbR85DyQwYGF49G1TByL6yPamythzBnyYzV+37SIRTdE3bnZ9yoBm
P5OkG8/h+vE0GvwXjft541Wv2SkiOo4ck5XE/VGxQ/Yw90n889tDTvLh/olU
KXjeZEhEr/6ULut5xIDyTl9OnNLB8/2BTWzifqQGHc3h0SKiDUKE6+e9GbAu
4+dW80GcP23mxngwoHNnfamFEhGdKelbiL3JgJrLp3bw7SeibgZfSy84MSCJ
u8P1P2ki+uHxPZT1Cu4Hg8F9VmK430T8pRfx/TP2eSXuNBcRVWVo1R0yxPcT
Oy3kIomIFnAEUiwBA56/yOp1jYWIMtuuRVtqM2A9i8B5b4wNDT7lLMXA9+tH
q0NiaTNsKC2halpMjAF9F32yhxvYUDERLPbtDB1q6D9KmKlhQ3uT9x5XH6PD
2aQnoau/2NAJFmuP1wN0aH881ZlYwYby3dn2Ve8/OtSP+aYoX8CGRtl/agsp
oUNuRfpn9yg2NGDPaLyVLx3WBBBzfcPZ0LJ33VUpd+kwsI07KTiEDeUKrytt
vkGHK7677yf4saGlM9HKHPj52F2ne6zsFhuqtYMr8ZsWHb52Cq7aMmVDdTsq
0p02NqHma/bO2O1saG66bLWk8ybU/s+jQY+DDa2Q49ojboefx4yBnxusbOi/
E83Xec5sQuMLJe/saazoAOX86f7jm9Bmh+MjlRlWVMTOBe7ftQl9g78pNtey
ovwPlZL7ftPgtyuuwdwhrKjo0+e+Vrtp8Oezvz5oACtqWGdzmEOABn9X6rt6
PWBFdflZR35x0uAfUVGbgbusaKFj/XXDdQz2tdUoF15mRRflpTKeNGKQpre3
x+w4K3pWbzdq5Y9BHel21WgqCzoo2VIpPkqFWQLbD51dZ0HVUyoLRHupkI1k
eFR8mQXdq0BplGmlwj9TpQbvp1jQ/y56vLn2kwptP6TZNnazoLMydzyi/tdf
ta6EbC9lQUsONb/9ZEuFPQovnnQUsaBG5u51GVZUeEy8Iya9kAU9ELdc/MKE
Clm3DFOUclnQixeEvzZoUeHzKvlCswQW9A/cP4yJUmGhxXJXtAcLen18zKpx
iAL5EYX+s3dY0O3R22/091Cgp8bVYfGbLKj41NBuZhsFagt2zr53ZEF1gsFW
cDUF1veWMRstWdAd0QJxDwooULlxmZhoxoJKMkKzFXMp8NkPhW12J1jQp2GN
bssvKfD8q3TBeV0W1CHg/NeKOAocv/5IgVuVBd26km1yyo8CTc6Xq3YqsKD1
3T8C8r0o8P2JlYMZsiyoh6bKOWF3CryneE1XeTcLGnlwp6XWdQokLBufNedm
QVfT7tODLSlQwp83IGaWgG51vVkyUsTnl9w/wi8nCajKzdoWczkK/Noc/vnD
KAGVcTwR4SJNgaclmVMtfQQ0tLm2qEeMAsNrls7saCSg05ryvwq4KbBj8f2C
VB0BnSfIXDnNRYGSIjciDlQR0N9uFGFudgqsuDVcefY7ATWqih2oZJLhEl+b
fPJ7Avq9q3SvwDoZ6hyNrXqTT0D/M2HvvbhChlFXTzqU5RDQW0MblV8XyVCm
9FdCTzoBTTd343o/Q4Ye/wJUZ1IIqFPsf3cMpsjwJ4d2A5ZAQJ/EBmNL42Ro
e/HzllgMHq/jkH/YMBnmPXZLU4ogoPviYm+7/SPD1ULFQzqhBPTHnniv2wNk
GMvMvmn/kIDeG+T++bqHDPvkLxPdfAloQ1Dlal83GcqfEX8V6EVAx69oK8h3
keHv3ITOV64EVGQyJmCrjQz5Wizdi27g+XWORz1pJUM7yvZtv64TUNdC3gcy
/5FhgWR9bpsjrvfp87pdzWRIORkKRu0IqKijZ2taExkaeiJ9q7YENA9Gytxr
JMP4DLoX2zkC6oMoqjn8IUPlJa8CmVMEtFfQ44hHPRk+ENEwOnySgA6KXBZP
rSPDWr2FISMjAro+6RLSXovPt7ff+Z3XI6BeR4wdJHF2THTa5XKcgJ4Ils0K
riHDD5VSRfePElCXt9la5GoypE0OmkYcJqBXPjUJB+Jswv9iIlWDgNbcllUR
xTnp6PmgdyoENPx4tktdFRmOXt0pXqFAQLUaCksjcFaPaSn9I0tA9Ur3kexx
DiiNsuqXIqArNy8ZGOL855/x3NxuAmrVucdeF2dhTrZwuigBnVMq0jXD+boG
lOQRIqC23xs6buFcfNH/++6dBDTwfSbHS5y3Hh85r8pLQCva+qtHcDb7sLas
u42AFge93dDC40vt/hRtyU5Aey7lP87GeZJ5W86RlYCWq1Bs9uD5Op+xChmh
M+EoevBSIc6EvPoy1g0mfPzdx9sc1yedgizsW2DCxADbp1s4a5p+kzaaYMLv
LCsxv3F9WzM0bJ0HmfAr2mOTiutPyHVPHuxkQmGVKsXEBjz/9x86rZuYkLSD
9X0uXi/Hz3M7m6qYUOSOztcGvJ7PvymcNvjOhMd13BTY8PqjqMuzis9MaDQw
M2zVQobLdXnNGgVMeNfvQvln3C9W3VKmkmlM2CAacOBzOxkGDV6OSHnOhP8i
T0ZadpJh0fjLWt4IJlxoOH6DgPuTf03UgOHDhLoDfXszevF4+Xbq9Fnj8abz
0r+O4PEKW/mdNmfCxvXiPfNjeLx7npbXGzDhXpO9Dw9O4vEpbztcdoAJqYpO
h6mz+PonWVUT+ZmwdqdurvUGvr4V4rqdkwkP1szlCFHx9W0CC0KYW7AoZO32
DA1f35km57G4BT3sn8ahBApsDVnda9G0BcVFkyvVePDzJ0rdoaZqC2bY+Ty9
x0+B6nFuGTrft+DnipCEavx+9fzVrIhSwRb8db3GOQk/X6x+jO7gjNiCOxqb
rcbl8edttLP9NtiCLHTad3YT/HkMfv2jx7ZghOM5qX3m+POIlkFFB7ZgzoUH
x8ys8OftbKRnSm1BPZ7nWZW2+PPUqjb8mQy4IMyaIXOLAv+7UTJ1+Ds+F7Qk
/Kx5SoHtQxQr3RJ8zihOPayeQIHd53UqjN8zYEGeT8TrFAocMKyJsUlnQO/6
4JWULAqclfyr8cCfAQP1J3a1fKZAYi/N/wc+5y+rL5/VwPuB9kl9foMfdFj+
NZv/kiwV6qLhD8zwe8nf3vGio4pUqHekcfRsIR12/NzjKaJGhSay1qXXM+jw
2UxMSBfef86xOF8Mf0iHBW6xbSfMqfDut8jcBh06PGlrcXvwHhW+UWjTsqrc
hLlNdujpSiq8sb/4V1DpJnSrU2Mp/UWFirJxpsUfNmG8/5uFHbVU+FHytN3O
zE34UsiUvbyFCsuE2x51Bm7ifeTMzKchKqwntdXaIptQyXIiT4aAwSi2YstI
rU24eIC+h5uIQXOWuJ5v6pvQoeGI+SwHBtvoVrNiUpuQmOnPHcWH9/e1Vp5B
lk3YDxgHzuzB4NxIq/WVKho0K2p1+HcUgx+HigbjvtPgtb3mhyWOY/Du4HPn
3yU0eEM2kNUCweB6j5XvvlwajBdU6o8xxiD9v9b0Cfwe2335FI/nGQz+bC6S
EQqgwaqLUnvNz2EwqPH5B2NvGkxtaRgTtsUgqc4K5jvRoNhczEy4PQZ5f7aO
3jSmwT2Ub19+umCw9XvR7Re6NDhQ1S+vcAuD8d+er//RpEGbCkPJMFcMCpVa
sSvvp8Ee0xiOHR4Y7Pms/sxuLw0SvqV9Qjzx+3kRv0isMA0uhJ4yu+KNwb2F
rQqLHDTIkzDb5vUAg6Pvij7vIdDgbvv++y74PJOb//yYJRWD77kfPzENwKB8
jtWpomkMjnhvdxgJwuBslnr38DAG/WfHRhNDMFiYyX95Ry8GNfdcP6UVikH1
F6137zVg8Jud+1mLJxiMMPdhxVAM7lPadWMoAoPDW+KJj8rxuWnUZtkuCoNa
xb9k2YvwOBHjmtpoDD675lIWk4/Bpq4HqEQsBid38ZwU+N//DZaEfzg8xaBu
/ee+tGQMij9uj495hsFF5S3GmzD87+EK4H0cBo2Hcp6p4HFfEl5pSo/HYGbc
SakvXhg0E1F5cz8Bg2SDpc/auG5q/116q5uIwVPkRMNf1zC4qh9bvIxz7lvt
7hOXMHiRdD0rNgmv58Vhlxa8jjnUXda78HWtecIxa1MMpvLfKXyCcyFUiu7X
w5/HVx85jjPxXpvEVdw3aTrizUopGLSTuf9xWh3PR2zFxh7nL90SiLs8BkMF
b3M/wHl75O+2jb0YzN6v3xyI89VjN649FMYgf3RdgBvOFQs8G6y4T2mWEywm
OO/MKgmPZMfgg609uttxvnXmggj/FhUmqcQLl+Pr/yYy3yVvUGGFEMXTAmex
stxjuxeo0Efm9dEWPJ97N02bc8apMPfhI8sjODeILzsoDlDhaNjul5F4/pIt
SctFHVR480bOthpcL9+gYyFHGqnwYFR30AyuZ+uBEYGfv6nQj11shozrLT8R
nmdYQYUPJd1VFp7j/k5RPtJYjM/Bxd5aTXh9ek62159+R4X98a4bCXj91On3
L/ZkUaELywErQ7y+Tz7unndIpcLfWwaHB/H6/3OsCph4RoXM92icA+4PTYGb
fK5PqNAmy/lsPe6fyftfDjzwweNbNket/1d3xYvVzDv4+vFqpvcfYzB5gHku
3IkKHyQGkYODMWikZ/Ygwfp/8eX5WeK+yN02Cj8coMIGFUZxA74/6D+enD6E
n2s/zs41KuH7x9pdZaxCigrtqo+89nbDIFunL3s9PxWWv/c7j97A6/OS79To
IgXabTPfVLfD62NZ+u/GJAXuCr+w+R++n3eyXrq7NIjP2Q/9fM/j+/2385sE
ehMFyrOvdItaYFBK/Xif0HsKxIaPVD3Qxc+nMzPJqjn4OT0lszNDG9fbK+ms
cToFCnvuobzVxGBL+UKTdzQFCrZzh4aoYtBPLxN23sbn7O9hfw7txmDeNdOH
89coUOvc/qn3Inh9wshaRDsKfBK8ks8jiMH9fyw+H8T7TPR7Mbm4bRjsPMPM
jVemwPyojVepZFxnr/dXCmQocP3SDyenFfz8TbHZ81uCAl893EeXmKfCoP5P
KSv4nGwVvP7NfIQKVa47RlktkCHHlYA7n/5QYbj3L3fej2SYe0O8MyqNCotT
7ijLvSHDxqNOx7kSqHDgm+jM8Uwy3HFpVN4zhgoPbHlcvfOUDHvMY39zPaLC
oXDpc01uZPgDFFYaXKNCrdTH2lFqZAiuJO6j7afC2QojEnvxBrSPFtog4Dq9
jyv74/l2A9rt7haxTqNA1xsKz0debcAAUV6L+GcUuLCLR7zy6QacI0z4tfpT
4PLdTnUv1w2Yl6jVb3OWAsly1+xG929AZpC6/JctMmRNCCr5mbkOXZeeuNac
IEPx29+v3I9Zg7brGzYJH9bhi/p6Y57QNcg7+dLTIGsdisl1K+X4r8Gyaf6a
2XicR5Y3Wm6tQdbTav17fdehiI1clNzJNfjx9ZdkBf11KGgQ97mLhH8fNGbN
dK5BbnEXtkOPVuH5ZLeZ5+RVuPVnZ96yxwrs7GREcmmuwNOpcqXCt1ZgWBYr
3KWwAnOdtGt0r67AYBMsQVZiBZoSrk7EnFmB382Pl1mxrsDkw8WyCgdXoM6F
Z9t6W5ahSpblmyvry9AJPXq3/cYytPOOyW/3WYZh4Woiv/SX4Cf9rDLMbRk2
tbHNnFJcgqz8X+okXZbhmXtyJbM7luDbgv4pN5tl6BUbs//cyCJcH1KU3661
DF+16+9eD1qEQknxp5+sLsE25Z3ZMVUL0BNwW9+kLML7K/4TaTbz0NAAhl2b
XIT7//1R+ALmodCJe2X2XYswcc+Txun987DcokfsTMkidN6ntvaaOgfp9rkj
2u6L0L/3p+qF9DkY+lDHnXtqATbf/TLKOjkLk7+5Rn3qnof/qI+CTsbNQJfK
vT/e1cxD+UvvV7cezkCtX+0LOV/mYfv+DaWOGzOwr17rdGr8PDy+6K/dg8zA
PT1EkWCLeXw+in5wfnUa5pMz8s7UzkEvc42nKpemYfnBZnSjdBaKmflEORhO
QXXhWJOdb2bhviXnBzsOT8G3NPNW1eRZeLFmw3FIdgqm/moacvGZhSG3+yYa
OabgfcumrV7NWXh8iaQ22TQJNW836vwsm4HgdXYQv90k/GgRXd2XPwMVjxBM
b1tMQrkDZuaUlBm4KOk3NoRMQiHszyV13xkon58mLSQ3CTfC//hla83A8Da+
+ZKVCfglu6E8/Ns0PCkQp5IeOwGVwyORnHfTMM9KoyoseALm3jxZD9Om8T4e
bBzhPQET1Rv+Uh9Mwx+tpWGd9hPQ82c9+Zb2NFx8FtkSpjYBD/TVHbL8PgVF
buwrlf87Dj/tqC0SrpyEXI+cnh3VHIdnHHaYDr+fhIZFfe85lMchucBu7O2L
Sfj4b8ehOalxqGO4tkvbF4/7rfL9FZ5xWO8j6W93cBJ2RYeR1ibH4HC/n9Hr
dxPQ5+7eyKiMMbjjjVqfYvI4/ObbFbYsMAa/rPp5roWOQ/0KA4H+7WPQFtRy
//Ach1UJi7ZtbGMws8cOnDo9Dt3UnL4NrY1Cxe1Rue7c45DFkuTt1zkK9e+O
u30JGYOfGHzKdimj0FM7jU3XfRSyqqxo3ZQahYmJ4gPnHUYhN+q3aSA2Cr8s
vvzifmoUxof1ee8VGIXk7Gyn10qjMJsgofeXOAp9txfWEadH4ECW0RaCvwYO
/IxudByBWnbtf0o+jsCIwHGBC2eG4Wwtc6nzyAh82+M876E3DA+S3Rdk1Udg
w4GZ6ij1YSj2NPDGHfkRuG1qwfsH7zDkRAWy/4mMQLFXi59A8hCsObX1Ww8b
hrJ6glrNT/7Bj/a+wg1lw1A77LLJ9K0B2BTdnzqlMAwbqAF5DmYDUM9wj+Fu
qWFo65rB2qU0AM174jgNRIah99neH7/m+2GOEJewA/swLJI6q5Hu1g81+Xwp
aVVDcP9PYzGLe30w4/p7zT+KQ1CQojJf8qAHnmWEa78bGIQ5t8xPKl7sgXcd
1ZvcagfhgX+33mRp98DqClHtbUWD0Kom3zF28y/02or+8CtkEEYnSHU5B/yF
dwuHzJXlBiGr+q6fosHd0Lqu5xq8PgCXbtCfPYrohMf4+9BU2Ac7P2rwWzh3
Qu5Zfn27132wYt35uYRhJyw0z2+bCumDoUFtz78xO6A8v3DxeaM+KJb6Jm7N
pwNyU/cuPa/rhYZ1VgkuTu2wzvtC0s1fPTBVNi/ZUr8Vym27PZsV1Q0DbvcJ
7ZFshS2/jtqfd+qGNVf3qvZu/gclatLkOkE3vOi3rirg+R+USwowVFjvgmHv
MtWfXGmBz5cs649f7IJ9HGsH3XWboNtyb6OmRCd8XJ2uDah18MWHkIsM3zY4
3XI0wam8Dlq8cMjabtUGLXr/zkX71kH+0njWZbk2KLYo8LKHWguNNrx0dTpb
YZFwDNMDq4H3vLC6WeVWOHjrYXUurQo6hx6SafzQDN2kKzIEaRAicQdJ7nvr
Yfd3neoCtiLoPLDzx5vCcnhZ2ZhhHfcR0C+6+Vk/LwM6qW+ekrM+gbCoJ4Uj
DuWAO4SN39y2CMS/UmWRVfkGZhauvV5wKQbPVXufVddXgOwamWr1JyXA0Udd
T5ZeCQS933CV1ZQBjDWBs0T+N6DPWP+5IoUCma2sR8pn68Ea8YOqqRMKpvON
LHJL6sHsXlLCgXcouFdsodUp0AB6zpVeYtP4BToHLMNsOxpA6a9dC7nIbzDP
VZ7aY9EI3NK6+aYvV4O22bnHc5otYMTE9pxbZj1IPhW/XDfaBnQnHl5pHqwH
pXeylDq2tYMXwa/vKO9uAAOGN+ZKDrSDMxWzYbPpDcACvUlbD24Hv5UCvjqn
/QHJwXE5bns6QDZvtvDlxCYgESKfw2vZCQ7MbszvN2oFd8e2VZTHdgNHLU7P
v9dbgWCtyLYdRd3gabgYFh7aCvhsz1042t4NZqUBabKqFUzd5MnEdv0F2Zci
dufqt4Gc5B8Fmul/gUCzmIUk0g70JwU/J2f0gPVP4JPIsU6Q58K93O3XB5qU
ju28a98J3jQudPqn9YGcfE3vukedwFglz3C6rA+ceaVyzKe6E+Q8s9cWWe8D
xU/F6zpOdQEH4ybpnpv9wO0O5d9Tx27wZnHOeNN0ABjPrOpNhnSDFNuONEXn
AbDbaTH3eF43UAw2V5IJHgBNdhO35me6QdCxSKrP1wGgaN5BPun5F1yu2ZTP
3jMIphQ/8ZLCe4BzVZ2W+cQg+PmmwMPubQ8wGUpWBoxBkCz9prPkTw9YQJNn
Cbv+AWOxly+u8vWC0PYU2VWDfyCXK1oOTe3F9XVMS3r1DzhOO+v6v+8D036/
1w9bDIG+vD1uK60DYPXay5wFo2Hwlb3wzNvVAWDxyV6Ix3IYJLgcPXJZcBDM
8AzGi9sOA3MFa0KzzSBokykuYL81DH4WRsa//TcIhN8fCpaIHQavS9a/Xp7/
B2adeMnBrcPgi+MEc/LxMPimJ/5lv8UI8Hf7bnLu1Sjgobndrz48CvTBxnXe
T6OAQHx32V1nFGzjVwuu+zkKMhYCDSQMRkFqcfa3o/9Gge9UJk+A1Sj4uh6p
uGf3GPgRsyl89fYoWPWz5Z56MQZcj5412Hg9Cm492fjPN3kcuN+00NklOAYO
2KrNa7wZB3EHeSeDxccAJn+Tc650HEQ60Aap0mMg4s8AYt81Dnw2U8vYD4yB
NzzVxXqCE6C7JHLrrdUYGEmIT9gWPwFGu67b6j4fA7ZZajYZsZOgs9X+pqXY
OFjn+HflXeYkiImI2dKXGQfP3WNcv36aBPtYLlwzUx0HDbozwa1tk8DwnHJ+
uv440B7MLiQKTQHtBlkDPddxICEmxHoncwqklf9b+ls1DsqDq7n9Pk0BTvcK
D83/xoH1zD3hJ+gU2Jv0+fWHvnEQW/6f8uvRKdAcLT07uTIOts5H2nTJTYO8
x0bEaKkJMJRALzz+aRrsul24XBM2AR5uFpSZotOg34flSx2eh8i1C79t2qaB
q3gnmHg1AawOfP3rsTYNlmK/X/CqmABoqzvrmyMzIFG7jmVqeQJk84zZ8KIz
oCvE9oHutUng/KSBdah1Fhg2R34Nd5gCdny3yxqGZ4Gp0mTdPrcpcDqF2/XL
8iyIU9ATGAiYAjr5ll2R/HNgcNeWf+bLKbCzriv/kNUcsPly3en2vylQyT5q
HvXfHKi21vdRcJoGguG05MMt8+DqhwwepSczYBtvhpnkv3mwlvAoR+PFDGAm
HSdsX5wHpmGTXGc/zIDZvKCbwzwL4JGHB3GyYwagNew60acWAIFz31tT6Vng
ShIYGW5aAC31Rj82q2ZBVaiSUkzjIhDn6LlxTGweaDOTsuT6F8E5ruXeTbV5
8PkBQejX7CIoV7v6tN1oHmS7dRHIXEvgo9iC1G+PeRBi+6j7sskSCDm/eDfv
zzzQV+4IPlizBBgF7JfOBy2A4ZvHXe9cXgaeSXZc3LRF4LBj4rfghRVg8d3Z
h5dnBaxp1+mO+KwB6UBP5UvR66D2bJFRXeAacKn+oj6Vsg5SXdPMP4SvAds2
lYTbuetAN/P2xQfJa+BczeMau8p1EMXC77Pj6xpocuWQH1hcB9L1th/0NtaA
NzfySMFqA5w+Nyue7bkOxuckdPq2kYGMW4d0hP862OALvSQpRAbk8B8Kbo/X
gfjfmY8XpMggo/zpEe2EdbClctg27wgZTIsfPNv+eR3EifA/y7hGBkGj/lGs
q+sgez5FfracDD6582BX726Aq8zj77ltKWC+Q52y6rsBHL8+PX78KgUoallv
hARvgM8n6KUXXCkgl5C+kh2/AX6LjlSdC6KAF3Hys6NfNkCxktmF8/kUEFpi
0H8V2wCXOOo1Lq1QwG9hl95VFjKQeu//9iiNApj+UX9D8Dyenjgyw8JGBX6G
bR3Z4mTAMdJx1lKQCty7HJpGj5MBzSbyW99hKrhIeVB5NQT/PIc3LcOLClIu
vfy+GkUGX7z3Pd7+kAo6IfotJIEM3i5t6l99TAWWERxfs3PJYNC1VLg+jgoM
RZM+jtaSweOSSjbPD1QQElBeeO8/MggT3aYu9YUK4Eh/AWsPGayznmItq6AC
7QLpfOkZMlCtqryUVkcFaseKXl3dTgHiLFcvHhmmAtdXHS9XBShglaagKDVJ
BQVslPQQCQpIEdTRXJ2jApmm46nZKhRQ++Fm30kKFYjZNz4ftaSAHrMN2xZu
DBAfTQZfTaSAE6ydAXIHMeDmyXbuSgYFXCmFGUeOYKDHRVLeMZcCLqiNdR84
hoFCq4st9l/w9bl1X07pY8BaukXsQicFlEo4xZmexsBPobkFmwEKkJH4mFdo
jQH57Zy/zo9TgMX8njGqDQboa3ou1usU8H2MNGvpgIGcmtKS/+m8W0KsnHoT
A9wV7eEWElSgy3kyu9AVAz4fly6ckqGCcdaRMVN3DJimKBDMDlEBHyfnU2Mv
DHyJNu44qUMF9We0OHN9MLAn6NobE0MqSOYUZMz5YmD1xktzY2sq4BB5+ehY
AAbs7Cv2GtlRgeqzdWmDRxioPf131eA6FczdMXM9HIyBF9o70vTwunYHdEj1
heL6qKm6InhdZ3+V5MeE4/rsMwMglAo0tVfYFSMwoM8dNqGTSAXvgq9GyUbj
+hCyy49lUIFvrWHT4xgMCG38jNbOpQLG12Hp5lgMBM30OxwtpAKVDLNMlmcY
mB2kamjhdV97LGop9RzXs30X6cgPKnixaWesHIfrWXug53A1FZBr3yRJx+N6
frd8f6iJCvYnkiyJCRiI/+QaeLATr2shKawNZ3pO5OkDA1RQ9qrINCoRA86p
b2Q0xqng20pMiWoSBlpjqihq87gPK192/MRZO3j4j+o6FcheuAq1kzGQ6814
qUKngkZKV3Q2zry3xDyUiRjYNHC3IOPs63DEUAn3jTJt727NFAyMnrEWVhTE
6xBozXsVZ/MTHrPyEriOd9e0/HD+euxp5X4ZDKgetf8SiLOk+vvncsoYuJ56
O9Ud5yiZ+muyhzAwoeLBMMd5XWRCU0YHA1NbWnQhnB14WLftM8RAC5X0sRlf
v55l76CUOQZi7sYre+B8gHysSBL3WX0mXzwLzhmzto/32mGgT0QWC8TzYx/y
Pr/nOgaijZcfzuB63O2IV9iN++ptJ9tRPZz76j7RxXEfXZNxORmO62f4o+k/
sYcYSCxL+lOO6/2xaCZbFPfBr7TA3h68HsFp+04K499jRj4QGsXrp8yRR19I
x4DMHFO67Sm+X7zkiqpzMDC4Hj71Ea+3qpWC8L0SDLDKOvIewf3RW1nwx+Q7
BmRdUgtHIjEQqqQcuLcKAyunMvz8cT/1satNNLVjoJLloHRAGAbCvIpSc/pw
37H/1Z54jAH1UQ1zv1EMaLa4sBwPwcCTykMl+1cxIKhaKvYjEAOHvLSDQ3bQ
AOchARk6vh+GRr4fuiBKA/+qfS0n8DyjLI9Pq0nRgHfu9SPwHgaGFRHLQXUa
sAmXajRyw0DsiNFuLSsa6D3oQXuN66ZlWdfKa0sDHxu+MQWvYmD8h0noxGUa
0D97eerBZdw/qWZz8e40cOHPMYroRQxMWpz+tvCUBgSv7ncos8BA3I921+pk
GlgWGS6vNMOAjqK1ZHomDRx6eVejzAT3L8nmiclHGtjfP7Y3FD9PwA+7cznN
NJDplB0QdRgDqQo3Vmy5N8HzaPDUTRQDBikzuWqCm+D7Ze/Eil0YWCTetmWX
2AR3/Axu0ndgwGj4DixR2gSuj/UPXd2G7/9kz1hes01wsyTK+juNCsyIjxSq
IzfBZA8tp6mXChwrtTsN4zeB1VGpStUuKvDxIQfWvNgEsh/vnIlopYLs6Tud
te83waPo37PS+PlLbbJ71NCMf37kdRG9hApyk7S7WnbQwWXnwiN+MVRAlyMH
9abRgfiGi901bSrYOVysdDGbDq6zUGw08P6xP+1Od18BHeS/7VrYUqOCM9sn
lAa+00GLfeJqmiwV7xsd3f8G6aBi7febbn4qOFderDwuxQD117cP5k5RwMeT
d3oW3zFA2JPgtSupFLAcL237r5gB9t+22FpLoIADA3//Nn9jABZBhZaYZxTw
1U3/b2EDA6QpDUV2hFMATBDuvjXDAG8tRgjfvSmgdfBXx6T8FiikPUF3n6OA
nfvvn+1W3wIchI4vB09TgPVd5Y4arS3w0qkm8uwpCuhlTWnPNdkCWMbFxGIj
Chjd79p29cYWcHpgZD2vSQFrHkL//cvfAqdIb1pCxSlA83ujRcunLWCC5sdZ
iFCALzG4pbIMfz/uLa/sLgqgJ881Z9RtAf970yNUXgog/kCbLk5tgeKBxxEI
GwUYk3zMTZe2wMFTm+VeBAqIsFBqOkrZAnuXPy1/ZZABz0hSowgHE1z3v73L
mUoGQuy3/3TLMYHV2wx/z0UysLWUNK1VZYIjQ7zqEvNk8CK1q6FUkwmmLT9L
duJ9dY8S0pBozAS/Vc1P3psgA0evDZNQCyawSElosB0jg+zKgnrP80wgOf1e
yHKEDPZb7ao/48wEV35r5NweJINbaX9O6LsxQXyGz/74fjIoHH1Up+HDBN6N
WqwNvWSg7j1byx/OBPkRa+BGNxnc+/nKmPCUCTLc5MZbO/G5geNc7VISE7w7
fPKKaQcZaL2ANS15TOCbXHLtbisZjKt+0rnxkQmako/EsuBzQlxVZglLGRN4
PO/dmd9MBrq2TxXTIRMEmkuIXWkig9n5gNeH6plg33xXnVojGb+X3RFpaWWC
uduqiMAfMjAQsn/m0ssEJ5Qy32xvIIPlAnN2llEm4PSd3y1aj89rQCfgxSwT
HN2jWn+sjgxMOpXWD64xwSF6Va0nPrds3BC/3bzJBOQXF7R/1ZBBWyDJ4yAr
Aen9M6Yvg/P+kwHKQewE5LPhK2ZGNRkECmxMNW0jIJcs+Z4p4dw56JojykdA
im7SeVuryEDx7biDswAB2Y3dy4jCOeienViJMAEpp/86ewnnbp3OLqY4ASFX
P7DSx1mZwzzOXJKAMD/d+gBwDmmrMk+TISBlszmhZ3HuTT/GOSlPQEI17y0F
4KzuXFJ1QIWAdJQ4sEOcw9WVHj3SICA3i1VGhPB4BmjZ2k2HCUhy0GByGM4H
asTIItoE5LhF3vHteD4Rz+KLnXQJSAthfTYf56EL2+581icgiLh7ySVcD02Z
EHmmMQHZyF0pkMP1ilnExszM8PyFosc5cT1Hyz1epVoSkHzzwHusuN5aj2cu
TpzF1wtAnP9Xjwnh3rZAOwLCdpmO+uP10xm1im10JCBS2h3GHXh94wvrTUSc
CAi/r8Zdfbz+unrlsPgOAZGxPzrq0k4GidvV/bc8CEiuqrLBHtxPc135mmY+
BCRnXdN3vosMUm+lfBgPJCDHTtDCWnE/Lh7iu6nxmIDMtJjdncT9asgMlwl8
QkBK3k2cFvxHBisJPunCz/H8DDsFy0fJwLTyXKTpawJiXLG+R3KBDLKeNBum
5BGQodYmC/ISPu+fNiKMvyMgF1RcEsZXySBn8tD9gM8ExG7w0AUujAzofIJO
RVUEJPH4kxee7BRwpi9aklGH18v779Ft2yjgbS7bwMkmAuL4or6jnIcCzh1d
OzPWSUAmF9Bee/x8+Hi1HRGaJCAeZVCpVpYC8m4+nLeYJSAipzUOcyhSQMZd
udQniwTklusO7suqFBAV6LdEJRMQBwneuTNHKMDphXRmPwcLkmJCrzxpSgES
7fc2sxRYkN7D3A+veVGAQK9Efq8KC5LBbq/G5UcB24Zrz+w8wILI5Rt6Vj+i
AOqCWMFjbRbkzbg/4h9NAR1cVbbOZiwIJTSscTIHX09P4KvSHRaErLyzJq2H
AoJNKq9c92BB1LcbiEQN4eedpQvPS28WpOtK9WzsJAU423+/zhvIguhxVrr+
h8/Beg+uCaw8ZUE0LLysDu/E+0tRyd2vRSyIok3ReScrKnCWtFbSW2dBRl9o
Gq31UIHnkp+eBpUFCRdlal0aoYKgn69tpOh4PqrK/i0zVJBut/SYhciKcBts
iXTj/a41NWrglwAr4ui1NHxtNwaO7vgVq3+QFVnKzpU+ifd3blbVZYN7rEim
e4JvBgUDom3W7Id8WBF34RERJoEG5LL8JWT8WBH1zzcjnLbRgJ5ugwkxhBX5
9o1Zq7ObBnz8rr+ujmNFOj2hCY8BDQytvjhjVMyKfLAApzF8Dvg8xlFqvMyK
aN3kzGSV2wRePY210eusCOfgNps96pvgSPOznlYqK/LfM96mg9qb4MdXYfpF
FjbEHTDtTC02QU3kfgP3nWxIV98NFXGfTdCjdqIt5RAbMkbLPLBWtQleyGwf
G9BiQ9CYhEh/vC/bi/63LnWcDek1EjahdG+CUVYbkUIjNqT97zeHuplNfH84
X0bPsyFFfD9e/uSlgy3/8IVpXzZk6DvbqY/n6AC9a8pUCcDfH5G8peNAB4+d
eHd4BrMhVO6K22XOdMBpmXyIEcmGJMms+t67Twc7pN/470hnQ7IU5vRXUuig
U+hW7PlXbEiCc9b2/ld0kLxd9VV6DhsSFky49zGfDsQ2Sn/LFrIhotiIF38Z
HcjU13BpV7IhnbbLo6WddDD5I1L80S825CjXQ/mRfjp4V3xKpbqGDfkRzlO/
OkoHquldVhYtbEiJqJ933TIdHHGbSLk6xIZ4H7A9qLSdAUwFSXLRLEQkoa5b
KkSbAfa1GWU/IRGRMOs9IAIwAD02fE8oFxHhf5B5954hA3zg4BQO2EFEJgYF
G1ZOMUB4tUnCg11EJFaE7VT4GQZwCI7k8xElItUeu18xzjMA/+Y2TncpIvI6
zu1WwmUGmC4zC70tS0SiWZP0i68xwC+vGMINBSLC6fnnTZELA9xb5MEcNYhI
6uyRzjPuDNA1wj97Ro+ILBzgEZUIYICPmaedLY2ICPFGZd7xIHz9S/GjZieJ
SP7nrhO6jxlAq0ug3/A0EbnBM5LcH4GvH29to3eOiGCvGe/uRzPAjEVSx/EL
RORZfU/mSiwDvKgXatK8QkQqkmiMgHgG8AyzMTnoRESa4/XbniUygLl+arXa
TSJSeMTSNjCZAWSYPYjyHSJy3TTe5GQqAzC+i1bKe+D5847YLKcxQLfvxaOy
3kTEf91bxzMdj/dweqnUAyLSa7xa2JbBAE9W+zX2BBCRr92XHbdnMoDjJ4mP
YsFEpD/vAK/kKwY46mqvKBxGRB4+M3Xjy2KAnQqZbwQiiYjy0rpWL86zE/+k
+WOJCLfxolzAawaoyt77ijuOiBz9d22FhnPGZUdxriQiYua6cfpMNgN4SbxO
IaUREdFPX1kf43yqd0SA9SUR8ePR+BmDs1yy9POtLCIifMAJuOO8deYa92Yu
/v28Jj1FnP/y5UZQ3hIR+vVLwZX484uaxonrhUTkml9whTzOEZGywctFRASN
VS64jcd3xdiZMf+FiMzfb+AJx/PRZst/MFNORGrbjHLu4/nuRKc2Jn4QkVvB
OxSQlwww91D+3ihKRFSNJB2GcL2qj95c/FdNROx05ljOvcDzIb+71V9PRLLv
3OvMwvX2Lpmd/NtERPaZ6Sb/xuthcVfpWmcrETly6ApnBV4vORXXodZOIvJ5
3Xc+HK8nc6bwUnMPEWnRKyIqPMfjv6ZqXTtMRD79WhmYi2KASEn31t/jeLyq
e2W4cb9cHfxkDqeJyHhY6QdCGAMI2GgYlS8TEfnIsgynQAaYF7j368s6ETEn
TMd2+eHxtn4+XkwlIqsNPL0i9xnAx/SQZgGBhFT4nUsXwf27ZJCfHU8kIXbb
yqNmbzHAjeNifP6cJOTF9Oz3584McEmdMG3GT0KWGZIiF+wZoFPB0/qQIAkZ
ZKn/52eL57dvEpUQISHC1pF77p5lAESoKW1hLwlZ9JY60WnCABV8gL17Hwlh
CbzUqm/AAAe5Pt/7uZ+EUJJ8BUKP43rQU8yeqZGQzymdvIEaDLB99BpDHZAQ
iTe7V0yFGSC0v/umqAEJMXc/amfKj9e/82Q3ywkSsh59W1KciwGW69Q+tVuQ
EE7FGj51Gh10f9h09HIgId1sjer7+ujAMt+t2e4qCfGVT2V/10YH9VkjR42c
SYjrJoOxVU8H3xPqdgq5kRBnk8jfYvj5lfUgobosgIR8uPVmiCeODkQ92TWy
gvH82aJo/E/oIN71wcuIMBJiVdWtOPaQDsIuX/a5EEtCGPpdZ9Zd6OCWkZL8
ZgYJGU688qL2GB2M6WYmjmWRkP2vXx0G6nRgp7WDpSmXhEhiGhzhMnh8SpTe
jEIScqvmyVwANx0c2lEVrfuDhIyEJh8W7NsEH7ZpUuVQEnJQZ4u22bQJ5Ijv
rvNVkxCLKBvjYrgJRClPjw834oz0yoTmboKtgYtLwf0kJELPVLbh9iZoeLt6
poZGQkwXcrurlmmAWsf6nZWJ13t6OkZkCO+HUzv3IWzsyMme4jF1/J4aIntw
rWI7O2IL/54tfEsDOtmeCUUS7IjU9oLsZjsaKEpf70jXZUfGmm6Uln/DwL8K
ok6vPjuScZlT2DgXAzx9grlCJ9gR399xEilPMXBL5LBXnCU7cpZ7QTsUv2/L
JHkLPnFkRzZujQrHcOD34adk63sh7IjOWfsER2MqqP3AXvkpnB0Zd+SWUVOh
go0mIdmFKHZEvJ/g+1vgf/fLIxsuCezIE+uIniPDFMAdcT/JPpcdARq9vxx9
KCAomNplUsuOyLe8IzakkMENL9r5vds4EJ3wdAPxonXw4dITBUFeDoRbIs2d
ErcOVvUF6Zw7OfD560JPruc68N+h+npVlAPZxSal6KW5Dp5+vDJXo8CBXN/n
HzT7bQ2UTtc/cj3JgairSPI4l68CVvuUt98iOJCKQJ0PSNIySDc6RDvLwYn0
BJX9k/4xBRLPONS/3M6JmBSzTDc7TYGnlyOSp/g4kVetcuhhvikQ8mDggL8I
J+J1yycaXJkEtz6E3s5W4ER2Vve/PMc6AbR3dQ0sm3Eiv8P9LzoeHQV9494w
9jkn8nww9XcOWy8QCy0LrRPlQsSt0Kc51clAbajo7DTOV2LFmfE3k4GhdoE0
lxgXUt7r4BjCmwzuLGegpjhrLMWTHW2TAGoXQm/G+by4s+/u+QTgfPiUV6c4
zmlXOBIF4sDnydFrI7u5kKPtK8yV6nBQpzdwgHUPF3Is1YqzhTccDGR0sezD
OS+wk6XANgyQzta/uo6z5gXNP1fmHwNb+KF/CufsiqbKVoFgsJXie3ZxLxdi
Qtc4cqHGBwiseUjzSXIhNf/ih/gueAN5i9srajj7GiQ8qJ33BKeJDs88cN61
eiL8oKAHyL1r0LiOs/XSe22xWmfwrVHnxS4pLuSfK39/+MI10CKneVMT5xbA
5bYmeAVQBuQ5fHHmNq6ZTK07D7i1pLtTcRadUO/wEDoNJBPE877hPG13+EbS
H2NweFHQqw/noPsOh5+2aoL//30v8v+/79X9P9fJhSk=
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesOrigin->{0, 0},
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     PlotRange->
      NCache[{{-Pi, Pi}, {-1.8521814180393126`, 
        1.8521850041732635`}}, {{-3.141592653589793, 
       3.141592653589793}, {-1.8521814180393126`, 1.8521850041732635`}}],
     PlotRangeClipping->True,
     PlotRangePadding->{
       Scaled[0.02], 
       Scaled[0.02]}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], {
    {GrayLevel[0], 
     RectangleBox[{-1.15, -0.8680339887498949}, \
{-0.34999999999999987`, -0.2680339887498948}]}, 
    {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
     RectangleBox[{-1.2, -0.8180339887498949}, \
{-0.3999999999999999, -0.21803398874989477`}], InsetBox[
      GraphicsBox[{{{InsetBox[
           GraphicsBox[
            {RGBColor[1, 0, 0], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 0.08}, {
           Left, Bottom}, {1, 1}], 
          InsetBox["\<\"Fourier sine series (5 terms)\"\>", {1.21, 0.58}, {-1, 0},
            Automatic, {1, 0}]}, {InsetBox[
           GraphicsBox[
            {RGBColor[0, 0, 1], Thickness[Large], 
             Dashing[{6.666666666666667 Small, 6.666666666666667 Small}], 
             LineBox[{{0, 0}, {1, 0}}]}], {0.08, 1.24}, {
           Left, Bottom}, {1, 1}], 
          InsetBox["\<\"f(x)\"\>", {1.21, 1.74}, {-1, 0}, Automatic, {1, 
           0}]}}, {}},
       AspectRatio->0.7500000000000001,
       FormatType->TraditionalForm,
       PlotRange->{{-0.1, 3.26}, {-0.1, 
        2.42}}], {-1.2, -0.8180339887498949}, {
      Left, Bottom}, {0.8, 0.6000000000000001}]}}},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{3.409694025265625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"-", " ", "P11"}]}]}]}]}]}]}], ".3", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{".24", " ", "--"}], "--"}], "--"}], "--"}], 
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", "--"}]}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.409694084984375*^9, 3.4096940870625*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Note", " ", "that", " ", "I", " ", "set", " ", "L"}], " ", "=", 
   " ", "\[Pi]"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.40969413728125*^9, 3.40969416221875*^9}, {
  3.40969705015625*^9, 3.4096970506875*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", "f", "]"}]], "Input",
 CellChangeTimes->{{3.40969665075*^9, 3.4096966546875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   SuperscriptBox["x", "2"], " ", "/;", " ", 
   RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "\[Pi]"}]}]}]], "Input",
 CellChangeTimes->{{3.409694123578125*^9, 3.409694132953125*^9}, {
   3.40969654515625*^9, 3.40969654784375*^9}, 3.40969663390625*^9, 
   3.409696669640625*^9}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{" ", "a", ")"}], " ", "Fourier", " ", "Cosine", " ", "series"}], 
  " ", "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", "0", "]"}], "=", " ", 
  RowBox[{
   FractionBox["1", "\[Pi]"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], " ", 
    RowBox[{
     SuperscriptBox["x", "2"], 
     RowBox[{"\[DifferentialD]", "x", " "}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.40969508959375*^9, 3.409695101484375*^9}}],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["\[Pi]", "2"], "3"]], "Output",
 CellChangeTimes->{3.409695115671875*^9, 3.409696552453125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", "n_", "]"}], "=", " ", 
  RowBox[{
   FractionBox["2", "\[Pi]"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], 
    RowBox[{
     SuperscriptBox["x", "2"], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"n", "  ", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x", " "}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.409695134453125*^9, 3.409695149265625*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "n", " ", "\[Pi]", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"n", " ", "\[Pi]"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        RowBox[{
         SuperscriptBox["n", "2"], " ", 
         SuperscriptBox["\[Pi]", "2"]}]}], ")"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"n", " ", "\[Pi]"}], "]"}]}]}], ")"}]}], 
  RowBox[{
   SuperscriptBox["n", "3"], " ", "\[Pi]"}]]], "Output",
 CellChangeTimes->{3.409696415375*^9, 3.409696559625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"PartialSum", "[", 
   RowBox[{"x_", ",", "k_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"a", "[", "0", "]"}], "+", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", "n", "]"}], 
      RowBox[{"Cos", "[", 
       RowBox[{"n", "  ", "x"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "k"}], "}"}]}], "]"}]}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f7", "=", " ", 
  RowBox[{"Evaluate", "[", 
   RowBox[{"f", "[", "x", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.409696497015625*^9, 3.40969650128125*^9}}],

Cell[BoxData[
 RowBox[{"f", "[", "x", "]"}]], "Output",
 CellChangeTimes->{{3.40969649828125*^9, 3.409696501671875*^9}, 
   3.4096965725*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f8", " ", "=", " ", 
  RowBox[{"Evaluate", "[", 
   RowBox[{"PartialSum", "[", 
    RowBox[{"x", ",", "5"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.409696470296875*^9, 3.4096964711875*^9}, {
  3.40969650409375*^9, 3.409696505046875*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   SuperscriptBox["\[Pi]", "2"], "3"], "-", 
  RowBox[{"4", " ", 
   RowBox[{"Cos", "[", "x", "]"}]}], "+", 
  RowBox[{"Cos", "[", 
   RowBox[{"2", " ", "x"}], "]"}], "-", 
  RowBox[{
   FractionBox["4", "9"], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"3", " ", "x"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"4", " ", "x"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["4", "25"], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"5", " ", "x"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.4096964716875*^9, 3.409696505390625*^9, 
  3.409696574796875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"f7", ",", "f8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Dashed", ",", "Thick"}], "}"}], ",", "Red"}], 
     "}"}]}], ",", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<f(x)\>\"", ",", "\"\<Fourier cosine series (5 terms)\>\""}],
      "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.40969652003125*^9, 3.40969652475*^9}}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
       LineBox[CompressedData["
1:eJwV0/s/1PkCx3GXmdVUiwpFKRl1XNpsEqHm/ZGTJYUkjWKJUktuJemiEpFS
EesuY0iRMBhSSK4ZFBNW7pcastsNpeyU8z0/vB+vx/MPeK9287U7LCUhIXGV
2v+rVqw5xTJ8xYLliwreQO3WjoA8lh4PCN5/6/pa95ustFPb39qmuoP30W2v
IaObZVu4v35rhj9WTB7XFR+bYrVnLVbaE3AapqMlD46ChpydhzeWZF4E29rG
YWrXIkyYP+1lXQ9DgZ3JfPFhFWibqoY1BV7BbtgYjRWrw8vk9Dp71yio/FHx
G19LC13Jnp4fNKLhGKu3TH/Hr/iSkFhVonwLCyuyvs2d1ofSnw2Lz8jGITtf
34KlYQTDW9MekI6HjteI9AcLFtg31R/Tviag+auDEmPaFEFRtnKCf5IwzbEa
fimxHQ/D88rsu9KwijOsoii0QndozwKV5nQwZy5FXou3wTlCK/wwyMH1JMcE
1ZbdSNuqR+N3cDG9zlU2U8sB67dY5i99kQkX7vMi23A2qoxd2WeasmB2NWwy
WfIABgxv5KEqG4/ZoxlS2q7wMbjjwH14F+5BObm3/jyIH/oVEvTie7DcvUTS
X94dK/Um7AV3cyFYL4xfpu8Bl3Xm3+1j8pGTKD68ZKM3tiRm3/jCKUCW2NVZ
xswXCy9Jy+9kF2KoRs3jQpEf3r5zz3h3hIfiUJN55z4cB7deo+7XiGJovXZU
vtp5CtH/dkRJypWgKFc8GbPmNM5vuLxXGF+CllDnKynnz+BA2hvRiWw+yr0d
RcVWwVA4mc0oqy/DBvm0MvG9EEjddxBG7HqIikqPWJmTl/Bx6KcUdudD3AyQ
2xW7PRStO4+sm31djsU/vjv+Mh2GcA1Nm620Cly8aNPjFXEF4rf2goOrqxGy
2s2YYRaNKdqD9TsOV+P6NiQotkZjYhU9Vi+nGlvHF7i7Ocagey//gPSGp7j6
9MRvlUG3wH+q+C6L1KDvfrBZkDAOPkldcuMudbB1OTNPejIJh0vWB7Rl1oEr
sLFX4iTD6UV498OxOiQ+UpDztE2BFd0wI9K3Hic1vduFZanQ9E/Q07nQgCET
dmRORjqGLdh7fW4/Qx1nwSj/IxesN+cOtvY/wyY5/QC+XSaSQzK816k2QbdK
nlbIz4Tdo4nLEylNaOgXrYo/n4UaneBSjyQBzjF/sli7IhtcWe5Sl7gWyDTJ
73cIz8GP3AZm1csW6JDgLvrXHOz/7W9d1SWt6JlJ213omYvFF/UtemNa0asp
Nvtidx+hnxqC9t18Do8YHWVz3QfQm/j8z3+2t2En637NmWuFcN0878Rfh9pg
dD40ULulEDfCVb6Fh7XBa4Cfs+9nHibUQRfVtoEzp3lDO4YH7oErqlnb2mFd
b2FTdLsIS1pVrNWIEBXOPkWW7SWYLkDBMpMOCGt2ixPiytGiY7LYz7kDeX1B
f5X/XY7MuwYnGy90oLGfqepr9gh26b+YBNZ14Nmf9PHY6Ufg3Vje+HJXJ6b6
Zs42OFfAx3tm4IZrF3obE1JfWD3BmHaBLD28G3MRbkObm2uoa+T6O93rhmqk
fqCERC3i1bM7igXd6A+2eLpoUy3MVdKS3eRewWybwalFnFpkMa6trU58hXQD
LbfLp+vgOu7BOnu/B5zWY/owbkDPnZU+n9r6ICzxFMxONqH0pzy7e5N9uNJD
y+7SFSD2iJGhi0I/qt03R307JsBOLXuJ1n394HG8ghTGBajKi7x1b6AfyXVS
bbeHm5FRPF3q8s8ArpZMnaWPtKLE9c2cKHQIp1T83H9e2I6zPo8t9qaPoLfX
P64orxPb8PmQbMEIzA0U8w+0d2K+vG5IY9UIHDPT8plfOpHI45YbDYzgCN/5
kDzpQul0pPZK1VGwypO5Tp1dmDzDXjiWPIoazPOspnfDM+Lzi6D411hrwdPg
B/eAzdHdl3pdBLa5ieUewSCmZQYO5twWoT7Vb82p2UFE+0YdKy0QIXFXXJ6L
4hCaWG9D2tpFkLCIdh/YPgTjfm4eTWkM1esSB/h3h7BCRUnK+/YYJEvH5rX6
DGMwVpy3tWAcVxsvr0+dPwqPiCapwbYJPBFVVlYGiVAbpqMT1fweDKvH1/nc
d/h90ZsaBcdPaHlrpLjlxSSmjBtZw4FTIKo9JoIHMyjw/fmbm99n2Jo0GCk/
EoN2QRTiFjcDV80V97+7SJKQJKbl0rhv+KhSWb7oOI1Y0S5o1UX+C2emk3pL
kQzJt/Tufp/zHTNt8+0iLiwgm5Of1D+/M4dzSUXVKTvlSL6bkCiJJIix4zVT
5VeLiIeavY7ptCQxeFxPUtYokKJRGb75RylCX/P0YJmnEtmhQF97TZJGrBN1
6H3SyiRwh75BrgSd0GlOnVUxy0nTvUm7+lk68cu+7cjZsJIcDZh1WDVfhtgq
VpLoeDWSsl1/do/MPNJDxrPm5qsTlbCysEZlBvmqPBvqVMgkuoOFe8YpBw46
i29S/q9xrjpDhUGs/6adrKXs/TG1egdl2a4VR7R5TFLtdEncSlk4c8L6K2WP
TbsCOpYziMuxJ1pxxUxSJBpxH1ZlkATl5sUtpUzSaNqnJ7WSQXxzE2LnKPel
dkoyKWeE3FXYWMYk9D3P0g9RVpSOWZpMmf3kQe8YZVO7a2pHHzLJj4SgPe9X
MUj6alXQHjHJkil/dTk1BtFYtrLOkLKmtdcnXcrSe90svSjvpv1+05+yMKPE
Xkg5y8+seZoyL+KiD+cxk5Q3b0lWXM0gC3kpn19Sfr7W4A8DyrVqs+dkKphk
pk9TJogy6+XFKB/KCzerdyVSpinlKHApq8Uuv1NOWSNdIa2T8qb3CgE9lDk+
tWsYlUyyw1LW7F/Kp8L4+Vso/w9wEP3c
        "]]}, 
      {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJw12Xc4l9//B3DexvsmDbtQvN/FR0hGGsI5VFoq2ZFVGWVUViU7o1AZZWfv
jHdGlHJuZcsoI9mUkYy3mczv7bp+v7/u63HOfd3nvJ7XdV/XOdeLcu22lgWJ
gYHhEyMDw+bz3NltJ1YobPheLFLv51kqPF7sRsf2sOF1tTfu9xGWovx5xSfA
hg/8O9jXTHj30yvn9/Gx4b4Fwo9LCG/7V7Mky8WGH9vp7PKS8MaNw+lgGxte
bRyUdZMwvSVV+wI7G15Q8Z1yiPCAEjejESsbfiL4d//8GSr8mumdZ01iw3m3
3vr1mvAnHrqRyzqGH48SkrlCuMDLhM13GcOnfPo+r56mwpSJL29DFzG8TTgj
MYLwC4PjNxJmMbzpfUCNGGG/yizO3CkMN3jx+liuOhW6yOxE78cx/EGP/tJ+
wgbYwq6OIQwfZh4wYz1FhWedrtf87MNwdVSz1fIkFSoOfHWa6cLwI88vbf1w
ggqFSvOaOVox/K2q45bzalS4dd9ud4FmDN/y4PdWX1UqXH8eJCHegOHfTIpu
FUKiPitrvxOfMfxCDL/SggpRX2uH3GWE4elF+sVkwp/AqQGTMgyPmT0etkOZ
ClP5qcddCzE82P6KN8txKrSq6abTUjA8p0bnkdthYr/y5+LLEzA8U/e2lZoC
FZ5JKD3/JRbD51nCq9flqVDi3sv00XAMNxwOYDKSpcIpsUtX9/hi+NJcfE+S
JBX2h31kk/LC8JdBdauCElTYsi5ZcsyNWG8iqzhYnMi3A+PSdcLwiNWjJC1R
Ii//TzVBNzA8iJLuZbuH2M+sjHO0GYZf7B3tjxUi9mOSQM24iuHPMgtXKgSI
vA67uX/SwXAnpQS3WT4qXBtWkP93EsMb5hflhrdRoe+prHhLUQx/4xFwlG+N
AvEgV01hCpG3YSPFa5kCV7+eJ3UKEetxF4T2/6VAR5Mpi7M8GM6RPSHqOUuB
1+7JH5BiwvBA0xl2tVEKBFkfy2YGyPia22evviYKdJ1+ZpfdQ8ZlTh/7ldpA
gW8VzISvd5Lx03dOmZjXUqD0J9KjtmYyLn9FsPxDBQUKdZ8+V1JOxrv88s+t
F1LgMse3Trc4Mu5dcGWgOIICD2unBCpEkXFZ8eMvh8Io0CHaSWkqnIwP3x3i
YH1Ogb9F+RNNg8i4bryAo2wABXaqXLVScyXjFYMFloL3iPXvjCyQDch4YYHm
C3VdCrzbtswVzk3GmzoUhrW3UGCE1iXDF9vJeLWOgnYlKwV+aElJermFjBfk
HBSSJlEga6OGTBQTGe/efm9yckkExlXFX3g1x4pr3XvXJjwiAmvfqj3OaGXF
E+T379RHInBPdOBaWTgrfqJJl2ZtJwLrjQXGfnGz4lY7DRTeOQvDtfJsmuIu
Ftxvsf/0TUch+LNgJvQyGzOeb+eWtiayCx5OYm17uoUJj/vtPdp9mg8qNt+t
UyUz4UHyf9t0lfigylpP+QKJCY+o63X+LsMH1a8UZhkvk3C9fPbRmV18UJ/T
zPPAbxJuKnt/m+8EL7zv/U6isZqEx5XHb4iE88J35rbeHD4kXFL3s+ilER6o
RP0mHbTEiFvpnvK0SuWGidxbDmnPM+JZfHGAOZYbMrGcPCZIZ8SZhJkVM0O5
Yf1o8YnXo4z4Jya/ShZPbmiQG23Q0MGI55El3fkMuaHTUXOfLcWM+OKQv8tj
Tm6Yc5HeHnSXEX9j8W7qnh8XFHq4zT14nAHX+qKcft+TE7bEyRpY9m4g63am
O6+Dt8Nm68JRhbI1ROpveDaynQOm7/96VPPjCgrQIH1VrsWgTEzLHYe6f4gH
i6vKcGSBFBnlLr7Xf9F/kYoyRxsY4fj7UyysbxbQ00RmwzrONfA6tKTeMXMB
IUqv8vfFVWBrvT9kMGEBmd5Z3ZjtXgWTvFsFPz5bQOKtldE66auAfqdNxsl2
AR2N13L4fHwVLIpdvzr03wKa7aLb37y5AkjhXoXl8fNo+J+HZmTLPyBoU2Z+
L3gOlfU3uIe1LoKY2lr1rb5zKFuCnnn24yIQEOuQTHk4h0yh/SPuDMKD9IWm
W3Oop7r2br/rItipLxYodnYOHYkw0LyydxHwnAgtaGeZQ2eCPLt77i0ADkEr
pkOes6gsY9T+0sF5EHzfaazOZRZ9qUzhsRGcB1s6vBtN7WdR993J3THkecAe
GhcZZDyLSrhLDOUG5gBG/ib58/gsij05aXk+bA6wzCnphC3NoAueL1d2L8+C
9XquNPrdGfRNO3O3aOcMuBwlVsx/awZVKBf3ttbMgFQLxSqVazOIvfLneFjJ
DDjHcG04WGsGlbHfrleNnAERCm9E98vPoBymH0nm+jPgQOKldPN5Ojp6K2tH
UhcdXHUOzvjmQkcvniv/jvsxDfLVEkv+2dNRnfVeqV8fpgFpR1GNiBUdjRYa
cp5NnAaZ2d2j9vp0dPbhpzM2VtNgvl9CfMtROrr37irjtr9TgO9l2OWA2WlU
xRi9lyY4BRwBh87Nv1PodcK+Ow4PJsDJE8jv+sgU+qZxRYfdZALwnXYoMW6f
QjHnLnYhtQlQerFTQKtwCl3+aLbuwzEBVo1TBxVvTyHjkqV/15P+AF83pdsc
o5PohIS7+bWWcRDxzjYwv2MCncg8wPtV9TcolW/EF4rHkaFOw785ixGQz1lN
4/84gpRJQltjUgaBo2I0k8rtIbRd7Vd9tf8PoOhnembsVg8q/2TqxPinGdQt
uaeZnO9BlCqxZuPUZmBgG0dql+xBu0wnSLXGzcBZ+8eHiolutMJoXF3T0gRo
FG3ZWPtupGc0WeZd0gj+K1cXuOjQhbZ3mt4//7gB8Pw9MFH4oBMt2a3salOs
ASm3NM5KGHaiOMXi8J+L1UCu71Z6omIn8s0UyeAsrAaaVRlmT1e+I3V+x8UG
yWoQFE5pt3T/jr4+FflVt6cKkGR4y3d5d6Ceuyx9Dls+g2nr1eeej9tQtcJo
VBG5HLTlye64aNmGziVZZZ3x/Ajez1uGCJ1sQ1Hawuw6fz8AX6+vIe82WlGn
NqPD97EyIBCVHjrn0opuzu9fQl/fgZM1muFWFt/QSLLX2bAPxSBKNC3ikloL
krQWPivJnAPcbbr49oi0oP7YcIMC/teg6pqw9I+VZjR1U2g0XCobGLrOS3M7
NiP1yo/I0TAT+GXFywSYN6E/jeovSTWpoIs8J39b5QviEchasvkSCx5VxiqC
pRrEkEA5JS5rAcaajoVblNYgKLA3IveZDrj44/ufoPvEfIjT8yenOJHAFPer
zqVqBGWEzQp/WiAaf/DG3X9VSPPR03/X33qi3ltulanLn1HpvvefGUpCkZqz
wO6G95+R9ZVJKb/BMJTpWeo84/oZcVR51L/DXiCnF/NiKiufEBZ/wW7vhQjE
Xm775PtKBRJKtN71JDcG2VPfx/EsI2RQ4fMk5UYSOnZk8YK5K0JtsaxUz74k
xKwht5G7XI7G4m61vdBLRrHO2eanVz4ioaIjDVaqKai2NkbMdbUMfVj+J+XB
mIbCezu+V7uVoVXegchV2zRkMsv1hHvtPYoKCFXN7EhDC4JBf3LW3qEX4wcN
vFPTEfX2Q1r/egkqqjHayyWRiSYflZhLeZYgJyG98a/+mag0ao7rwcZb5FUz
nVw4mIkufbJx5mJ4i1YTd338HpqF3HivKp5iLEJub5TaPLuz0WmJqD+h3oXo
zr7oY1L7XyMu0BbXx1iIeN68H6Y7vUZZ1hob90gFqK1x+UM5aw7qKFOqzGai
odVXvOGXuHOR0INrfbMc+SjkTVyarWYuCnY9fyiEKw9hO0jauUG5yMZ990D9
7hxUFNZ4LGI1F3V5sB623vsavShVHFSSy0PnvKaDWPZno1TOhA0myzwk8aji
CDyUic5oZlTRa/JQjG/2095jGYh2jGEH72IeYvcP/+kK0lFn+2c+fWo+Gn9s
8bz4XCr6dY1vTNY5HxkGXhzW0kxBHF8SAuti81F90JHjdN1kdL8vJNoNz0dZ
z9hGJcwTUfx3xYe7SDQkJzL8IKQxHo1958mK4aQhrr0log2dccj/yEiMuAgN
zYo++cryKwbpOYcLfT5AQ1/FjdzhdBSyvm+xdlORhmiSB/Y/XI5AgYPsO3ar
01CI9EZbMctL5HYqWqJHk4buyH71ou8IRyKaz8QyDGlI81CKlKRQKBppahlw
v05DpvbjtIaLzxCW9uaYmQ0N7XF6hqlaBCKH9Ameiw401PdAzuztQ3+UdzXr
yun7NPTKs6NEMswHGRQ8nD3vTkOl7At71C67I5fHNxqNvGnoCJ9yk5SHM6LJ
fet28aUhmxPsK9J6Nii7J5HrlT8NtRQdKsTM9NGd7wK3mgJoqM0pR0XuDQBS
TUu97I+J79879Vsz7jrgGza30yLmNWmGVcpJdwGp/I9Amh9RfyoXn7bTA2Bm
FTNBekRDWRoW8kUpXmBVduCPjScNjatXdKs89QUdt1+JDrjSkITqbt86l8cg
QkAk29SZ2M/xB1I6ZsHA49rep+P2NNQRc+vW9L4QMCDaPOxlRUOLkVHlRbvC
wNClkiaqKQ3xvazmct32AnwT6bZo0SXqC5u3BEwRoMA49cuT8zRk8JxaxrwU
CYasR/67BGnofrDm9vqJaNCh2psgcojIxz+nRKfjFTja3Bs5tpOGOh91bRFo
SADVl80e9LPRkBtkpk33JwINha3O1XP56JWyHHNxWzK47zQcsC8vH0krnc3j
b04BtsF+nG6P81G5opmBa10q0FF/rjFtlo/6jjzLAeXpADNY55Ik/gP7w2l6
yaUZYGxKunG+Lw+tH/rAwFKYCQzu6kf05OehPXLjOvUZ2SBHym4V08hDplLq
azqheeCq/S6B33a5SCkq/dliYj5gtudI8ZPKRRw+TDs0DGjgg4Uf3+xYDvo9
eT1p0uoNcHuSKAOMclBy1b5KmYBC4PX6w4UG0dcoZKUtmHF7EdhnTidjrdnI
Q9ZP91tEEdi5Yuu6xyMbGb0aHnFMLwY71KJ4+xqzEI9zOltJVQlYcigdatHO
RKTXet8CLpQCpwbRASZ6BqIPsMYatJcCGZNTz4QCM1CjhpXU8q93oE3cOIql
NB357xO/pMz8AQS/9LkzspyKVn/r1JtTcMDQIt7pvicJzTHnSp+zwMF8rUvd
UHQiGhdmCZfLwoFmoqLLee5E1KlbbMQkWwHoeldFzBniUXEF72Qqcctb7U1z
3uYXjeyjO7aPmVaCWivLopTc58iiSNqpJaUSiOh1YNdFnqKrzf6dpaOVwPrH
vqLqoEB0nuVI0pPbVcAs/PS/FA0/JH43Uk7SsxqI8FWXFk47ocEzBrr28bVA
xLbcqp75AVAZdjNv7K0FA7d2NZJjPECMd5Kd1O46IK5cpOS02wdovR/3G4+t
A53xdcdSmwPAJ0n3t5bR9aBWCb4S/BAKkrcl85u++AJslRuMO8ZeAbnxhYn/
TrWAsKSKulH+HDCfD/J3Hm8D7NcuNj9v/QC+SB7numPcBlo8YlxWjD6ClIzD
zjWebUCZU3O0/9dHoJVw4LhLZRuY9gy4yrFUDt48E6xpvdAO3p6tEh0KxYG9
3d++Z2YdoD/CJDuu5hMYlcjfxuLfCcQi2YZu6NaArrQ99jMtPWAHNyv/nFUL
eGhfdkY3YQhw/djQzZz7AQwSD+rHPR0BX4zH/NTsBoFlQB2pnzg32cEb+haP
R8DV7TYldQPjQCmj4vT3uBFwOZLDtog+Dt59SnLQfzNCjF9qf7LjD9iZbnHo
UdcI4Kppzzik+QewPs8Nf3pgFHxkHdIIbP4DuHkeX47sGAU8/ssRCk0TgE1F
+vMXhd+AfVvceZG+CTA670S5pvEbbLxUZtgyNQFm2kHOluu/wXia182BrZPg
3PUGpriQ3wCvYlUKujAJngPHnrcTv4EtC/fgwJdJIP5EY2Qtcxx89pWUDG6Y
AkbX1b23y08AxY2XiWLdU6BV9jZO0pgABQ8Y+CrGp4Arubx2m8UESLZvZ1hk
mwYuh1a+3o2cAD4Gnh2mZ6aB//QSi/XaBFCTavWWr5oG95MPCBxumgQDN5Vt
7Uzp4OIwT5q27zQQyphNV7SiA/b69zIZxPnX4FfGIPk2HQgq9I3xf5wGLSZc
+skedICDct3Li9MA1x5V/f6KDpTvFWVwK9BBgnIov2oPHfRWj/wre00HJpzD
n3iuzADF0iDrnNQZwBzTNh9kPgN2+UzoU97OgGxqpRjTrRkgf4FdIYs43/+V
TwmccZ0BZpa/hmbGZ0CInrlWU9wMsGL9b5+13Cz4HNs7GDAwA36zr49MV84C
cbEOhhWrWZBpw3otamkOzCnWqAy6zAFZb73e4JhFUK1NO1XjQYw34r+M8hdB
lG20Rq7/HPgVvmp9vHIRqMTbGD6ImANvd0p8lpxaBIGMO1w4386BrayZeS1q
fwG11iBXdWEOfKti30qd/gsu644LJjvOg92OQpxB2v9A/u2t/67dWQCM7AbM
M6dXAbPniPe1F3+BaPE9kcepjNA7eu9Z/hf/QEiJur0hPws8z+y5v/LJCgjW
/cuQfReDeWftOqey1sAFweeC3+a2wKMxqKopbQOcvBVwWklmO8y79g3yjTBA
I8GFvAP3OGHaTbeJi+MMkMW/jZeVuK/G3RGLCphigA0ikpY//TlhoIfr9NIi
A5StCpzNieCEFjHU+G4yIzQx8ye5v+WEQt8cVhL3M0IVzRU+wb/E+6rcbyXt
GGHR/otBcW5c0FJER1J1nhHynB060BPDDR2nXVVllxjhS+yzYEIKN/QqT9Kn
rDLCUUYjQ+scbhh7dfoRIzMJ2nqF9Gwt54YtUYE9FdwkOFNzyDFtkBse46x4
qiZPgqq9hh7sEjyQgyRNP+FAgmP5ya8/IR5Y8JNcrE4nQWlMY/TIBi88x8Mi
FsTIDI98Fqq/ybYLupw7dDibgQVy2RhpFYoKwbrMWa2qZRYICuJlmySF4VIN
qYy0wQLpjqFHDI8KQ7FRrr2QiRVGWr7q7zspDH1E5efeb2GFY7OaUV+NhaFS
smM4TYgV6tIWj195LgxpsfOtsSqskD4zUt9OF4ZRzxZ1HHxY4fqUjaGOngis
zmX9mO/PCsWZ/gizXhWBC1/4RCcDWWFVCl2twFwEam05smAVzgqr9Q1u/LMV
gRyP7700TmWFx0R7bqo+EoFe3kvtZ6pZYamx6unXeSLQ2mlZT5idDLsEFd55
MFBgrlHAfp5tZIhIHgwcLBQ4q8azinGRoVNCXU0YGwU+5JROmt1Fhod+hmcF
c1HgszzzP1X7yTAmeNhHZh8FFo/VetqeJcO1k3c2pNUpcLlZV8v8AhlGM5Mp
l85RoErJ0D69y2Q4X6fPa32RAmv9VuvAFTLMvlqn4atHgT1UGR7um2QY9OdD
5w1LCiQZR2a+e0yGdn70jI++FHj65L6HecFkWHGCSdnyMQUGS765kBJCho+K
U1nJwRTIu1w/GxxFhu9VjLhkwylQPHJdySyTDNOObbCLJVHgxa8WX1lryZB9
ErwLKqPA8NLZlJUGMpS/X2NWWE6BnQmeLvRmMtwItKN9q6BAc/towa7vZLiv
KPG/pRoKdNrSaJE7Sobtb0YjelspMPbUoWVtMgZzjHRqtoxT4Astk9pXWzCY
mesgMTRB5GP6OGJ0OwbFrChyedMU6POgR+7hTgx+yczj+G+BAm/l+tok78dg
Gglnit2gwBvv845NHMDgnXuVCbtJVGhS00k+LIdBG2uP+JfMVKg1KJVap4jB
3tGHaRZsVKjI295DP49BxVY/dj8uKjxE3chW1MRgajqceMNDhdIH9z/w1cGg
n0/DYisfFVLPuvPuNMagQHeDzV8BKmR3F70I7DH46ij/3jIqFTIHXhJ64oBB
10scUSH7qHA94sH4NxcMFs1JMBuJUeEsrdHf0hODql5hr5v2U2HXL2f0NASD
4VdOJcvIUGHbTMLT7y8w+FOrTTFXlgqb1uuMKNEYPONxI2mPPBV+2rlnqSgJ
g08C/Kr7Fajwg+iZ6vU0ol51W7eDR6jwrZzDizPZGHwvyjDteJQKszWqZXoK
MLiV33i5S5EKU6/Q10VLMLjv6MugteNUGG8p0Hi7DINm5Qb1PMpUGOZlf5Op
EoNXng6rUQAVBj+NOnKhFoMK7sdc+CAV+sd8Yon8gkEHVelzDKpU6FrElyzR
jsGuucjaN2pU6FQB7zj9wCBJttjuwQkqtG+6pVLei8G2lc+ZCiep0Lr7BQc2
hMEoGYd7I4SvjZV3XR7BYEhK6PegU1R4dWEsM3Ycg7uldtaIqlOhHon73vAU
BmXzhU8WEdbcrnzq4BwG18VHNI6cpsJzQlbcD/5i8G9xY38e4ZP7Qwc/rWCQ
O/bqisAZKlQ5XJbPwcAGr1xQjn9I+OiJYXc9ZjaYf1+lpoWwnOZ2jUSMDS6z
aDsLbPY/jI8JjHOwwXsiYRkGhMVuXR+T52SD1opHjIMIi9x7+tadlw2u7Eh+
WUBYwLfEt2YXG/TL19NsInywn6Y9Rni7/uG/mz6pmE1lE2CD1RecYzf7KXb0
OPwc4SExzp4WwvhVn9VGwpoPceVWwu0lDxumCL95HtO86XEu55jtgmwQTbea
tBHmrrM6epnwydAbzu2ELRUuOLURFrq05vOd8MMQ9RMLhJeLv25sOuQP4OIT
YoMeFiyunYTfJcnR9AnvehVo+YMwx7adE12ELSw4RLoJU25ylq0Qlse6AzZ9
uJI9UGg3GxSYwSY3beq69p8J4W0vfPJ7CBeMDF0fJMzOP8mz2T+qUe2RI+1h
g+SfxVab7olrZ9xLmG2ut2TTLNq1CTcIH+o7r9m/mV9ehb0fYXppaNSmpdnK
lNMJt3Uc7tu0AcrtHiV8sTvefGAzP4GMbEyYDfpWmCds2sc58cF+wmLjj7o2
/VoynN+G8DrjyJnBzXz9g0eCCI/QRd023TboV5xDOIpSlbPp9cj72lOEW09T
WIc28527S90uwgYFlfukNy1+0WbmIOFcx2WdTStl3cA1Cdv9cb6/6cvMJs/v
ElZN1YzetKWpvkkYYa74wJJNu77XPFBIuL5zb+umn/OeW20lrKsjNLHp1Dsn
GuYJJ+9wIm324941KMXwUthgwlZJvk03iR2+eZiwynnV/zY95H3wqD5hp7q3
Cpv+2yNOvk9Y4XGQ6qY5jlI7ogi7BqBzmxYJF0x7R/h4jdblTStM8Th1EXY+
fUp30//XD4T/3w/8H1wGU6E=
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesOrigin->{0, 0},
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     PlotRange->
      NCache[{{-Pi, Pi}, {-0.06457584304080716, 
        9.869603595407382}}, {{-3.141592653589793, 
       3.141592653589793}, {-0.06457584304080716, 9.869603595407382}}],
     PlotRangeClipping->True,
     PlotRangePadding->{
       Scaled[0.02], 
       Scaled[0.02]}], {-1, -0.6180339887498948}, {Left, Bottom}, 
    {2, 1.2360679774997896`}], {
    {GrayLevel[0], 
     RectangleBox[{-1.15, -0.8680339887498949}, \
{-0.34999999999999987`, -0.2680339887498948}]}, 
    {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
     RectangleBox[{-1.2, -0.8180339887498949}, \
{-0.3999999999999999, -0.21803398874989477`}], InsetBox[
      GraphicsBox[{{{InsetBox[
           GraphicsBox[
            {RGBColor[1, 0, 0], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 0.08}, {
           Left, Bottom}, {1, 1}], 
          InsetBox["\<\"Fourier cosine series (5 terms)\"\>", {1.21, 0.58}, {-1, 0},
            Automatic, {1, 0}]}, {InsetBox[
           GraphicsBox[
            {RGBColor[0, 0, 1], Thickness[Large], 
             Dashing[{6.666666666666667 Small, 6.666666666666667 Small}], 
             LineBox[{{0, 0}, {1, 0}}]}], {0.08, 1.24}, {
           Left, Bottom}, {1, 1}], 
          InsetBox["\<\"f(x)\"\>", {1.21, 1.74}, {-1, 0}, Automatic, {1, 
           0}]}}, {}},
       AspectRatio->0.7500000000000001,
       FormatType->TraditionalForm,
       PlotRange->{{-0.1, 3.26}, {-0.1, 
        2.42}}], {-1.2, -0.8180339887498949}, {
      Left, Bottom}, {0.8, 0.6000000000000001}]}}},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{3.409696531203125*^9, 3.409696578015625*^9, 3.409696686*^9}
  ]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{" ", "b", ")"}], " ", "Fourier", " ", "Sine", " ", "series"}], " ",
   "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"b", "[", "n_", "]"}], "=", " ", 
  RowBox[{
   FractionBox["2", "\[Pi]"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], 
    RowBox[{
     SuperscriptBox["x", "2"], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"n", "  ", "x"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x", " "}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.409696725015625*^9, 3.4096967384375*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "-", 
        RowBox[{
         SuperscriptBox["n", "2"], " ", 
         SuperscriptBox["\[Pi]", "2"]}]}], ")"}], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"n", " ", "\[Pi]"}], "]"}]}], "+", 
     RowBox[{"2", " ", "n", " ", "\[Pi]", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"n", " ", "\[Pi]"}], "]"}]}]}], ")"}]}], 
  RowBox[{
   SuperscriptBox["n", "3"], " ", "\[Pi]"}]]], "Output",
 CellChangeTimes->{3.40969673953125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"PartialSum", "[", 
   RowBox[{"x_", ",", "k_"}], "]"}], ":=", " ", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"b", "[", "n", "]"}], 
     RowBox[{"Sin", "[", 
      RowBox[{"n", "  ", "x"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "k"}], "}"}]}], "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f9", "=", " ", 
  RowBox[{"Evaluate", "[", 
   RowBox[{"PartialSum", "[", 
    RowBox[{"x", ",", "5"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.40969675228125*^9, 3.409696753921875*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      SuperscriptBox["\[Pi]", "2"]}], ")"}], " ", 
    RowBox[{"Sin", "[", "x", "]"}]}], "\[Pi]"], "-", 
  RowBox[{"\[Pi]", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"2", " ", "x"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      RowBox[{"9", " ", 
       SuperscriptBox["\[Pi]", "2"]}]}], ")"}], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"3", " ", "x"}], "]"}]}], 
   RowBox[{"27", " ", "\[Pi]"}]], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[Pi]", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"4", " ", "x"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      RowBox[{"25", " ", 
       SuperscriptBox["\[Pi]", "2"]}]}], ")"}], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"5", " ", "x"}], "]"}]}], 
   RowBox[{"125", " ", "\[Pi]"}]]}]], "Output",
 CellChangeTimes->{3.40969675425*^9, 3.40969682215625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"f7", ",", "f9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Dashed", ",", "Thick"}], "}"}], ",", "Red"}], 
     "}"}]}], ",", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<f(x)\>\"", ",", "\"\<Fourier sine series (5 terms)\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.409696771796875*^9, 3.40969677421875*^9}}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
       LineBox[CompressedData["
1:eJwV0/s/1PkCx3GXmdVUiwpFKRl1XNpsEqHm/ZGTJYUkjWKJUktuJemiEpFS
EesuY0iRMBhSSK4ZFBNW7pcastsNpeyU8z0/vB+vx/MPeK9287U7LCUhIXGV
2v+rVqw5xTJ8xYLliwreQO3WjoA8lh4PCN5/6/pa95ustFPb39qmuoP30W2v
IaObZVu4v35rhj9WTB7XFR+bYrVnLVbaE3AapqMlD46ChpydhzeWZF4E29rG
YWrXIkyYP+1lXQ9DgZ3JfPFhFWibqoY1BV7BbtgYjRWrw8vk9Dp71yio/FHx
G19LC13Jnp4fNKLhGKu3TH/Hr/iSkFhVonwLCyuyvs2d1ofSnw2Lz8jGITtf
34KlYQTDW9MekI6HjteI9AcLFtg31R/Tviag+auDEmPaFEFRtnKCf5IwzbEa
fimxHQ/D88rsu9KwijOsoii0QndozwKV5nQwZy5FXou3wTlCK/wwyMH1JMcE
1ZbdSNuqR+N3cDG9zlU2U8sB67dY5i99kQkX7vMi23A2qoxd2WeasmB2NWwy
WfIABgxv5KEqG4/ZoxlS2q7wMbjjwH14F+5BObm3/jyIH/oVEvTie7DcvUTS
X94dK/Um7AV3cyFYL4xfpu8Bl3Xm3+1j8pGTKD68ZKM3tiRm3/jCKUCW2NVZ
xswXCy9Jy+9kF2KoRs3jQpEf3r5zz3h3hIfiUJN55z4cB7deo+7XiGJovXZU
vtp5CtH/dkRJypWgKFc8GbPmNM5vuLxXGF+CllDnKynnz+BA2hvRiWw+yr0d
RcVWwVA4mc0oqy/DBvm0MvG9EEjddxBG7HqIikqPWJmTl/Bx6KcUdudD3AyQ
2xW7PRStO4+sm31djsU/vjv+Mh2GcA1Nm620Cly8aNPjFXEF4rf2goOrqxGy
2s2YYRaNKdqD9TsOV+P6NiQotkZjYhU9Vi+nGlvHF7i7Ocagey//gPSGp7j6
9MRvlUG3wH+q+C6L1KDvfrBZkDAOPkldcuMudbB1OTNPejIJh0vWB7Rl1oEr
sLFX4iTD6UV498OxOiQ+UpDztE2BFd0wI9K3Hic1vduFZanQ9E/Q07nQgCET
dmRORjqGLdh7fW4/Qx1nwSj/IxesN+cOtvY/wyY5/QC+XSaSQzK816k2QbdK
nlbIz4Tdo4nLEylNaOgXrYo/n4UaneBSjyQBzjF/sli7IhtcWe5Sl7gWyDTJ
73cIz8GP3AZm1csW6JDgLvrXHOz/7W9d1SWt6JlJ213omYvFF/UtemNa0asp
Nvtidx+hnxqC9t18Do8YHWVz3QfQm/j8z3+2t2En637NmWuFcN0878Rfh9pg
dD40ULulEDfCVb6Fh7XBa4Cfs+9nHibUQRfVtoEzp3lDO4YH7oErqlnb2mFd
b2FTdLsIS1pVrNWIEBXOPkWW7SWYLkDBMpMOCGt2ixPiytGiY7LYz7kDeX1B
f5X/XY7MuwYnGy90oLGfqepr9gh26b+YBNZ14Nmf9PHY6Ufg3Vje+HJXJ6b6
Zs42OFfAx3tm4IZrF3obE1JfWD3BmHaBLD28G3MRbkObm2uoa+T6O93rhmqk
fqCERC3i1bM7igXd6A+2eLpoUy3MVdKS3eRewWybwalFnFpkMa6trU58hXQD
LbfLp+vgOu7BOnu/B5zWY/owbkDPnZU+n9r6ICzxFMxONqH0pzy7e5N9uNJD
y+7SFSD2iJGhi0I/qt03R307JsBOLXuJ1n394HG8ghTGBajKi7x1b6AfyXVS
bbeHm5FRPF3q8s8ArpZMnaWPtKLE9c2cKHQIp1T83H9e2I6zPo8t9qaPoLfX
P64orxPb8PmQbMEIzA0U8w+0d2K+vG5IY9UIHDPT8plfOpHI45YbDYzgCN/5
kDzpQul0pPZK1VGwypO5Tp1dmDzDXjiWPIoazPOspnfDM+Lzi6D411hrwdPg
B/eAzdHdl3pdBLa5ieUewSCmZQYO5twWoT7Vb82p2UFE+0YdKy0QIXFXXJ6L
4hCaWG9D2tpFkLCIdh/YPgTjfm4eTWkM1esSB/h3h7BCRUnK+/YYJEvH5rX6
DGMwVpy3tWAcVxsvr0+dPwqPiCapwbYJPBFVVlYGiVAbpqMT1fweDKvH1/nc
d/h90ZsaBcdPaHlrpLjlxSSmjBtZw4FTIKo9JoIHMyjw/fmbm99n2Jo0GCk/
EoN2QRTiFjcDV80V97+7SJKQJKbl0rhv+KhSWb7oOI1Y0S5o1UX+C2emk3pL
kQzJt/Tufp/zHTNt8+0iLiwgm5Of1D+/M4dzSUXVKTvlSL6bkCiJJIix4zVT
5VeLiIeavY7ptCQxeFxPUtYokKJRGb75RylCX/P0YJmnEtmhQF97TZJGrBN1
6H3SyiRwh75BrgSd0GlOnVUxy0nTvUm7+lk68cu+7cjZsJIcDZh1WDVfhtgq
VpLoeDWSsl1/do/MPNJDxrPm5qsTlbCysEZlBvmqPBvqVMgkuoOFe8YpBw46
i29S/q9xrjpDhUGs/6adrKXs/TG1egdl2a4VR7R5TFLtdEncSlk4c8L6K2WP
TbsCOpYziMuxJ1pxxUxSJBpxH1ZlkATl5sUtpUzSaNqnJ7WSQXxzE2LnKPel
dkoyKWeE3FXYWMYk9D3P0g9RVpSOWZpMmf3kQe8YZVO7a2pHHzLJj4SgPe9X
MUj6alXQHjHJkil/dTk1BtFYtrLOkLKmtdcnXcrSe90svSjvpv1+05+yMKPE
Xkg5y8+seZoyL+KiD+cxk5Q3b0lWXM0gC3kpn19Sfr7W4A8DyrVqs+dkKphk
pk9TJogy6+XFKB/KCzerdyVSpinlKHApq8Uuv1NOWSNdIa2T8qb3CgE9lDk+
tWsYlUyyw1LW7F/Kp8L4+Vso/w9wEP3c
        "]]}, 
      {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwUV3c8le8bts459s7OShIqpJLU8yr1lWSHRMMKqSiVkFBJqBBSRmWPbNl5
Hlv23rLOscne4/f+/no/1+dZ933d1z1eMfOHelY0VFRUhXRUVP//alxmvbAl
xoBk5ybulcc0lpz55TZP